( TUGAS INTERFACE )
ASSALAMUALAIKUM WR.WB
Apa
kabar nih? Postingan kali ini adalah lain dari yang lain (hehehe), karena pada
postingan kali ini saya memposting tentang control LED Port paralel menggunakan aplikasi komputer Visual Basic
6.0 lets Cekidot.
Pada
aplikasi yang menggunakan LED ini, terdapat LED yang dikendalikan oleh port
Data, sedangkan yang lainnya ada
beberapa buah LED oleh Port Kontrol dalam port paralel yang didrive oleh
software dengan bahasa pemograman visual basic. Adapun program ini dibuat
adalah sebagai interface antara modul LED dengan komputer.
Untuk Bahan dan Peralatan nya ane
pake yang ini gan :
- Konektor DB-25 (jantan) 1 buah
- LED 12 buah
- Resistor 330 ohm 12 buah
- Kabel data 13 potong
-
Komputer 1 unit
Disini saya akan memberikan tutorial tentang
Data Register Port Pararel dikontrol menggunakan program VB 6.0
Dari
data D0 – D7 .semoga bermanfaat.
1. PERTAMA BUAT TAMPILAN FORM DENGAN MEMILIH BUTTON DAN LABEL PADA
GENERAL. DAN UBAH CAPTION PADA ALFABETIC.
2.CLIK
DOUBLE KLIK PADA BUTTON ON DAN ISIKAN KODE SEPERTI PADA GAMBAR.
3. SELANJUTNYA DOUBLE CLIK PADA BUTTON OFF DAN ISI KODE SEPERTI
GAMBAR DIBAWAH.
4.DAN SETERUSNYA CLIK BUTTON
ON DAN OFF SELANJUTNYA SEPERTI LISTING PROGRAM KESELURUHAN PROGRAM DI BAWAH INI :
LISTING PROGRAM :
Private Sub
KELUAR_Click()
Unload Me
End Sub
Private Sub
LED1OFF_Click()
ClrPortBit &H378,
0
Label1.ForeColor =
vbBlack
End Sub
Private Sub
LED1ON_Click()
SetPortBit &H378,
0
Label1.ForeColor =
vbRed
End Sub
Private Sub
LED2OFF_Click()
ClrPortBit &H378,
1
Label2.ForeColor =
vbBlack
End Sub
Private Sub
LED2ON_Click()
SetPortBit &H378,
1
Label2.ForeColor =
vbRed
End Sub
Private Sub
LED3OFF_Click()
ClrPortBit &H378,
2
Label3.ForeColor =
vbBlack
End Sub
Private Sub
LED3ON_Click()
SetPortBit &H378,
2
Label3.ForeColor =
vbRed
End Sub
Private Sub
LED4OFF_Click()
ClrPortBit &H378,
3
Label4.ForeColor =
vbBlack
End Sub
Private Sub
LED4ON_Click()
SetPortBit &H378,
3
Label4.ForeColor =
vbRed
End Sub
Private Sub
LED5OFF_Click()
ClrPortBit &H378,
4
Label5.ForeColor =
vbBlack
End Sub
Private Sub
LED5ON_Click()
SetPortBit &H378,
4
Label5.ForeColor =
vbRed
End Sub
Private
Sub LED6OFF_Click()
ClrPortBit &H378,
5
Label6.ForeColor =
vbBlack
End Sub
Private Sub
LED6ON_Click()
SetPortBit &H378,
5
Label6.ForeColor =
vbRed
End Sub
Private Sub
LED7OFF_Click()
ClrPortBit &H378,
6
Label7.ForeColor =
vbBlack
End Sub
Private Sub
LED7ON_Click()
SetPortBit &H378,
6
Label7.ForeColor =
vbRed
End Sub
Private Sub
LED8OFF_Click()
ClrPortBit &H378,
7
Label8.ForeColor =
vbBlack
End Sub
Private Sub
LED8ON_Click()
SetPortBit &H378,
7
Label8.ForeColor =
vbRed
End Sub
Private Sub
OFF_ALL_Click()
PortOut &H378,
&H0
Label1.ForeColor =
vbBlack
Label2.ForeColor =
vbBlack
Label3.ForeColor =
vbBlack
Label4.ForeColor =
vbBlack
Label5.ForeColor =
vbBlack
Label6.ForeColor =
vbBlack
Label7.ForeColor =
vbBlack
Label8.ForeColor =
vbBlack
End Sub
Private Sub
ON_ALL_Click()
PortOut &H378,
&HFF
Label1.ForeColor
= vbRed
Label2.ForeColor =
vbRed
Label3.ForeColor =
vbRed
Label4.ForeColor =
vbRed
Label5.ForeColor =
vbRed
Label6.ForeColor =
vbRed
Label7.ForeColor =
vbRed
Label8.ForeColor =
vbRed
End Sub
Label1.ForeColor
= vbRed
Label2.ForeColor =
vbRed
Label3.ForeColor =
vbRed
Label4.ForeColor =
vbRed
Label5.ForeColor =
vbRed
Label6.ForeColor =
vbRed
Label7.ForeColor =
vbRed
Label8.ForeColor =
vbRed
End Sub
