Pada kesempatan yang berbahagia kali ini saya akan mencontohkan mengenai bagaimana cara mengakses Arduino dan WIFI Shield dari DFROBOT. Prinsip kerja alat ini sangatlah sederhana yaitu mengirimkan data ADC dari Arduino ke server menggunakan WIFI. Untuk pengembangannya data ADC bisa dirubah ke data sensor misal sensor gas, sensor suhu dan lain-lain. yang perlu diperhatikan disini yaitu menggunakan media WIFI Shield. bedanya jika menggunakan Ethernet Shield yaitu harus menggunakan kabel lan dari Arduino ke Router agar didapat sinyal wifi, namun jika menggunaka WIFI Shield tidak perlu menggunakan kabel LAN, cukup sinyal wifi saja, itu yang membedakan. jadi WIFI Shield akan konek ke Router menggunakan sinyal WIFI. istilah lainnya yaitu linking. jadi pada contoh ini di tampilkan data yang dikirim melalui Hypoterminal secara serial, kemudian untuk penerimanya menggunakan Hyperterminal melalui TCP-IP. untuk lebih jelasnya berikut adalah skema dan konfigurasinya.
a. Arduino Mega
b. WIFI Shield V3 DFROBOT
c. Sensor Gas
d. Router Server
IP = 192.168.0.1
Subnet Mask = 255.255.255.0
Nama = AVR-PC_Network
e. Program Arduino IDE
//rubah SWITCH ke PROGRAMME lalu UPLOAD
//Jika sudah di UPLOAD rubah SWITCH ke ARDUINO
void setup() {
// initialize serial communication at 115200 bits per second:
Serial.begin(115200);
}
// the loop routine runs over and over again forever:
void loop() {
// read the input on analog pin 0:
int sensorValue = analogRead(A0);
// print out the value you read:
Serial.println(sensorValue);
delay(1000); // delay in between reads for stability
}
// initialize serial communication at 115200 bits per second:
Serial.begin(115200);
}
// the loop routine runs over and over again forever:
void loop() {
// read the input on analog pin 0:
int sensorValue = analogRead(A0);
// print out the value you read:
Serial.println(sensorValue);
delay(1000); // delay in between reads for stability
}
f. Cara Meng-konfigurasi WIFI SHIELD V3
1. Set IP Komputer ke DHCP
2. konek ke WIFI Shield V3
3. Pertama ketikkan IP "http://10.10.100.254/" ke browser dengan nama dan passwordnya "admin"
4. Rubah Settingan seperti berikut
5. Konek ke Router AVR-PC_Network dan ubah IP komputer menjadi seperti berikut
6. Buka Hypoterminal lalu lihat data yang dikirimkan Arduino
7. Buka Hyperterminal lalu pilih seperti berikut, dan lihat data yang dikirim oleh Arduino
8. Aplikasi / Interface VB 6 TCP-IP
Option Explicit
Private Sub cmd_Connect_Click()
On Error GoTo a
If Winsock.State <> sckClosed Then Winsock.Close
Winsock.RemoteHost = Text_IP
Winsock.RemotePort = Text_PORT
Winsock.Connect
cmd_Connect.Enabled = False
cmd_Disconnect.Enabled = True
Exit Sub
a:
MsgBox "error: " & Err.Description, vbCritical, "Error"
End Sub
Private Sub cmd_Disconnect_Click()
Winsock.Close
MsgBox ("Koneksi dengan Server selesai")
cmd_Connect.Enabled = True
cmd_Disconnect.Enabled = False
End Sub
Private Sub Command_Clear_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
cmd_Connect.Enabled = True
cmd_Disconnect.Enabled = False
End Sub
Private Sub Winsock_Connect()
MsgBox ("terkoneksi dengan server")
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestID
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Dim temp As String
Dim pisah() As String
Dim i As Integer
Dim data As String
data = ""
Winsock.GetData data, vbString
Text1.Text = Text1.Text & data & vbCr
buffer = data
pisah = Split(buffer, Chr$(13))
On Error Resume Next
If buffer <> " " Then
With Text5
.SelStart = Len(.Text)
.SelText = buffer
End With
For i = 0 To 8
If 0 < 9 Then
Text6(i).Text = CStr(pisah(i))
End If
Next i
Else
buffer = " "
End If
End Sub
g. VIDEO HASILNYA
maaf bpk/ibu. saya mau tnya itu klo komplete kena berapa sekalian sama bikin paper ?
ReplyDelete