Senin, 12 Agustus 2013

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

Tidak ada komentar:

Posting Komentar

CARA DOWNLOAD DI BLOG INI

1. Klik link download, anda akan diarahkan menuju adf.ly. tunggu 5 detik pilih SKIP AD
Silabus dan RPP SMA Kurikulum 2013
2. Klik Download yang berwarna biru.
Silabus dan RPP SMA Kurikulum 2013
3. Isi Verification Code. setelah terisi sesuai dengan yang diminta klik Download yang berwarna biru di bawah kotak verification code.
Silabus dan RPP SMA Kurikulum 2013
Semoga bermanfaat dan terimakasih atas kunjungannya....