CHAPITRE I INITIATION A LA PROGRAMMATION

1. Définition de concept
a. Langage : Ensemble de caractère, symbole et de règles rassemblés dans le but
de communiqué une pensée. Il existe deux groupes de langages :

 Langages naturels : ceux des hommes ou des animaux

 Langages artificiels : utilisé pour simplifier la communication tels que
langage de programmation informatique, ex : JAVA, VB, CSHARP, C++,
etc………

b. Programmation : opération qui consiste à écrire une suite d’instructions

organisées en algorithme dans un but précis, exécutable dans un ordinateur.

c. Langage de Programmation : constitue un ensemble des ordres ou instructions

que l’on donne à un ordinateur pour agir à un problème donné.

2. Notions sur l’environnement de Visual Basic

Le VB est un environnement de développement basé sur le langage Basic. Il

permet de réaliser rapidement et simplement des applications Windows, utilisant
la quasi-totalité des composants Windows (Boutons, boîtes de dialogue, menus,
barres d’outils…). Pour maitriser le développement d’une application sous VB,
il est indispensable d’aborder les trois sujets suivants :

- Le langage Basic et la programmation orientée objet

- L’environnement de développement de VB
- La gestion des Bases de données (avec Access)

La conception est beaucoup plus importante que le codage qui peut être sous-
traité dans le cas de gros logiciels.

Un programme VB est constitué des grandes étapes suivantes :

- Traçage de l’interface utilisateur du programme avec les contrôles ;

- Le choix des objets et la définition des propriétés de ces objets ;
- L’écriture des événements (éditeur de code) ;
- La compilation ;
- L’exécution.
3. Caractéristiques du langage

- Ancien BASIC (Beginner’s All purpose Symbolic Instruction Code)

- Programmation par objets (briques logicielles)
- Programmation graphique (fenêtres, icônes, menus, souris…)
- Programmation événementielle (sollicitations : souris, clavier, autre
événement…)
- Réutilisable (modules de code BASIC)

4. Lancement de Visual Basic

- Après l’installation de Visual Basic,
- Cliquer sur le Bouton Démarrer,
- Aller sur Programmes,
- Aller sur Microsoft Visual Studio
- Cliquer sur Visual Basic.Net

5. L’environnement Visual Studio 2010

Peut-être avez-vous du mal à faire la distinction entre Visual Basic et Visual

Studio. Si tel est le cas, ce chapitre va vous éclairer. Dans un premier temps,
vous découvrirez les objets (variables, tableaux, structures), les opérateurs et les
instructions utilisés dans le langage. Dans un second temps, vous apprendrez à
définir des solutions Visual Basic, à exploiter le système de menus, les barres
d’outils et les nombreuses fenêtres filles de l’environnement de développement.

6. Les Commentaires

Le caractère ‘ ou le mot clé Rem est utilisé pour définir un commentaire. Tout le
texte qui suit ce caractère n’est pas compilé

7. LES VARIABLES

a. Déclaration de la variable

Pour définir une variable, vous utiliserez l’instruction Dim.

Syntaxe : Dim Nomvar As Typevar

Par exemple :

Dim v1 as Integer

ou encore :

Dim v2 as String
b. Les types autorisés dans Visual Basic sont les suivants :

- Integer Nombres entiers compris entre –32 768 et 32 767

- Long Nombres entiers compris entre –2 147 483 648 et 2 147 483 647
- Single Nombres réels avec sept chiffres après la virgule
- Double Nombres réels avec quinze chiffres après la virgule
- Currency Nombres réels comprenant quinze chiffres avant la virgule et
quatre après
- String Chaînes de caractères dont la longueur ne peut excéder 231
caractères.

Il est possible d’utiliser un symbole pour définir implicitement le

type d’une variable. Dans l’exemple ci-après, les deux premières instructions
sont équivalentes à la troisième :

Dim v1 as Integer

v1= 45

v1%=45

Pour en terminer avec les variables, voici la liste des symboles qui
définissent implicitement le type des variables.

% Integer

& Long

! Single

# Double

@Currency

$ String

8. ECRITURE EN VB.NET

Console.Out.WriteLine(″Message″)

Console.Out.Write(″Message″)

9. LECTURE EN VB.NET

Syntaxe : Nomvar=Console.In.ReadLine()

10. LES OPERATEURS

Tous les opérateurs Arithmétique, de comparaison et logiques

habituels sont disponibles. Le signe = affecte une valeur à une variable.
 a) Les opérateurs Arithmétique : +, -, *, /, ^, \ et Mod s’utilisent comme
dans les autres langages. Vous pouvez utiliser une ou plusieurs paires de
parenthèses pour forcer l’ordre d’exécution des opérateurs. L’instruction
suivante, par exemple, calcule le déterminant d’une équation du second
degré :

Delta = b^2 - 4 * a * c

b) Les opérateurs de comparaison : =, <>, <, <=, > et >= sont

essentiellement utilisés dans l’instruction If thenelse :
If Delta < 0 then

