Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 699 fois - Téléchargée 36 fois
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
Et en plus tu la files même pas avec!!!!!
Pour ta gouverne sache que:
- Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
- Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
existent déja.
Et que DlPortIO a encore plus de fonctionnalités.
A toi de la trouver.
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.