 |
| Visual Studio |
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Visual Basic adalah salah satu bahasa pemrograman desktop visual yang berjalan diatas .NET Framework dan dibuat serta dikembangkan oleh Microsoft. Sedangkan Arduino adalah board serta bahasa pemrograman yang dimodifikasi dari bahasa C++ untuk lingkungan mikrokontroller. Visual basic dapat berkomonikasi dengan arduino via Serial (TTL) karena di dalam board arduino tertanam chip FTDI atau Ch340(arduino KW) jadi tidak diperlukan tambahan aksesoris atau module lainnya.
Untuk software pemrograman Visual basic .NET dapat menginstall Visual studio 2013 atau 2015 community (free) yang dapat di download di web resmi visual studio. Untuk alat dan bahas sendiri hanya dibutuhkan
- Visual Studio
- Arduino IDE
- Kabel USB ke arduino
- Pertama tama buka arduino IDE dan ketik
Untuk mengirim 1 data,contoh mengirim nilai variable "hitung"void setup() {
Serial.begin(9600); //setting baudrate 9600 dengan parameter 8N1
}
int hitung=0;
void loop() {
hitung++;
Serial.println(hitung); //kirim data diakhiri dengan cr+lf
delay(500);
} - Untuk mengirim 2 data kira-kira formatnya sebagai berikut
data1,data2,data3,dataX data diakhiri dengan cr+lf dan setiap data dipisah dengan komavoid setup() {
Serial.begin(9600); //setting baudrate 9600 dengan parameter 8N1
}
int hitung=0;
int hitung2=0;
int hitung3=0;
void loop() {
hitung++;
hitung+=2;
hitung+=3;
Serial.print(hitung); //kirim data 1
Serial.print(",");
Serial.print(hitung2); //kirim data 2
Serial.print(",");
Serial.println(hitung3); //kirim data 3 diakhiri cr+lf
delay(500);
} - Pada Visual Studio dapat download source kodenya disini (https://www.dropbox.com/s/tcs9aa35a02xz5l/Vb%20net%20serial%20receive.rar?dl=0)
- Kita hanya menambahkan Tool Serial Port dan event SerialPort_received, dan kemudian mendelegasikan ke suatu fungsi untuk mengubah tulisan pada Form utama,berikut kodenya
Dim baca as String = SerialPort1.ReadLine()untuk membaca data yang diterima dengan akhiran cr+lf
Dim baca_clear as String = Replace(Replace(baca, vbLf, ""), vbCr, "")
untuk menghapus karakter cr(carriage return) dan lf(life feed)
Dim data_masuk() As String
data_masuk = vb.Split(baca_clear, ",")
Jika data lebih dari satu dan terdapat tanda , (koma) maka akan disimpan di variable array data_masuk(0), data_masuk(1) dst
Dim jumlah_koma as Integer = Len(baca) - Len(Replace(baca, ",", ""))
Untuk membaca jumlah koma - Berikut tampilannya
 |
| Vb to arduino |
Untuk Simulasi dapat menggunakan Virtual Serial Port http://www.ismaillowkey.net/2015/04/membuat-virtual-serial-port-rs233rs485.html
dan Hterm(hyper terminal) disini http://www.der-hammer.info/terminal/hterm.zip
Berikut tampilan Hterm(hyper terminal) untuk simulasinya
Good Luck
Semoga bermanfaat
وَعَلَيْكُمْ السَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
