Kontrol LED Port Paralel dengan Visual Basic 6.0

( 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.

            Aplikasi yang digunakan untuk mengendalikan tampilan LED merupakan aplikasi yang paling sederhana, karena untuk menghidupkan dan mematikan sebuah LED hanya dibutuhkan tegangan standar TTL dengan komponen tambahan berupa sebuah resistor untuk pembatas arus.

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