Text1.TEXT = "Pas de solution"

End If

c) Les opérateurs logiques Not, And et Or permettent d’inverser une valeur

logique ou de combiner deux valeurs logiques. L’instruction de test ci-
après affecte la valeur 1 à la variable Résultat si a est plus grand que 10 ou
si b est différent de 0 :

If a>10 or b<>0 then

Résultat = 1

End If

11. LES STRUCTURES CONDITIONNELLES

a) Le If

Cette instruction possède plusieurs variations au niveau de sa

syntaxe et de sa forme.

Syntaxe: If cond then

Inst1

Else

Inst2

EndIf

S’il y a plusieurs conditions voici la structure:

If con1 then

Instructions 1
ElseIf con2 then

Instructions 2

ElseIf con3 then

Instructions 3

Else

Instructions N

End if

Si la condition c1 est vérifiée, le bloc d’instructions 1 est exécuté.

Dans le cas contraire, si la condition c2 est vérifiée, le bloc d’instructions
Instructions 2 est exécuté, et ainsi de suite jusqu’au dernier ElseIf. Si aucune des
instructions précédentes n’est vérifiée, le bloc d’instructions Instructions N est
exécuté.

Bien qu’un peu lourde, la structure If ThenElse est très simple à

utiliser. Lorsque l’action accomplie consiste à affecter une valeur ou une autre
en fonction du résultat du test, vous gagnerez à utiliser l’instruction If
(Immédiate If) :

Variable=If(Condition, Valeur si vrai, Valeur si faux)

Par exemple, l’instruction suivante affecte la valeur 5 à la variable Résultat si a

est supérieur à 0 et la valeur 6 dans le cas contraire :

Résultat = If(a > 0, 5, 6)

b) Select Case

Si une variable peut prendre plusieurs valeurs différentes exigeant

chacune un traitement spécifique, l’instruction select case est à utiliser

Syntaxe : Select Case Variable

Case liste de valeurs 1

Bloc d’instructions 1

Case liste de valeurs 2

Bloc d’instructions 2

Case Else

Bloc d’instructions N

End Select

Pour terminer, sachez que, si vous devez effectuer des tests répétitifs sur la
valeur d’une variable, vous avez tout intérêt à utiliser l’instruction Select Case :

À titre d’exemple, les instructions If et Case ci-après sont équivalentes :

If a = 1 Then
b = 57
ElseIf a = 2 Then
b = 12
ElseIf a = 3 Then
b = 39
Else
b=9
End If

Select Case a

Case 1
b = 57
Case 2
b = 12
Case 3
b = 39
Else
b=9
End Select
12. LES BOUCLES

a. For

Ce type de boucle convient pour exécuter un traitement dont le nombre de fois

est déterminé

Syntaxe: For indice = début to fin step pas

Instr

Next indice

Lorsqu’un traitement doit être répété, utilisez une boucle. La plus

classique fait appel à l’instruction For….Next. Par exemple, l’instruction
suivante affecte les valeurs 1 à 10 aux éléments d’indice 1 à 10 du tableau T :

For i = 1 To 10

T(i) = i

Next i

b) Do while…Loop

Cette instruction est mieux adaptée lorsqu’un traitement doit être exécuté tant
qu’une condition est satisfaite.

Syntaxe: Initialisation

Do while condition

Instruction

Incrementation

Loop

Lorsque le nombre de passages dans la boucle n’est pas connu à

l’avance, vous pouvez utiliser une instruction Do Loop ou WhileWend :

Les deux blocs d’instructions suivants sont équivalents :

i=1

Do

T(i) = i

i=i+1
Loop Until i > 10

i=1

While i < 10

T(i) = i

i=i+1

Wend

Les conditions sont inversées dans les deux instructions. Do Loop

effectue un bouclage jusqu’à ce qu’une condition soit vraie, alors que
WhileWend effectue un bouclage tant qu’une condition est vraie.

13. Les Tableaux

a. Déclaration d’un tableau

Syntaxe : Dim NomTab (nombre Indice) As TypeTableau

b. Lecture dans un tableau

For i=1 to 3

A(i)=Console.In.ReadLine()

Next i

c. Affichage

For i=1 to 3

