Hey,
ik zou graag ledjes willen besturen op mijn printerpoort. Ik heb al een plugin voor winamp, maar ik zou ook graag een looplicht in visual basic programeren en andere effecten. Ik heb het artikel van Jeroen boere
http://www.circuitsonline.net/artikelen/view.php?id=26&page=1
Al gelezen. Er stond dat ik een Dll moest downloaden (io.dll). Dat het ik gedaan, maar toen ik hem in visual basic toevoegde kreeg ik een foutmelding dat het geen goed active x module was. Weet iemand hoe ik dat kan oplossen?
Dat is het dan ook niet.
Je zet het in je win/system en in VB zet je de referentie naar het bestand. Zie de site van io.dll daar staat alles wat je nodig hebt
[Bericht gewijzigd door ikkedus op ]
Ik heb het gedownload in een zipje en daar zat Io.dll in en een readme. in die readme stond niks daar niks overin.
Maar hoe zou dat dan moeten?
Berry
A PIC-based MP3 player: www.apic-bmp.nl.tt | Intresse in techniek? www.djoamersfoort.nl
Visual Basic Prototypes
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Private Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Private Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As Integer
Private Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Private Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function IsDriverInstalled Lib "IO.DLL" As Boolean
Het moet dus zijn
Call SetPortBit("Data", BIT0)
Call sleep (100)
Call ClrPortBit("Data", BIT0)
niet geheel zeker van de argumenten