[1]

Faculté: Science et Technologie

Département: Informatique de Gestion

SUPPORT DE COURS EN

INFORMATIQUE

LANGAGE DE
PROGRAMMATION 1

Notes de Cours
Destiné aux étudiants de Licence 1 Gestion

Par l’Ass. Alphonse MULUBA

Année Universitaire 2022-2023

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [1]

Chap 0. INTRODUCTION
0.1. DEFINITION
Un langage est un ensemble de caractère, des
symboles et des règles ressembler dans le but de
communiquer, se transmettre un message.
Les langages sont repartis en deux groupes distincts :
- Langage naturel et
- Langage artificiel
A) LANGAGE NATUREL : est celui des hommes et des animaux
B) LANGAGE ARTIFICIEL : est celui que nous appelons langage
de l’informatique.

0.2. LANGAGE ARTIFICIEL

0.2.1. Les différents langages artificiels
L’ancêtre de tous les langages artificiels est le
FORTRAN qui signifie Formulateur et Translateur.
Environs les années 1950-1957 c’est un programmeur
J.Backus, qui est l’ancêtre de langage scientifique.
 Quelques langages structuraux
- Q-Basic : est un langage appartenant dans le
langage structural développé pour les novices
informaticiens.
- ADA
- PL
- COBIAL
- PASCAL
- C
Tous ces langages sont de langages appelés le
montage.

 Quelques vocabulaires informatiques

V.B : Visual Basic

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [2]

V.B.Net : Visual Basic internet

Bog : Erreur
Modem : Modulateur démoduler
Integer : nombre entier
String : les mots
Go to : mot réservé
Modulo : reste de la division représenté par %.
Input : entrée
Process : traitement
Out : sortie
0.2.2. Catégorie de langage de programmation
Il existe 3 sortes de langage de programmation qui sont :
- Langage de machine
- Langage du bas niveau
- Langage du haut niveau

0.2.2.1. Langage de machine

Ce langage est égal au langage binaire. Le langage
binaire ce sont de 1 ou 0.
La règle générale de conversion est 8 4 2 1

Décimal(1 Binaire(2 Hexadécimal

0) ) (16)
0 0000 0
1 0001 1
2 0010 2
3 0011 3

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [3]

4 0100 4
5 0101 5
6 0110 6
7 0111 7
8 1000 8
9 1001 9
10 1010 A
11 1011 B
12 1100 C
13 1101 D
14 1110 E
15 1111 F

Exemple 1 : pour une autre méthode

71 :2
70 35 :2
1 34 17 :2 71= 1000111
1 16 8 :2
1 8 4 :2
0 4 2 :2
0 2 1
0
Exemple 2 : convertir BEBE en Binaire
BEBE= 1011 1110 1011 1110
0.2.2.2. Langage du Bas Niveau

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [4]

Le langage du Bas Niveau utilise un convertisseur

appelé Assembleur qui sert à convertir le langage écrit en bas
niveau vers le langage machine.
0.2.2.3. Le langage du Haut Niveau
Le langage du haut niveau utilise l’interpréteur et le
copulateur pour un programme du haut niveau vers le langage
machine.
0.3. LE BOG DE LA PROGRAMMATION
Il existe 3 sortes de bog (erreur) dans la
programmation qui sont :
- L’erreur syntaxique
- L’erreur logique
- L’erreur sémantique
0.3.1. L’erreur syntaxique
C’est la violation de règle grammaticale de la
programmation d’un langage.
Une inscription avec erreur syntaxique, le programme
ne tournera pas jusqu’à ce que vous corrigiez votre erreur (bog)
et le programme va tourner.
En 1953 le premier programme se fait dans le cahier.
0.3.2. L’erreur logique
Avec l’erreur logique, le programme peut tourner,
mais avec des graves conséquences.
Ex : les erreurs commise lors de paiement dans les banques.
0.3.3. L’erreur sémantique
Avec l’erreur sémantique, le programme doit passer
normalement et après plus de 6 mois, le programme ne
tournera pas.
0.4. L’ALGORITHME
0.4.1. Introduction

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [5]

L’algorithme est né en Arabie Saoudite, elle n’est pas

un langage de programmation, mais elle est une architecture
qui nous amène à bien programmer.
Si l’algorithme vous sert à la place voulue, vous aurez
une bonne programmation.
0.4.2. Symbole d’algorithmique
L’algorithme est défini par un ordinogramme. Il est
construit ou créer par un algomachine.

Début/Fin

Entrée/Sortie

Traitement

Décision/Choix

0.4.3. Structure d’algorithme

Connecteur
Il existe 3 structures d’algorithme :
- Structure alternative
Branchement
- Structure de choix et
- Structure répétitive

0.4.3.1. Structure alternative

Dans cette structure, le raisonnement est séquentiel
(l’un après l’autre).
Forme :

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [6]

PREMIERE PARTIE
LANGAGE Q-BASIC
PLAN
Chapitre 1 Introduction
Chapitre 2 Variables, objets et mots cl
1. Caractères autorisés
2. Types objets
3. Mots réservés (mot clés)
4. Exercices
Chapitre 3 structures de contrôle
1. rupture de séquence
2. structure conditionnelle
a. structure IF-THEN-ELSE
b. structure SELECTE
c. structure ON… GO TO
d. Boucles (itératifs)
Chapitre 4 les tableaux et les fichiers
Chapitre 5 le projet (applications)

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [7]

Chap 1. INTRODUCTION
Le langage QBasic est un langage appartenant dans
les langages structuraux développés pour les novices
informaticiens.
QBASIC est un acronyme de Biginer’s All-purpose
Symbolic Instructions Code.
1.1. Structure
Le langage QBasic est composé d’une suite de lignes
appelées instructions contenant les règles suivantes :
 On a une instruction par ligne ; chaque instruction
commence par un numéro de la ligne (Etiquette) ;
 Deux instructions ne peuvent pas portées le même
numéro ;
 Le programme en QBasic commence par un entête (début)
et se termine par l’instruction Fin (END).
 Le commentaire est représenté par l’instruction REM ou un
Apostrophe. (‘)
NB : le compilateur et l’interpréteur ne tiennent pas compte de
commentaire ; on est toujours recommandé de les utilisés.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [8]

Chap 2. LES VARIABLES, OBJETS ET MOTS CLES

1.2. Caractères autorisés (utilisés)
Plusieurs caractères sont utilisés en Qb entre autre :
 26 lettres alphabétiques (a-z, A-Z)
 10 Chiffres du système décimal (0-9)
 Les caractères spéciaux : ( ?, . ’ ! ‘’ ‘’_^ = $ > < ≥ ≤
():+/

1.3. Les types d’objets

a. Déclaration d’’une variable en Qb
Une variable : est une instruction permettant de réserver de
l’espace mémoire pour stocker les donner dont
la valeur peut changer pendant l’exécution du
programme (qui dépend du type de ces
données).
Ex : la variable a=7
b=8
a=a+1
s=a+b
s= 16
Syntaxe : DIM : nom de la variable 1, nom de la variable 2,
nom de la variable 3...
Exemples :
1) Ecrire un programme en Qb qui demande à l’utilisateur de
saisir deux entiers a et b et le programme calcul et affiche
la somme de ses deux nombres.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [9]

Etape de la programmation
 Analyse : consiste à trouver le vrai problème posé
 Conception Question d’analyse d’un problème :
 Teste 1) Qu’est-ce qu’on m’a demandé de
faire ?
 Débogage 2) Qu’elles sont les données
nécessaires pour le réaliser
 Exécution finale. 3) Comment trouver le résultat ?
Alors pour résoudre notre exercice ; on répond
d’abord aux questions posées.
R1) Chercher la somme
R2) a et b
R3) S= a + b
1.4. Opérateurs
1.4.1. Opérateur Arithmétique
Si f= 10
+ = f+7=17
- = f-7=3
* = f*7=70
/ = f/7=1
% = f%7=3 (modulo)
1.4.2. Ordre des opérateurs
Tout problème de calcul se fait toujours sous cette
forme : (PDAMS)
1. Please ()
2. Exuse ^
3. Me *
4. Dear /
5. Anty +

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [10]

6. Sally –
Ex : 8/2+4(3/3)-6 = 4+4*1-6
4+4-6 = 2
1.5. Opérateur logique de & (AND)
L’expression 1 et 2 sont vraie ssi les deux sont vraies,
au cas contraire c’est faux.
Exp 1 Exp 2 Exp 1 & Exp
2
Faux (0) Faux (0) Faux (0)
Faux Vrai (1) Faux (0)
(0)
Vrai (1) Faux (0) Faux (0)
Vrai (1) Vrai (1) Vrai (1)

1.6. Opérateur logique Exclusive OR (^)

Vous avez le Vrai si les deux expressions se
contredisent, dans le cas contraire Faux.
Exp 1 Exp 2 Exp 1 ^ Exp
2
Faux (0) Faux (0) Faux (0)
Faux Vrai (1) Vrai (1)
(0)
Vrai (1) Faux (0) Vrai (1)
Vrai (1) Vrai (1) Faux (0)

1.7. Opérateur logique de // or ou

Il y a Faux si les deux expressions sont Fausses, aux
cas contraire elle est Vraie.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [11]

Exp 1 Exp 2 Exp 1//Exp

2
Faux (0) Faux (0) Faux (0)
Faux (0) Vrai (1) Faux (1)
Vrai (1) Faux (0) Faux (1)
Vrai (1) Vrai (1) Vrai (1)

1.8. Opérateur logique de négation (!)

Ici c’est juste le contraire ! Vrai est Faux et Faux est
Vrai.
Exp 1 Exp 2
Faux (0) Vrai (1)
Vrai (1) Faux
(0)

1.9. Notation Algorithme en Qb

Algorithme Basic
Lire INPUT
Afficher PRINT
Imprimer LET
Commentaire REM ou ‘
Déclarer DIM
Permuter SWAP
Si … Alors IF … THEN
Tant que … faire WHILE … LOOP
Pour … a … faire FOR … TO … NEXT
Faire … Tant que DO … WHILE

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [12]

1.10. Types d’objets

1. Caractères : nombre de notation (Ex : ‘’M’’, ‘’B’’, ‘’O’’, ‘’Y’’,
‘’O’’)
2. String : c’est le nom (Ex : MBOYO)
3. Double : nombre décimal (valeur approximative) (ex :
Pi=3,14)
4. Float : nombre décimal (valeur totale) (ex : Pi=3,147…)
5. Alphanumérique : MBOYO1, MBOYO2 (caractères
numérique et alphanumériques)
6. Numérique : nombre entier.
Ex : DIM Age AS Integer
DIM PT AS Float
DIM Nom AS String
DIM PT AS Double
DIM Sexe AS Caracter
1.11. Les instructions
Vocabulaires en QBasic
 CLS : effacer l’écran (clear screen)
 INPUT : Entrer les données
 PRINT : Afficher
 PRINT : Espace ou ligne vide
 LOCATE : déplacer le curseur à une position spécifiée à
l’écran.
 LET : Assignation des valeurs
 TAB : Construire un Tableau
 SLEEP : Patienter
 COLOR : Couleur varie de 0-15.
 SCREEN : Ecran
 INTEGER : Nombre entier
 DATA
 READ
 RESTORE

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [13]

PROGRAMMES
1. Ecrire un programme qui vous souhaite le/la bienvenu(e)
en Qb. Nb : n’oublie pas l’algorithme.
Début
Cls
Bienvenu en Qbasic
Print ‘’ Bienvenu en QBasic’’
Bienvenu en Qbasic
End
Traitement

