PROGRAMMATION
RAPPEL
ALGORITHME
L’algorithme représente une succession des opérations qui traite un problème donné dès le
début jusqu’à l’aboutissement de résultat. Ces différentes opérations peuvent être des
actions simples et des tests conditionnels.
L’algorithme peut être écrit ou représenté sous forme d’un pseudo-code ou d’un
organigramme (dessins sous forme des cases avec des flèches qui permet de faciliter la
représentation et la lecture d’un algorithme).
Un pseudo-code est une suite des instructions représenté sous formes des textes. Il est
écrit en langage presque naturel c’est-à-dire sans référence à un langage de
programmation particulier.
L’implémentation de l’algorithme dans l’ordinateur nécessite l’écriture de ses différentes
opérations dans un langage de programmation. Dans notre cas, on utilisera Visual basic.
Les structures de l’algorithme peuvent être :
Une séquence des opérations : les différentes opérations sont exécutées les une
après les autres.
Un test conditionnel : qui vérifie quelle action ou groupe d’actions doit être
exécutée selon le résultat du test.
IST-D Page 1
Une répétition ou boucle : qui indique quelle action ou groupe d’actions doit être
exécutées répétitivement jusqu’à ce qu’une condition ne soit plus vraie.
Types de données :
Type numérique : entier ou réel (Integer, Single en VB)
Type alphanumérique : caractère (char en VB), chaine de caractère (string en VB)
Booléen (boolean en VB) qui peut être vrai ou faux
Objet (object en VB)
Monétaire (Décimal en VB)
Date (Date en VB)
Tableaux (Array)
Déclaration des données
Constantes :
Syntaxe : Constante NomConstante : [Type] = Valeur
Variables :
Syntaxe : Variable NomVariable : [Type]
IST-D Page 2
Tableaux :
Syntaxe : Dim Tableau(k) As Type
k+1 : représente le nombre d’élément du Tableau
Exemples : Dim Tableau(3) As Integer ‘ déclare un tableau de 4 entiers
Exemples :
Pseudo-code
Si condition Alors
Action1
Si non
Action2
Fin Si
En VB
If condition Then
Action1
Else
Action2
End if
Autres exemples
Dim x, y, Max As Integer
If x>y Then
Max=x
Else
Max= y
End if
Select case valeur
Case condition 1
Action 1
Case condition 2
Action 2
Case else
Action 3
End select
IST-D Page 3
Pour i allant de 1 à 10 Repeter
i←i*5
Fin Repetr
For i=1 to 10
i= i*5
Next i
Tant que condition
Action
Fin Tant que
Do While condition
Action
Loop
Les tableaux
Un tableau de variables permet de stocker plusieurs variables de même type sous un même
nom de variable. Chaque élément étant repéré par un index ou indice.
Le nombre d’éléments du tableau est défini lors de la déclaration du tableau.
Dim Tableau(3) As Integer crée un tableau composé de 4 éléments :
Tableau(0)
Tableau(1)
Tableau(2)
Tableau(3)
Remarque :
L’indice du tableau commence toujours à partir du 0
Le nombre d’éléments du tableau est égal à l’indice de dimension du tableau+1
Tableau à plusieurs dimensions
Dim A(l, c) As Type l*c élément
l : ligne
c : colonne
Pour un tableau à deux dimensions, le premier argument représente les lignes et le second
les colonnes
IST-D Page 4
Exemples :
Dim T(2,2) As Integer ‘3x3 élements
0,0 0,1 0,2
1,0 1,1 1,2
2,0 2,1 2,2
Affectation dans un tableau :
T(1,1)= 45 attribue une valeur 45 dans la cellule (1,1).
Il est possible de créer un tableau à 3, 4, …, n dimensions.
Exemple : Dim Tableau(3, 1, 2) As Integer crée un tableau de 4x2x3
Chapitre 1 : L’interface utilisateur
Une interface utilisateur est une fenêtre. Elle joue le rôle d’intermédiaire entre
l’utilisateur et le programme.
Dans cette partie, on verra comment créer une fenêtre et ajouter des composants (ou
contrôles) et modifier ses propriétés.
Exemple : Créer une fenêtre, ajouter un bouton puis un label et modifier ses propriétés.
1.1 Les propriétés des objets
Tous les objets ont des propriétés communes.
Name : nom de l’objet
Par défaut, VB crée des noms génériques comme Form1, Form2 pour les fenêtres, List1,
List2 pour les listes.
Il est conseillé de commencer un nom de l’objet par un mot évoquant sa nature. Exemple
BoutonOK, LabelTitre.
IST-D Page 5
Il est aussi conseillé d’utilisé :
Btn pour les boutons
Lst pour ListBox
Chk pour CheckBox
Cbo pour Combo
Dlg pour DialogBox
Frm pour les Form
Lbl pour les label
Txt pour les TextBox
Tb pour les ToolsBar
Rb pour les Radiobutton
Mm pour les menus
Tmr pour les timers
Text : Texte associé à l’objet. C’est le texte qui est affiché sur l’objet.
Exemple : ButtonOK.Text= ‘’OK ‘’
Enabled : indique si l’objet peut être accessible ou nom.
La propriété Enabled permet l’activation ou la désactivation des contrôles lors de
l’exécution.
Exemple : ButtonOK.Enabled= False ‘désactive le boutton OK
Visible: indique si un objet est visible ou non
Exemple : ButtonOK.Visible= False ‘Fait disparaitre le boutton OK
Font : permet le choix de la police affiché dans les objets
BackColor : couleur du fond
ForeColor : Couleur des caractères dans l’objet
ButtonOk.ForeColor= System.Drawing.Color.Blue
Tag : permet de stocker une valeur ou un texte lié à l’objet. Chaque objet a un Tag qui
peut contenir du texte.
List1.Tag= ‘’CD’’ ‘ajoute CD dans la liste
1.2 Les objets ou contrôles :
Les Forms :
Elles correspondent aux fenêtres ou formulaires.
IST-D Page 6
Public Class Form1
Dim nombre1, nombre2, resultat As Double
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
nombre1 = Val(TextBox1.Text)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox2.TextChanged
nombre2 = Val(TextBox2.Text)
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
resultat = nombre1 + nombre2
TextBox3.Text = resultat
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
resultat = nombre1 - nombre2
TextBox3.Text = resultat
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
resultat = nombre1 * nombre2
TextBox3.Text = resultat
End Sub
IST-D Page 7
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
Propriétés des fenêtres :
Name : Nom du formulaire
Text : C’est le texte qui apparaît dans la barre de titre en haut
Icon : Propriété qui permet d’associer à la forme u fichier icône. Elle s’affiche dans le coin
supérieur à gauche de la fenêtre.
WindowState : Donne l’état de la fenêtre : Plein écran (FormWindowState.Maxiized),
normale (FormWindowState.Normal), dans la barre de tâche
(FormWindowState.Minimized).
Exemple :
me.WindowState= FormWindowState.Maximized (met en plein écran)
IST-D Page 8
