Showing posts sorted by relevance for query arduino-ke-visual-basic. Sort by date Show all posts
Showing posts sorted by relevance for query arduino-ke-visual-basic. Sort by date Show all posts

Thursday 16 April 2015

ARDUINO DAN VB.NET :: Komunikasi Arduino dengan VB.NET (serial port)

 

Pemrograman serial port pada Arduino
Hubungkan Arduino ke PC Anda menggunakan kabel USB, lalu buka software Arduino. Program ini untuk memastikan bahwa koneksi antara Arduino dan PC tidak ada kendala.   Ketik program seperti di bawah ini lalu upload ke Arduino.
int inByte=0; // variable to receive data from serial port
void setup()
{
Serial.begin(9600);
}

void loop()
{
if (Serial.available() > 0)
{
inByte=Serial.read();
Serial.write(inByte);
}
}
Setelah itu buka Tools > Serial Monitor pada aplikasi Arduino, untuk melihat interaksi antara PC dan mikrokontroler.  Jika kita mengirim sembarang data, maka Arduino akan membalas data yang sama.  Jangan lupa periksa kecepatan komunikasi, keduanya harus sama.  Dalam hal ini 9600 bit per detik.
Pada bagian setup, kita mengaktifkan fungsi serial port pada Arduino (yang terkoneksi langsung dengan port USB) dengan perintah:
Serial.begin(9600);
Perintah ini hanya dilakukan sekali saja, pada saat Arduino diaktifkan atau di-reset.  Jika kita ingin kecepatan lebih tinggi, ganti dengan 115000.  Jika kita ingin menggunakan serial port yang lain, gunakan Serial1, Serial2 atau Serial3. (berlaku untuk mikro yang serial portnya lebih dari satu, contohnya Arduino Mega, terletak pada pin 14 sampai 19).  Jika Anda menggunakan Uno, maka tidak ada pilihan lain.
Fungsi Serial.available() memberikan nilai BENAR jika ada data yang masuk.  Sedangkan fungsi  Serial.read() untuk membaca data yang masuk sebesar 1 byte.  Perintah untuk mengirim data dari mikro ke luar adalahSerial.write(data_yg_ditulis);
Dengan melihat program di atas, maka mikrokontroler hanya akan mengirim ke luar jika ada masukan data serial, dan pengirimannya akan diulang terus sebanyak berapa byte data yang masuk.
Mengendalikan LED lewat serial port
Sekarang kita akan coba menyalakan atau mematikan LED (pin 13), melalui serial port.  Kita buat ketentuan yang sederhana sebagai berikut:  jika menerima karakter ‘A’ maka lampu akan menyala, jika menerima karakter ‘B’ maka lampu akan mati.
// variable to receive data from serial port
int inByte=0;
// Pin 13 has an LED connected on most Arduino boards.
int led = 13;
void setup()
(
// initialize UART at 9600bps
Serial.begin(9600);
// initialize the digital pin as an output.
pinMode(led, OUTPUT);
}

void loop()
{
if (Serial.available() > 0) {
inByte=Serial.read();
Serial.write(inByte);

if (inByte==65)
{
digitalWrite(led, HIGH);   // turn the LED on (HIGH is the voltage level)
}
if (inByte==66)
{
digitalWrite(led, LOW);    // turn the LED off by making the voltage LOW
}

}
}
Ketik program di atas, upload dan jalankan Serial Monitor.  Kirim karakter ‘A’ atau ‘B’ untuk menyalakan dan mematikan LED yang ada di papan Arduino.  Catatan: tentu saja Anda bisa mengganti karakter tersebut dengan yang lain, sesuai keinginan.  (‘A’ = ASCII nomor 65 dan ‘B’ = ASCII nomor 66).

Membaca status input melalui serial port
Tahap berikutnya adalah pembacaan status input pada Arduino melalui serial port. Ketentuan yang kita buat adalah jika salah satu pin digital pada Arduino bernilai 0/low maka Arduino akan mengirim karakter ‘L’ dan jika bernilai 1/high maka akan mengirim karakter ‘H’.  Untuk memudahkan pengamatan, masing-masing karakter diikuti oleh karakter ‘CR’ atau ‘\n’.
Di contoh ini, kita gunakan pin nomor 24 yang dihubungkan ke sebuah tombol.  Kaki satu lagi dihubungkan ke ground.
// variable to receive data from serial port
int inByte=0;

// Pin 13 has an LED connected on most Arduino boards.
int led = 13;

// Push button is connected to pin 24
int buttonPin = 24;
int buttonState=0;