Bienvenu en Qbasic

2. Ecrire un programme qui affiche le CV du Prof MBOYO

Fin
CLS
Print ‘’ Voici le CV du Prof MBOYO’’
Print
Print ‘’ Prof MBOYO est né à BIKORO, le 24/06/1970’’
Print ‘’ Fils de NDOMBO et de BENTEKE’’
Print
Print ‘’ Il a 3 maitrises : computer science, Business, Santé
publique’’
Print
Print ‘’ Il est Docteur en Info et Education aux USA’’
Print
Print ‘’ Il est aussi doctorant en leadership et changement’’
End
Donc ici les print sans commentaires sont des espaces ou lignes
vides.
Instructions
 SCREEN 9 : c’est un mode graphique avec un écran de 80
colonnes et 25 lignes.
 COLOR 5, 6 : 5= couleur du texte

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [14]

6= couleur de fond
 LOCATE 12, 40 : 12=Pour les lignes
40= pour les colonnes.
3. Avec les instructions Color et Locate, Ecrire un programme
qui affiche Bonjour Monsieur le Professeur MBOYO
NDOMBO.
CLS
Color 3
Print ‘’Bonjour’’
Locate 6, 8
Print ‘’Monsieur le Professeur’’
Color 9
Print ‘’MBOYO NDOMBO’’
END
4. Avec un TAB et SPC (espace)
Marchandi Prix Quantit Total
se é
Sucre 6.000 2 12.00
0
Pain 200 8 1600
Savon 300 10 3.000
Cls

Color 8 ,12

Locate 12,40

Print TAB(5) ; ‘’ marchandise’’ ; spc (10) ; ‘’prix’’; spc (10) ; ‘’Qte’’; spc
(10) ;’’Total’’;

Print TAB(5) ‘’______ ‘’ ; spc(10) ;’’______’’ spc(10) ;’’______’’ ;

spc(10)’’______ ‘’ ;

Print TAB(5) ;’’ sucre’’ ; spc(10) ‘’ 6000 ‘’ ; spc(10) ‘’ 2 ‘’ ;

spc(10) ‘’ 1200 ‘’ ;

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [15]

Print TAB(5) ; ‘’ pain ‘’ ; spc(10) ; ‘’ 200 ‘’ ; spc(10) ; ‘’ 8 ‘’ ;

spc(10) ; ‘’ 1600 ‘’ ;

Print TAB(5) ; ‘’ savon ‘’ ; spc(10) ; ‘’ 300 ‘’ ; spc(10) ; ‘’ 10 ‘’ ;

spc(10) ; ‘’ 300 ‘’ ;

END

Exercice N°1 : Les opérations arithmétiques

a) 8-4^3/4*5/8+5/8+13
8-64/4 *5/8+13
8-16* 5/8+13
8-80/8+13
8-10+13
-2+13=11

b) (6-2)* ¾-3+7/2*3
4*3/4-3+7/2*3
12/4-3+7/2*3
3-3+3,5*3
3-3+10,5=10,5
Les principaux mots clés
1. Déclaration des variables
Syntaxe : DIM Nom As Type
 Type des données :
- integer : les nombres entiers ex : Age, Année
- string : chaine de caractères ex : Nom, Téléphone
- single : Réel simple précision ex : pourcentage, taille,
p.u
- Double : Réel double précision ex : Pi ()
- char : un seul caractère ex : sexe
- Boolen : True, False (vrai) où (faux).
Ex : déclaration : Dim Age As Integer
Dim Age, année As integer au cas où il y a deux variables de
même type.
Dim nom As string.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [16]

 Caractéristique d’une variable

 Une variable est repris ou déclarer une et une seul fois.

 On ne peut pas trouver deux variables de types différents
sur une même ligne.
 Une variable ne peut pas commencer par un nombre,
plutôt finir par un nombre. Ex : 2 personnes Non ! plutôt
nombre1, nbe2….
 Une variable ne peut pas contenir des espaces. Ex : Année
de naissance Non ! plutôt année_de_naissance.
 Le nom de la variable dépend de la conception
 Une variable ne peut pas contenir des accents. Ex : Année
Non ! Annee.
 Une variable ne peut pas contenir les caractères spéciaux.
Ex : @, “, %, $.....
 Une variable ne peut pas contenir les opérations
arithmétiques. Ex : Deux –personne Non ! plutôt mettre
endescall (trait bas)

2. Affichage
C’est une instruction permettant de visualiser les
informations placées en mémoire.
¤ Syntaxe : PRINT age
Print « Quel est votre nom ?»

3. Lecture (INPUT)
Cette opération permet de fournir les informations
(donnée) au programme pendant son exécution.
¤ Syntaxe : INPUT « message »
; marque la concaténation (liaison du message avec son type)
nom variable
Ex : INPUT ‘’ Quel est votre nom ! ‘’ ; nom

EXERCICES RESOLUS

a) Ecrire un programme en Qbasic qui demande à l’utilisateur

de saisir deux nombres entiers et le programme calcule la
somme de ces deux nombres et affiche le résultat.

Résolution
- Demande ? somme
- Les données : Nbre 1, Nb2

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [17]

- Formule : somme = Nbr1+Nbr2

Cls
REM calcul de la somme
DIM Nbr1, Nbr2, somme AS Integer
INPUT ‘’ Entrer le nombre1 ‘’ Nbr1
INPUT ‘’ Entrer le nombre2 ‘’ ; Nbre2
somme = Nbre1+Nbre2
PRINT ‘’la somme est :’’ ; somme
END

b) Ecrire un programme en QBASIC qui demande à

l’utilisateur de saisir un nombre et le programme calcul et
affiche le carré de ce nombre.

c) Ecrire un programme qui calcul et affiche l’âge de la

personne

Résolution

b) Demande : le carré
Les données : Nombre
Formule : Nombre* Nombre ou Nombre^2

Cls
REM calcul du carré
DIM Nombre, carre As Integer
INPUT ‘’ Tapez le Nombre ‘’ ; Nombre
carre = Nombre ^2
PRINT ‘’ le carré de ‘’ ; Nombre ; ‘’ est ‘’ ; carre
END

c) Demande : Age
Données : année actuelle, année de naissance, Nom
Formule : Age=AnnAct-Anns

Cls
DIM AnnAct, AnNs, Age As Integer
DIM nom As string
INPUT ‘’ Tapez l’année actuelle ‘’ ; AnnAct
INPUT ‘’ Tapez l’année de naissance ‘’ ; AnNs
INPUT ‘’ Tapez le nom ‘’ ; nom
Age=AnnAct-AnAs

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [18]

PRINT nom ; ‘’ vous êtes né en ‘’ ; AnNs ; ‘’ alors vous

avez ‘’ ; Age ; ‘’ Ans ‘’
END

d) Ecrire un programme de facturation qui accomplit les

actions suivantes :
 Lit le nom du client, la date de l’édition de la facture, le
libellé, les quantités et le prix unitaire de trois produits ;
 Calcul le total partiel de chaque produit, le total général
et le net à payer, sachant qu’une remise de 5% est
accordée sur le montant ;
 Le programme affiche le résultat à l’écran sous forme
d’un tableau avec les rubriques : Qte, désignation, PU
et PT ;
 Insère une indication sur la remise et le PT général en
dessous du tableau et le nom de l’entreprise et son
adresse, la date et le nom du client à l’entête.

Chap 3 LES SRTUCTURES DE CONTROLE

3.1. La rupture de séquence

Dans un programme, le traitement se fait ligne par

ligne, mais avec la rupture de séquence, elle nous aide à
exécuter un programme sur la ligne désignée.

Syntaxe : GoTo ligne

Exemple : Ecrire un programme en Qb qui calcul la somme et

la différence de deux nombres A et B, et le
programme affiche seulement la somme.
Cls
Dim s, d, A, B As integer
Input ‘’Entrez le premier nombre’’ ; A
Input ‘’Entrez le deuxième nombre’’ ; B
d=A-B
s=A+B
GoTo 9
Print ‘’La différence est :’’ ; d
9 Print ‘’La somme est :’’ ; s
End

3.2. Structures conditionnelles

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [19]

a) Structure IF…THEN…ELSE

Syntaxe : IF (condition) THEN

« Instruction »
Else
« Instruction »
End IF
End

Exemples
1) Ecrire un programme qui demande à la personne d’entrer
son âge, si l’âge est ≥18 alors le programme affiche ‘’vous
êtes majeur’’ si non ‘’vous êtes mineur’’.
Cls
REM Programme Age
Dim Age As Integer
Dim Nom As String
Input ‘’Entrez l’âge de la personne’’ ; Age
Input ‘’Quel est son nom ?’’ ; Nom
If Age ¿=18 Then
Print Nom ;’’ est majeur’’
Else
Print Nom ;’’ est mineur’’
End if
End

2) Ecrire un programme demandant à l’utilisateur d’entrer le

cote d’une interrogation sur 20 ; déclarant la réussite et
l’échec.
Cls
REM Résultat de côte
Dim Cote As Single
Input ‘’Saisir la cote’’ ; Cote
If Cote ¿=10 Then
Print Cote ;’’/20 est échec’’
Else
Print Cote ;’’/20 est un échec’’
End if
End

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [20]

3) Ecrire un programme déclarant si le nombre est positif ou

négatif

Cls
REM Programme de Z
Dim Nombre As Double
Input ‘’Saisir le nombre’’ ; Nombre
If Nombre ¿=0 Then
Print Nombre ;’’ est positif’’
Else
Print Nombre ;’’ est négatif’’
End if
End

4) Ecrire un programme déterminant si un nombre est pair ou

impair.

Cls
REM Programme Nombre pair et impair
Dim A As Integer
Input ‘’Entrez le nombre’’ ; A
If A modulo 2=0 Then
Print A ’’ est un nombre pair’’
Else
Print A ’’ est un nombre impair’’
End if
End

b) Structure conditionnelle IF… THEN… ELSE IF… ELSE

Syntaxe : If (condition1) then

« instruction1 »
Else if (condition2) then
« instruction2)
Else if (condition n) then
« instruction n)
Else
« Instruction »
End if
End
Ex : Ecrire un programme de libération qui demande au
programmeur de saisir le nom de l’étudiant et les cotes de

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [21]

3 cours : cours 1, cours 2, cours 3, le programme calcul les

points obtenu par l’étudiant et ensuite le pourcentage
obtenu par l’étudiant.
Si %¿100¿=90 on affiche plus grande distinction, si % ¿=80 on
affiche Grande Distinction, si %¿=70 on affiche Distinction, si %¿
=50 on affiche Satisfaction, si %¿=40 on affiche ajourné, si %¿
=0 on affiche NAF. Si non Erreur.

