Hardware :: Perancangan robot berkaki enam pemadam api dengan kendali suara

Ceritannya ini judul kerja praktek.. yah karena sibuk ngurusin robot males ambil pusing, ambil judul ini aja, jadi konsepnya robot yang buat kontes kan autonomus alias bergerak sendiri tanpa ikut campur tangan manusia saat padamkan api, nah sekarang aku buat jadi setengah autonomus, jadi dia tetap otomatis namun saat aku perintahkan berhenti dia akan berhenti dan saat aku perintahkan padamkan yang kanan dulu dia akan padamkan yang kanan jika aku perintahkan padamkan kiri dia akan padamkan yang kiri.. begonoooo…. dibawah ini batasan masalahnya:

BATASAN MASALAH

Pada   penelitian ini   terdapat   pembatasan  masalah  dengan maksud  untuk menyederhanakan agar tidak menyimpang dari yang diinginkan. Pembatasan masalah itu antara lain sebagai berikut :

  1. Aktuator yang digunakan pada robot adalah  Servo AX-12 dengan controller modul CM-510.
  2. Robot hanya dapat mematikan nyala api berupa lilin.
  3. Robot hanya dapat bernavigasi pada arena yang telah ditentukan.
  4. Robot hanya memproses interuksi suara yang telah diprogram sebelumnya.
  5. Bahasa pemrograman Robot menggunakan bahasa C dengan aplikasi Code Vision AVR.
  6. Bahasa pemrograman kendali suara menggunakan VB.NET 2008.
  7. Microcontroller yang digunakan adalah Atmega 128.

sedikit penampakan aplikasinya :

videonya nyusul yak.. nggak ketemu dari tadi.

untuk penampakan robotnya aku pake makalam 4.1, ini dia:

untuk codenya, ada nie VB.net, nggak semua dishare, tapi beberapa dibawah ini ::

Public Class Form1
Dim myPort As Array ‘COM Port yang terdeteksi pada sistem akan disimpan disini
Dim a, b As String
Private Declare Function InternetGetConnectedState Lib “wininet.dll” (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer
Public Function IsConnected() As Boolean
IsConnected = InternetGetConnectedState(0, 0)
End Function

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.ShowDialog()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo er
‘Cek semua com port yang memungkinkan
myPort = IO.Ports.SerialPort.GetPortNames()
‘Nilai Baud Rate yang bisa digunakan
baud.Items.Add(9600)
baud.Items.Add(19200)
baud.Items.Add(38400)
baud.Items.Add(57600)
baud.Items.Add(115200)
For i = 0 To UBound(myPort)
port.Items.Add(myPort(i))
Next
‘Atur Com Port pada Port yang pertama terdeteksi
port.Text = port.Items.Item(0)
‘Atur Baud Rate pada Baud yang pertama terdeteksi
baud.Text = baud.Items.Item(0)
Exit Sub
er:
MsgBox(“Koneksi Buruk”)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.PortName = port.Text
SerialPort1.BaudRate = baud.Text
SerialPort1.Open()
MsgBox(“Robot Terhubung”, MsgBoxStyle.Information)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SerialPort1.Close()
MsgBox(“Robot Terputus”, MsgBoxStyle.Information)
End Sub

Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds < interval
‘ Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(“linkserver saya”)
textsuara.Focus()
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
‘Automatically called every time a data is received at the serialPort
‘ReceivedText(SerialPort1.ReadExisting())
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Not dengar.Text = “” Then
textsuara.Text = “”
End If

If textsuara.Text = “maju” Then
dengar.Text = “a”
ElseIf textsuara.Text = “mundur” Then
dengar.Text = “b”
ElseIf textsuara.Text = “kanan” Then
dengar.Text = “c”
ElseIf textsuara.Text = “kiri” Then
dengar.Text = “d”
ElseIf textsuara.Text = “berhenti” Then
dengar.Text = “e”
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If IsConnected() = True Then
Label6.Text = “Koneksi : Wifi terhubung”
Else
Label6.Text = “Koneksi : Wifi Terputus”
End If

If WebBrowser1.DocumentText.Contains(“Butuh”) Then
Label5.Text = “KOMUNIKASI SUARA : Terhubung keserver”
Else
Label5.Text = “KOMUNIKASI SUARA : Terputus keserver”
End If
End Sub

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

End Sub

Private Sub textsuara_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles textsuara.Click
textsuara.Clear()
End Sub

Private Sub textsuara_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textsuara.TextChanged
textsuara2.Text = textsuara.Text
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub

Private Sub textsuara2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textsuara2.TextChanged
a = textsuara2.Text
If textsuara.Text = “hay” Or textsuara.Text = “hai” Then
WebBrowser1.Document.All(“text”).SetAttribute(“value”, “hay juga ada yang bisa dibantu bapak fajar”)
ElseIf InStr(textsuara2.Text, “bantu”) Then
ElseIf InStr(textsuara2.Text, “katakan”) Then
WebBrowser1.Document.All(“text”).SetAttribute(“value”, a)
ElseIf InStr(textsuara2.Text, “kabar”) Then
WebBrowser1.Document.All(“text”).SetAttribute(“value”, “Kabar saya baik bos, ada yang bisa dibantu bos.”)
Else
WebBrowser1.Document.All(“text”).SetAttribute(“value”, “Anda memerintah untuk ” & a & “, Siap Bos laksanakan”)
End If

‘wait(1000)
End Sub

Private Sub dengar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dengar.TextChanged
On Error GoTo er
SerialPort1.Write(dengar.Text)

wait(1000)
dengar.Clear()
textsuara.Clear()
textsuara.Focus()
Exit Sub
er:
MsgBox(“robot belum terhubung”)
End Sub

Private Sub Panel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel2.Click
b = a
a = textsuara2.Text
wait(400)
Dim allwebpageelement As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In allwebpageelement
If webpageelement.GetAttribute(“value”) = “Play” Then
webpageelement.InvokeMember(“click”)
End If
Next
wait(400)

If InStr(b, “maju”) Then
dengar.Text = “a”
ElseIf InStr(b, “mundur”) Then
dengar.Text = “b”
ElseIf InStr(b, “kanan”) Then
dengar.Text = “c”
ElseIf InStr(b, “kiri”) Then
dengar.Text = “d”
ElseIf InStr(b, “berhenti”) Then
dengar.Text = “e”
ElseIf InStr(b, “kipas”) Then
dengar.Text = “g”
Else
dengar.Text = “f”
End If

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint

End Sub
End Class

Please follow and like us:
10

Leave a Reply

Your email address will not be published. Required fields are marked *