Discussion :

[hugoclo]

Bonsoir,
J'ai besoin de lire ce qui arrive sur le port // de mon PC,
j'utilise ce code:

Code :

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

1
2
3
4
5
6
7
8
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)
 
Private Sub Command1_Click()
MsgBox Str(Inp(Val(&H378)))
End Sub

trouver sur un tuto du site.
Lorsque je lance mon prog et que je clique sur mon bouton, VB6 se ferme.
Je n'arrive pas a trouver pourquoi?

[DAUDET78]

Et si tu faisais :

Code :

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

1
2
 
MsgBox Hex$(Inp(&H378))

D'autre part, il faut mettre le port EPP en lecture, il me semble.
Si tu n'as qu'un bouton à lire, il vaut mieux utiliser les bits d'entrée du port LPT
(pin 10=ACK , pin 11=BUSY , pin12=PE , pin13=SLCT)

[hugoclo]

Et si tu faisais :

Code :

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

1
2
 
MsgBox Hex$(Inp(&H378))

D'autre part, il faut mettre le port EPP en lecture, il me semble.

Merci pour ton aide, dans le Bios j'ai bien mis sur EPP mais meme avec ta soluce VB plante.

[DAUDET78]

Il faut le mettre en EPP et lui dire d'être en lecture par soft

Si tu n'as qu'un bouton poussoir à lire, met le entre la pin 10 (du Db25) -ACK et la pin 18
et tu viens lire l'adresse 0x379 bit 6 (si ton LPT est à 0x378 ... à vérifier)

inpout32.DLL http://www.stielec.ac-aix-marseille....bati/inout.htm
LPT1 http://www.stielec.ac-aix-marseille..../centronic.htm
LPT1 EPP http://www.beyondlogic.org/epp/epp.htm

Attention, j'ai eu des problème avec des inpout32.DLL vérolés

[hugoclo]

Je pense que mon Probleme viens de mon PC, car j'ai essayer avec des codes sources trouver sur le net et toujours la meme chose, VB se ferme des que je lance un prog.
Quelqu'un sait d'ou cela peut provenir, j'utilise XP Reloaded Lite V2.

[ProgElecT]

Salut
Essais de recuperer le ZIP dans mes contributions (lien dans ma signature, PilotPortParal.zip qui utilise IO.DLL) et vois si tu as le même problème de plantage de VB.

[hugoclo]

Bonsoir, j'ai telecharger ton zip et la pas de plantage.
Par contre je n'ai pas bien saisi toutes les fonctionnalitées de ton progs

[hugoclo]

C'est bon j'ai retelecharger inpout32.dll et maintenant plus de plantage.
Comment cela se fait quand n'ayant rien brancher sur mon port // ma msgbox me donne 16

[DAUDET78]

Si tu n'as rien branché, tes broches 2 à 9 sont en l'air. Comme maintenant le circuit du port parallèle est un circuit CMOS, tu as n'importe quoi comme niveau.
Mets des résistances de tirage (10K) à une source 5V et tu liras 0xFF (255 en décimal). La lecture en décimal des 8 bits de ton port .... c'est un peu du masochisme !