visual basic LED printer port

vb LED, Printer Port, Parallel Port, 8255, 888, visual basic, inpout32.dll, db25, controlling printer port, light emitting diode

Yet another article about how to light Up the led through parallel port/Printer port, okey at these case, we using inpout32.dll to accessing the hardware, because visual basic can not access the printer port by directly, so we use inpout32.dll which compiled in C++ and it also supported windows Xp, read carefully and take a seat…be cool and take some coffee.Prerequisite
1. Make sure your PC/Laptop have a db25 Female printer port at the backside(take a look them), and all pin are fine.
2. DB25 Male (buy it from electronics shop), we need one for this
3. cable(or if you have TCP cable, use it)
4. LED
5. Inpout32.dll
6. Visual Basic 6.0
7. and some snack with coffee

Lets we start
1. assembly the led and cable with db25 male, like picture bellow

2. when it done, plug the db25 male into the female, and make sure all pin are inserted
3. copy the Inpout32.dll into c:\windows\system32\ or same directory with your project
4. Open the visual basic 6.0 and select the standart application
5. add module into the project and paste this code into the module

Option Explicit
Public Declare Sub Out Lib “inpout32.dll” Alias “Out32″ _
(ByVal PortAddress As Integer, ByVal Value As Integer)

6. after it done, take a look into the form, add one CheckButton and insert this code

Private Sub Check1_Click()
If Check1.Value = 0 Then
Out 888, 255
Else
Out 888, 0
End If
End Sub

7. run it by pressing F5
8. Press the button and take a look your LED

Download

LED
Inpout32.dll