Cls
Rem : Programme de délibération
Dim Nom As String
Dim PtsAlgo, PtsLang, PtsMan, PtsObt, Pourc As Single
Const Tot As Integer
Tot=60
Input ‘’Tapez le nom de l’étudiant(e) :’’ ; Nom
Input ‘’Donnez la cote du cours d’Algorithmique’’ ; PtsAlgo
Input ‘’Donnez la cote du cours de langage’’ ; PtsLang
Input ‘’Donnez la cote du cours de Management’’ ; PtsMan
PtsObt = PtsAlgo + PtsLang + PtsMan
Pourc= PtsObt * 100/Tot
If Pourc ¿100 AND Pourc ¿=90 then
Print Nom ;’’ a réussi avec une PGD de :’’ ; Pouc ;’’%’’ ; ‘’et il a
obtenu’’ ; PtsObt ;’’/’’ ; Tot
Else if Pourc ¿ 90 AND Pourc ¿=80 Then
Print Nom ; ‘’ a réussi avec GD de :’’ ; Pourc ;’’%’’ ; ‘’et il a
obtenu’’ ; PtsObt ;’’/’’ ; Tot
Else if Pourc ¿ 80 AND Pourc ¿=70 Then
Print Nom ; ‘’ a réussi avec D de :’’ ; Pourc ;’’%’’ ; ‘’et il a
obtenu’’ ; PtsObt ;’’/’’ ; Tot
Else if Pourc ¿ 70 AND Pourc ¿=50 Then
Print Nom ; ‘’ a réussi avec S de :’’ ; Pourc ;’’%’’ ; ‘’et il a
obtenu’’ ; PtsObt ;’’/’’ ; Tot
Else if Pourc ¿ 50 AND Pourc ¿=0 Then
Print Nom ; ‘’ a échoué avec :’’ ; Pourc ;’’%’’ ; ‘’et il a obtenu’’ ;
PtsObt ;’’/’’ ; Tot
Else
Print Nom ; ‘’ est NAF’’
End if
End
3.3. LE SELECT CASE

Il est utilisé lorsqu’il y a plusieurs conditions.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [22]

Syntaxe : Select case NomVar

Case is : condition 1
« instruction 1 »
Case is : condition 2
« instruction 2 »
Case is : condition non affiche
« instruction n »
End selects
End

EXERCICES RESOLUS

1) Ecrire u tape programme Qbasic qui demande à

l’utilisateur de taper les nombres compris entre 1et 7,
alors si l’utilisateur tape 1on affiche Lundi, s’il tape 2 on
affiche Mardi… s’il tape 7 on affiche Dimanche.
Cls
Dim jour AS Integer
INPUT ‘’entrez le nombre compris entre 1 à 7’’ ; jour
Select case jour
Case is = 1
PRINT ‘’Lundi’’
Case is = 2
PRINT ‘’Mardi’’
Case is = 3
PRINT ‘’ Mercredi’’
Case is = 4
PRINT ‘’Jeudi’
Case is = 5
PRINT ‘’Vendredi’’
Case is = 6
PRINT ‘’Samedi’’
Case is = 7
PRINT ‘’Dimanche’’
Case Else
Print ‘’Erreur’’
End Select END

*1222#
Ex 2 : Programme M-pesa : Veuillez sélectionner

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [23]

1. Comte M-pesa USD

2. Compte M-pesa FC (CDF)
Cls
DIM M-pesa As String
DIM Choix As integer
INPUT ‘’ ‘’ M pesa
If M pesa = = ‘’ *1222# ‘’ then
PRINT ‘’ Veuillez sélectionner ’’
PRINT ‘’ 1. Compte M-pesa USD ‘’
PRINT ‘’ 2. Compte M-pesa FC ‘’
INPUT ‘’ ‘’ ; Choix
Select case choix

Case is = 1

PRINT ‘’ Compte M-pesa USD ‘’

PRINT ‘’ 1. Envoi Argent ‘’
PRINT ‘’ 2. Achat crédit ou forfait ‘’
PRINT ‘’ 3. Retrait ‘’

Case is = 2

PRINT ‘’ Compte M-pesa FC

PRINT ‘’ 1. Envoi Argent ‘’
PRINT ‘’ 2. Achat crédit ou forfait ‘’
PRINT ‘’ 3. Retrait ‘’
.
.
.
END Select
END IF
END

Ex 3) Distinction
% ≥ 50 = Satisfaction
% < 50 = Echec

3. Ecrire un programme en QBasic en utilisant le select case

Pour la délibération des étudiants. Le programme demande
à l’utilisateur d’entrer le % obtenu par l’étudiant sachant que
si le
% ≥ 100 c’est une erreur
% ≥ 90 = PGD

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [24]

% ≥ 80 = G. Distinction
% ≥ 70 =Distinction

Cls
DIM pourc As stingle
3. INPUT ‘’ Entrer les pourcentages : ‘’ ; Pourc
Select case pourc
Case is > 100
PRINT ‘’ Erreur ‘’

3.4. LES BOUCLES (Structures répétitives)

3.1. Boucle FOR (Pour)

Syntaxe :
FOR Variable=Val_initiale to Val_finale
Instruction à répéter
Next

Exercices
2) Ecrire un programme en Qb qui affiche les nombres
impairs compris entre 1 et 10

Cls
Dim i, n, as Integer
Input ‘’Voulez-vous afficher jusqu’à combien ?’’ ; n
For i=1 to 10 step 2
Print i
Next i
End

3) Ecrire un programme qui va afficher la table de la

multiplication.

Cls
Dim i, n, Prod, as Integer
Input ‘’Vous voulez la table de quel nombre ?’’ ; n
For i=1 to 12
Prod = n*i
Print n ; ‘’x’’ ; i ; ‘’=’’ ; Prod
Next
End

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [25]

4) Ecrire un programme en Qb qui demande à l’User de taper

le nombre des produits à acheter et le prix unitaire et la
quantité de chaque produit. Le programme calcul et
affiche le prix total à acheter.

Cls
Dim NomProd as String
Dim NbreProd, Qte as Integer
Dim PU, PTP as Single
Input ‘’Entrez le nombre des produits que vous voulez
acheter’’ ; NbreProd
PTP=0
For i=1 to NbreProd
Print ‘’Entrez le nom du produit :’’ ; i
Input NomProd
Print ‘’Entrez le prix unitaire du produit’’ ; i
Input PU
Print ‘’Entrez la quantité des produits’’ ; i
Input Qte
PTP=PTP+(PU*Qte)
Next i
Print ‘’Le prix total est :’’ ; PTP
End

4. BOUCLE DO WHILE (Tant que)

C’est la boucle qui répète un bloc d’instructions tant

qu’une condition demeure vraie.
Elle est reprise sous deux formes :
 Syntaxe 1: DO WHILE « condition »
Bloc d’instructions
LOOP

 Syntaxe 2 : DO
Bloc d’instructions
LOOP WHILE condition

EXERCICES

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [26]

1) Ecrire un programme qui permet d’afficher les multiples du

nombre 5 de 5 jusqu’à 50.
Cls Cls
Dim n as Integer Dim n as Integer
n=0 n=0
Input ‘’Entrez un nombre’’ ; n Input ‘’Entrez un nombre’’ ; n
Do while n¿50 Do
Print n Print n
n=n+5 n=n+5
Loop Loop while n¿50
End End

1. Ecrire un programme qui calcul le Factoriel d’un nombre

sachant que la factorielle de 0 et 1 vaut 1.

Cls Cls
Dim n, i, f as Integer Dim n, i, f as Integer
i=0 i=0
f=1 f=1
Input ‘’Entrez un nombre’’ ; n Input ‘’Entrez un nombre’’ ; n
Do while i¿n Do
i=i+1 i=i+1
f=f*i f=f*i
Loop Print ‘’Le factoriel de ‘’ ; n ;
Print ‘’Le factoriel de ‘’ ; n ; ‘’est’’ ; f
‘’est’’ ; f Loop while i¿n
End End

2) BOUCLE DO UNTIL (Fait jusqu’à ce que)

Il répète un bloc d’instructions jusqu’à ce qu’une

condition soit vraie. Nous avons affaire à deux syntaxes :

Syntaxe 1 : DO UNTIL « condition »

Bloc d’instructions
Loop

Syntaxe 2 : DO
Bloc d’instructions
LOOP UNTIL condition

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [27]

Ex : Ecrire un programme qui affiche tous les nombres du

système décimal jusqu’à ce que le nombre final soit égal à
10.

Cls Cls
Dim N as integer Dim N as integer
N=0 N=0
Input ‘’Entrer le nombre’’ ; N Input ‘’Entrer le nombre’’ ; N
Do until N=10 Do
Print N Print N
End Loop until N=10
End

CHAP IV. LES TABLEAUX ET LES FICHIERS

1. Traitement courant sur les tableaux

a) Introduction
Un tableau est une structure des données qui
permettent de conserver dans une seule entité, plusieurs
valeurs de même types. Un tableau nous évite de multiplier le
nombre de variables, lorsque les données sont nombreuses et
de même type.
Il existe deux types de tableau :
 Le tableau linéaire ou vecteur
 Le tableau binaire

 Le tableau linéaire ou vecteur (à une dimension) :

est une liste de nombres finis d’éléments de même type,
dont chacun est repéré par un indice unique. On l’appelle
vecteur en mathématique.

Ex : Mois

Jan Fév Mar Avri Ma Juin Juillet Aoû Sep Oc No Dé

v r s l i t t t v c

 Le tableau Binaire (à deux dimensions): est un

ensemble d’éléments de même type dont chacun est

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [28]

repéré par deux indices : une ligne et une colonne. On

l’appelle matrice en mathématique.

Mois Janv Févr Mars Avril … Déc

Maïs 16.234 17.345 23.486 … … 25.498
Manioc 12.365 14.136 11.235 … … 14.956
… … … … … … …
… … … … … … …
Banane 9.046 8.459 6.852 … … 12.259

b) Déclaration d’un tableau

DIM [SHARED] Nom (indice) As Type

Ex : Dim [SHARED] Mois (12) As String
‘Initialisation d’un tableau’
Mois (0)=’’Janvier’’
Mois (1)=’’Février’’
Mois (2)=’’Mars’’
.
.
.
Print Mois (0)
.
.
.
End

N.B : pour les indices, le premier élément commence par 0. Le

SHARED est facultatif.

Ex : Ecrire un programme en utilisant le tableau qui demande à

l’user d’entrer les cotes de Math, Langage, Logique,
Management, Anglais, EOE ; le programme calcul la somme
de point obtenu par un étudiant et affiche le % obtenu.

Cls
Dim Etudiant As String
Dim Point (6), Pobt, Pourc As Single
Const Max=120

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [29]

Input ‘’Entrez le nom de l’étudiant’’ ; Etudiant

Input ‘’Entrez les cotes de Math’’ ; Point [0]
Input ‘’Entrez les cotes de Langage’’ ; Point [1]
Input ‘’Entrez les cotes de Logique’’ ; Point [2]
Input ‘’Entrez les cotes de Management’’ ; Point [3]
Input ‘’Entrez les cotes d’Anglais’’ ; Point [4]
Input ‘’Entrez les cotes d’EOE’’ ; Point [5]
Pobt=Point [0] + Point [1] + Point [2] + Point [3] + Point [4] +
Point [5]
Pourc=Point * 100/Max
Print ‘’Monsieur ou Madame’’ ; Etudiant ; ‘’a obtenu’’ ; Pobt ;
‘’sur’’ ; Max
Print ‘’Donc vous avez’’ ; Pourc ; ‘’%’’
End

2)
4 5 0 2
6 5 4 6
8 9 10 9

Dim Point (3,4) As Integer

Point [0,0]=4
Point [0,1]=5
Point [0,2]=0
Point [0,3]=2
Point [1,0]=6
Point [1,1]=5
Point [1,2]=4
Point [1,3]=6
Point [2,0]=8
Point [2,1]=9
Point [2,2]=10
Point [2,3]=9
Print Point [2,3]=9
Print Point [0,0], Point [0,1], Point [0,2] … Point [2,3]
End

3) Une école veut à ce qu’on fasse un programme qui va

calculer les cotes de la 1 ère, 2e période, l’examen et le total
pour chaque élève et le pourcentage.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [30]

