Commander le port parallele en Visual Basic

[invitece65c535]

Bonsoir à tous,
j'ai queqlues rudiment en visual basic et je souhaiterais parvenir a envoyer et a recevoir des informations sur le port parallele (de maniere a allumer une del en sortie et détecter qu'un circuit est fermé en entré).
J'ai déjà fait de nombreuse recherche sur internet, mais je ne parviens pas à comprendre clairement ce qui est dit et ce qu'il faut faire.

Les histoires de librairies, de chose comme ça j'ai du mal et puis je ne trouve nul part un site ou l'on me dit :"pour envoyer quelque chose sur le port D0 tape ça, pour recevoir tape ça.

Enfin bon vous l'aurez surment compris je mélange un peu tout et je n'arrive pas a y voir clair, pourriez-vous m'aider?

Merci d'avance.

[invite48d5feac]

ce qu'il faut ecrire dans le module pourutilisé les fonction ecrite dans la DLL qu'il faut avoir:
le module:

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)

il faut savoir l'adresse du port parallel générallement 888 en décimal vous le trouvera dans gestionaire de péréphérique.

exemple :

DlPortWritePortUlong  adresse, valeur

adresse en decimal
valeur en decimal

DlPortWritePortUlong  888, 256

il faut savoir que le port parallel se divise en trois registres:
registre de donné (8bits) adress 888d
registre de controle (en sortie 4 bits) adress 900 pas sûre
registre status (en entré 5bits) adresse ?

vous pouvez utiliser les autres fonction.

voici un programme :
à installé avant "port95nt.exe"

[invite48d5feac]

il faut avoir un peut de connaissance en logique
la valeur à ecrire sur 8bits ne dépasse pas 256 en décimal => FF en héxa

FF=""

si tu veux allumé une LED tu envoye "" , met la LED entre la masse et le 2é pin du port(DB 25) comme sur la figure.

Bonsoir Khawerizmi
C'est sympathique à toi d'envoyer ce type de programme. Un seul point obscur.
Mon ordi me dit que le programme est protégé par un "Copyright". Donc je ne peux pas le valider,
sauf à toi de me confirmer par écrit dans ce forum que tu en es l'auteur ou qu'il est réellement en accès libre (adresse du site correspondant).
Dès que le doute est levé, on valide.
Désolé; c'est "La Loi"
Amicalement

La modération
Papykiwi

[invitece65c535]

Merci de m'aider je teste ça ce soir et je vous tient au courant.

[A voir en vidéo sur Futura]

[invitee05a3fcc]

tu as aussi la classique inpout32.dll
http://www.vbfrance.com/gma/inpout32
http://fr.dll-download-system.com/dl...out32.dll.html

[abracadabra75]

il faut avoir un peut de connaissance en logique
la valeur à ecrire sur 8bits ne dépasse pas 256 en décimal => FF en héxa

Bonsoir.
Premier point: ce n' est pas de la logique mais de l' arithmétique.
Ensuite, mes maigres connaissances me font dire que sur 8 bits le maxi qu' on ne peut dépasser est 255 et non 256
Il y a 256 valeurs : de 0 (hé oui le zéro, ça compte!) à 255.

et pour couronner le tout: FF(hexa)= 255 (décimal).

Car 256 (décimal) = 100 (hexa).

A+

[invitece65c535]

Pour le code que tu m'as donné au début il faut que j'installe quelles dll?
dlportio.dll j'imagine? une foie que je l'ai je la place ou pour que mon prog puisse s'en servir?

Au fait tout ce qui est logique/arithmétique c'est bon je n'ai pas de probleme avec ça.

Merci de m'aider

[invitece65c535]

up sil vous plait

[invite48d5feac]

abracadabra75 il a raison je me suis trempé de 256 c'est plutot 256 possibilié.
le programme que j(ai essaié de te le donné c'est lui qui installera la DLL "dlportio.dll" dans le dossié : "C:\WINDOWS\system32" donc fais le toi même , cette DLL est +- equivalente a input32.

[invite48d5feac]

salut Administrateur se qu'il ya dedans est a moi et merci.

voila un programme en VB qu j'ai realisé , met la DLL où je t'ai dit et sa doit fonctioné.

[invitece65c535]

merci mais quelle est l'extension du fichier à l'interieur de l'archive?

[invitece65c535]

Au fait j'aimerais savoir où est-ce que je peux trouver totues les fonctions de cette dll.
Merci encore

[invitece65c535]

Je viens de tester le programme, le probleme est que lors de la compilation, VB me signal que les "Any" ne sont pas reconnu, nous les avons remplacé par des "object" et ça a l'air de fonctionner. Besoins d'aide ou de renseignement à ce propos......