Discussion :

[nanard36]

bonsoir
j'ai des cartes entrées sorties dans les slots de l'ordinateur
Sous windows 95, j'avais une dll et avec INT et OUT je pouvais gérer les entrées et les sorties sans probleme
par contre ça ne fonctionne plus sous windows nt et j'ai lu beaucoup de chases dans les forums mais c'est souvent sur les ports parallele ou serie
je précise donc qu'il s'agit de port PCI
pouvez vous m'aider à resoudre mon probleme
merci d'avance

[ProgElecT]

Salut
Tu trouverras dans mes contributions un zip, ligne PilotPortParal.zip : Utilitaire pour pilotage du port paralléle, une dll qui devrait pouvoir être utilisable pour port PCI.
Voici les notes d'appliquations:

The documentation for IO.DLL can be found at:
http://www.geekhideout.com/iodll.shtml
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

Descriptions De Fonction

XnumPort as Integer

Ecrire un byte sur le port indiqué: Data as Byte
PortOut (XnumPort, Data)
Ecrire un mot (16-bits) sur le port indiqué: Data as Integer
PortWordOut (XnumPort, Data)
Ecrire un double mot (32-bits) sur le port indiqué: Data as Long
PortDWordOut (XnumPort, Data)
Lit un byte sur le port indiqué: Data as Byte
Data = PortIn(XnumPort)
Lit un mot (16-bits) sur le port indiqué: Data as Integer
Data = PortWordIn(XnumPort)
Lit un double mot (32-bits) sur le port indiqué: Data as Long
Data = PortDWordIn(XnumPort)
SetPortBit
Place le peu du port indiqué.
ClrPortBit
Dégage le peu du port indiqué.
NotPortBit
Nots (inverse) le peu du port indiqué.
GetPortBit
Renvoie l'état du peu indiqué.
RightPortShift
Décale le port indiqué vers la droite.
Le LSB est retourné, et la valeur passée devient le MSB.
LeftPortShift
Décale le port indiqué vers la gauche.
Le MSB est retourné, et la valeur passée devient le LSB.
IsDriverInstalled
Renvoie différent de zéro si io.dll est installé et fonctionne correctement.
Le but primaire de cette fonction est de s'assurer que le driver
pour NT/2000/XP a été installé et est accessible.

[nanard36]

merci progelect
mais dans mon programme sous windows 95, je devais indiquer l'adresse des cartes et dans ce que tu propose, je ne vois pas cette option
peux tu éclairer ma lanterne (sans beaucoup d'éclat)
merci d'avance

[ProgElecT]

je devais indiquer l'adresse

ecrit ton adresse dans --> Port As Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PortOut (&H300, 255)
XX=PortWordIn(&H300)

[nanard36]

merci progelect
je suppose que je dois placer io.dll dans systeme32
est ce bien cela
merci

[ProgElecT]

Salut
Oui dans System32 semble le plus judicieux, ne pas oublier de l'enregistrée, registrée (dans une fenêtre DOS) avec regsvr32 IO.Dll
Le port PCI peut renvoyer du 16, 32 voir 64 bits, Suivant le besoin, utiliser les déclarations adéquat

[nanard36]

merci pour tout