Désolé je n'avais pas tout mis dans mon ZIP
Voici le code source complet....
Premiére partie dans une page module
Deuxiéme partie dans une page type Form
Source / Exemple :
Option Explicit
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)
Option Explicit
Dim ADRESSE As Integer
Dim VALEUR As Integer
Dim nb As Integer
Private Sub Command1_Click()
ADRESSE = &H378
For nb = 1 To 2
VALEUR = 1
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 2
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 4
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 8
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 16
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 32
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 64
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 128
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 64
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 32
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 16
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 8
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 4
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 2
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
VALEUR = 1
Out ADRESSE, VALEUR
VALEUR = Inp(ADRESSE)
Pause (0.1)
nb = nb - 1
Next
End Sub
'sous programme permettant de temporiser la boucle for'
Public Sub Pause(Secondes As String)
Dim pausetime, Start
pausetime = Secondes
Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop
End Sub
Conclusion :
Il y a en plus une fonction bien sympa pour temporiser sans bloquer le PC....
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.