Bonjour,

J'ai crée une application pour gérer un robot via le port LPT, le seul problème c'est que losrque je branche la carte qui me sert d'interface entre le robot et le PC, par défaut windows active les 8bits du port, ce qui à pour effet de faire faire n'importe quoi au robot   J'aimerai savoir si il était possible de faire sortir une valeur sur le port LPT lorsque je lance mon programme?
Le début de mon programme commence comme ceci:

Private Declare Function Inp Lib "InpOut32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "InpOut32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

et il faudrai que je rajoute :    Out (&H378), 0

Or si je le met au tout début du programmme, il me met "invalide outside procedure"  Comment puis-je faire?

Merci

Bonjour lapinjaune,

Il faut placer ton code dans une procedure ! ou alors "invalide outside procedure" !
Par exemple double click sur Form1, ce qui créé cette procedure :

 Private Sub Form_Load()

 End Sub

Ensuite ajout de ton code:

 Private Sub Form_Load()
    Out (&H37A), Inp(&H37A) Or &HDF  ' D0..D7 en Sortie
    Out (&H378), 0      ' D0..D7 a 0 volt
 End Sub

Ex: Out (&H378), &HAA
 &HAA = 10101010 = D0=0 <= 0 volt
                                  = D1=1 <= 5 volts
                                  = D2=0
                                  = D3=1
                                  = D4=0
                                  = D5=1
                                  = D6=0
                                  = D7=1

Pour passer D0..D7 en ENTREE:
Out (&H37A), Inp(&H37A) or &H20    ' D0..D7 en Entrée
!! ATTENTION !! dans ce cas dans le BIOS le port parallèle doit être en mode BIDIRECTIONEL !!

Voili...
A+
ryl...

Pardon erreur c'est plutôt:
Out (&H37A), Inp(&H37A) and &HDF  ' D0..D7 en Sortie

et pas Or!!
a+
ryl...