Console.Out.WriteLine (A(i)

Next i

14. EXERCICE VB.NET CONSOLE

EXERCICE 1

Ecrire un programme qui affiche la Valeur de a. D’où a= 5

ModuleModule1

SubMain()
Dim aAsInteger
a=5
Console.Out.WriteLine(a)
Console.Read()

EndSub

EndModule

EXECUTION

EXERCICE 2

Ecrire un programme qui fait la somme de deux nombres

ModuleMod ule1

SubMain()
Dim a, b, R AsInteger
Console.Out.Write("a=")
a = Console.In.ReadLine()
Console.Out.Write("b=")
b = Console.In.ReadLine()
R=a+b
Console.Out.WriteLine("R="& R)
Console.Read()
EndSub

EndModule
EXECUTION

EXERCICE 3

Ecrire un programme qui affiche tous les nombres de 0 à 10

ModuleModule1

SubMain()

Dim iAsInteger
For i = 0 To 10
Console.Out.WriteLine(i)

Next i

Console.Read()
EndSub

EndModule
EXECUTION

EXERCICE 4

Ecrire un programme qui lit l’âge d’une personne ; puis affiche « majeur » si son
âge est supérieur ou égal à 18, si non « mineur » dans le cas contraire

ModuleModule1

SubMain()
Dim age AsInteger
Console.Out.Write("Age=")
age = Console.In.ReadLine()
If age >= 18 Then
Console.Out.WriteLine("majeur")
Else
Console.Out.WriteLine("mineur")
EndIf
Console.Read()
EndSub
EndModule
EXECUTION

EXERCICE 5

Ecrire un programme en VB NET qui affiche le maximum de 2 nombres

EXERCICE 6

Ecrire un programme dont l’on fait entrer 3 nombres au clavier et affiche le

maximum de ses 3 nombres

ModuleModule1

SubMain()

Dim N1, N2, N3, Max As Integer

Console.Out.Write("N1=")
N1 = Console.In.ReadLine()
Console.Out.Write("N2=")
N2 = Console.In.ReadLine()
Console.Out.Write("N3=")
N3 = Console.In.ReadLine()
If N1 > N2 And N1 > N2 Then
Max = N1
Console.Out.WriteLine("Max ="& Max)
Console.Read()
ElseIf N3 > N1 And N3 > N2 Then
Max = N3
Console.Out.WriteLine("Max="& Max)
Else
Console.Error.WriteLine("veuillez recommencer S.V.P")
Console.Read()
EndIf
EndSub

EndModule

EXECUTION

EXERCICE 7

Ecrire un programme qui permet d’afficher le résultat total si la côte varie de 12

à 20 on a une réussite totale

10 11 : Réussite partielle

7 9 : Echec déliberable

0 6 : Echec profond

<0 : Erroné

> 20 : Erroné
ModuleModule1

SubMain()

Dim Cote AsInteger

Console.Out.Write("Donner la cote:")
Cote = Console.In.ReadLine()
SelectCase Cote
Case 12 To 20
Console.Out.WriteLine("Reussite Total")
Case 10, 11
Console.Out.WriteLine("Reussite Partielle")
Case 7 To 9
Console.Out.WriteLine("Echec Délibérable")
Case Else
Console.Out.WriteLine("ERRONE")
EndSelect
Console.Read()

EndSub

EndModule

EXECUTION
EXERCICE 8

Ecrire un programme qui affiche 8,5,2,-1

ModuleModule1

SubMain()

Dim iAsInteger
For i = 8 To -1 Step -3
Console.Out.WriteLine(i)

Next i
Console.Read()
EndSub

EndModule

EXECUTION
Autres exercices

EXERCICE 9

Ecrire un programme qui affiche tous les couples de nombre de 1 à 5

ModuleModule1

SubMain()

Dim i, j AsInteger
For i = 1 To 5
For j = 1 To 5
Console.Out.WriteLine(i&" "& j)
Next j
Next i
Console.Read()
EndSub

EndModule

EXECUTION
EXERCICE 10

Ecrire un programme qui affiche une table de multiplication de 1 à 10

ModuleModule1

SubMain()

Dim t, k AsInteger
For t = 1 To 10
For k = 1 To 10
Console.Out.WriteLine(t &"x"& k &"="& t * k)

Next k
Next t
Console.Read()
EndSub

EndModule
EXECUTION

EXERCICE 11

Ecrire un programme qui affiche bonjour 1 fois, bonjour 2 fois, bonjour …..5
fois

ModuleModule1

SubMain()

Dim iAsInteger
For i = 1 To 5
Console.Out.WriteLine("Bonjour"& i &"fois")

Next i
Console.Read()
EndSub

EndModule

EXECUTION

EXERCICE 12

Ecrire un programme qui affiche tous le nombre impair inférieur à 20

ModuleModule1

SubMain()

Dim i As Integer
i=1
DoWhilei< 20
Console.Out.WriteLine("nombre impair "& i)
i=i+2
Loop
Console.Read()
EndSub

EndModule
EXECUTION

EXERCICE 13

Ecrire un programme qui affiche tous les nombres pairs inférieurs à 20

EXERCICE 14

Ecrire un programme qui affiche un message d’erreur si la cote introduite n’est

pas comprise entre 0 et 20

EXERCICE 15

Ecrire un programme qui introduit le sexe M ou F d’un étudiant et affiche erreur

au cas contraire

EXERCICE 16

Ecrire un programme qui lit 3 indices du tableau et les affiches

EXERCICE 17

Ecrire un programme qui calcul le produit Scalaire de 2 vecteur 4 et 3

EXERCICE 18

ModuleModule1

SubMain()

Dim pu, qtAsInteger

Dim mt, tg, reAsDouble
Console.Out.Write("pu=")
pu = Console.In.ReadLine()
Console.Out.Write("qt=")
qt = Console.In.ReadLine()
mt = pu * qt
re = (mt * 3) / 100
tg = mt - re
Console.Out.WriteLine("total général="& tg)
Console.Read()
EndSub

EndModule

EXECUTION
EXERCICE 19

ModuleModule1

SubMain()

Dim p, m AsDouble
Const g AsDouble = 9.8
Console.Out.Write("m=")
m = Console.In.ReadLine()
p = m * g
Console.Out.WriteLine("poids est="& p)
Console.Read()
EndSub

EndModule

EXECUTION

EXERCICE 20

ModuleModule1

SubMain()
Dim r AsInteger
Dim s AsDouble
Const p AsDouble = 3.14
Console.Out.Write("r=")
r = Console.In.ReadLine()
s = r * p
Console.Out.WriteLine("surface="& s)
Console.Read()
EndSub
EndModule
EXECUTION

EXERCICE 21

ModuleModule1

SubMain()
Dim iAsInteger
Dim s AsDouble
Console.Out.Write("i=")
i = Console.In.ReadLine()
s = i * i
Console.Out.WriteLine("la somme égale ="& s)
Console.Read()
EndSub

EndModule

EXECUTION
EXERCICE 22

ModuleModule1

SubMain()

Dim ages AsInteger

Console.Out.Write("age=")
ages = Console.In.ReadLine()
If ages >= 18 Then
Console.Out.WriteLine("tu es majeur")
Else
Console.Out.WriteLine("tu es mineur")
EndIf
Console.Read()
EndSub

EndModule

EXECUTION

EXERCICE 23

ModuleModule1

SubMain()

Dim ageAsInteger
Console.Out.WriteLine("tu as quelle age:")
age = Console.In.ReadLine()
If age >= 19 And age <= 99 Then
Console.Out.WriteLine("Vous êtes adulte")
ElseIfage = 18 Then
Console.Out.WriteLine("Vous êtes majeur")
ElseIfage>= 0 Andage<= 17 Then

Console.Out.WriteLine("Désolé, tu es qu'un enfant")

ElseIfage>= 100 Then
Console.Out.WriteLine("Désolé, vous êtes déjà mort")
Else

Console.Out.WriteLine("ERRONE")
EndIf
Console.Read()
EndSub

EndModule
EXECUTION

EXERCICE 24

ModuleModule1

SubMain()

Dim n1, n2 AsInteger

DimoperatAsString
DimreponseAsDouble
Console.Out.Write("Introduit le premier nombre:")
n1 = Console.In.ReadLine()
Console.Out.Write("Introduit le deuxième nombre:")
n2 = Console.In.ReadLine()
Console.Out.Write("Introduit l'opérateur voulut:")
operat = Console.In.ReadLine()
Ifoperat = "+"Then
reponse = n1 + n2
Console.Out.WriteLine("Repons:"&reponse)
ElseIfoperat = "-"Then
reponse = n1 - n2
Console.Out.WriteLine("Repons:"&reponse)
ElseIfoperat = "*"Then
reponse = n1 * n2
Console.Out.WriteLine("Repons:"&reponse)

ElseIfoperat = "/"Then
reponse = n1 / n2
Console.Out.WriteLine("Repons:"&reponse)
Else
Console.Out.WriteLine("Error")
EndIf
Console.Read()
EndSub

EndModule
EXECUTION
EXERCICE 25

ModuleModule1

SubMain()

Dim nom, etat, sexe AsString

Console.Out.Write("Nom:")
nom = Console.In.ReadLine()
Console.Out.Write("Etat civil:")
etat = Console.In.ReadLine()
Console.Out.Write("Sexe:")
sexe = Console.In.ReadLine()
Ifetat = "Celibataire"And sexe = "m"Then
Console.Out.Write("Vous êtes célibataire et sexe
masculin")
ElseIfetat = "Celibataire"And sexe = "f"Then
Console.Out.Write("Vous êtes célibataire et sexe
feminin")
ElseIfetat = "marié"Andsexe = "m"Then
Console.Out.Write("Vous êtes marié et sexe masculin")
ElseIfetat = "marié"Andsexe = "f"Then
Console.Out.Write("Vous êtes marié et sexe feminin")
Else
Console.Out.WriteLine("ERRONE")

EndIf
Console.Read()
EndSub

EXECUTION
EXERCICE 26

ModuleModule1

SubMain()

Dimpux, puy, ptx, pty, mt, re, npAsDouble

Dimqtx, qtyAsInteger
Console.Out.Write("Prix X :")
pux = Console.In.ReadLine()
Console.Out.Write("Prix Y :")
puy = Console.In.ReadLine()

Console.Out.Write("Quantité X :")
qtx = Console.In.ReadLine()
Console.Out.Write("Quantité Y :")
qty = Console.In.ReadLine()
ptx = pux * qtx
pty = puy * qty
mt = ptx + pty
Ifmt> 5000 Then
re = (mt * 5) / 100
np = mt - re
ElseIfmt> 200 Andmt<= 500 Then
re = (mt * 2) / 100
np = mt - re
ElseIfmt< 2000 Then
re = (mt * 1) / 100
np = mt - re
Else
Console.Out.WriteLine("ERRONE")

EndIf
Console.Out.WriteLine("Net à payer"&np)
Console.Read()
EndSub

EndModule

EXECUTION
EXERCICE 27

ModuleModule1

SubMain()

Dim cote AsInteger

Console.Out.Write("côte:")
cote = Console.In.ReadLine()
SelectCase cote
CaseIs> 20
Console.Out.WriteLine("ERRONE")
CaseIs< 0
Console.Out.WriteLine("ERRONE")
Case 0 To 6
Console.Out.WriteLine("Echec prondeur")
Case 7, 8, 9
Console.Out.WriteLine("Echecdéliberable")
Case 10, 11
Console.Out.WriteLine("Reussite total")
EndSelect
Console.Read()
EndSub

EndModule

EXECUTION
EXERCICE 28

ModuleModule1

SubMain()

Dim n AsInteger
For n = 0 To 10
Console.Out.WriteLine("nombre:"& n)

Next n
Console.Read()
EndSub

EndModule

EXECUTION

EXERCICE 29
Ecrire un programme qui affiche le nombre de 1 à 7 et leur carré

ModuleModule1

SubMain()

Dim iAsInteger
For i = 1 To 7
Console.Out.WriteLine(i &"nombre avec son carré "& i * i)

Next i
Console.Read()
EndSub

EndModule

EXECUTION

EXERCICE 30

ModuleModule1

SubMain()
Dim cote AsInteger
Console.Out.Write("ta côte:")
cote = Console.In.ReadLine()
DoWhile cote < 0 Or cote > 20
Console.Out.WriteLine("Errone, veillez recommencer
svp")
Console.Out.Write("ta côte:")
cote = Console.In.ReadLine()
Loop
Console.Read()

EndSub

EndModule

EXECUTION
CHAPITRE II L’INTERFACE GRAPHIQUE

1. L’interface de VB 2010

Vous avez donc installé Visual Basic 2010 Expression. En passant, sachez que
ce dernier est un IDE (environnement de développement intégré) qui rassamble
les fonctions de conception, édition de code, conception et débogage. Lors du
premier lancement vous constatez qu’un petit temps de chargement apparait : le
logiciel configure l’interface pour la première fois.

2. PRESENTATION D’UNE PAGE DE DEMARRAGE

Nous voici sur la page de démarrage du logiciel. Vous pouvez la parcourir, elle
contient des informations utiles aux développements (vous) et concevra
l’historique de vos projets récents.
 3. CREATION D’UN NOUVEAU PROJET

Je vous invite donc, seulement pour l’appréhension de l’interface, à

créer un projet Windows Forms.

Pour ce faire, trois solutions s’offrent à vous : cliquer sur le bouton

« Nouveau projet » se rendre dans le menu FichierNouveau Projet ou utiliser
le raccourci claver CTRL+N.

Cliquez donc sur l’icône correspondant à Application Windows Forms.

 Saisissez un nom de projet dans la case « Nom ». Vous pouvez
laisser le nom par défaut, ce projet ne sera pas utilisé. Cliquez ensuite sur
« OK », et vous voici dans un nouveau projet !

4. PRESENTATION DE L’ESPACE DE TRAVAIL

 5. ETUDE DE LA BOITE A OUTILS (CONTROLES)

Sur la gauche de l’interface, nous avons accès à la boîte à outils.

Pour afficher cette boîte, vous allez devoir cliquer sur le petit onglet qui dépasse
qui dépasse sur la gauche. Une fois la boîte sortie, cliquez sur la punaise pour la
« fixer » et la maintenir visible la boîte à outils nous sera d’une grande utilité
lorsque nous créerons la partie graphique de nos applications, mais inutile lors
de l’écriture du code VB. Dès lors, si vous voulez la rentrer automatiquement,
cliquez une nouvelle fois sur la punaise.

6. FENETRE DE SOLUTIONS
 De l’autre côté de notre écran, nous remarquons la fenêtre de
solutions : elle récapitule l’arborescence de notre projet. Elle servira également à
gérer les bases d donnes, mais plus tard.

7. FENETRE DE PROPRIETES

Autre partie essentielle : la fenêtre des propriétés qui va nous

permettre, en mode conception, de modifier les propriétés de nos objets. Vous
n’avez rien compris ? Mettez ce terme dans un coin de votre tête, nous allons
rapidement y revenir. La dernière fenêtre est celle des erreurs. J’espère que vous
n’aurez pas l’utilité, mais elle saura se faire remarquer quand il le faudra, ne
vous inquiétez pas. Recréons un nouveau projet, Windows forms cette fois-ci ;
et découvrons !
 Sur notre gauche nous retrouvons le panneau que je vous ai
présenté tout au début de ce tutoriel : la boîte à outils. Cette boîte contient donc
des outils que nous allons déposer sur notre feuille. J’appelle feuille la petite
fenêtre avec rien dedans au centre de votre cran, c’est un peu comme votre
feuille et vous allez dessiner dedans

L’interface utilisateur correspond aux fenêtres et contrôles que

voit l’utilisateur dans des fenêtres Windows.

En pratique comment créer l’interface utilisateur ?

On a vu que le développeur dessine cette interface en mode conception (Design)

dans l’IDE (Environnement de développement).

Rappel :

Comment créer une fenêtre ?

Menu Projet, Ajouter un formulaire Windows, cliqué sur WindowsForms,

une fenêtre « Forms » apparaît. On a bien crée une fenêtre avec la classe
WindowsFormsForms (En fait on a créé une Class « Foms »)

Comment ajouter un bouton ?

Cliquer sur « Boîte à Outils » à gauche, bouton WindowsForms, puis bouton

« Bouton », cliquer dans Forms1, déplacer le curseur sans lâcher le bouton, puis
lâcher le bouton : un bouton apparaît.
Comment créer un label ?

Un label est un contrôle qui permet d’afficher un texte. Comme pour le bouton
cliquer sur « Boite à Outils » à gauche, bouton WindowsForms, bouton
« Label » et mettre un contrôle label sur la fenêtre.

On obtient dans la fenêtre principale :

Modifier les propriétés de l’objet

Il suffit ensuite de modifier les propriétés de l’objet pointé (celui qui est entour
se petits carrés) pour lui donner l’aspect désiré. Les propriétés sont accessibles
dans la fenêtre de propriétés de droite.
 8. EXERCICE : VB.NET PARTIE VISUELLE

Réaliser une application en vb.net en tenant compte des interfaces

suivantes :

1. Page d’accueil

2. Page de Connexion
3. Menu Général
4. Les Tables
CHAPITRE III ACCES AUX BASES DE DONNEES

1. AVEC SGBD ACCESS 2010

a) La création d’une base de données

 Sur le bureau de Windows, cliquer sur l’onglet Démarrer,

 Aller sur Tous les programmes,

 Cliquer sur Microsoft office Access 2010 et s’affiche cette boîte de

dialogue :

 Dans la fenêtre « Nouvelle base de données vide » ; cliquer sur l’icône

« Base de données » ; s’affiche du coup une petite fenêtre à droite
nommée Base de données vide ;

 Saisir le nom de la base de données, par exemple BDApprenants, et

cliquer sur le bouton de commande Créer ou appuyer sur la touche Enter.
La fenêtre Base de données s’affiche ; elle contient tous les « Objets » qui
composent une base de données Access, …

b) CREATION D’UNE TABLE

Il s’agit de donner une structure à cette table. Il faut déterminer une liste de
champs ainsi que les caractéristiques de ces champs. C’est seulement après cette
étape qu’il sera possible d’entrer l’information.

- Cliquer sur l’icône Création de Table et Access vous propose par défaut
le mode création qui permet de créer la table selon sa propre convenance
(personnaliser).

La création de la table s’effectue en remplissant les trois colonnes « Nom du

champ », « Type de données » et « Description ».
Chaque ligne de ce tableau contient les informations de chaque champ :

 Le nom de chaque champ de la table (de 1 à 64 caractères) ;

 Le type de données (voir plus bas) à choisir parmi 11 types proposés par
Access ;
 La description du champ (255 caractères maximum).
Access vous donne le choix entre plusieurs types de champ :

 Texte : peut contenir des chiffres ou des lettres

 Memo : utile pour inscrire des commentaires
 Numérique : peut contenir des chiffre seulement
 Date/Heure : peut contenir ou afficher des dates ou même de l’heure
 Monétaire : il s’agit d’un type de champ numérique. Le format du
champ est déjà prêt pour afficher le signe $ ou FC
 NuméroAuto : valeur numérique incrémentée automatiquement lors
de la saisie de chaque enregistrement
 Oui/Non : champ logique. Détermine si un cas s’applique ou pas. Ex.
fumeur, non-fumeur
 Objet OLE : OLE (Object Linked and Embbeded) permet d’insérer dans
une application des objets provenant d’autres applications
 Lien hypertexte : permet de faire un lien hypertexte à un autre objet ou à
l’un des services de l’internet
 Pièce jointe: pour insérer tout autre objet à partir de l’internet
 Assistant liste de choix : n’est vraiment pas un type de données. Il vous
permet d’accéder à une liste de choix prédéterminé qui est
contenu dans une autre table ou requête
 Au choix de l’utilisateur : il est aussi possible d’ajouter une description.
Ceci est pratique lorsque vous revenez quelques mois plus tard et voulez
savoir pourquoi vous avez choisi d’avoir ces champs dans la table.
 Déterminer la clé primaire : qui est un champ, ou une série de champs,
qui permet de différencier un enregistrement des autres. Un champ qui
contiendra une valeur unique ou univoque.
 Utiliser le menu contextuel (bouton droit de la souris) sur le champ
que vous voulez faire. Clé primaire (N° apprenant pour notre cas) ;

 Cliquer sur l’icône « clé primaire » ou utiliser le

menu contextuel sur le champ
 Au bas de l’écran, il y a les caractéristiques ou les propriétés du champ.
Chacun est pratiqué selon les circonstances. Le cours d’Access expliquera
chacune de ces propriétés et quand celle-ci sont pratiques. Ces propriétés
sont affichées dans l’onglet « Général » en bas de la fenêtre. L’onglet
« Général » affiche chaque propriété du champ et, à côté, dans des
champs modifiables, la valeur de cette propriété.
 Pour enregistrer la table, il suffit de cliquer sur l’icône de la disquette puis
nommer la table.
 Pour voir le résultat, nous allons saisir des données dans la table
« APPRENANTS », dans la fenêtre où se trouve la liste des tables, cliquer
sur « Ouvrir », s’affiche alors un tableau qui ressemble à ceci :

 Il y a une ligne par enregistrement, et une colonne par champ, se

positionner sur le champ désiré en cliquant dessus et saisir directement les
données.
 Nous allons ainsi créer plusieurs apprenants :

 Fermer la table et quitter Access puis lancer Visual Basic pour créer un
masque de saisie sur le formulaire correspondant à la structure (matricule,
nom, sexe, téléphone) de la table créée en Access.

c) Connexion de VB .Net avec ACCESS en utilisant Binding Source

- Insérer le binding source dans le formulaire

- Data source (fenêtre de propriété)
- Ajouter une nouvelle source de données
- Base de données
- Suivant
- Dataset
- Suivant
- Nouvelle connexion
- Choisir la source de données : Fichier de base de données Microsoft
Access
- continuer
- Parcourir (chercher l’emplacement de la BDD)
- Ouvrir
- Tester la connexion
- Ok
- Ok
- Suivant
- Suivant
- Choisir la table
- Terminer
- Data member (fenêtre de propriété)
- Choisir la table
Exemple d’un formulaire

Code source pour le bouton Enregistrer et supprimer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Me.Validate()
Me.BindingSource1.EndEdit()
Me.EtudTableAdapter1.Update(Me.Essaie1DataSet.etud)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Me.Validate()
Me.BindingSource1.RemoveCurrent()
Me.EtudTableAdapter1.Update(Me.Essaie1DataSet.etud)
End Sub
2. AVEC SGBD SQL SERVER SERVER 2008 R2

a) Lancement de SL SERVER 2008 R2

 Sur le bureau de Windows, cliquer sur l’onglet Démarrer,

 Aller sur Tous les programmes,

 Cliquer sur Microsoft SQL SERVER 2008 R2

 Cliquer sur SQL SERVER Management Studio et s’affiche cette boîte de

