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