Table des Matières
Publicité
Utilisez la fonction
ReadAllDigital()
pour afficher l'état des boutons.
Cette fonction retourne un entier sur 32 bits.
Les 8 bits les plus bas de cette valeur retournée, représentent l'état des 8 boutons. En appuyant sur un bouton, le
bit correspondant sera réglé sur "1".
Utilisez l'opérateur
And
en Visual Basic pour masquer les autres bits et pour vérifier la valeur d'un bit individuel.
Exemple: Si les boutons SW1, SW2 et SW8 sont enfoncés, les 8 derniers bits de la valeur retournée seront
10000011.
Dans cet exemple de code, la valeur d'entier à afficher est "i".
La valeur de chaque bit (0 ou 1) est contrôlée. Si la valeur est "1", le bouton correspondant est enfoncé et le texte
"DOWN" s'affiche pour ce bouton
.
Dim i As Integer
i = ReadAllDigital()
' check the individual bits of i to detect the pressed buttons
If (i And 1) > 0 Then Label3.Text = "SW1 = Pressed" Else Label3.Text = "SW1 = Released"
If (i And 2) > 0 Then Label4.Text = "SW2 = Pressed" Else Label4.Text = "SW2 = Released"
If (i And 4) > 0 Then Label5.Text = "SW3 = Pressed" Else Label5.Text = "SW3 = Released"
If (i And 8) > 0 Then Label6.Text = "SW4 = Pressed" Else Label6.Text = "SW4 = Released"
If (i And 16) > 0 Then Label7.Text = "SW5 = Pressed" Else Label7.Text = "SW5 = Released"
If (i And 32) > 0 Then Label8.Text = "SW6 = Pressed" Else Label8.Text = "SW6 = Released"
If (i And 64) > 0 Then Label9.Text = "SW7 = Pressed" Else Label9.Text = "SW7 = Released"
If (i And 128) > 0 Then Label10.Text = "SW8 = Pressed" Else Label10.Text = "SW8 = Released"
ÉTAPE 11
Fermez après l'évaluation de ce projet. Ouvrez le projet "Set_LED" pour apprendre à allumer/éteindre les LEDs sur
la carte EDU05.
Velleman NV
Legen Heirweg 33
9890 Gavere, Belgium
www.velleman.eu
15
EDU05 Test procedure & programming in Visual Basic 2010 ( Version 1.0)
Publicité
Table des Matières
