Sebaiknya anda terlebih dahulu mengetahui dasar teori dari motor servo itu sendiri dan anda bisa lihat
dipostingan
Program Motor Servo dengan CodevisionAVR1. 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
