Ja en? Dan heb je dus al 11 jaar de tijd gehad om je te verdiepen in de wondere wereld van io.dll en VB2005.
Nou, die speciale functies krijg ik niet aan het werk. Probeer dit maar even. Met parmon kun je precies zien wat er gebeurt.
Option Explicit
' Download Fred Bulback's Dynamic Link Library (DLL) called io.dll from: http://www.geekhideout.com/ and
' copy it into the C:\WINDOWS\SYSTEM directory.
Private Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Private Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte
' Address
' Data Base = &H278 / &H378 / &H3BC
' Status Base + 1
' Control Base + 2
Const LPT_REGISTER_DATA = &H378
Const LPT_REGISTER_STATUS = &H378 + 1
Const LPT_REGISTER_CONTROL = &H378 + 2
' data status control
Const BIT0 = &H1 ' D0 0 /STROBE
Const BIT1 = &H2 ' D1 0 /AUTOFEED
Const BIT2 = &H4 ' D2 0 /INIT
Const BIT3 = &H8 ' D3 ERROR /SLCTIN
Const BIT4 = &H10 ' D4 SELECT 0
Const BIT5 = &H20 ' D5 PAPER EMPTY 0
Const BIT6 = &H40 ' D6 ACK 0
Const BIT7 = &H80 ' D7 /BUSY 0
Private Sub Command1_Click()
' bit 0 hoog, geeft 0000 0001
Call PortOut(LPT_REGISTER_DATA, BIT0)
End Sub
Private Sub Command2_Click()
' bit 1 hoog, geeft 0000 0010
Call PortOut(LPT_REGISTER_DATA, BIT1)
End Sub
Private Sub Command3_Click()
' bit 0 en 1 hoog, geeft 0000 0011
Call PortOut(LPT_REGISTER_DATA, BIT0 Or BIT1)
End Sub
Private Sub Command4_Click()
' alles laag, geeft 0000 0000
Call PortOut(LPT_REGISTER_DATA, 0)
End Sub
[Bericht gewijzigd door ikkedus op ]