Modul:
******
‘inpout32.bas
‘Inp und Out Deklarationen
Public Declare Function Inp Lib "inpout32.dll" Alias _
"Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
(ByVal PortAddress As Integer, ByVal Value As Integer)
Form:
*****
Const WriteAdr = &H378
Private Sub ein_Click()
Out WriteAdr, 1 ‘ setzen von bit D0 (pin2) auf 1
End Sub
********************************
also hier erst mal ein kleiner ausschnitt des codes...
ich will gezielt auf pins der parallelen schnittstelle zugreifen und diese "ein" oder "aus" schalten...also High oder Low...
wie kann ich bit D0 (pin 2) auf 0 setzen ?
das ist mein größtes problem...
ich will einfach nur mit einem button den Pin "ein" und mit dem anderen den Pin "aus" schalten...
würd mich über hilfe freuen...ich weiß echt nicht mehr weiter
| Betreff |
Von |
Datum |
|
|
  |
Re: Parallele Schnittstelle
| Hallo<br><br>Versuche es mal so:<br><br>Private Sub einschalten()<br> Dim iValue As Integer<br> iValue = Inp(WriteAdr)<br> iValue = iValue Or 2<br> Call Out(WriteAdr, iValue)<br>End Sub<br><br>Du liest aus, was in der... |
|
|
|
|
|
Wolfgang
Uhr
|
19.05.2006 22:37 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
