1.Buatlah hardwarenya dengan menyambungkan pin data (2-5) ingat untuk menggerakkan motor steper dibutuhkan driver motor steper bisa ULN2803 atau UN2003 karena arus yang dihasilkan dari port parallel kecil sambungkan 4 buah kaki pin data tadi ke inputan driver motor stepper dan untuk outputnya sambungkan ke kaki-kaki motor stepper secara berurutan dan jangan lupa tambahkan supply 5-12 volt pada motor drivernya serta ground untuk lebih jelasnya lihat data sheetnya.
2. Buat project baru kemudian tambahkan 1 label untuk judul, 3 buah commandbutton dan 2 buah timer. Atur properties interval timer 100 dan dalam keadaan false.
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()
Out 888, 1
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Out 888, 0
End Sub
Private Sub Command3_Click()
Out 888, 1
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
Select Case Inp(888)
Case 1
Out 888, 4
Sleep 100
Case 4
Out 888, 2
Sleep 100
Case 2
Out 888, 8
Sleep 100
Case 8
Out 888, 1
Sleep 100
End Select
End Sub
Private Sub Timer2_Timer()
Select Case Inp(888)
Case 1
Out 888, 8
Sleep 100
Case 8
Out 888, 2
Sleep 100
Case 2
Out 888, 4
Sleep 100
Case 4
Out 888, 1
Sleep 100
End Select
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