Visual Basic
(VB Express)
Eléments de cours
azziyassin@[Link]
1
Les types de variables
2
Les opérateurs arithmétiques
3
Les opérateurs logiques
4
Les opérateurs logiques
5
1er code VB
• Fichier nouveau projet ou CTRL+N
• Puis choisir Application console
6
1er code VB
• Fichier Enregistrer tout
• Donner un nom significatif à votre projet
• Décocher la case « créer le répertoire pour la solution»
7
1er code VB
• Zone par défaut pour écrire le code de votre
programme (éditeur)
Ecrire votre
code source ici
8
1er code VB
Module Module1 Début du module
(programme)
Sub Main()
Début de la fonction
principale main()
[Link]("Hello World")
[Link](‘’TEXTE’’) Appel de la fonction Ecrire()
Msgbox(« TEXTE »)
[Link]()
Fin de la fonction main()
End Sub
End Module Fin du Module
9
1er code VB
Début du module
(programme)
Début de la fonction
principale main()
Appel de la fonction Ecrire()
Appel de la fonction Ecrire
dans une fenêtre
Appel de la fonction lire()
Fin de la fonction main()
Fin du Module
10
2ème code VB (manipulation variable)
Titre : Calcul
Variable A: Entier
C,B : Réel
D : caractère
E : Booléen
Début
A ← 30
B ← A * 2
Écrire('B=' , B)
C ← (B + A)/4
B ← C / 5
D ← ‘Amine’
E ← (A > 40) Ou (C < B)
Écrire('les valeurs
obtenues sont : A = ' , A ,
'B = ' ,B , ' C = ', C , '
D = ', D, ' E = ', E)
Fin
11
3ème code VB (Surface cercle)
12
4ème code VB (Salaire)
13
Condition si – sinon
• If Moyenne >= 10 Then
• [Link]("-> vous êtes admis")
• Else : [Link]("-> vous êtes
ajourné")
• End If
14
Condition si – sinon
Code : maximum de 2
nombres
15
Condition si – sinon si sinon
• If CA > 100000 Then
• commission = CA * 0.15
• ElseIf CA > 30000 Then
• commission = CA * 0.1
• Else : commission = 0
• End If
16
Condition si – sinon si sinon
Code : Salaire 3
17
Boucle tant que faire
(while – End While)
18
Boucle tant que faire
(while – End While)
• While m < l
• [Link](m & " est multiple
de " & a)
• i=i+1
• m=i*a
• End While
19
Boucle Faire jusqu’à
• ' Boucle Faire jusqu'à ce qu'une condition soit remplie
(cette condition est que i soit supérieur à n)
• Do
• s=s+i
• i=i+1
• Loop Until (i > n)
21
Boucle for (pour)
Dim x As Integer
For x = 1 To 10
'Instruction à exécuter 10 fois
Next
-------------------------------------------------------------------
Exemple :
For i = 1 To n
f=f*i
Next
--------------------------------------------------------------------
Pour faire un pas de 2
Dim x As Integer
For x = 1 to 10 step 2
'Instruction à exécuter 5 fois
Next 22
Fonctions mathématiques
• [Link] : racine
• [Link] (x,n):
• [Link] : cosinus
• [Link]() : sinus
• [Link] : arctangeante
Randomize() ' Initialise le générateur de
nombre aléatoire.
x = CInt(Int((100 * Rnd()) + 1)) '
Génère un nombre aléatoire entre 1 et 100.
23
Applications
• Autres exercices (Calculs topo) :
1- Gisement et Distance à partir de coordonnées
2- Coordonnées à partir de gisement, distance et
coordonnées.
3 Calculer la distance stadimétrique à partir des
lectures (inf, sup, mediane)
3- Améliorer en donnant la possibilité de relancer le
calcul et la modification des saisies
4- Equation de 1er et 2nd degré
5- Fonction random (aléatoire)
24
Calcul distance et gisement
25
Calcul topométrique
26
Calcul coordonnées
27
• Calcul distance
• d = [Link]([Link]((xb - xa), 2) + [Link]((yb -
ya), 2))
• Calcul gisement
• g = 2 * [Link]((xb - xa) / (d + (yb - ya)))
• Formatage (double) :
• Nom_variable.Tostring(".##") ou
Nom_variable.Tostring("0.00")
le nombre de # c'est le nombre de chiffres à afficher
après la virgule
28
Déclaration tableaux
• Déclarer un tableau
Dim tableau1(5) As Integer ' Déclare un
tableau d'entiers de taille 6 (indices 0 à 5)
Dim tableau2() As String ' Déclare un tableau
de chaînes de taille dynamique
• Initialiser un tableau
Dim tableau As Integer() = {1, 2, 3, 4, 5} '
Initialise un tableau d'entiers
29
Déclaration tableaux
• accéder aux éléments d'un tableau
Dim valeur As Integer = tableau(2) '
Accède au troisième élément du tableau
(indice 2)
• modification des éléments d'un tableau
tableau(2) = 10 ' Modifie la valeur du
troisième élément du tableau
30
Déclaration tableaux
• parcourir un tableau avec une boucle
For i As Integer = 0 To [Link] - 1
' Faire quelque chose avec tableau(i)
Next
• redimensionner un tableau
ReDim Preserve tableau(10) ' Redimensionne le
tableau en conservant les données existantes
31
32
33