PROGRAM PORT PARALEL MOTOR DC DENGAN VB

Posted by Frengki

1. Buatlah hardwarenya dengan menyambungkan kaki-kaki motor DC pada pin data 7 dan 8.

2. Buat project baru kemudian tambahkan 1 label untuk judul dan 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()

Out 888, 32

End Sub

Private Sub Command2_Click()

Out 888, 0

End Sub

Private Sub Command3_Click()

Out 888, 64

End Sub

7. Sekarang silahkan run

Gudang Buku