1ère 2e P Ex Tot Pour

P c
KABEYA 5 6 11 22 55
EBENGO 4 8 10 22 55
LOPAKA 7 6 9 22 55

Résolution

4.2. LE TRAITEMENT DES CHAINES DE CARACTERE

a) Spécification de la longueur d’une chaine de

caractère

Syntaxe : Dim texte As String*n si n=35

Dim texte As String*35

b) La concaténation des chaines de caractères

La concaténation c’est l’opération de la fusion de

deux chaines de caractères en le mettant bout à bout. Son
symbole est plus ‘’+’.
Pour déclarer les variables, on peut aussi utiliser ces
caractères spéciaux :
!=Double, single
%=Integer
$=String

Exemples :
1. Ecrire un programme qui calcul la somme de deux
nombres.
Cls
Input ‘’Entrez le 1er nombre :’’ ; n1 !
Input ‘’Entrez le deuxième nombre :’’ ; n2 !
S !=n1 ! + n2 !
Print ‘’La somme est : ‘’ ; S !
End

2. Ecrire un programme qui va faire la concaténation de 2

chaines de caractère.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [31]

Cls
Input ‘’Tapez la 1ère chaine ‘’ ; C1 $
Input ‘’Tapez la 2e chaine’’ ; C2 $
C3$=C1$ + ‘’ ‘’ + C2$
Print C3$
End

c) L’affichage de la taille d’une chaine de caractère

Pour afficher la taille d’une chaine de caractère, on

utilise Len (Chaine$)

Exemple : Ecrire un programme qui va nous permettre

d’afficher la taille et la phrase.
Cls
Phrase$=’’Mon nom c’est Alphonse MULUBA’’
Longueur %=Len (Phrase)
Print Phrase $
Print ‘’Votre phrase a : ‘’ ; Longueur % ; caractère
End

d) La comparaison des chaines de caractères

Syntaxe : Str Comp (chaine1$, Chaine2$)

Exemple :
Cls
Phrase1$=’’Mon Dieu est grand’’
Phrase2$=’’Mon Dieu est grand’’
Phrase3$=’’Mon Dieu est grand’’
Phrase4$=’’Mon Dieu est puissant’’
Print strcomp (Phrase1$, phrase2$) →0
Print strcomp (Phrase1$, phrase3$) →0
Print strcomp (Phrase1$, phrase4$) →1
Print strcomp (Phrase3$, phrase4$) →1
End

e) La recherche des chaines de caractères

Syntaxe : Instr (Phrase x, Phrase y)

Exemple :
Cls

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [32]

Phrase1$=’’Let God bless you’’

Phrase2$=’’God’’
Phrase3$=’’Bless’’
Phrase4$=’’Jesus’’
Print instr (Phrase1$, Phrase2$) →0
Print instr (Phrase1$, Phrase3$) →0
Print instr (Phrase1$, Phrase4$)→0
Print instr (Phrase3$, Phrase4$)→0
End

f) Mettre une chaine de caractère en majuscule

UCASE (chaine$) avec U=Umper

g) Mettre une chaine en majuscule

LCASE (chaine$) avec L=Lawer

3. LES FICHIERS EN QBASIC

a) Définition
Un fichier est une suite d’enregistrement ou
d’informations linéaires de même type, enregistrées sur un
support de mémoire et identifier ou définit par un identificateur.

b) Type de fichiers
Il existe deux types de fichiers :
- Fichier à accès aléatoire (accès direct)
- Fichier à accès séquentiels.

1. Fichier à accès séquentiel

On accède par des séquences pour faire les mêmes
actions.

 Créer un fichier consiste à ouvrir le ficher dans le but

d’assurer la disponibilité du rapport, et de localiser sur
le rapport un complément (le début) à partir duquel les
articles du ficher pourrons être enregistrés.
L’ouverture se fait dans ce cas en mode output

Syntaxe :
OPEN ‘’0’’,# num fichier %, ficher $ ou

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [33]

OPEN fichier $ for output as # %

 Le # % est les nombres compris entre 1 et 255, qui

identifie le ficher pendant qu’il est ouvert.
 Ficher $ est le nom du fichier (le nom peut inclure une
lettre d’unités de stockage et un chemin) Ex : D : \ mes
projets \ ficher.

Ex : INPUT ‘’Donnez le nom du fichier’’ ; n$

OPEN n$ for OUTPUT AS #1.

 Compléter en ajoutant les articles à la suite du dernier

article écrit, nécessite d’ouvrir le ficher en localisant la
marque de fin de ficher, et en le positionnant juste
avant cette marque, de manière à ce que le premier
article ajouté se place en fin de ficher.
L’ouverture dans ce cas se fait en mode APPEND

Syntaxe :
OPEN ‘’A’’,# numfichier %, fichiers ou
OPEN ficher $ FOR APPEND AS # numfichier #

 Ecrire sur un fichier consiste à ajouter un nouvel

enregistrement (données) au fichier. Le nouvel article se
place à la suite du dernier.

Syntaxe : WRITE #numfich=hier%, ListExpression ou

PRINT #numfich%, ListExpression

listExpression est une ou plusieurs variables ou expression,

séparée par une virgule, dont les valeurs sont écrites dans un
fichier.

 Fermer un fichier après l’écriture est nécessaire, il faut

commencer par l’ouverture en mode INPUT. Ce qui
assure la localisation du fichier sur le support et le
positionnement au début du fichier, de manière à ce
que le prochain article traité soit celui situé en tête du
fichier.

Syntaxe : CLOSE #numfich%

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [34]

 Pour Consulter le fichier existant, il faut commencer

par l’ouverture en mode INPUT. Ce qui assure la
localisation du fichier sur le support et le
positionnement au début du fichier, de manière à ce
que le prochain article traité soit celui situé en tête du
fichier.

Syntaxe : OPEN ‘’I’’, #numfich%, n$ ou

OPEN fichier$ FOR INPUT As #numFich%

Exemple : INPUT ‘’Donnez le nom du fichier’’, n$

OPEN n$ FOR INPUT As #1.

 Lire sur un fichier consiste à prendre les données sur ce

fichier et les affectées à des variables. La lecture se fait
article par article.

Syntaxe : INPUT #numFich%, listeVar

 Pour arrêter le traitement de la consultation des

fichiers lorsque tous les articles sont lus, on procède par
le mot clé EOF (End Of File) Fin du fichier qui reste si la
fin d’un fichier est atteinte. Il retourne True (vrai)
valeur non nulle si la fin d’un fichier n’est pas atteinte.

Syntaxe : EOF (numFich%).

2. Le fichier à accès aléatoire

 Pour écrire ou lire dessus, l’ouverture se fait en mode

RANDOM.

Syntaxe : OPEN « R », #numFich%, ficher $, lgRec%. Ou

OPEN fichier $ For RANDOM As #numFichier%, lg

lgRec est la longueur de renseignement en octect.

 PUT écrit sur un fichier les contenus d’un tampon ou d’une

variable.
Syntaxe : PUT #numFich%, [numEnr∝], variable

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [35]

Où .variable est de la variable contenant les données à écrire

sur le fichier et .numEnr∝ est le numéro d’enregistrement à
écrire.

 GET lit sur un fichier sur disque et place les données dans
un tampon ou une variable.

Syntaxe : GET #numFich%, [numEnr∝], variable

 Variable est la variable employée pour recevoir les

données à partir du fichier.
 NumEnr est le numéro de l’enregistrement à lire.

 FERMER le fichier après l’écriture demeure nécessaire

comme dans le cas du fichier séquentiel. La syntaxe est
toujours la même :
CLOSE #numFich%

Exemple :
Type enrEt
Nom As string*20
Matr As single
End type
Dim enr As enrEt
Input ‘’Nom du fichier’’ ; NomFichier$
Open NomFichier$ For Random As #1 Len=Len (enr) avec
(enr)=largeur
Put #1, 1, enr
#Close #1
Open NomFichier$ For Random As #1 Len=Len (enr)
Get #1, 1, enr
Print ‘’Votre nom’’ ; enr.Nom
Print ‘’Votre matricule’’ ; enr.Matr.
Close #1

Exercice 2
Ecrire un programme qui : crée un fichier appelé info
dont la structure des enregistrements est la suivante :
- Nom, Age, Sexe, Profession
- Prévoir la lecture des données depuis le clavier
Résolution
Rem Programme de lecture et d’écriture sur le fichier INFO

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [36]

Cls
Open « INFO » For Output As #1
i=0
Do
i=i+1
Print ‘’ Enregistrement numéro :’’ ; i
Print ‘’----------------------------‘’
Input ‘’Votre nom : ‘’ ; Nom$
Input ‘’Entrez âge :’’ ; Age
Input ‘’Entrez le sexe :’’ ; Sexe$
Print #1 ; Nom$, Age, Sexe$
Input ‘’Ajouter un enregistrement (O/N) : ‘’ ; R$
Loop while UCASE (R$) = « 0 »
Close #1
Open ‘’INFO’’ For Input As #1
Cls
Print ‘’Affichage des informations’’
Print ‘’------------------------------‘’

DEUXIEME PARTIE

LE VB.NET
Différence entre le Qb et Vb.net : Le Qb est un langage
purement structural ou procédural tandis que le Vb.net est un
langage Orienté objet.
Ce cours aura trois parties :
- Mode console

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [37]

- Mode graphique
- Projets
1. LE MODE CONSOLE
1.1. La déclaration
Syntaxe : DIM Nom_variable AS type
Ex : Dim nom AS String
Dim Age, Annee AS Integer
Dim PU AS Single
1.2. L’affichage
Syntaxe : Console.writeline (‘’message’’)
Ex : Console.writeline (‘’Bonjour mes amis’’)
1.3. La lecture des données
Syntaxe : console.readline ( )
Ex : console.writeline (‘’tapez votre nom’’)
Nom=console.readline ( )
1.4. La conversion
Dim nom, postnom, prenom AS String
Console.writeline (‘’tapez le nom’’)
Nom=console.readline ( )
Console.writeline (‘’tapez le postnom’’)
postnom=console.readline ( )
Console.writeline (‘’tapez le prenom’’)
prenom=console.readline ( )
Console.writeline (‘votre nom complet est :’’&nom&’’
‘’&postnom&’’ ‘’&prenom’’).
Syntaxe : nomvariable=type.parse(console.readline())
Ex : année=Integer.Parse (console.readline())

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [38]

Exercice 1 : Ecrire un programme en vb.net qui demande à

