Op 10 december 2004 12:19:35 schreef Benadski:
Heb je wel een poort driver geinstalleerd? Dat moet namelijk in XP en 2000 bijna altijd! DLportIO is bijvoorbeeld zo'n driver.
Nou ik heb k8d.dll van Velleman in de system directorie geplaatst. Ik krijg ook geen fout melding met compileren. Maar ik zie nog steeds geen ledjes knipperen als er communicatie moet zijn tussen pc en K8000. Bestaat er een software monitor tooltje voor de parallelpoor.t (moet draaien op XP en Win2000), want ik denk nog steeds dat er gewoon niks uitmijn parallelpoort komt. Maar ik weet nog steeds niet hoe ik dit moet oplossen.
BjornR
Geef mij maar de oude lay-out en opmaak. Voor 4 augustus 2010 gekend onder de nickname "Cracker" | Beginners: begin met het begin, niet met het einde. De weg ernaartoe is het belangrijkst.
DriverLinx I/O Driver: http://users.telenet.be/-ddbs-/SHARED/elektro/port95nt.exe
inpout32.dll:http://users.telenet.be/-ddbs-/SHARED/elektro/inpout32.dll
[Bericht gewijzigd door BjornR op ]
Op 19 december 2004 14:24:26 schreef Cracker:
[afbeelding]DriverLinx I/O Driver: http://users.telenet.be/-ddbs-/SHARED/elektro/port95nt.exe
inpout32.dll:http://users.telenet.be/-ddbs-/SHARED/elektro/inpout32.dll
Aandeze tooltjes heb ik niet veel aan geloof ik. Ik zoek een toolje die gewoon kijkt op de parallel poort of daar iets gebeurd of niet
Hmm hem iets gevonden geloof ik parmon.exe, heeft iemand ervaring hiermee.. werkt deze goed (op win2000?)?
[Bericht gewijzigd door rtessel op ]
Dit is de code:
Option Explicit
'IO CONFIGURATION PROCEDURES
Private Declare Sub ConfigAllIOasInput Lib "k8d.dll" ()
Private Declare Sub ConfigAllIOasOutput Lib "k8d.dll" ()
Private Declare Sub ConfigIOchipAsInput Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ConfigIOchipAsOutput Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ConfigIOchannelAsInput Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ConfigIOchannelAsOutput Lib "k8d.dll" (ByVal Channel_no As Long)
'OUTPUT PROCEDURES
Private Declare Sub IOoutput Lib "k8d.dll" (ByVal Chip_no As Long, ByVal Data As Long)
Private Declare Sub UpdateAllIO Lib "k8d.dll" ()
Private Declare Sub ClearAllIO Lib "k8d.dll" ()
Private Declare Sub SetAllIO Lib "k8d.dll" ()
Private Declare Sub UpdateIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ClearIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetIOchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearIOchannel Lib "k8d.dll" (ByVal Channel_no As Long)
'INPUT FUNCTIONS AND PROCEDURES
Private Declare Function ReadIOchip Lib "k8d.dll" (ByVal Chip_no As Long) As Long
Private Declare Function ReadIOchannel Lib "k8d.dll" (ByVal Channel_no As Long) As Boolean
Private Declare Sub ReadIOconficArray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadIOdataArray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadDACarray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadDAarray Lib "k8d.dll" (Array_Pointer As Long)
'How to use these calls:
' ReadIOconficArray IOconfig(0)
' ReadIOdataArray IOdata(0)
' ReadDACarray DAC(1)
' ReadDAarray DA(1)
'6 BIT DAC CONVERTER PROCEDURES
Private Declare Sub OutputDACchannel Lib "k8d.dll" (ByVal Channel_no As Long, ByVal Data As Long)
Private Declare Sub ClearDACchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub SetDACchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearDACchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetDACchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ClearAllDAC Lib "k8d.dll" ()
Private Declare Sub SetAllDAC Lib "k8d.dll" ()
'8 BIT DA CONVERTER PROCEDURES
Private Declare Sub OutputDAchannel Lib "k8d.dll" (ByVal Channel_no As Long, ByVal Data As Long)
Private Declare Sub ClearDAchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub SetDAchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearAllDA Lib "k8d.dll" ()
Private Declare Sub SetAllDA Lib "k8d.dll" ()
'8 BIT AD CONVERTER FUNCTION
Private Declare Function ReadADchannel Lib "k8d.dll" (ByVal Channel_no As Long) As Boolean
'GENERAL PROCEDURES
Private Declare Sub SelectI2CprinterPort Lib "k8d.dll" (ByVal port As Long)
Private Declare Sub Start_K8000 Lib "k8d.dll" ()
Private Declare Sub Stop_K8000 Lib "k8d.dll" ()
'COMMON USED GLOBALS
Const MaxIOcard As Long = 3
Const MaxIOchip As Long = 7
Const MaxDACchannel As Long = 32
Const MaxDAchannel As Long = 4
'Declare variables
Dim IOconfig(0 To MaxIOchip) As Long
Dim IOdata(0 To MaxIOchip) As Long
Dim DAC(1 To MaxDACchannel) As Long
Dim DA(1 To MaxDAchannel) As Long
Private Sub cmdAfsluiten_Click()
ClearAllIO
End Sub
Private Sub cmdUitvoeren_Click()
SetAllIO
End Sub
Private Sub Form_Load()
SelectI2CprinterPort 1 'De communicatie poort wordt gekozen
Start_K8000 'Open een link to the K8000 Device
ConfigAllIOasOutput 'Alle IO-kanalen als uitgangen
End Sub
Private Sub Form_Terminate()
Stop_K8000 'Sluit de link to the K8000 Device
End Sub
De file k8d.dll heb ik in de C:\winnt\system\ en in de C:\winnt\system32 gezet.
Dit moet toch werken???? Alle ledjes moeten aangaan volgens mij... ook die 3 ledjes toch (tbv communicatie, of is dit te snel om te zien)?? Maar die blijven gewoon continu branden.. Als of er niks gebeurd.
Help