PROGRAM PORT PARALEL MOTOR SERVO DENGAN VB

Sebaiknya anda terlebih dahulu mengetahui dasar teori dari motor servo itu sendiri dan anda bisa lihat
dipostingan Program Motor Servo dengan CodevisionAVR
1. Buatlah hardwarenya dengan menyambungkan pin data 9 ke kabel kontrol servo yang biasanya warna
    putih/kuning, tambahkan supply servo dari luar antara 4,8-12 volt.

2. Buat project baru kemudian tambahkan 1 label untuk judul, 3 buah commandbutton.

3. Kemudian desain lah menjadi seperti gambar berikut :

4. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Dim c As Integer

For c = 0 To 50

Out 888, 128

Sleep 2

Out 888, 0

Sleep 18

Next c

End Sub

Private Sub Command2_Click()

Dim b As Integer

For b = 0 To 50

Out 888, 128

Sleep 1.5

Out 888, 0

Sleep 18.5

Next b

End Sub

Private Sub Command3_Click()

Dim a As Integer

For a = 0 To 50

Out 888, 128

Sleep 1

Out 888, 0

Sleep 19

Next a

End Sub

7. Sekarang silahkan run dan contoh hasilnya dapat anda lihat di video pada postingan Membuat Program Interfacing Port Parallel Led Berjalan Dengan Visual Basic