Visual Basic kod för LPT

Här hittar du nog några intressanta länkar...
http://www.lvr.com/parport.htm

... och lite resurser...
http://www.programmersheaven.com/zone15/cat610/

Nu krånglar internet jätte mycket (massor sidor jag inte kan komma in på) så jag kan inte ge nån länk.

Det du vill göra är alltså att ändra värdet på parallellportens I/O adress (min är 0x378 (i vb: &H378).
Ladda hem port95nt.exe
Installera! du får då "DLportIO". Tittade i deras exempel och så det är jätte enkelt. Bara skriva in det här i en modul (eller köra private i formuläret).

Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)

Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte

Då är har du för att läsa och skriva till parallellportens I/O adress (1 byte så jag visar bara Uchar deklarationen).

edit:
Bara för att köra det klart.
Sätter du &H378 till värdet 1 så lyser första pinnen som du använder på parallellporten (2:an alltså).
värdet 2 så lyser pinne 3. värdet 3 så är pin 2 och 3 som lyser.
Du förstår det där med bitar och byte. Varje pinne på parallellporten är en bit.

Jag skrev in detta i ett form. Du kanske förstår mer då och du kan laborera. För jag kommit på nått riktigt pedagogiskt i svenska språket nu fick på VB istället

Private Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)

Private Sub convert(ByRef pin() As Boolean)
    Dim I As Byte, outval As Byte ' outval = Output Value
    For I = 0 To 7
        If pin(I) = True Then
            outval = outval + 2 ^ I
        End If
    Next I
    
    DlPortWritePortUchar &H378, outval
End Sub

Jag kör med en 0 to 7 vektor (8 positioner) eftersom 2 ^ 0 = 1
Det passar in bra här då.
Nu kan du kombinera t.ex. vill du ha pinne 2 och 9 så sätter du pin(0) och pin(7) till true
då blir det
2^0 + 2^7 = 1 + 127 = 128