void setup()
{
// initialize UART at 9600bps
Serial.begin(9600);
// initialize the digital pin as an output.
pinMode(led, OUTPUT);
pinMode(buttonPin, INPUT);
}
void loop()
{
if (Serial.available() > 0) {
inByte=Serial.read();
Serial.write(inByte);

if (inByte==65)
{
digitalWrite(led, HIGH);   // turn the LED on (HIGH is the voltage level)
}
if (inByte==66)
{
digitalWrite(led, LOW);    // turn the LED off by making the voltage LOW
}
}
buttonState=digitalRead(buttonPin);
if (buttonState==LOW)
{
Serial.write("L\n");  // send ‘L’ + CR
}
if (buttonState==HIGH)
{
Serial.write("H\n"); // send ‘H’ + CR
}
}
Ketik program di atas, lalu upload.  Buka Serial Monitor, lalu amati data yang diterima. Cobalah juga menekan/melepas tombol sambil mengamati perubahan yang terjadi antara ‘L’ dan ‘H’.  Di percobaan ini kita bisa amati, bahwa Arduino mengirimkan data secara terus menerus baik L ataupun H, meskipun tombol ditekan atau dilepas lama. Ingat bahwa hal ini karena instruksi ini terletak di dalam program utama/main loop.
Sekarang kita akan coba modifikasi program, sehingga yang terkirim hanya satu kali saja saat terjadi perubahan dari L ke H atau H ke L.  Untuk itu, kita harus membandingkan kondisi nilai tombol saat ini dengan kondisi pada loop sebelumnya. Variabel yang digunakan lastButtonState.  Jika tidak sama dengan buttonState, maka baru kita proses apa yang kita inginkan yaitu mengirimkan data.
// variable to receive data from serial port
int inByte=0;

// Pin 13 has an LED connected on most Arduino boards.
int led = 13;

// Push button is connected to pin 24
int buttonPin = 24;
int buttonState=0;
int lastButtonState=0;

void setup()
{
// initialize UART at 9600bps
Serial.begin(9600);
// initialize the digital pin as an output.
pinMode(led, OUTPUT);
pinMode(buttonPin, INPUT);
}

void loop()
{
if (Serial.available() > 0)
{
inByte=Serial.read();
Serial.write(inByte);

if (inByte==65)
{
digitalWrite(led, HIGH);   // turn the LED on (HIGH is the voltage level)
}
if (inByte==66)
{
digitalWrite(led, LOW);    // turn the LED off by making the voltage LOW
}
}

buttonState=digitalRead(buttonPin);
if (buttonState != lastButtonState)
{
if (buttonState==LOW)
{
Serial.write("L\n");
}
else
{
Serial.write("H\n");
}
}
lastButtonState=buttonState;
}

Ketik program di atas, lalu upload, kemudian amati di Serial Monitor. Tekan tombol yang agak lama sambil amati karakter yang terkirim.  Arduino hanya akan mengirimkan satu kali saja saat ada perubahan L → H atau H → L.
Sampai di sini program di sisi Arduino sudah selesai, berikutnya kita masuk ke pemrograman serial port menggunakan Visual Studio .NET dalam hal ini kita coba memakai Visual Basic versi 2012.


VB6.0 DAN DELPHI :: Koneksi Arduino Dengan Visual Basic 6.0 dan Delphi

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. lebih lengkapnya baca disini
dengan VB berikut ini contoh potongan programnya.
  1. Program sensor suhu untuk input dari VB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// deklarasi variabel
float tempC;
int tempPin = 0;
void setup()
{
 // buka serial port, set baud rate 9600 bps
 Serial.begin(9600);
}
void loop()
{
 // baca data dari sensor
 tempC = analogRead(tempPin);
 // konversi analog ke suhu
 tempC = (5.0 * tempC * 100.0)/1024.0;
 // kirim data via serial berupa nilai biner
 Serial.print((int)tempC,BYTE);
 // tarik nafas sejenak
 delay(1000);
}
  1. Buat sebuah form pada VB6 dan salin program sebagai berikut
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
<span style="font-family: Georgia, 'Times New Roman', 'Bitstream Charter', Times, serif; font-size: 13px; line-height: 19px; white-space: normal;">
<pre class="brush:vb"><pre class="brush:vb"><pre class="brush:vb">Private Sub Form_Load()
  With MSComm1
    'non aktifkan dulu serial port
    If .PortOpen Then .PortOpen = False
    'set serial port yang ingin digunakan
    .CommPort = 3
    'set baud rate,parity,databits,stopbits
    .Settings = "9600,N,8,1"
    'set DTR and RTS
    .DTREnable = True
    .RTSEnable = True
    'aktifkan event oncomm event
    .RThreshold = 1
    'non aktifkan event oncomm
    .SThreshold = 0
    'aktifkan serial port
    .PortOpen = True
  End With 'MSComm1
  'tampilkan tanda derajat
  Label2.Caption = Chr(176) + "C"
