Beste mensen, het werkt niet?
Ik wil met men bi-directionele LPT poort zowel data inlezen met VBinp (888) en uitsturen met VBout 888 instructie.
Draai momenteel VB5.0 met Win98, heb ook WIN95IO.dll geinstaleerd en de volgende tekst boven men programma gezet zoals het hoord:
Private Declare Sub vbOut Lib "WIN95IO.dll" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Sub vbOutw Lib "WIN95IO.dll" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Function vbInp Lib "WIN95IO.dll" (ByVal nPort As Integer) As Integer
Private Declare Function vbInpw Lib "WIN95IO.dll" (ByVal nPort As Integer) As Integer
HET PROBLEEM:
ik kan dus met vbOut 888, 1 prima data naar de poort sturen en uitlezen d.m.v. leds.
Sluit in nu een gnd of 5volt aan op een van de LPT pinnen en gebruik de instructie vbInp (888), lees ik aleen maar de gegevens die ik er voorheen naar de poort had toegestuurd, dus lekker bi-directioneel.
ofwel
vbOut 888, 3
" nu hang ik pin van bit 1 en 2 aan gnd
input = vbInp (888)
"lees input uit en zet in een text box en deze geeft gewoon 3 aan ipv 0?
heb ik een parameter niet goed ingesteld of ...?
Wie kan het zeggen, bij voorbaad dank
Raimond
jeroentje
Hij was al kapot toen je em aan mij gaf!!!
Op 10 januari 2004 13:39:54 schreef Raimond:
vbOut 888, 3
" nu hang ik pin van bit 1 en 2 aan gnd
input = vbInp (888)
"lees input uit en zet in een text box en deze geeft gewoon 3 aan ipv 0?
Het is logisch, deze functie die vraagt alleen op welke van de uitgangen er aan staat, datg zie je ook:
input = vbInp (888)Je geeft niet aan welke ingang (poort) je wilt opvragen. Om een ingan uit te lezen zul je een andere functie moeten gebruiken, die waarschijnlijk niet in deze DLL zit...