dialogue :

- Cliquer sur Se connecter.

 b) Création de la Base de données
- Clic droit sur BD,
- Clic sur Nouvelle BD,

- Nommer la BD,

- Clic sur OK,

- Dans l’explorateur d’objet (Partie gauche), clic sur le nœud(+) BD pour
voir la BD créée.
 c) Création des TABLES
- Dans BD, clic sur le nœud (+) de la BD créer (ex. BD_ETUDIANT),
- Clic droit sur Table,
- Clic sur nouvelle Table,

- Saisir les titres des champs de la Table créée,

- Déterminer les types des données et la clé primaire,

- Enregistrer la table.

NB : FAIRE LA MEME CHOSE POUR LES AUTRES TABLES.

 SAISIE DES ENREGISTREMENTS

- Clic sur le nœud (+) de la table créée se trouvant dans votre BD,

- Clic sur modifier les 200 lignes du Haut,

- Saisir les enregistrements de votre table,

 AFFICHAGE DES ENREGISTREMENTS SAISIES

- Clic droit sur la table à visualiser les enregistrements,

- Clic sur sélectionner les 1000 lignes du Haut,

- Voici les enregistrements saisies qui sont affichés sur la partie basse de
l’écran :
d) Connexion de VB.NET avec SQL SERVER