l’utilisateur de faire entrer son nom, son prénom, son
année de naissance et l’année actuelle. Et le
programme calcul et affiche son âge.
Dim nom, prenom As String
Dim AnneeNaiss, AnneeAct, Age As Integer
Console.WriteLine("Tapez le nom")
nom = Console.ReadLine()
Console.WriteLine("Tapez le prenom")
prenom = Console.ReadLine()
Console.WriteLine("Quel est votre année de
naissance ?")
AnneeNaiss = Integer.Parse(Console.ReadLine())
Console.WriteLine("Tapez l’année actuelle ?")
AnneeAct = Integer.Parse(Console.ReadLine())
Age = AnneeAct - AnneeNaiss
Console.WriteLine("Monsieur ou Mademe " & nom & " " &
prenom & " vous avez " & Age & " ans ")
Console.Read()

Exercice 2
Ecrire un programme en VB.net qui demande à l’User de tapez
deux nombres (nbre1 et nbre2) et le programme calcul et
affiche la somme, la différence, le produit et le quotient.
Résolution en QB
CLS
DIM nbre1, nbre2, S, D, P, AS Integer
Dim Q AS Single
Print "Entrer le nombre 1"
Input nbre1
Print "entrez le nombre 2"
Input nbre2
S=nbre1 + nbre2
D=nbre1 – nbre2
P=nbre1 * nbre2
Q=nbre1 / nbre2
Print "la somme est" ;S
Print "la différence est :" ;D
Print "le produit est :" ;P
Print "le quotient est :" ;Q
END
Résolution en VB.net
Dim Nbre1, Nbre2, S, D, P As Integer
Dim Q As Single

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [39]

Console.WriteLine("Entrez le nombre 1")

Nbre1 = Integer.Parse(Console.ReadLine())
Console.WriteLine("Entrez le nombre 2")
Nbre2 = Integer.Parse(Console.ReadLine())
S = nbre1 + nbre2
D = Nbre1 - Nbre2
P = nbre1 * nbre2
Q = nbre1 / nbre2
Console.WriteLine("la somme est :" & S)
Console.WriteLine("la différence est :" & D)
Console.WriteLine("le produit est :" & P)
Console.WriteLine("le quotient est :" & Q)
Console.Read()

EXERCICE 3
Ecrire un programme en VB.net qui demande à l’utilisateur de
saisir le nom du produit, son prix unitaire et la quantité
commandée, le programme calcule le prix total, et la TVA
(16%). Une réduction de 10% est accordée à chaque client, et
finalement le programme calcule te affiche le prix net à payer.

Analyse
Nomprod, PU, Qte, PT, TVA, red, PNP
PT=PU*Qte
TVA : PT*16/100
Red : PT*10/100
PNP : (PT+TVA)-red
Résolution
Dim NP As String
Dim PU, Qte, PT, TVA, Red, PNP As Single
Console.WriteLine("entrez le nom de produit")
NP = Console.ReadLine()
Console.WriteLine("Entrez le prix unitaire")
PU = Single.Parse(Console.ReadLine())
Console.WriteLine("Entrez la Quantité")
Qte = Single.Parse(Console.ReadLine())
PT = PU * Qte
TVA = PT * 16 / 100
Red = PT * 10 / 100

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [40]

PNP = (PT + TVA) - Red

Console.WriteLine("le prix net à payer est :" & PNP)
Console.Read()

CHAP II LES STRUCTURES DE CONTROLE

2.1. La rupture des séquences
Instruction : GO TO
Dim C As Char
3: Console.WriteLine("Appuyer sur n'importe quelle touche
pour recommencer")
C = Char.Parse(Console.ReadLine())
Console.Clear()
GoTo 3

Ex : GO TO 10
2.2. La structure conditionnelle
If « condition » then
Ecrire un programme qui demande à l’User de saisir la cote
d’un étudiant si la cote est supérieur ou égal à 10. C’est une
réussite, sinon c’est un échec.
Résolution
Sub Main()
Dim cote As Single
Console.WriteLine("Tapez la cote de l'étudiant")

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [41]

cote = Single.Parse(Console.ReadLine())
If cote >= 10 Then
Console.WriteLine("il s'agit d'une réussite")
Else
Console.WriteLine("Il s'agit d'un d'un échec")
End If
Console.Read()
End Sub

Ex 2 : Ecrire un programme qui demande à l’utilisateur d’entrer

le PU et la Qte et le programme calcule le PT. Connaissant
que :
Si PT¿10 000 la Red = 0
Si PT¿10 000 et ¿20 000 la Red = 5%
Si PT¿20 000 et ¿50 000 la Red = 10%
Si PT¿50 000 la Red = 15%
PT = Qte*PU
PNP = PT-Red
Red = PT * 5/100.
Résolution
Dim PU, Qte, PNP, Red, PT As Single
Console.WriteLine("Tapez le prix unitaire")
PU = Single.Parse(Console.ReadLine())
Console.WriteLine("Tapez la quantité")
Qte = Single.Parse(Console.ReadLine())
PT = Qte * PU
PNP = PT - Red
If (PT < 10000) Then
Console.WriteLine("Le Prix Net à payer est: " &
PNP)
ElseIf (PT > 10000 And PT < 20000) Then
Console.WriteLine("Le Prix Net à payer est: " &
PNP - 5 / 100)
ElseIf (PT > 20000 And Red < 50000) Then
Console.WriteLine("Le Prix Net à payer est: " &
PNP - 10 / 100)
ElseIf (PT > 50000) Then
Console.WriteLine("Le Prix Net à payer est: " &
PNP - 15 / 100)
End If
Console.WriteLine("Le Prix Total est:" & PT)
Console.Read()

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [42]

1.12. Le select case

Syntaxe :
Select case cas
Case is condition 1
Bloc d’instructions
Case is condition 2
Bloc d’instructions
Case is condition n
Bloc d’instructions
End select
Exemple 1:
Sub Main()
Dim jour As Integer
2: Console.Out.WriteLine("tapez le nombre
compris entre 1 et 7")
jour = CInt(Console.ReadLine())
Select Case jour
Case Is = 1
Console.Out.WriteLine("Lundi")
Case Is = 2
Console.Out.WriteLine("Mardi")
Case Is = 3
Console.Out.WriteLine("Mercredi")
Case Is = 4
Console.Out.WriteLine("Jeudi")
Case Is = 5
Console.Out.WriteLine("Vendredi")
Case Is = 6
Console.Out.WriteLine("Samedi")
Case Is = 7
Console.Out.WriteLine("Dimanche")
Case Else
Console.Out.WriteLine("Erreur le
nombre entré n'est pas valide")

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [43]

GoTo 2
End Select
Console.Read()
End Sub
Exemple 2 : Ecrire un prgm en vb.net qui affiche les cotes d’un
étudiant.
Sub Main()
Dim cote As Single
5: Console.Out.WriteLine("tapez la cote de
l'étudiant")
cote = Single.Parse(Console.ReadLine())
Select Case cote
Case Is > 20
Console.Out.WriteLine("Erreur")
GoTo 5
Case Is >= 10
Console.Out.WriteLine("Réussite")
Case Is >= 8
Console.Out.WriteLine("Echec léger")
Case Is >= 0
Console.Out.WriteLine("Echec grave")
Case Else
GoTo 5
End Select
Console.Read()
End Sub
1.13. BOUCLE FOR Début

Syntaxe : FOR i=x TO n

Eclg,EcGv,NbreCors,Cote

Next i
Eclg,EcGv,NbreCors,Cote
Exemple 1 : Ecrire un programme qui affiche les nombres de 1
jusqu’à 10.
C<8 EcGv+=1

Sub Main()
Dim i As Integer
For i = 1 To 10 C>8 EcGv+=1

Console.Out.WriteLine(i)
Next i
Afficher EcGv
Console.Read() EcLg

End Sub
End Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [44]

Exemple 2 : écrire un programme qui demande à l’utilisateur

d’entrer les côtes du cours 1, cour 2, cours 3, cours 4
et cours 5. Alors le prgm affiche le nombre d’échec
légers et graves.
Sub Main()
Dim i, EcLg, EcGv, NbreCours As Integer
Dim cote As Single
Console.Out.WriteLine("Entrez le nombre des
cours")
NbreCours = CInt(Console.ReadLine())
For i = 1 To NbreCours
Console.Out.WriteLine("Entrez les cotes
du cours" & i)
cote = Single.Parse(Console.ReadLine())
If (cote < 10 And cote >= 8) Then
EcLg += 1
ElseIf (cote < 8 And cote >= 0) Then
EcGv += 1
End If
Next i
Console.Out.WriteLine("le nombre d'échec
léger est" & EcLg)
Console.Out.WriteLine("le nombre d'échec
grave est" & EcGv)
Console.Read()
End Sub
T.P : Ecrire un programme de délibération en Vb qui demande
au programmeur de saisir le nom de l’étudiant et les cotes
de 4 cours : cours1, cours2, cours3 et cours4 et le
programme calcul les points obtenu par l’étudiant et
ensuite le pourcentage obtenu par l’étudiant.
Résolution
Sub Main()
Dim nom As String
Dim Cote_Cours1, Cote_Cours2, Cote_Cours3,
Cote_Cours4, Pt_Obt, Pourc As Single
Const Tot = 80
Console.Out.WriteLine("Tapez le nom de l'Etudiant
(e):")
nom = Console.ReadLine()

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [45]

Console.Out.WriteLine("Tapez la cote du 1er cours:")

Cote_Cours1 = Single.Parse(Console.ReadLine())
Console.Out.WriteLine("Tapez la cote du 2e cours:")
Cote_Cours2 = Single.Parse(Console.ReadLine())
Console.Out.WriteLine("Tapéez la cote du 3e cours:")
Cote_Cours3 = Single.Parse(Console.ReadLine())
Console.Out.WriteLine("Tapez la cote du 4e cours:")
Cote_Cours4 = Single.Parse(Console.ReadLine())
Pt_Obt = Cote_Cours1 + Cote_Cours2 + Cote_Cours3 +
Cote_Cours4
Pourc = Pt_Obt * 100 / Tot
If Pourc < 100 And Pourc >= 90 Then
Console.Out.WriteLine(nom & " a réussi avec une GD
de:" & Pourc & "%" & " et il a obtenu:" & Pt_Obt & "/" & Tot)
ElseIf (Pourc < 90 And Pourc >= 80) Then
Console.Out.WriteLine(nom & " a réussi avec une D
de:" & Pourc & "%" & " et il a obtenu:" & Pt_Obt & "/" & Tot)
ElseIf (Pourc < 70 And Pourc >= 50) Then
Console.Out.WriteLine(nom & " a réussi avec une S
de:" & Pourc & "%" & " et il a obtenu:" & Pt_Obt & "/" & Tot)
ElseIf (Pourc < 50 And Pourc >= 40) Then
Console.Out.WriteLine(nom & " a échoué (e) avec:"
& Pourc & "%" & " et il a obtenu:" & Pt_Obt & "/" & Tot)
ElseIf (Pourc >= 0) Then
Console.Out.WriteLine(nom & " est NAF car il
(elle) a obtenu:" & Pourc & "%" & " et il a obtenu:" & Pt_Obt
& "/" & Tot)
Else
Console.Out.WriteLine("Erreur")
End If
Console.Read()
End Sub

Exemple 3 : Ecrire un prgm qui affiche la table de la

multiplication d’un nombre tapé par l’utilisateur. En
utilisant la boucle For.
Sub Main()
Dim i, n, p As Integer
Console.Out.WriteLine("Entrez un nombre")
n = CInt(Console.ReadLine())
For i = 1 To 12
p = n * i
Console.WriteLine(n & "x" & i & "=" & p)
Next
Console.Read()
End Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [46]

Exemple 4 : Ecrire un prgm qui calcul le factoriel d’un nombre

tapé par l’utilisateur en utilisant la boucle For.
Sub Main()
Dim i, f, n As Integer
f = 1
Console.Out.WriteLine("Entrez un nombre")
n = CInt(Console.ReadLine())
For i = 1 To n
f = f * i
Next
Console.Out.WriteLine("le factoriel de " & n & "est" &
f)
Console.Read()
End Sub

1.14. BOUCLE WHILE

Syntaxe : WHILE (condition)
Bloc d’instructions
End While
Exemple 1 : Ecrire un programme qui affiche les nombres de 1
à 10.
Module Module1
Sub Main()
Dim i As Integer
i = 0
While (i < 10)
i = i + 1
Console.WriteLine(i)
End While
Console.Read()
End Sub
End Module

Exemple 2 : Ecrire un programme qui demande à l’User de

tapez n nombres et le programme calcule et
affiche la somme de ces nombres.
Module Module1
Sub Main()
Dim nbr, som, i As Integer
som = 0
i = 1

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [47]

While (i < 5)
Console.WriteLine("entrer le nombre" & i)
nbr = CInt(Console.ReadLine())
i = i + 1
som = som + nbr
End While
Console.WriteLine("la somme est de " & som)
Console.Read()
End Sub
End Module

2. MODE GRAPHIQUE
* le Message Box : dans le mode graphique sert à afficher le
message
Syntaxe : MsgBox (‘’Salut tout le monde),
Cela désigne le console.out.writeline () en mode
console.
Ex : afficher le message Bonjour Mr le Prof MBOYO
MsgBox (‘’ Bonjour Mr le Prof MBOYO’’)
Il existe 5 boîtes de dialogue communes en V.b
- Boîte d’ouverture
- Boîte de l’enregistrement
- Boîte de la couleur
- Boîte de la police
- Boîte de l’impression
1. La Boîte de dialogue ouvrir
Elle permet d’ouvrir un fichier parmi celui mémorisé
dans le disque dur. Pour le faire apparaître, on fait appel à la
méthode ShowOpen.
2. La Boîte de dialogue Sauvegarder
Elle sert à enregistrer le fichier. Ici on utilise la
méthode ShowSelf.
3. La Boîte de dialogue de couleur

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [48]

Sert à afficher une couleur. On fait appel à la

méthode ShowColor.
4. La Boîte de dialogue de la police de caractère
Sert à sélectionner une police et ses attributs. On fait
appel ici à la méthode ShowFont.
5. La Boîte de dialogue Imprimer
Sert à définir les paramètres de l’impression. On fait
appel à la méthode ShowPrinter.
Les fonctions MsgBox () et InputBox ()
a) La fonction MsgBox : affiche une boîte de message.
Syntaxe : MsgBox (‘’une boîte de message’’)
Sélection de l’icone

Valeur Nom Description Icone

16 V.b Critical Erreur
X
Critique
32 V.b Question Question
?

48 V.b Avertissemen
Exclamation t !

64 V.b Information
i
Information

Type des boutons qui seront dans la boîte

Vale Nom Description
ur
0 Vb OK Only Bouton OK
1 Vb OK Cancel Bouton OK, Annuler
2 Vb Bort Retry Boutons Abandonner, Ressayer,
Ignore Ignorer

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [49]

3 Vb Yes No Boutons Oui, Non, Annuler

Cancel
4 Vb Yes No Boutons Oui, Non
5 Vb Retry Cancel Boutons Ressayer, Annuler

b) Input () : permet à l’User d’entrer une valeur ou un texte

par l’intermédiaire d’une boîte d’entrée.
N.B : Me.Close () : quitter
Commande btn bouton.

PARTIE PRATIQUE

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [50]

3. PRATIQUE AVEC INTERFACE GRAPHIQUE

3.1. L’HORLOGE
Private Sub Form1_Load(sender As Object, e As
EventArgs) Handles MyBase.Load
Label1.Text = TimeOfDay
End Sub

3.2. Progressbar
Private Sub Timer2_Tick(sender As Object, e As
EventArgs) Handles Timer2.Tick
ProgressBar1.Value += 10
If ProgressBar1.Value = 100 Then
Form2.show() (montrer le formulaire 2)
Timer2.Enabled = False
Me.Hide() (cacher le premier formulaire)
End If
End Sub

3.3. DIM SAPI

SAPI=create object(‘’SAPI.SPVOICE ‘’)
SAPI.Speak(textBox1.text)

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [51]

CREATION D’UNE CALCULATRICE STANDARD

- Prendre un textBox, et 16 boutons, les nommées de 0 à 9,

y compris les touches spéciales : *, /, -, +, =, . et C.
- Nommé logiquement les boutons en les sélectionnant,
aller sur Name : B0, B1, B2…B9. Puis, * : mult, / : div, - :
moins, + : plus, = : Egale,. : point et le bouton C : Comm.
- Pour coder : il suffit de double cliquer sur un bouton et
mettre le code : Ecran.Text = "1". Mais pour éviter la
redondance, il faut
Private Sub Chiffre(sender As Object, e As EventArgs) Handles B0.Click,
B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click,
B8.Click, B9.Click
If Ecran.Text = "0" Then Ecran.Text = ""
Ecran.Text = Ecran.Text + sender.text
End Sub
End Class

Pour le bouton C :
Private Sub comm_Click(sender As Object, e As EventArgs) Handles comm.Click
Ecran.Clear()
End Sub
Pour les opérateurs :
Private Sub operateur(sender As Object, e As EventArgs) Handles mult.Click,
div.Click, moins.Click, plus.Click, Egale.Click, point.Click

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [52]

Ecran.Text = Ecran.Text + sender.text

Pour le bouton égal:

Programme calcultrice complet

Public Class Form1
Dim op As Char
Dim V1 As Double
Dim mode As Char = "r"
Private Sub Chiffre(sender As Object, e As EventArgs) Handles B0.Click,
B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, B8.Click,
B9.Click
'If Ecran.Text = "0" Then Ecran.Text = ""
If mode = "r" Then
Ecran.Text = ""
End If
Ecran.Text = Ecran.Text + sender.text
End Sub

Private Sub comm_Click(sender As Object, e As EventArgs) Handles comm.Click

Ecran.Clear()
End Sub

Private Sub operateur(sender As Object, e As EventArgs) Handles mult.Click,

div.Click, moins.Click, plus.Click
'Ecran.Text = "0"
V1 = Ecran.Text
op = sender.text
mode = "r"
End Sub

Private Sub Egale_Click(sender As Object, e As EventArgs) Handles

Egale.Click
If op = "*" Then Ecran.Text = V1 * Ecran.Text
If op = "/" Then Ecran.Text = V1 / Ecran.Text
If op = "+" Then Ecran.Text = V1 + Ecran.Text
If op = "-" Then Ecran.Text = V1 - Ecran.Text
End Sub

Private Sub point_Click(sender As Object, e As EventArgs) Handles

point.Click
Ecran.Text = Ecran.Text + sender.text
End Sub
End Class

Création d’un lecteur

Allez sur contrôle commun, clic droit et chercher windowsmedia
player, le ramener sur le formulaire. Aller sur Dock

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [53]

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click
OpenFileDialog1.ShowDialog()
MediaPlayer.URL = OpenFileDialog1.FileName
End Sub
End Class

Création d’un navigateur

Pour débuter : sur l’interface graphique :

1. Prendre un panel dans la boite à outil, l’étaler sur
l’interface,
2. Prendre le WebBrowser dans la boite à outil en le
nommant: Navigateur
3. Prendre un textbox et les boutons

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [54]

4. Copier les flèches dans word et coller sur les boutons 1 et

2
5. Sélectionner chaque bouton, aller sur image et prendre
l’icone correspondant.
Codage :
1. Bouton de recherche
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles
Button8.Click
Navigateur.Navigate(TextBox1.Text)
End Sub

2. Boutons de directions :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Navigateur.GoBack()
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles

Button7.Click
Navigateur.GoForward()
End Sub
3. D’autres moteurs de recherche, il fallait avoir leur site.
Création de Data Gridview/La vente des produits

1. Prendre quatre labels et quatre textbox et un bouton

2. Prendre le data gridview dans la boite à outil
3. Donnez les noms logiques pour chaque label
4. Donnez les noms de colonnes sur data gridview : code
produit, désignation, prix unitaire, quantité, prix total.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [55]

Code source
1. Sur le bouton ajouter
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
DataGridView1.Rows.Add(TextBoxcode.Text, TextBoxdesign.Text,
TextBoxpu.Text, TextBoxqte.Text, Single.Parse(TextBoxpu.Text) *
CInt(TextBoxqte.Text))
End Sub

L’UTILISATION DE CHECBOX, RADIOBUTTON et LISTBOX

1. RADIOBUTTON

- Prendre un groupbox, le nommer

- Prendre un ButtonRadio nommez-le
- Ajouter un nouveau formulaire en allant sur application
- Créer un button qu’on nommera executer
Code source sur le button executer:
If RadioButton1.Checked Then
MessageBox.Show("Vous êtes un Homme", "Message")
Else
MessageBox.Show("Vous êtes une Femme", "Message")
End If
Me.Hide()
Form2.Show()

Après avoir créé tous les formulaires possibles, allez dans le

code source :
Formulaire 2, double-cliqué sur timer
Public Class Form2
Dim i As Integer = 1

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

i = i + 1
If i = 20 Then
Me.Hide()

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [56]

Form3.Show()
End If
End Sub

Faites ça ainsi pour tous les formulaires en changeant les

Forms.
2. CHECBOX

Prendre un GroupBox, puis les ChecBox au nombre

des choix, puis un button dont on nommera exécuter. Double
cliquer sur Exécuter et mettre ce code source :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
If CheckBox1.Checked Then
MessageBox.Show("Vous parlez le Français")
End If
If CheckBox2.Checked Then
MessageBox.Show("Vous parlez l'Anglais")
End If
If CheckBox3.Checked Then
MessageBox.Show("Vous parlez le Swahili")
End If
If CheckBox4.Checked Then
MessageBox.Show("Vous parlez le Lingala")
End If
If CheckBox5.Checked Then
MessageBox.Show("Vous parlez le Kikongo")
End If
If CheckBox6.Checked Then
MessageBox.Show("Vous parlez le Tshiluba")
End If

Créer sue le formulaire 2 un LinkLabel où on écrira

Allez vers le Dictionnaire, avec comme code source :
Me.Hide() ‘Cachez moi’
form3.show() ‘afficher Form3’

Sur le formulaire 3 prendre TabControl, ajouter

l’onglet et écrire le nom et changer la couleur de ces onglets.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [57]

3. Le ListBox

Prendr
e le TabControl, puis le listBox dans la boite à outils, allez sur la
touche de direction puis entrer les données.
Prendre encore un textbox et deux buttons : dont
ajouter et supprimer.
Code source pour ajouter :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
ListBox2.Items.Add(TextBox1.Text)
TextBox1.Text = " "
End Sub

Code source pour supprimer :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub

N.B : Items : données, Add : Ajouter et Remove : Supprimer

CREATION D’UNE APPLICATION

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [58]

Formulaire 1 : Page d’Accueil

1. Label : Bienvenu à la Gestion des Inscriptions au C.S Les
GENIES
2. PictureBox : Logo
3. ProgressBar
4. Label
5. Timer
Public Class Form1
Dim i As Integer = 1

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles

Timer1.Tick
Timer1.Start()
'ProgressBar1.Increment(1)
If ProgressBar1.Value <= 99 Then
ProgressBar1.Value += 1
ElseIf ProgressBar1.Value = 100 Then
Timer1.Start()
Connexion.Show()
Me.Hide()
End If
Label2.Text = ProgressBar1.Value & "%"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
Timer1.Start()
End Sub
End Class

Formulaire 2 : Page Connexion

1. Label : Authentification
2. PictureBox : Clé

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [59]

3. Label1 + TextBox1 : Username ou Nom de l’utilisateur

4. Label2 + MaskedTextBox1 : Password ou Mot de passe
5. Button1 : Se connecter ou login
6. Button2 : Annuler
7. Button3 : Quitter
Page d’accueil
Public Class Form1
Dim i As Integer = 1

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles

Timer1.Tick
Timer1.Start()
'ProgressBar1.Increment(1)
If ProgressBar1.Value <= 99 Then
ProgressBar1.Value += 1
ElseIf ProgressBar1.Value = 100 Then
Timer1.Start()
Form2.Show()
Me.Hide()
End If
Label2.Text = ProgressBar1.Value & "%"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
Timer1.Start()
End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles

Label2.Click

End Sub
End Class

Connexion
Public Class Connexion

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click
If TextBox1.Text = "Alphonse" And TextBox2.Text = "Muluba" Then
MenuGeneral.Show()
Me.Hide()
Else
MsgBox("Erreur! Le Mot de passe ou le nom d'utilisateur est
incorect, veuillez recommencer SVP!", MsgBoxStyle.Critical, "Message d'Erreur")
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

Button2.Click
TextBox1.Text = " "
TextBox2.Text = " "
End Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [60]

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles

Button3.Click
If MsgBox("Voulez-vous vraiment quitter l'Application?",
MsgBoxStyle.YesNoCancel, "Confirmation") = MsgBoxResult.Yes Then
Me.Hide()
Else
Me.Show()
End If
Form1.Show()
Me.Hide()
End Sub
End Class

Formulaire 3 : Frm Menu ou Menu général

Prendre Menutrip, et entrez les informations pour créer la barre
des tâches.

TRAVAUX PRATIQUES

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [61]

VENTE DES MARCHANDISES

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles

MyBase.Load
'TODO: cette ligne de code charge les données dans la table
'VenteMarchandiseDataSet.Table1'. Vous pouvez la déplacer ou la supprimer selon
vos besoins.
Me.Table1TableAdapter.Fill(Me.VenteMarchandiseDataSet.Table1)

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles

Button5.Click
Table1BindingSource.MoveFirst()
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles

Button7.Click
Table1BindingSource.MovePrevious()
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles

Button8.Click
Table1BindingSource.MoveNext()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles

Button6.Click
Table1BindingSource.MoveLast()
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click
Table1BindingSource.AddNew()
End Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [62]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

Button2.Click
Dim pu, qte, pt, tva, red, pnp As Single
pu = TextBox2.Text
qte = TextBox3.Text
TextBox4.Text = TextBox2.Text * TextBox3.Text
pt = TextBox4.Text
If pt < 10000 Then
TextBox5.Text = 0
red = TextBox5.Text
ElseIf pt <= 100000 And pt >= 10000 Then
TextBox5.Text = Single.Parse(TextBox4.Text) * 5 / 100
red = TextBox5.Text
Else
TextBox5.Text = Single.Parse(TextBox4.Text) * 10 / 100
red = TextBox5.Text
End If

TextBox6.Text = Single.Parse(TextBox4.Text) * 16 / 100

tva = TextBox6.Text
TextBox7.Text = pt + tva - red
On Error GoTo SaveErr
Table1BindingSource.EndEdit()
Table1TableAdapter.Update(VenteMarchandiseDataSet.Table1)
MessageBox.Show("Enregistrement reussi dans la base de données avec
succès")
SaveErr:
Exit Sub

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles

Button3.Click
If MsgBox("voulez-vous supprimer cet enregistrement de la base de
données?", MsgBoxStyle.YesNo, "Message de confirmation") = MsgBoxResult.Yes
Then
Table1BindingSource.RemoveCurrent()
End If

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles

Button4.Click
If MsgBox("voulez-vous vraiment fermer l'application?",
MsgBoxStyle.YesNo, "Message de confirmation") = MsgBoxResult.Yes Then
Me.Close()
End If

End Sub
End Class

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [63]

BOUTONS RECHERCHER ET MODIFIER

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles

Button5.Click
PaieBindingSource3.MoveFirst()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles

Button6.Click
PaieBindingSource3.MovePrevious()
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles

Button7.Click
PaieBindingSource3.MoveNext()
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles

Button8.Click
PaieBindingSource3.MoveLast()
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles

Button7.Click
'Le bouton rechercher
Con.Open()
Cmd.CommandText = "select * from Etudiants where Code='" +
TextBox4.Text + "'"
Cmd.Connection = Con
lecture = Cmd.ExecuteReader
While (lecture.Read)
TextBox1.Text = lecture.GetValue(0)
TextBox2.Text = lecture.GetValue(1)
TextBox3.Text = lecture.GetValue(2)
ComboBox1.Text = lecture.GetValue(3)
ComboBox2.Text = lecture.GetValue(4)
End While
lecture.Close()
Con.Close()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles

Button5.Click
'Le bouton Modifier
Try
Con.Open()
Cmd.CommandText = "UPDATE Etudiants SET Code='" + TextBox1.Text +
"', Nom='" + TextBox2.Text + "', Prenom='" + TextBox3.Text + "', Sexe='" +

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [64]

ComboBox1.Text + "', IdFac='" + ComboBox2.Text + "' where Code='" +

TextBox4.Text + "'"
Cmd.Connection = Con
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("La modification réussi")
Catch ex As Exception
MsgBox("La modification a échoué " + ex.Message())
End Try
End Sub

PAGE D’ACCUEIL ET BOUTONS ANNULER, SUPPRIMER

START POSITION : CenterScreen (centrer le formulaire)

Maximitebox : False
Formborderstyle : Fixedsingle
Controlbox : False
Pour créer la page de démarrage, on prend : Timer , double cliquer sur le timer
puis déclarer i=i+1 en donnant la condition :
Sur Form 1
Public Class Form1
Dim i As Integer = 1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles

Timer1.Tick
i=i+1
If i = 20 Then
Me.Hide()
Form2.Show()
End If
Dim i As Integer=1
if i=20 then
Me.hide
Form 2.show
End if.
Sur form 2
Public Class Form2

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [65]

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles

TextBox1.TextChanged

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles

MyBase.Load

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles

Button3.Click
If (TextBox1.Text = "ALPHA") And (TextBox2.Text = "1234") Then
Me.Hide()
Form3.Show()
Else
MsgBox("le nom de l'Utilisateur ou le mot de passe est incorrect",
MsgBoxStyle.Critical, "Message d'erreur")
End If
Alors il faut ajouter un nouveau formulaire en allant sur projet, ajouter un
formulaire, windows… après double cliquer le form 1 puis insérer le code :
timer1.start ()
Mettre aussi le start position : centerScreen pour le deuxième formulaire.
Nommer le deuxième formulaire : connexion,
Prendre deux label : User et l’autre Password y compris les deux textbox.
On crée trois boutons : quitter, annuler et se connecter
Pour vider les deux texbox, double cliqué sur annuler et insérer :
textBox1.clear()
textBox2.clear()
ou
textBox1.text=’’ ‘’
textBox2.text=’’ ‘’
Pour quitter : double-cliquer sur le bouton quitter
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub
Choisir oui ou non pour quitter :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click
If MsgBox("Voulez-vous vraiment quitter l'application?",
MsgBoxStyle.YesNo, "Confirmation") = MsgBoxResult.Yes Then
Me.Close()
Else

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [66]

Me.Show()
End If

T.P 1 CODAGE ET DECODAGE DES MATRICULES UPGI

RAPORT DU TRAVAILLE PRATIQUE DE LANGAGE DE PROGRAMMATION (MODE GRAPHIQUE VB)

SUJET « GESTION DES INSCRIPTIONS A L’UPGI »

I. INTRODUCTION

Le mode actuel est largement avancé avec la technologie, il est difficile actuellement
d’exercer les activités sans l’intervention de l’informatique, l’informatisation des
organisations, entreprises, église est un meilleur moyen le plus rapide et plus sécurisant.
C’est à ce point que je conçus cette application qui Gérer les inscriptions des Etudiants de
l’université panafricaine de gouvernance et innovation. Quel est l’importance de cette
application ? Quel sont les aspects pratique auquel l’application va s’intéresser ?cette
application peut-elle s’intéresser à l’autre aspect en dehors du sujet ? Les réponses nous
seront données dans les lignes qui suivent.

II. PROBLEMATIQUE

Cette application à comme importance de gérer les inscriptions des Etudiants à

l’université panafricaine de gouvernance et innovation, les aspects pratique de cette
application sont les suivants :
a) Les inscriptions des Etudiants
b) Autre aspect connexe mais important qui est la reconnaissance des étudiants à
travers son numéro matricule.

III. OBJECTIF DU TRAVAIL

L’objectif de la création de cette application est de résoudre les problèmes lié aux
inscriptions surtout avec l’ancien mode qui été d’inscrire sans l’intervention de l’informatique.

IV. PRESENTATION DU LANGAGE ET SGBD

Cette application à était conçus avec le langage VB
SGBD=Access

V. PRESENTATION DES INTERFACES

Cette application est constituée des interfaces suivantes :

1. Au Niveau du formulaire N°1 nous avons :

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [67]

a) 3 PictureBox dont :
 PictureBox1 : comporte Le logo de l’université panafricaine de
gouvernance et innovation
 PictureBox2 : comporte la photo du professeur MUSAO KALOMBO
MBUYI le PCA de L’UPGI
 PictureBox3 : comporte le logo de l’’université panafricaine de
gouvernance et innovation
b) 2progressbar dont :
 progressbar1
 progressbar2
c) 2label dont :
 Label1
 Label2
 Label3
d) 2timer dont :
 Timer1 : le timer1 comporte les comptes suivants :

Timer1.Start()
If ProgressBar2.Value <= 99 Then
ProgressBar1.Value += 1
ElseIf ProgressBar2.Value = 100 Then
Timer2.Stop()
Me.Hide()
securite.Show()
End If
Label2.Text = ProgressBar1.Value & "%"

 Timer2 :le timer2 Comporte les codes suivants :

Timer1.Start()
If ProgressBar2.Value <= 99 Then
ProgressBar1.Value += 1
ElseIf ProgressBar2.Value = 100 Then
Timer2.Stop()
Me.Hide()
securite.Show()
End If
Label2.Text = ProgressBar1.Value & "%"

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [68]

 On double clique on Niveau du formulaire écrits les codes suivants :

Timer1.Start()
Timer2.Start()
e) 1panel
2. Au Niveau du formulaire N°2(sécurité) nous avons :

a)4 PictureBox dont :

 PictureBox1 : comporte le drapeau de la république démocratique du

Congo ;
 PictureBox2 : comporte la photo du président de la république ;
 PictureBox3 : Comporte une photo animée ;
 PictureBox4 : Comporte une photo animée.

b)2Groupebox dont :
 Groupebox1 : il comporte d’autres propriétés tels
que :
 2Bouton :dont :
 Bouton1
 Bouton3
 2Textbox dont :
 Textbox1
 Textbox2
 Groupebox2 : il comporte aussi d’autres
propriétés tels que :
 3Bouton dont :
 Bouton3
 Bouton4
 Bouton5
3. Au Niveau du troisième formulaire (Menu
général/Formulaire Parent MDI) Nous avons :

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [69]

N/B : ce formulaire c’est un cas particulier car il comporte à son

sein d’autres formulaires.
Le menu géneral compte 3 formulaire à l’interieur qui sont :

- Formulaire Etudiant
- Formulaire concepteur
- Formulaire plus

a)formulaire Etudiant :
Il comporte les propriétés suivants :
 4 groupe box dont chacun comporte les autres
propriété ci-dessous :
 Groupbox1(Enregistrement) :il comporte 1
datagridview
 Groupebox2(Les operations) :il comporte
6bouton dont :
A. Le bouton1(ajouter) :il a le code
suivant :
EtudiantsBindingSource.AddNew()
B. Le bouton2(Enregister) :il comporte
le code suivant :

On Error GoTo SaveErr

EtudiantsBindingSource.EndEdit()
EtudiantsTableAdapter.Update(BDE
tudiantsDataSet.Etudiants)
MessageBox.Show("Enregistrement
réussi")
SaveErr:
Exit Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [70]

C. Le bouton3(Annuler

il comporte le code suivant :

TextBox1.Text = " "

TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
ComboBox1.Text = " "
ComboBox2.Text = " "

D.le boutton4(Supprimer) :il comporte les code suivants : If

MsgBox("voulez_vous supprime?", MsgBoxStyle.YesNoCancel, "message")
= MsgBoxResult.Yes Then
EtudiantsBindingSource.RemoveCurrent()

E.Le boutton5(Modifier)

Il comporte les codes suivants :

'Le bouton Modifier

Try
Con.Open()
Cmd.CommandText = "UPDATE Etudiants SET Code='" +
TextBox1.Text + "', Nom='" + TextBox2.Text + "', Prenom='" +
TextBox3.Text + "', Sexe='" + ComboBox1.Text + "', IdFac='" +
ComboBox2.Text + "' where Code='" + TextBox4.Text + "'"
Cmd.Connection = Con
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("La modification réussi")
Catch ex As Exception
MsgBox("La modification a échoué " + ex.Message())
End Try

F.le bouton6(qitter)

Il comporte les codes suivants :

Me.Close()

 Groupebox3(Information) :il
comporte :5label,3textbox et 2comboBox
 Groupebox4 : comporte 1TexBox et 1 label

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [71]

c) Concepteur

Il comporte les propriétés suivantes : 1Tabcontrol et

1Linklabl(Savoir plus sur le concepteur de l’application)

4. Au niveau du Formulaire N°4(Plus) : il comporte 1picturebox qui

contient la photo du concepteur et 1textbox qui contient

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [72]

l’identité

VI. PRESENTATION DE LA BASE DE DONNEE

La base est constituée de 2 table dont :

a)Table Etudiants : Elle comporte :
 Code
 Nom
 Post nom
 Prénom

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [73]

b) Table faculté : Elle comporte :

 Faculté
 Départements

VII. LA CONCLUSION

En conclusion, nous sommes actuellement dans un monde remplis

de l’innovation, aujourd’hui dans une organisation sans
l’informatique se comme un camion sans moteur. Grâce aux
Enseignement du professeur MBOYO et de l’assistant LINGOLE que
je remercie en passant ; En fin cette application va permettre
l’informatisation des inscriptions à l’université panafricaine
de gouvernance et innovation.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [74]

TP 2 VENTE DES MARCHANDISES

Introduction
Partout au monde actuellement, en Amérique, En Asie, chez nous en Afrique ou en Europe, la
technologie est devenue une arme fatale contre plusieurs anomalies dans nos organisations non
gouvernementaux, dans les universités ainsi que dans les entreprises ;la numérisation des activités
est la meilleurs moyen, c’est pourquoi nous avons conçus cette application qui va permettre aux
entreprises privées que publique s’intéressant aux activités d’achat et des ventes de résoudre les
problèmes lié aux erreurs d’écritures. De quels actions que cette application va s’intéresser ? Plus de
détails dans les lignes qui suivent.

I.1. Problématique
Cette application va permettre à calculer facilement les activités d’achat et de ventes calcule.

I. Objectifs
L’application à un objectif simple qui est d’exercé les opérations d’achat et de ventes sans problèmes

III. Langage utilisé et le SGBD utilisé

Nous avons utilisé le langage de programmation Visual Basic, avec comme
Système de Gestion de Base des Données (SGBD) Microsoft Access.

IV. Explication de chaque interface

Nous avons utilisé 5 interfaces graphiques

1. Accueil

Il comporte les propriétés suivantes :

* deux labels
*Un PictureBox
*un progressbar

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [75]

*un timer : le timer comporte les codes suivants :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Start()
If ProgressBar1.Value <= 99 Then
ProgressBar1.Value += 1
ElseIf ProgressBar1.Value = 100 Then
Timer1.Stop()
Me.Hide()
Form2.Show()
End If
Label1.Text = ProgressBar1.Value & "%"
End Sub

2. Form2 (Sécurité) :

Il comporte les propriétés suivantes :

-trois groupebox
-un pictureBox
-Deux textBox
-trois Bouton
-Trois labels
Code source :
a) Bouton connexion

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "kedamose" And TextBox2.Text = "1234" Then
MenuGeneral.Show()
Me.Hide()
Else
MsgBox("nom d'utilisateur ou le mot de passe incorrect", MsgBoxStyle.Critical, "message")
End If
End Sub

b) Bouton Annuler

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = " "
TextBox2.Text = " "

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [76]

End Sub

c) Bouton quitter

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Me.Close()
End Sub
End Class

