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