Interfacing : Receive One or more Data over Serial from arduino to VB

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 koma
void 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