Gestion port paralléle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 478 fois - Téléchargée 36 fois

Contenu du snippet

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....

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de squalyl

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.