End Sub
Private Sub MSComm1_OnComm()
  Dim strInput As String
  With MSComm1
    'test event data masuk
    Select Case .CommEvent
      Case comEvReceive
        'tampilkan data dari Arduino
        strInput = .Input
        Label1.Caption = Asc(Mid(strInput, 1, 1))
    End Select
  End With 'MSComm1
End Sub</pre>
</pre>
</pre>
<p> </p>
<p></p></span>



Tuesday 4 August 2015

RIDIKC INDUSTRIES



RIDIKC INDUSTRIES

Ridikc Indutries Melayai Jasa Pembuatan Program, Software Dan Hardware Untuk Penunjang Kegiatan Kerja Untuk Tugas Mahasiswa, Perorangan, Perusahaan, Maupun Organisasi. Dengan Layanan Full Costumize Dimana Program, Software Dan Hardware Yang Kami Buat Dapat Disesuaikan Dengan Alur dan Proses Bisnis Di Perusahaan Atau Organisasi Maupun Tugas Akhir Kampus Yang Menggunakan Program Atau Software Tersebut. Sehingga Tidak Terjadi Kasus Seperti Perusahaan Yang Harus mengikuti Alur Kerja Namun Kami yang akan menyesuaikan, dan itulah yang menjadi salah satu kelebihan kami dibanding jasa pembuatan program software dan jasa pembuatan hardware microcontroller lain.

Website Ini Merupakan Blog Dari Website Resmi Ridikc Industries | www.fajar-el-ridikc.com

YANG KAMI KERJAKAN

Kami Adalah para programmer dan enginner seniman, dimana yang kami buat bukan sekedar jadi dan kami kirim, namun yang kami kerjakan dituntut untuk sesuai yang dipesan bahkan lebih, dengan unsur keindahan seni yang kami tampilkan, yang kami kerjakan bukan hanya software melainkan juga hardware, Yang kami Produksi Antara Lain :

Kategori Software Management :
1.   Software Management Kantor
2.   Software Klinik
3.   Software Pendidikan/Sekolah
4.   Software Restaurant
5.   Software Managemen Gedung
6.   Software Laundry
7.   Software HRD & Payrool
8.   Software Online Education
9.   Software Test Online
10. Software Pengarsipan & E-Filing
11. Software Manufacture
12. Software Showroom
13. Software Export Import
14. Software Perhotelan
15. Software Travel Agent
16. Software Administrasi
17. Software Koperasi
18. Software Perpustakaan
19. Software Billing
20. Software Tecnical Analyst
21. Software Management Aset
22. Software Point Of Sales
23. Software Inventory
24. Software Akuntansi / Accounting
25. Software ERP
26. Software CRM
27. Software Sistem Produksi
28. Software Management Proyek
29. Software Perkebunan
30. Software Rumah Sakit
31. Dll.. (Sesuai Pesanan)

Kategori Software Kreatif :
1.   Software pendeteksi Wajah (Face Detection)
2.   Software Barcode
3.   Software Sound Analyzer
3.   Software Hacking (Tidak Dianjurkan)
4.   Software Promosi (Auto Posting Jaringan Sosial, Auto Sms, Auto Email,Dll..)
5.   Software Pendeteksi Jari (fingerprint)
6.   Software Pendeteksi Gerakan
7.   Software Autologin
8.   Software Sms Gateway
9.   Software Keamanan Komputer
10. Software Keamanan Rumah/ Kantor
11. Software Berbasis Bluetooth
12. Software Berbasis Wifi
13. Software Berbasis Infrared
14. Software Berbasis Internet
15. Software Berbasis Lan
16. Software Berbasis Microcontroler
17. Software Berbasis Bluetooth 
18. Semua Software yang menggunakan sensor dan pencitraan maupun microcontroler
19. Dll.. (Sesuai Pesanan)

Kategori Website :
1. Website Profil
2. Website Magazine / Portal Informasi
3. Website Kecerdasan Buatan (Ai) / Sistem Pakar
4. Website E-Learning
5. Website Toko Online
6. Website Aplikasi
7. Website Blog
8. Dll.. (Sesuai Pesanan)

Kategori Hardware :
1. Control Relay (lampu,tv,pagar elekronik dll..) dengan bluetooth Berbasis Microcontroler
2. Control Relay (lampu,tv,pagar elekronik dll..) dengan Wifi Berbasis Microcontroler
3. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Berbasis Microcontroler
4. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Keypad Berbasis Microcontroler
5. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Microcontroler
6. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Microcontroler
7. Tekhnologi Aurdurino (Arduino Kreasi Sendiri)
8. Tekhnologi Rasbarry
9. Tekhnologi Intel Galileo
10. Semua Sistem Keamanan dan Absensi
11. Dll.. (Sesuai Pesanan)