3. Menu Général

Code source :
Imports System.Windows.Forms

Public Class MenuGeneral

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles

NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
' Créez une nouvelle instance du formulaire enfant.
Dim ChildForm As New System.Windows.Forms.Form
' Configurez-la en tant qu'enfant de ce formulaire MDI avant de l'afficher.
ChildForm.MdiParent = Me

m_ChildFormNumber += 1
ChildForm.Text = "Fenêtre " & m_ChildFormNumber

ChildForm.Show()
End Sub

Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click,

OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: ajoutez le code ici pour ouvrir le fichier.
End If
End Sub

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [77]

Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles

SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"

If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = SaveFileDialog.FileName
' TODO: ajoutez le code ici pour enregistrer le contenu actuel du formulaire dans un fichier.
End If
End Sub
Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CutToolStripMenuItem.Click
' Utilisez My.Computer.Clipboard pour insérer les images ou le texte sélectionné dans le Presse-papiers
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CopyToolStripMenuItem.Click
' Utilisez My.Computer.Clipboard pour insérer les images ou le texte sélectionné dans le Presse-papiers
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
PasteToolStripMenuItem.Click
'Utilisez My.Computer.Clipboard.GetText() ou My.Computer.Clipboard.GetData pour extraire les informations
du Presse-papiers.
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ToolBarToolStripMenuItem.Click
Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
End Sub
Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
StatusBarToolStripMenuItem.Click
Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub
Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CloseAllToolStripMenuItem.Click
' Fermez tous les formulaires enfants du parent.
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub
Private m_ChildFormNumber As Integer
Private Sub AgentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
AgentToolStripMenuItem.Click
Agent.ShowDialog()

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [78]

