Cours VBA 2021 S1 (1)

Contenu de cours

Boucles

Boucle For Each ...Next
Exemple:

Dim mois As String
Dim m As String
mois = Array("Janvier", "Mars", "Août", "Décembre")

For Each element In mois
Console.WriteLine(element )

Next element

21/02/2021 Prof. ASIMI Younes 51

Contenu de cours

Boucles
Ecrire un programme qui calcule la factorielle d’un

nombre entier n;

21/02/2021 Prof. ASIMI Younes 52

Contenu de cours

Boucles
Ecrire un programme qui calcule le produit de tous les

nombres pairs inférieurs à un entier n;

21/02/2021 Prof. ASIMI Younes 53

Contenu de cours

Boucles

Boucles while
La boucle While continue de boucler tant qu’une condition
logique est vraie:

Syntaxe

While x <> 10
instructions

x = x + 1 ‘incrémentation

End While

• Sémantique:

La condition est testée au départ;
La boucle est répétée tant que la condition est vraie;

21/02/2021 Prof. ASIMI Younes 54

Contenu de cours

Boucles

Boucles Do While …Loop

La boucle Do While …Loop continue de boucler tant qu’une condition
logique est vraie. C’est la deuxième syntaxe de la boucle While:

Syntaxe Répéter l’exécution des
instructions tant que la condition
Do While condition est vraie.

[Instructions]

Loop

Sémantique

La condition est testée au départ;
La boucle est répétée tant que la condition est vraie;
Si la condition n’est pas vérifiée alors les instructions de la boucle ne sont pas

exécutées.

21/02/2021 Prof. ASIMI Younes 55

Contenu de cours

Boucles

Boucles Do …Loop While

La boucle Do …Loop While continue de boucler tant qu’une condition
logique est vraie. Elle peut avoir deux syntaxes:

Syntaxe

Do

[Instructions]

Loop While condition

Sémantique

La condition est testée à la fin de la boucle.
La boucle est répétée tant que la condition est vérifiée.
L’exécution du bloc d’instructions est réalisée au moins une fois

21/02/2021 Prof. ASIMI Younes 56

Contenu de cours

Boucles

Boucle Do Until…Loop
Cette structure est très semblable à la structure Do While
…Loop. La boucle Do Until exécute des actions jusqu’à ce
qu’une condition devienne vraie.

Syntaxe Répéter l’exécution des instructions
jusqu'à ce que la condition
Do Until condition devienne vraie.

[Instructions]

Loop

Sémantique

La condition est testée au défaut
La boucle est répétée jusqu’à ce que la condition soit vraie
Si la condition est vérifiée au départ alors le bloc d’instructions ne sera pas

exécuté..

21/02/2021 Prof. ASIMI Younes 57

Contenu de cours

Boucles

Boucle Do …Loop Until
La boucle Do Until exécute des actions jusqu’à ce qu’une
condition devienne vraie.

Syntaxe

Do

[Instructions]

Loop Until

condition

Sémantique

La condition est testée à la fin de la boucle.
La boucle est répétée jusqu’à ce que la condition soit vérifiée.
L’exécution du bloc d’instructions est réalisée au moins une fois.

21/02/2021 Prof. ASIMI Younes 58

Contenu de cours

Boucles

Écrire un programme qui est destiné à calculer le plus grand
commun diviseur de deux nombres a et b saisis au clavier :

21/02/2021 Prof. ASIMI Younes 59

Contenu de cours

Boucles

Exercices

Écrire un programme qui donne 100 nombres aléatoires;

Écrire un programme qui détermine le nombre de racines
réelles d’un trinôme : a*x2 + b*x + c=0;

Ecrire un programme de résolution de l'équation : a*x2 + b*x
+ c = 0 pour a, b, c, x réels.

21/02/2021 Prof. ASIMI Younes 60

Contenu de cours

Solutions

21/02/2021 Prof. ASIMI Younes 61

Contenu de cours

Structures conditionnelles