YANG KAMI KUASAI
1. Bahasa Pemrograman Desktop VB6.0
2. Bahasa Pemrograman Desktop VB.NET
3. Bahasa Pemrograman Desktop JAVA
4. Bahasa Pemrograman Desktop DELPHI
5. Bahasa Pemrograman Desktop VISUAL C++
6. Bahasa Pemrograman Desktop FLASH
7. Bahasa Pemrograman Desktop C#
8. Bahasa Pemrograman Desktop JAVA
9. Bahasa Pemrograman Desktop PYTHON
10. Bahasa Pemrograman Mobile JAVA
11. Bahasa Pemrograman Mobile FLASH AC3
12. Bahasa Pemrograman Web PHP
13. Bahasa Pemrograman Web HTML
14. Bahasa Pemrograman Web JAVASCRIPT
15. Bahasa Pemrograman Web CSS
16. Bahasa Pemrograman Web ASP
17. Bahasa Pemrograman Rakitan C++
18. Bahasa Pemrograman Rakitan ASSAMBLER
19. Bahasa Pemrograman Rakitan BASIC

YANG KAMI TAWARKAN
1. Program Yang kami buat Berdasarkan Alur bisnis perusahaan
2. User Friendly
3. Multi Akses
4. Support Client Server
5. Garansi Perawatan
6. Manual Book Dan Dokumentasi Software
7. Penjelasan dan keterangan Menggunakan VIDEO
8. Layanan Backup Software
9. Dukungan 24 Jam


TAHAPAN PEMBUATAN PROGRAM
Tahap awal dari proses pembuatan program adalah analisa alur dari program atau software tersebut, kemudian kami mengumpulkan berkas" yang akan di letakkan pada software baik logo gambar maupun fasilitas lainnya, kami membuatkan konsep dari software yang sesuai, membuat dan mengirim 1/4 program dengan ditandai pembayaran DP, Tahap Pengerjaan dan terakhir Pengiriman Software Lengkap dengan Video Dan Manual Book beserta komponen" tambahan (+SOURCE CODE jika digunakan untuk mahasiswa) yang dibutuhkan disertai pembayaran sisa dari jasa pembuatan program software maupun hardware.

MEKANISME PEMBAYARAN 
1. Hubungi kami melalui form Contact atau melalui Telpon dan Email.
2. pembahasan mengenai program yang akan dibuat berupa alur (Flowchart), Hak akses, Platform program, dan lain-lain Melalui Email/Tlp jika wilayah jambi Staff kami akan datang ke lokasi anda untuk melakukan Pembahasan.
3. Jika Kantor, Penerbitan SPK (Surat Perintah Kerja) , Penandatanganan perjanjian dan kontrak kerja. (Abaikan Jika Pribadi Atau Mahasiswa).
4. Jika Diluar Wilayah Jambi Pengiriman ¼ program kemudian Pembayaran uang muka sebesar 50% dari total harga yang telah disepakati
5. Proses pengerjaan dan konsultasi.
6. Setelah program selesai dan terinstal maka pelanggan wajib membayar sisa pembayaran sebesar 50% dari total harga yang telah disepakati.

FORM CONTACT-US
Alamat : Pasir Putih, Kota JAMBI
Tlp : 085369237896
E-Mail : Fajarudinsidik@gmail.com
BB Pin : 573D59DA

BIAYA PEMBUATAN PROGRAM
Harga yang untuk pembuatan program dan alat elektronik ini sangatlah ekonomis namun tetap disesuaikan dengan apa yang dipesan dan diinginkan, Kami menspesialkan mahasiswa karena sebagian besar tenaga ahli adalah mahasiswa yang telah diarahkan Dan prefesional. 

NOTE :: TIDAK HANYA MEMBUAT SOFTWARE KAMI JUGA MENJUAL BERAGAM SOURCE CODE DENGAN BERAGAM BAHASA PEMROGRAMANNYA.


NOTE :: TIDAK HANYA MEMBUAT DAN MENJUAL KAMI JUGA MENYEDIAKAN PELATIHAN PRIVATE KURSUS PEMROGRAMAN DAN MESIN.




# Dan Yang telah Mengikiti Privat Diberi Kesempatan Untuk Bekerja Sama dan Diberi Pekerjaan Apabila Ada pekerjaan Yang memadai dan Telah Dirasa Mampu untuk mengerjakan, 

# MAJU BERSAMA MENCERDASKAN BANGSA..