End Sub
Private Sub AchatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
AchatToolStripMenuItem.Click
Form3.ShowDialog()
End Sub
End Class

4. Agent

Il est composé de :
- 3 groupesbox
- 4 labels
- 3 textbox
- 1 combobox
- 1 datagreview
- 9 boutons dont 4 boutons de direction ou de défilement et 5 boutons d’opérations.

Code source :
a) Bouton d’enregistrement
Public Class Agent
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
On Error GoTo saveErr
AgentBindingSource.EndEdit()
AgentTableAdapter.Update(BDVenteDataSet.Agent)
MessageBox.Show("enregistre) reussi avec succes")
saveErr:
Exit Sub
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If MsgBox("voulez_vous supprime?", MsgBoxStyle.YesNoCancel, "message") = MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: cette ligne de code charge les données dans la table 'BDVenteDataSet.Agent'. Vous pouvez la déplacer
ou la supprimer selon vos besoins.

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [79]

Me.AgentTableAdapter.Fill(Me.BDVenteDataSet.Agent)
End Sub

b) Bouton Nouveau

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

AgentBindingSource.AddNew()
End Sub

c) Bouton Annuler

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
End Sub

d) Bouton Supprimer

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

If MsgBox("voulez_vous supprime?", MsgBoxStyle.YesNoCancel, "message") = MsgBoxResult.Yes Then
AgentBindingSource.RemoveCurrent()
End If
End Sub

