| Forum: Visual Basic |
Thema:
Re: Parallele Schnittstelle |
Von:
Wolfgang Uhr (
19.05.2006 22:37) |
Hallo
Versuche es mal so:
Private Sub einschalten()
Dim iValue As Integer
iValue = Inp(WriteAdr)
iValue = iValue Or 2
Call Out(WriteAdr, iValue)
End Sub
Du liest aus, was in der Schnittstelle drin ist, machst ein "oder" des Wertes mit der zwei - das entsprechende bit müsste gesetzt sein.
Private Sub ausschalten()
Dim iValue As Integer
iValue = Inp(WriteAdr)
iValue = iValue And &HFFFD
Call Out(WriteAdr, iValue)
End Sub
Hier liesst du ein und machst ein And mit einer Reihe einsen - bis auf eine Stelle die ist null
Müsste gehen hab es aber nicht probiert.
Herzliche Grüße
Wolfgang
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
