TP Visual Basic
Un livre de Wikibooks.
Chacun de ces travaux pratiques utilise une interface graphique pour la saisie des données par l'utilisateur et l'affichage du résultat, et suppose donc l'utilisation de Microsoft Visual Studio.
Sections |
[modifier] Travail Pratique N°1
Construire une application conforme au modèle ci dessous permettent de vérifier qu'un nombre entier saisi est pair ou impair.
Voir Solution
Indications:
- Commencer un nouveau projet ;
- L’idée du projet est de saisir un nombre dans une zone de saisie et d’afficher le résultat dans un label après un clic sur le bouton.
- Placer deux contrôles de type label (dont un nommé lblresultat pour afficher le résultat), un textbox (nommé textsaisie) et un bouton de commande (nommé btnverifier) ;
Dans notre projet, un clic sur le bouton de commande btnverifier exécute un code qui vérifie la parité du nombre saisi dans l’objet textsaisie. Donc l’évènement est le clic de btnverifier. D’où le code correspondant :
Private Sub btnverifier_Click() Dim a As Integer, b As Integer a = Val(txtsaisie) b = a Mod 2 If b = 0 Then lblresultat.Caption = "Le nombre " & a & " est pair" Else lblresultat.Caption = "Le nombre " & a & " est impair" End If End Sub
Remarque: Sauf à utiliser "Option Explicit", la ligne contenant "Dim" n'est pas obligatoire. Il est néanmoins de bonne pratique de déclarer toutes les variables utilisées, ne fût ce que pour des questions de lisibilité du code.
[modifier] Travail Pratique N°2
Construire une application conforme au modèle ci dessous permettant de vérifier qu'un nombre entier saisi est premier.
Voir Solution
Indications:
- Commencer un nouveau projet ;
- L’idée du projet est de saisir un nombre dans une zone de saisie et d’afficher sa primalité dans un label après un clic sur le bouton.
- Placer deux contrôles label, un textbox et un bouton de commande;
Dans notre projet un clic sur le bouton de commande exécute un code qui vérifie la primalité du nombre saisie dans l’objet textsaisie. Donc l’évènement est le clic. D’où le code correspondant :
Private Sub Cmd1_Click() Dim N, m, c N = Val(Text1) m = Int(Sqr(N)) If N = 2 Or N = 3 Or N = 1 Then lbl3.Caption = N & " EST PREMIER" Else For i = 2 To m c = N Mod i If c = 0 Then lbl3.Caption = N & " N'EST PAS PREMIER" Exit Sub End If Next i lbl3.Caption = N & " EST PREMIER" End If End Sub
[modifier] Travail Pratique N°3
Voir Solution
Indications:
- Commencer un nouveau projet ;
- L’idée du projet est saisir un nombre dans une zone de saisie et d’afficher le résultat dans un label après un clic sur le bouton.
- Placer deux contrôles label, un textbox et un bouton de commande ;
Dans notre projet un clic sur le bouton de commande btnverifier exécute un code qui vérifie la parité du nombre saisie dans l’objet textsaisie. Donc l’évènement est le clic de btnverifier. D’où le code correspondant :
Private Sub btnverifier_Click() Dim a As Integer a = Val(txtsaisie) b = a Mod 2 If b = 0 Then lblresultat.Caption = "Le nombre " & a & " est pair" Else lblresultat.Caption = "Le nombre " & a & " est impair" End If End Sub
[modifier] Travail Pratique N°4
Voir Solution
Indications:
- Commencer un nouveau projet ;
- L’idée du projet est saisir un nombre dans une zone de saisie et d’afficher le résultat dans un label après un clic sur le Bouton.
- Placer deux contrôles label, un textbox et un bouton de commande ;
Dans notre projet un clic sur le bouton de commande btnverifier exécute un code qui vérifie la parité du nombre saisie dans l’objet textsaisie. Donc l’évènement est le clic de btnverifier. D’où le code correspondant :
Private Sub btnverifier_Click() Dim a As Integer a = Val(txtsaisie) b = a Mod 2 If b = 0 Then lblresultat.Caption = "Le nombre " & a & " est pair" Else lblresultat.Caption = "Le nombre " & a & " est impair" End If End Sub
