Programmer le port parallèle sous VB6 pour commander 4 LEDs

khalidbh1 Messages postés 1 Date d'inscription samedi 14 avril 2007 Statut Membre Dernière intervention 17 février 2009 - 17 févr. 2009 à 22:33
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 18 févr. 2009 à 09:55
 bonjours les gas je suis un nouveau
et je recherche à programmer le porte parallèle sous VB6 pour commander 4 LEDs et pour ça en a utiliser un porte NAND ou NON ET
et pour vous faciliter la recherche et la programation j'ai pus trouver le code du porte parallèle mais je ne sais pas où je le pose dans le programme: c'est le Code .

Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte
Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" (ByVal Port As Long) As Integer
Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" (ByVal Port As Long) As Long

Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)

Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)
Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Integer)
Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Long)

Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long

1 réponse

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
18 févr. 2009 à 09:55
Salut,

Comme tu ne sais pas où "poser" le code, alors je te propose pour te faciliter la tache  directement un code TOUT fait....

Voir ici : http://www.vbfrance.com/codes/PILOTAGE-PORT-PARALELLE_5045.aspx

A+
Exploreur

 Linux a un noyau, Windows un pépin
    ** http://exploreur1.labrute.fr **
0