e) Boutons de Direction

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

AgentBindingSource.MoveFirst()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
AgentBindingSource.MovePrevious()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
AgentBindingSource.MoveNext()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
AgentBindingSource.MoveLast()
End Sub
End Class

5. Vente

Code source :

Il est composé de :
- 3 groupesbox
- 9 labels

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [80]

- 8 textbox
- 1 DateTimePicker
- 1 datagreview
- 9 boutons dont 4 boutons de direction ou de défilement et 5 boutons d’opérations.

Code source
Public Class Form3
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: cette ligne de code charge les données dans la table 'BDVenteDataSet2.Achats'. Vous pouvez la déplacer
ou la supprimer selon vos besoins.
Me.AchatsTableAdapter1.Fill(Me.BDVenteDataSet2.Achats)
'TODO: cette ligne de code charge les données dans la table 'BDVenteDataSet.Achats'. Vous pouvez la déplacer
ou la supprimer selon vos besoins.
Me.AchatsTableAdapter1.Fill(Me.BDVenteDataSet2.Achats)
End Sub

a) Boutons de Direction

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

AchatsBindingSource2.MoveFirst()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
AchatsBindingSource2.MovePrevious()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
AchatsBindingSource2.MoveNext()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
AchatsBindingSource2.MoveLast()
End Sub

b) Bouton Ajouter

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

AchatsBindingSource2.AddNew()
End Sub

c) Bouton d’enregistrement

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim pu, qte, pt, tva, red, pnp As Single
pu = TextBox2.Text
qte = TextBox3.Text
TextBox4.Text = TextBox2.Text * TextBox3.Text
pt = TextBox4.Text
If pt < 10000 Then
TextBox5.Text = 0
red = TextBox5.Text
ElseIf pt <= 100000 And pt >= 10000 Then
TextBox5.Text = Single.Parse(TextBox4.Text) * 5 / 100
red = TextBox5.Text
Else
TextBox5.Text = Single.Parse(TextBox4.Text) * 10 / 100
red = TextBox5.Text
End If
TextBox6.Text = Single.Parse(TextBox4.Text) * 16 / 100
tva = TextBox6.Text
TextBox7.Text = pt + tva - red
On Error GoTo SaveErr
AchatsBindingSource2.EndEdit()

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [81]

AchatsTableAdapter1.Update(BDVenteDataSet2.Achats)
MessageBox.Show("Enregistrement reussi dans la base de données avec succès")
SaveErr:
Exit Sub
End Sub

d) Bouton Supprimer

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

If MsgBox("voulez-vous supprimer cet enregistrement de la base de données?", MsgBoxStyle.YesNo, "Message
de confirmation") = MsgBoxResult.Yes Then
AchatsBindingSource2.RemoveCurrent()
End If
End Sub

e) Fermer

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

If MsgBox("voulez-vous vraiment fermer l'application?", MsgBoxStyle.YesNo, "Message de confirmation") =
MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
End Class

V. Base des données

Notre SGBD est le Microsoft Access, nommée BDVente ayant deux tables
dont : Agent et Achats.
1. Table Agent :

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO
 [82]

2. Table Achats

VI. Conclusion

Je remercie mon professeur MBOYO NDOMBO et son assistant LINGOLE pour le

cours de langage de programmation avec mes amis informaticien de UPGI donc je suis capable de
faire un programme partout dans le monde l’assistant LINGOLE vous restez comme un coach pour
moi je t’aime et sois heureux dans votre vie
Je remercie mon Dieu pour la capacité et l’intelligence qu’il m’a donnée de crée cette
application

| 1ASS. Alphonse MULUBA L1 GESTION/Info 2023

NOTES LAPRO