VISUAL BASIC DENGAN ARDUINO

VISUAL BASIC DENGAN ARDUINO
(Menyalakan running led dengan 1 tombol on dan 1 tombol off)

Hai guys, saya disini akan membuat rangkaian seperti judul diatas.nggak usah panjang lebar yapsss. langsung ajaa..

1.buka program arduino UNO

2. isikan program di arduino seperti dibawah ini :
    
    char val;
int L1 = 13;
int L2 = 12;
int L3 = 11;
int L4 = 10;


void setup() {
   pinMode(L1,OUTPUT);
    pinMode(L2,OUTPUT);
    pinMode(L3,OUTPUT);
    pinMode(L4,OUTPUT);
   Serial.begin(9600);

}

void loop() {
    if( Serial.available() >0 )  
{
    val = Serial.read();
    Serial.println(val);
}
    if( val == '1' )          
       { digitalWrite(L1,HIGH);
       delay(100);
digitalWrite(L1,LOW);
  delay(100);
 digitalWrite(L2,HIGH);
      delay(100);
digitalWrite(L2,LOW);
  delay(100);
      digitalWrite(L3,HIGH);
  delay(100);
  digitalWrite(L3,LOW);
delay(100);
      digitalWrite(L4,HIGH);
  delay(100);
  digitalWrite(L4,LOW);
delay(100);
}

    else if( val == '0' )          
       { digitalWrite(L1,LOW);
         digitalWrite(L2,LOW);
         digitalWrite(K3,LOW);
         digitalWrite(L4,LOW);
       }

}

3. SETELAH mengisikan program diarduino
    langsung aja buka aplikasi visual basic
    klik start >  all programs > microsoft visual basic 6.0
    jika belum punya download disini DOWNLOAD
 
4.pilih standard EXE > Open
   

       maka akan muncul seperti dibawah ini
            

5. buat 2 kotak command sebagai tombol on dan off
   klik commandButton > buat kotak command di form1
   

6.klik kotak command untuk mengganti nama command menjadi "on"
  begitu juga dengan "off"

7.buat kotak lampu untuk indikator nyala atau mati
8.klik kanan > component > centang
9.buat tatanan seperti dibawah ini
 

10. double klik pada masing masing tombol 

      lalu muncul kotak dialog seperti diabawah ini

     dan sisikan program seperti berikut

   

    Private Sub Command1_Click()
MSComm1.Output = "a"
Shape1.FillColor = &H0&

End Sub

Private Sub Command2_Click()
MSComm1.Output = "b"
Shape1.FillColor = &HFF&


End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True

End Sub

11.kembali ke arduino
    tancapkan arduino ke PC lalu upload program arduino tadi ke arduino
  
12.kembali ke visual basic
     klik start
     lalu akan muncul seperti dibawah ini
      
     

13.UDAH SELESAIIIII

     berikut simulasi nya

     jika klik on = lampu berjalan running

     jika klik off = lampu mati

 https://plus.google.com/u/0/photos/photo/115221793882136647029/6345321964773054658?icm=false&authkey=CNXx7qrt6fWOHg

 

Published: By: Unknown - 01.51.00