Utilisation simple du port parallèle sous seven

Soyez le premier à donner votre avis sur cette source.

Vue 4 183 fois - Téléchargée 546 fois

Description

Permet de lire ou d'écrire sur les 8 bits de données du port parallèle. Très simple pour comprendre soi-même le fonctionnement.
Il y a dans le dossier annexe la procédure pour installer inpout32.dll

Source / Exemple :


Public Class Form1

    Private Sub Lecture_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lecture.Click
        'Déclaration des variables 
        Dim Adresse As Integer 'adresse de lecture
        Dim Valeur_lu As Integer 'valeur lu

        'Valeur de l'adresse à lire
        Adresse = &H378 'ou 888 en décimal

        'lecture de l'adresse
        Valeur_lu = Module1.Lecture(Adresse)

        'affichage de la valeur lu
        Textbox_lecture.Text = Valeur_lu.ToString()
    End Sub

    Private Sub Ecriture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecriture.Click
        'Déclaration des variables 
        Dim Adresse As Integer 'adresse d'écriture
        Dim Valeur_ecriture As Integer 'valeur à écrire

        'Valeur de l'adresse à écrire
        Adresse = &H378 'ou 888 en décimal

        'valeur à écrire si c'est numérique
        If IsNumeric(Textbox_ecriture.Text) = True Then

            'récupère la valeur du textbox
            Valeur_ecriture = Textbox_ecriture.Text

            'vérifier si la valeur est entre 0 et 255
            If Valeur_ecriture >= 0 And Valeur_ecriture <= 255 Then

                'écrire la valeur dans l'adresse
                Module1.Ecriture(Adresse, Valeur_ecriture)

            End If
        End If
    End Sub

End Class

Module Module1
    Public Declare Function Lecture Lib "inpout32.dll" Alias "Inp32" (ByVal Adresse As Integer) As Integer
    Public Declare Sub Ecriture Lib "inpout32.dll" Alias "Out32" (ByVal Adresse As Integer, ByVal Valeur As Integer)
End Module

Codes Sources

A voir également

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.