Lintas Pengetahuan

Oke, sahabat sekalian kali ini ada project yang sangat sederhana sebagai aplikasi dari Mengenal Interfacing Dengan Port Parallel, kita akan membuat mobil remot control dengan menggunakan port parallel.
Sebagaimana kita ketahui bahwa port parallel dapat mengeluarkan 8 bit data digital dengan untai TTL [transistor transistor logic]. Dengan rangkaian driver motor sederhana dan sedikit pemahaman tentang visual basic maka kita dapat membuat mobil remot control yang dapat kita kendalikan melalui komputer.

Membuat Rangkaian driver motor



Komponen yang digunakan

Transistor NPN 2N2222A 8 buah
Resistor 470 Ohm 8 buah
Motor DC 3 Volt 2 buah
Socket Port parallel DB 25

Penjelasan Rangkaian

Dari rangkaian yang telah kita buat kita perhatikan rangkaian driver motor kiri kita lihat ada dua pin masukan disana, yang pertama terhubung ke pin 2 DB25 yang kedua terhubung ke pin 3 DB25 artinya motor akan berputar sesuai dengan 2 bit pertama dari nilai yang kita berikan [00000010] sesuai dengan aturan LSB [low significant bit]. Begitu juga pada motor kanan yang terhubung dengan pin 4 dan pin 5 pada DB25.
Berikut table logikanya.


Nilai Yang kita berikan Motor Kiri Motor Kanan

00000001 Mundur Berhenti
00000010 Maju Berhenti
00000100 Berhenti Mundur
00001000 Berhenti Maju
00000101 Mundur Mundur
00001010 Maju Maju
00001001 Mundur Maju
00000110 Maju Mundur

Memprogram Robot

Kali ini kita akan menggunakan visual basic 6.0 sebagai software untuk interfacing antara computer dan robot melalui port parallel.
Pertama kita harus mendownload file dll, yaitu inpout32.dll
Tambahkan toolboxseperti berikut:



Lalu click menu project dan add module
ketikkan kode-kode berikut pada module

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Lalu program utamanya
Private Sub Command1_Click()
Out 888, 10 'maju
End Sub

Private Sub Command2_Click()
Out 888, 8 'belok kiri
End Sub

Private Sub Command3_Click()
Out 888, 2 'belok kanan
End Sub

Private Sub Command4_Click()
Out 888, 5 ' mundur
End Sub


Selamat Mencoba….
Salam Santun..