~ Elixir Tech

Kontrol Robot Arm

Menggunakan Arduino dan Modul Relay

dengan Media VB 6.0

Disini kita menggunakan arduino sebagai ganti minsis dan untuk modul relaynya sebagai driver motor pada robot arm. Untuk interfacenya menggunakan VB 6.0. Dalam prakteknya kita menggunakan 8 relay yang ada pada modul, jadi hanya 4 perlakuan saja dari 5 perlakuan yang ada pada robot arm.

Tampilan Video Demo Arm Robot :

List program pada arduino :

char t;
const int aa=5;
const int bb=6;
const int cc=7;
const int dd=8;
const int ee=9;
const int ff=10;
const int gg=11;
const int hh=12;
void setup()
{
Serial.begin(9600);
pinMode(aa, OUTPUT);
pinMode(bb, OUTPUT);
pinMode(cc, OUTPUT);
pinMode(dd, OUTPUT);
pinMode(ee, OUTPUT);
pinMode(ff, OUTPUT);
pinMode(gg, OUTPUT);
pinMode(hh, OUTPUT);
}
void loop()
{
while(Serial.available()>0)
{
    t=Serial.read();
}
switch(t)
{
    case 'a': digitalWrite(5,LOW);break;
    case 'b': digitalWrite(6,LOW);break;
    case 'c': digitalWrite(7,LOW);break;
    case 'd': digitalWrite(8,LOW);break;
    case 'e': digitalWrite(9,LOW);break;
    case 'f': digitalWrite(10,LOW);break;
    case 'g': digitalWrite(11,LOW);break;
    case 'h': digitalWrite(12,LOW);break;

    case 'A': digitalWrite(5,HIGH);break;
    case 'B': digitalWrite(6,HIGH);break;
    case 'C': digitalWrite(7,HIGH);break;
    case 'D': digitalWrite(8,HIGH);break;
    case 'E': digitalWrite(9,HIGH);break;
    case 'F': digitalWrite(10,HIGH);break;
    case 'G': digitalWrite(11,HIGH);break;
    case 'H': digitalWrite(12,HIGH);break;
}
}

List program pada VB 6.0 :

Dim haha As Integer
Dim hehe As Integer
Dim hoho As Integer
Dim haha1 As Integer
Dim hehe1 As Integer
Dim hoho1 As Integer
Dim haha2 As Integer
Dim hehe2 As Integer
Private Sub Command10_Click()
If hehe2 = 0 Then
MSComm1.Output = "H"
hehe2 = 1
ElseIf hehe2 = 1 Then
MSComm1.Output = "h"
hehe2 = 0
End If
End Sub
Private Sub Command4_Click()
MSComm1.PortOpen = True
End Sub
Private Sub Command5_Click()
MSComm1.PortOpen = False
End Sub
Private Sub Command6_Click()
If haha1 = 0 Then
MSComm1.Output = "D"
haha1 = 1
ElseIf haha1 = 1 Then
MSComm1.Output = "d"
haha1 = 0
End If
End Sub
Private Sub Command7_Click()
If hehe1 = 0 Then
MSComm1.Output = "E"
hehe1 = 1
ElseIf hehe1 = 1 Then
MSComm1.Output = "e"
hehe1 = 0
End If
End Sub
Private Sub Command8_Click()
If hoho1 = 0 Then
MSComm1.Output = "F"
hoho1 = 1
ElseIf hoho1 = 1 Then
MSComm1.Output = "f"
hoho1 = 0
End If
End Sub
Private Sub Command9_Click()
If haha2 = 0 Then
MSComm1.Output = "G"
haha2 = 1
ElseIf haha2 = 1 Then
MSComm1.Output = "g"
haha2 = 0
End If
End Sub
Private Sub Form_Load()
haha = 0
hehe = 0
hoho = 0
haha1 = 0
hehe1 = 0
hoho1 = 0
haha2 = 0
hehe2 = 0
End Sub
Private Sub Command1_Click()

If haha = 0 Then
MSComm1.Output = "A"
haha = 1
ElseIf haha = 1 Then
MSComm1.Output = "a"
haha = 0
End If
End Sub
Private Sub Command2_Click()
If hehe = 0 Then
MSComm1.Output = "B"
hehe = 1
ElseIf hehe = 1 Then
MSComm1.Output = "b"
hehe = 0
End If
End Sub

Private Sub Command3_Click()
If hoho = 0 Then
MSComm1.Output = "C"
hoho = 1
ElseIf hoho = 1 Then
MSComm1.Output = "c"
hoho = 0
End If
End Sub
Private Sub Picture1_Click()
End Sub