Translate

Membuat Alat Monitoring Menggunakan Arduino dan WIFI Shield V3 DFROBOT dan Interface VB 6 TCP-IP

Membuat Alat Monitoring Menggunakan Arduino dan WIFI Shield V3 DFROBOT dan Interface VB 6 TCP-IP


             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
}




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













1 comment:

  1. maaf bpk/ibu. saya mau tnya itu klo komplete kena berapa sekalian sama bikin paper ?

    ReplyDelete