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

Question

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

cs_Exploreur · Answer

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 **

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

1 réponse

Votre réponse

Discussions similaires