Kontrol LED Arduino Via Vasual Basic 6

Assalamu’alaikum Wr. Wb , Alhamdulillah kali ini Allah masih memberikan saya waktu untuk bisa menulis postingan ini, kali ini saya akan berbagi tutorial cara mengontrol LED Arduino via Visual Basic 6. Berikut lngkahnya :

1. Uploud Sketch berikut ini ke Arduinonya, saya kebetulan memakai Arduino UNO

/* Simple Project by Giri Wahyu Pambudi
Kontrol LED via Viusal Basic 6
Http:www.cronyos.com */
void setup() {
Serial.begin(9600);
pinMode(13,OUTPUT);
}
char Data;
void loop() {
Data = Serial.read();
if (Data == 'H')
{
digitalWrite(13,HIGH);
}
else if (Data == 'M')
{
digitalWrite(13,LOW);
}
}

2. Buka Visual Basicnya, lalu tambahkan komponen berikut :

• 2 Option Button
• 1 Command Button
• 1 Label
• 1 MSComm (Project > Component / Ctrl+T > Control > Cari dan Centang Microsoft Comm Control > OK, maka akan muncul di Tab Komponen)

3. Ganti Caption Command Button menjadi “Eksekusi” dan Caption Option Button 1 dan 2 menjadi “Hidup”dan “Mati”,

4. lalu Ganti Shape dengan format Solid dan Circle, Caption Label 1 dikosongin aja

5. Setting Port dengan mengganti CommPort dengan lokasi Port Arduino Anda Berada

6. Sehingga menjadi seperti berikut :

Isikan Script berikut di sebagai Codenya :

Private Sub Command1_Click()
If Option1.Value = True Then
Shape1.BackColor = vbRed
MSComm1.Output = "H"
Label1.Caption = "HIDUP"
Else
Shape1.BackColor = vbWhite
End If
If Option2.Value = True Then
Shape1.FillColor = vbWhite
MSComm1.Output = "M"
Label1.Caption = "MATI"
Else
Shape1.FillColor = vbRed
End If
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Berikut Video Hasilnya 🙂