Compte rendu Visual studio
Première activité : gestion d’une lampe avec un bouton poussoir.
Pour cet exercice, nous devions gérer une lampe (représenté par une checkbox)
a l’aide d’un bouton poussoir.
Le comportement attendu était que lorsque l’on appui sur le bouton, la lampe
devait s’allumer (la checkbox devait être cochée) puis lorsque l’on rappuyait une
deuxième fois sur ce même bouton, la lampe devait s’éteindre (la checkbox
devait être décochée).
Pour ce faire j’ai réalisé un « design » sur Visual studio représentant le système :
Voici l’algorigramme démontrant le fonctionnement du système :
4
Et voici le code correspondant :
Public Class form1 1
Friend WithEvents BT_gestion_lampe As Button 'défini "BT_gestion_lampe"
comme un bouton
Friend WithEvents CB_lampe As CheckBox 'défini "CB_lampe" comme une
checbox
Private Sub BT_gestion_lampe_Click (sender As Object, e As EventArgs)
Handles BT_gestion_lampe.Click 'le bouton est cliqué 2
If (CB_lampe.Checked = False) Then 'si la lampe est éteinte
CB_lampe.Checked = True 'alors la lampe s'allume
Else 'sinon 3
CB_lampe.Checked = False 'la lampe reste éteinte
End If
End Sub
End Class 4
Une fois le code terminé, j’ai essayé l’application et voilà re résultat :
Lorsque je clique sur le bouton poussoir :
Puis lorsque je clique une 2ème fois sur le bouton :
J’en conclu donc que l’application fonctionne come demandé.
Deuxième activité : compteur de cliques
Pour cette activité, la consigne était de réaliser un compteur de cliques.
Pour cela, j’ai deux blocs : un bouton et une textbox
L’application devait fonctionner de tel sorte que lorsque l’utilisateur clique sur
le bouton, la valeur indiquée par le textbox augmente d’un.
Pour commencer j’ai réalisé un design avec les blocs nécessaires :
Puis j’ai réalisé l’algorithme qui me permettra par la suite de réaliser le code :
5
Et enfin, j’ai pu écrire l’algorithme correspondant :
Public Class Form1 1
Dim compteur As Integer = 0 'déclaration de la variable “compteur”
Private Sub Form1_Load (sender As Object, e As EventArgs) Handles
MyBase.Load ' évènement « lancement de l’application »
TB_compteur.Text = 0 'la textbox affiche 0 2
End Sub
Private Sub Bouton_Click (sender As Object, e As EventArgs) Handles 3
Bouton.Click ' évènement « clique sur le bouton »
compteur = compteur + 1 ' ajouter +1 à la variable « compteur » 4
TB_compteur.Text = compteur ' la textbox affiche la valeur de la variable
« compteur »
End Sub 5
End Class
Une fois l’algorithme terminé, j’ai essayé l’application et voilà re résultat :
Lorsque je clique sur le bouton, la valeur affichée par la textbox passe de 0 à 1 :
Puis de 1 à 2 :
Ect…
En conclusion, l’application marche comme attendu.