✔ Parallelport abfragen

[bananajo]

Hallo,
ich würde gerne 2 Taster an meinen Parallelport anschließen und deren Status abfragen.
Anschließen würde ich sie so: Klicken
Ich habe schon herrausgefunden, dass ich mit einer InpOut32.dll arbeiten muss.
Doch wie kann ich die einzelnen Pins abfragen und und ist es möglich dass, wenn der Taster gedrückt ist, der Befehl SendKeys {UI} ausgeführt wird?
Ich habe noch keine Erfahrungen mit solchen Sachen.

Schon mal Danke für eure Antworten.

 

[DrSoong]

Die DLL gibt dir ja einen Integer-Wert zurück, du musst halt schauen, welcher Wert der Taster beim drücken gibt (Frag den Post einfach in einer Schleife ab und gibt den Wert z.B. in einem Label aus - Ausstiegsbedingung nicht vergessen).

In deinem Programm überwachst du dann in einer Schleife den Eingangswert, wend er dem ermittelten Wert entspricht setzt du einfach per SendKeys deine Nachricht ab.


Der Doc!

 

[bananajo]

Wie kann ich schauen welcher Wert der Taster beim drücken gibt?

 

[DrSoong]

Wie gesagt, den Port wertest du ja per API aus, in diesem Fall ist es die

Public Declare Function Inp Lib "inpout32.dll"Alias _
       "Inp32" (ByVal PortAddress As Integer) As Integer

Einfach in einer Schleife die API abfragen und z.B. in einem Label oder dem Formtitel ausgeben:

'Benötigt: 1 Label (Label1), 2 CommandButtons (Command1, Command2)
Public Declare Function Inp Lib "inpout32.dll"Alias _
       "Inp32" (ByVal PortAddress As Integer) As Integer
Dim bEnde As Boolean
Private Sub Command1_Click()
 bEnde = False
 Do
  'Ich geb den Wert hier in einem Label aus
  Label1.Caption = Inp(&H378)
  DoEvents
 Loop Until bEnde = True
End Sub
Private Sub Command2_Click()
 bEnde = True
End Sub

Start mit Klick auf den CommandButton1, Ende mit Klick auf CommandButton2. Denke, die Erklärung sollte genügen um bei ein bißchen Eigeninitiative die Lösung zu finden.


Der Doc!

 

[bananajo]

Vielen Dank.