- Menu données
- Ajouter une nouvelle source de données
- Base de données
- Suivant
- Dataset
- Suivant
- Nouvelle connexion
- Choisir la source de données : Fichier de base de données Microsoft SQL
Server
- Parcourir (chercher l’emplacement de la BDD)
- Ouvrir
- Tester la connexion
- Ok
- Ok
- Suivant
- Suivant
- Choisir la table
- Terminer
Code source pour le bouton Enregistrer, Supprimer ,rechercher et Modifier

Imports System.Windows.Forms
Imports System.Drawing

Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim connexion As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user\Documents\vbok.accdb")
Dim COMMANDE As New OleDb.OleDbCommand
COMMANDE.Connection = connexion
COMMANDE.CommandText = "insert into AGENT values( '" +
TextBox1.Text + "', '" + TextBox2.Text + "','" + TextBox3.Text + "','" +
ComboBox1.Text + " ')"
connexion.Open()
COMMANDE.ExecuteNonQuery()
connexion.Close()
MsgBox("enregistrement avec succé")
rest()
End Sub
Sub rest()
TextBox1.Text = Nothing
TextBox2.Text = Nothing
TextBox3.Text = Nothing
ComboBox1.Text = Nothing
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim connexion As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user\Documents\vbok.accdb")
Dim COMMANDE As New OleDb.OleDbCommand
COMMANDE.Connection = connexion
COMMANDE.CommandText = "delete from AGENT where Matricule='" +
TextBox1.Text + "'"
connexion.Open()
COMMANDE.ExecuteNonQuery()
connexion.Close()
MsgBox("supprimer avec succé")
rest()
End Sub
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim connexion As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user\Documents\vbok.accdb")
Dim COMMANDE As New OleDb.OleDbCommand
COMMANDE.Connection = connexion
COMMANDE.CommandText = "select * from AGENT where Matricule='" +
TextBox4.Text + "'"
connexion.Open()
Dim lecture As OleDbDataReader = COMMANDE.ExecuteReader
While lecture.Read
TextBox1.Text = (lecture.GetValue(0).ToString)
TextBox2.Text = (lecture.GetValue(1).ToString)
TextBox3.Text = (lecture.GetValue(2).ToString)
ComboBox1.Text = (lecture.GetValue(3).ToString)
End While
lecture.Close()
connexion.Close()
MsgBox("Agent trouvé")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
Dim connexion As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user\Documents\vbok.accdb")
Dim COMMANDE As New OleDb.OleDbCommand
COMMANDE.Connection = connexion
COMMANDE.CommandText = "update AGENT set Matricule='" +
TextBox1.Text + "', Nom='" + TextBox2.Text + "', Prenom='" + TextBox3.Text
+ "',Sexe='" + ComboBox1.Text + " ' where Matricule='" + TextBox4.Text + "'"
connexion.Open()
COMMANDE.ExecuteNonQuery()
connexion.Close()
MsgBox("Modification reussi")
rest()
End Sub
CHAPITRE IV IMPRESSION DES RAPPORTS
CHAPITRE V ETUDE DE CAS

