Ik heb ergens deze code gevonden. Het lijkt een super alternatief voor het aansturen van de parallele poort. Alleen... ik krijg het niet aan de praat. En ook als het zou werken, hoe kun je dan data op de lijnen _lezen_ ?
Private Sub Command1_Click()
Dim FrFile As Integer
FrFile = FreeFile
Open "LPT1" For Binary Shared As #FrFile
Put #FrFile, , 123
Close #FrFile
End Sub
Ghannes
Beter nooit dan te laat...
Gebruik gewoon dllportIO, lijkt mij het makkelijkst. Je zou ook nog NTPORT kunnen gebruiken, maar deze driver werkt net iets anders