Interfacing Arduino dengan VB-6

Tutorial kali ini kita akan belajar membuat sebuah software interface dengan menggunakan VB-6 untuk mengendalikan lampu pada Arduino, lampu yang coba dikendalikan yaitu lampu bawaan pada arduino (biasanya ditandai dengan ‘L’).

Interfacing merupakan suatu cara yang dapat memudahkan pengguna untuk melakukan komunikasi dengan perangkat keras, dimana pengguna hanya tinggal mengklik button – button tertentu untuk memberikan perintah pada perangkat keras, selanjutnya informasi akan ditampilkan melalui software interface.

Untuk membuat software interface antara Arduino dengan VB, terlebih dahulu upload program berikut kedalam Arduino:

#define led 13

void setup() {     Serial.begin(9600);          }

void loop() {

if (Serial.available()>0){

  char inch = Serial.read();

switch(inch){

  case 'a': digitalWrite(led, HIGH); break;

  case 'b': digitalWrite(led, LOW); break;

}}}

Kemudian untuk Membuat Software interfcace pada VB, masukkan komponen – komponen berikut kedalam project VB

-          - 1 Frame                                -  1 Combo box

-     -  1 Shape                                -  2 Button

-     -  1 Check box                         -  mscomm

Atur komponen – komponen tersebut menjadi seperti berikut

Kemudian program untuk VB yang dibuat adalah sebagai berikut

Dim port As Integer

Private Sub Check1_Click()

If Check1.Value = 0 Then

Check1.Caption = "ceklis untuk menyalakan"

Shape1.FillColor = vbWhite

MSComm1.Output = "b"

Else

Shape1.FillColor = vbRed

Check1.Caption = "hilangkan ceklis untuk mematikan"

MSComm1.Output = "a"

End If

End Sub

Private Sub Command1_Click()

Check1.Enabled = True

MSComm1.CommPort = Val(Combo1.Text)

MSComm1.Settings = "9600,n,8,1"

MSComm1.PortOpen = True

MsgBox "Connected", vbInformation, "Berhasil"

Command1.Enabled = False

Combo1.Enabled = False

End Sub

Private Sub Command2_Click()

MsgBox "Visit-me-in ngopinih.blogspot.com", vbExclamation, "Closed"

MSComm1.PortOpen = False

End

End Sub

Private Sub Form_Load()

Check1.Enabled = False

For port = 1 To 10

Combo1.AddItem port

Next port

End Sub

Jika sudah, maka ketika dujalankan tampilannya akan seperti ini

Terlebih dahulu, pilih port yang digunakan, untuk mengetahui pada pin berapa arduino terhubung, kita dapat melihatnya pada devices and printers di control panel.

Kemudian coba ceklis check box dan lihat lampu LED (ditandai dengan huruf L) pada Arduino, jika dilakukan dengan benar, maka Lampu tersebut akan menyala ketika check box di ceklis, dan akan padam ketika check box tidak di ceklis.

jika ingin mendownload program VB nya, klik disini