EXERCICE 1

Travaux Pratiques
Série A : Partie console (en VB.NET)

1. Ecrire une boucle qui affiche les nombres allant d’un nombre demandé à
l’utilisateur et descendant de ce nombre jusqu'à 1 mais n’affichant pas le
nombre 4 (si l’utilisateur tape 8 cela affichera : 8, 7,6, 5, 3, 2,1)
2. Afficher le plus grand nombre possible dont le carré est inférieur à
1000.En d’autres termes, écrire une boucle qui affiche les nombre
croissant 1,2,3,4…. Tant que le nombre au carré est inférieur à 1000.
3. Faire une boucle, tournant de 1 à 100 et additionnant à une variable
« somme » à chaque tour de la variable
4. Ecrire un programme permettant de réaliser la délibération des étudiants
de G3 Info , en demandant son nom, post nom, sexe, promotion ensuite on
introduira les cotes des différents cours sur 20 et le système va calculer le
pourcentage et affiche la mention obtenue par l’étudiant.
5. Ecrire un programme permettant de réaliser la multiplication de 2
matrices.
Nota : la multiplication de 2 matrices se fait en multipliant les
composantes de deux matrices lignes par colonnes avec :
K=M
Cij= (aik*bkj)
K=1

6. sachant que le 1er avril 2004 était un Jeudi, écrire un programme qui
détermine le jour de la semaine correspondant au 4 mai de la même année.
On pourra représenter les jours de la semaine par des numéros allant de 0
à 6.
Série B : Partie Graphique (en VB.NET)
1. Créer une interface utilisateur ayant 5 champs au choix dont la couleur de
texte sera Rouge, couleur de fond Blue, taille 15, police Century Gothic,
couleur du Form Jaune, titre du form « Exercice de VB N° 1 ».

2. Créer une BDD de 2 tables portant votre nom. La première table concernée
par l’exercice aura 7 champs se rapportant à la PAIE des agents dans une
entreprise. Nommez la table puis déterminez la clé primaire et la structure de
cette dernière en y saisissant 10 enregistrements. Créer un masque de saisie
en VB correspondant à la table puis faites la liaison avec la BDD.

3. Ecrire un programme pour faire le billetage de monnaie c’est-à-dire : en tapant

par exemple 2.535, l’ordinateur devra donner 25 billets de 100, 3 billets de 10
et 1 billet de 5.

4. Concevez un programme permettant de trouver les codes ASCII de chaque

caractère tapé au clavier.

5. Ecrire une procédure permettant d’afficher « Masculin » sur le champ sexe

après avoir tapé M ou m et d’y afficher aussi « Féminin » lorsqu’on aura saisi
F ou f.

6. Ecrire un programme de recherche à partir d’une lettre (permettant de

n’afficher que les étudiants dont les noms commencent par la lettre tapée).

7. Ecrire un programme de recherche à partir d’une date (permettant de

n’afficher que les informations par rapport à la date saisie).

8. Développer une application de gestion des étudiants, cas de l’UNIC/BOMA.