Aplikasi Lengan Robot 5 DOF (SMARTARM ROBOT)

By: Mr. Widodo Budiharto

Kit demo aplikasi ini ialah lengan robot menggunakan servo dan kit mikrokontroler Basic stamp 2p40 yang dijalankan menggunakan Vb .net 2008.

Perlengkapan

Perlengkapan yang dibutuhkan ;

Kit mikro Dt Basic Mini system

2bh Servo gws s04 2bh torsi 10kg

1bh Servo Hitec hs 322

Servo continuous parallax 2bh

Body acrylic 3mm-4mm.

Visual studio .net 2008

Rakitlah lengan robot seperti gambar di bawah ini, dimana servo terpasang mulai dari P0-P5 .

Kode program

Gunakan Basic stamp compiler untuk membuat dan mengisi program ke mikro, untuk menerima data serial gunakan fungsi SERIN berikut kodenya ;

Robot akan bekerja berdasarkan data yg diterima dari pc berupa data (a-j), yang kemudian diterjemahkan untuk melakukan aksi tertentu.

‘PROGRAM DEMO LENGAN ROBOT

‘By; mr. Widodo Budiharto

…

sData VAR Byte

counter VAR Word

DO

SERIN 16, 16624, [sData] ‘data input serial dari pc

IF sdata=”a” THEN

GOSUB kiri

ENDIF

IF sdata=”b” THEN

GOSUB kanan

bukacengkeram:

FOR counter=1 TO 20

PULSOUT 5,2200

NEXT

RETURN

…

Untuk tampilan grafis, gunakan Visual studio .net 2008.

lengan.sln:

Public Class Form1

…

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

displayPort()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

serialPort.Write(“b”)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

serialPort.Write(“a”)

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If serialPort.IsOpen Then

serialPort.Close()

End If

Try

With serialPort

.PortName = cbport.Text

.BaudRate = 9600

.Parity = IO.Ports.Parity.None

.DataBits = 8

.StopBits = IO.Ports.StopBits.One

End With

serialPort.Open()

Label3.Text = cbport.Text & “ terhubung, sukses dechhh.”

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

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

serialPort.Write(“I”) ‘kirim data

End Sub

Miliki Aplikasi Lengan Robot 5 DOF dengan Kode lengkap ini Hanya Rp 6.000.000