21/02/2021 Prof. ASIMI Younes 62

Contenu de cours

Structures conditionnelles

21/02/2021 Prof. ASIMI Younes 63

Contenu de cours

Solutions

21/02/2021 Prof. ASIMI Younes 64

Contenu de cours

Dates et Temps

Il existe deux types de variable permettant de gérer
les dates:

 DateTime;
Date;

DateTime fait partie d'une Classe VB.Net;
Date qui fait partie de Visual Basic, qui est

équivalent à DateTime.

21/02/2021 Prof. ASIMI Younes 65

Contenu de cours

Date

Date.Now: Cette instruction crée une variable de type Date qui
nous donne la date et l'heure d'aujourd'hui:
Exemple:

VariableDate = Date.Now
VariableDate.ToLongTimeString

Fonction format
23:17:12
ToLongTimeString 23:19
ToShortTimeString 10/02/2018
ToShortDateString samedi 10 février 2018
ToShortDateString 10/02/2018 23:24:34
ToLocalTime

21/02/2021 Prof. ASIMI Younes 66

Contenu de cours

Date

Créer un programme qui affiche le temps actuel pendant un certain
temps:

System.Threading.Thread.Sleep(valeur): Met en pause le
programme pendant une durée passée en argument (valeur entier).
Cette valeur s'exprime en millisecondes;

Console.Clear(): Efface l'écran de la console;

21/02/2021 Prof. ASIMI Younes 67

Contenu de cours

Horloge
En se basant sur l’exercice précédant, écrire un

programme qui affiche l’Horloge:

21/02/2021 Prof. ASIMI Younes 68

Contenu de cours

DateTime

On peut saisir une date dans une string puis convertir:
Dim dateVariable As DateTime
 dateVariable = CDate("02/12/2018 22:12:56")

 Console.WriteLine("Le jour est" & dateVariable.Day)
 Console.WriteLine("Le mois est" & dateVariable.Month)

On peut aussi utiliser CType:

Dim dateVariable As Date = CType("02/12/2018 22:12:56", Date)

 Console.WriteLine("L'heure est " & dateVariable.Hour)
 Console.WriteLine("L'année est " & dateVariable.Year)

Remarque:

: et / sont les séparateurs heure et date.

21/02/2021 Prof. ASIMI Younes 69

Contenu de cours

DateTime

ToString

Cette fonction nous permet d’afficher les dates et
heures.
Exemple:

Console.WriteLine(dateVariable .ToString)

Dim dateVariable As DateTime
dateVariable = CDate("02/12/2018 22:12:56")
 Console.WriteLine("La date est" & dateVariable.ToString)

21/02/2021 Prof. ASIMI Younes 70

Contenu de cours

DateTime

TimeSpan : est une unité de temps exprimée en heures, minutes,
secondes et millisecondes;

Dim dat1 As New TimeSpan(h, m ,s ,ms)

Exemple:

Dim dat1 As New TimeSpan(20, 1, 0, 0)
 Console.WriteLine(dat1)

Add, Subtract, Compare:

On peut ajouter ou soustraire un TimeSpan à un DateTime, on obtient un
DateTime.

dat2= dat1.Add(duréeAjouter)
diff = dat2.Subtract(dat1)
DateTime.Compare(t1, t2): retourne 0 si t1=t2, une valeur positive si

t1>t2 négative si t1<t2.

21/02/2021 Prof. ASIMI Younes 71

Contenu de cours

DateTime

Exercice

Ecrire un programme qui gère les rendez-vous des patients:

Si la date saisie est supérieure à la date actuelle affiche:
 votre rendez-vous sera prochainement;

Si la date saisie est égale à la date actuelle affiche:
 votre rendez-vous est aujourd'hui;

Si la date saisie est inférieure à la date actuelle affiche:
 La date votre rendez-vous est dépassée;

21/02/2021 Prof. ASIMI Younes 72

Contenu de cours

DateTime

21/02/2021 Prof. ASIMI Younes 73