hallo zusammen,
wie kann ich die IO Addresse der Parallelen Schnittstelle auslesen? Mein Problem ist, dass ich ein Programm hab das auf die Parallele Schnittstelle zugreift, welches aber nicht klappt. Deshalb will ich die Adresse auslesen um zu schauen ob es daran liegt, oder ob die Steckkarte für den Anschluss (laptop) kaputt ist. Wenn letzteres der Fall sein sollte, wie kann ich die Parallele Schnittstelle testweise ansprechen, um zu schauen ob sie klappt?

Ich hoffe ihr könnt mir helfen.

MfG
Sepp

Rechte Maus Taste auf Arbeitsplatz---> Eigenschaften---> Hardware ---> Geräte manager --> unter Anschlüsse (COM und LPT) auf ECP-Druckeranschluss (LPT1) 2x klicken--->oben auf Ressourcen und unten in Tabele hast du die Anschlüsse z.B. 0378

Code:

Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Port PIN einstellen:

' OFFSET = 00h (0378)
' bit 7 6 5 4 3 2 1 0
' pin 9 8 7 6 5 4 3 2
' ____________________________________
' Port LPT wird angesprochen:
' Dim PortLPT As Byte
' Out &H378, PortLTP
' ____________________________________
' Wo PortLPT ist gleich:
' bit0 = 1
' bit1 = 2
' bit2 = 4
' bit3 = 8
' bit4 = 16
' bit5 = 32
' bit6 = 64
' bit7 = 128

' Also um Pin8 des LPT port`s anzusprechen (+5V) müssen wir 64 eingeben.
' OFFSET (oben)
' pin8 = bit6
' bit6 = Wert 64
' _________
' das gleiche mit port pin2 des LPT port`s
'pin2 = bit0
'bit0 = Wert 1

Beispiel:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
flag = Not flag
If flag Then
Out(888, 1) 'LPT Port-Pin 2
Else
Out(888, 0)
End If
End Sub

Das habe ich in meinen LPT Program und das funktioniert.