Discussion :

[kardex]

Ce code permet de gérer et d'envoyer des données par le port parallèle. Cette application est au départ prévu pour se servir du port LPT1 après on peut modifier le code et en faire ce que veux … Ce programme marche aussi sous Windows 2000 et NT. Je précise parce que c’est ce qui posait problème au début car ces deux systèmes n’inclut pas de contrôles directes des ports il faut donc agir avec les adresses…
Cette première partie de code est a mettre dans la page module du projet :

Code :

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

1
2
3
4
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Cette deuxième partie doit être mise dans une commande de bouton, par exemple :

Code :

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

1
2
3
Text2.Text = Str(Inp(Val("&H" + Text1.Text))) ’permet la réception des données’Et celle-ci dans un autre bouton….	
 
Out Val("&H" + Text1.Text), Val(Text2.Text) ’permet la emission des données’

(balises codes ajoutées par elifqaoui)
Ps : N’oubliez de télécharger le inpout32.dll…
[edité par elifqaoui]
télécharger la DLL depuis le lien suivant :
http://sitelec.free.fr/download/inpout32.zip
[/edité ]i

[WOLO Laurent]

Indiquez un lien vers InpOut32.dll et puis marquer ce méssage résolu.

[lixahk5]

bonjour,
voila mon code pour lire sur le port parallèle

Code :

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

1
2
3
4
5
6
7
8
 
PortAddress = &H378
While True 
If Inp(PortAddress) <> 16 Then
Text1.Text = Text1.Text & Chr(Inp(PortAddress))
End If
DoEvents
Wend

je lit que le 1er caractaire

[steph00]

j'ai un message d'erreur 453 comme quoi Inp et Out n'existe pas dans la dll inpout32

est-ce quelqu'un a eu le même?
(win2000 et vb6)

[Minikisscool]

Pour rapelle, pour utiliser le port parallèle sous Win2000 comme sous WInXP, il faut utiliser une DLL externe.

Là il en existe plusieurs
une des plus répendu est DLPortIO que l'on trouve à cette adresse http://www.driverlinx.com/DownLoad/dnload.htm#Windows%2095/NT%20Port%20I/O%20Driver

a+

[lordstriker]

A quel endroit doit on placer le fichier inpout32.dll?

[Mehdi_ab]

bonjour

il vaut mieux de la placer dans le répertoire system de Windows (System32),
ou bien de le repertoire de l'application

[lordstriker]

Merci, je demande ca car lorsque j'execute ce code en ayant placé le fichier dans le répertoire system32, le programme plante et me dit qu'il doit fermer.

[Mehdi_ab]

bonjour

je crois que l'emplacement de la Dll n'est pas responsable sur le plantage du programme

[lordstriker]

Je ne comprends pas d'où vient le problème alors, est ce que quelqu'un a déjà utilisé ce code? Sans enlever les commentaires je ne peux carrément pas le compiler. Sinon y at-il quelque chose à spécifier dans le module? J'ai simplement créé un nouveau module où j'ai inséré ce code, est ce la bonne manipulation?

[Mehdi_ab]

bonjour

Vérifier d'abords si le port paralléle est bien présent dans le gestionnaire de périphérique,si ce n'est pas le cas , acivez le depuis le bios,
si il es présent, vérifier la plage mémoire qui lui etait assigner,la majorité utilise l'adresse h378

[lordstriker]

Tout ca est déjà fait, bon, puisque ce code ne marchait pas, je suis passé par
le programme d'exemple de DLportIO pour comprendre comment ca marchait, le code du module de ce fichier est le suivant(je n'ai pas mis les différentes options de taille de variable):
Dans le module:

Code :

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

1
2
3
4
Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte
Public Declare Sub DlPortReadPortBufferUchar 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 DlPortWritePortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)

Et dans la commande de bouton:
pour écrire:

Code :

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

1
2
3
4
5
6
7
 
Dim Value As Long
 
  Value = Val(TextValue)
  If OptionByte Then
    If Value < 0 Then Value = Value + 256
    DlPortWritePortUchar Val(TextAddr), Value

Et pour lire:

Code :

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

1
2
3
4
5
Dim Value As Long
 
  If OptionByte Then
    Value = DlPortReadPortUchar(Val(TextAddr))
TextValue = Value

Ce code marche nikel sur ma machine alors que celui du post ne marche pas, franchement je ne connais pas bien les fonctions donc je ne vois pas d'où vient le problème.
Edit: Le problème ne viendrait-il pas du fait que DLportIO a créé un fichier
DLportIO.sys en plus de la DLL alors que inpou32 comporte uniquement une DLL?