Examen Fin Module : Langage de Programmation
Partie théorique (20 points)
1.
Citer
l’objectif principal d’utilisation des modules en VB ?
2.
Quels genre
de fichiers ont l’extention .bas ?
3.
La
déclaration suivante, est – elle juste?
Type personne
nom As String
prenom as String
compte as Double
CIN as String
End type
4.
« windowState » ne prend pas une des
valeurs suivantes :
A.
Normal
B.
Minimal
C.
Maximal
D.
Moyenne
5.
L’instruction
suivante est elle juste ou non : Text1.visible = True.
6.
Est-ce
que c’est possible de regrouper des contrôles telles que les TextBox et les
Label ?
Exemple :
Label(0),Label(1), Label(2)….etc. Ou Text(0), Text(1), Text(2)…etc.
7.
Quel est
le numéro de l’erreur « périphérique non disponible » :
A.
13
B.
68
C.
102
8.
Déclarer
un tableau (tab) de deux dimentions.
9.
Combien
de cases contient le tableau suivant : tableau(2 to 7).
Partie pratique (20 points)
Exercice 1 : (8 pt)
1)
Réaliser
un convertisseur Euro/Dollar et
Dollar/Euro. (1 euro = 1.30$) d’une interface graphique comme
la suivante :
Données :
·
Vous
devez entrer un nombre dans le chanp de texte Euros (txtEuro) et puis appuiyer
sur le bouton (Euro => Dollar) et vous aurais le resultat en dollars sur le champ
de texte Dirhams (txtDollar).
·
Les
boutons de convertion portent successivement les captions « Euros
=> Dollars» et « Dollars => Euros » ainsi que
« EuroToDol » et « DolToEuro » comme noms.
·
Pour le
contrôle Frame : caption= « Convertisseur (Dol/Euro) » ;
nom = « convertisseur ».
·
Le
bouton de fereture portant la caption « Fermer » a comme nom
« fermer » et comme fonction l’arrêt de l’execution.
1)
Créer un
executable portant le nom : « Convertisseur.exe ».
Exercice 2 : (12 point)
1.
Réaliser l'interface suivante : (1 point)
2.
Que fait la propriété "Font" du contrôle Label. (1 point)
3.
Que fait la proprièté "AutoSize" du contrôle Label. (1 point)
4.
Donner les noms attribués par défaut aux différents contrôles. (1 point)
5.
On désir afficher le message "Bonjour" dans la zone de texte lorsque l'utilisateur clique
sur le bouton "Afficher",
pour cela, écrire la procédure événementielle correspondant au bouton "Afficher".(1 point)
6.
Ecrire la procédure événementielle correspondant au bouton "Effacer" pour effacer le message
bonjour. (1 point)
7.
Ecrire la procédure événementielle correspondant au bouton "Fin" pour mettre fin à
l'application. (1 point)
8.
Que font les touches : ATL + r ; ALT
+ m; ALT + f. (2,5
point)
9.
Créer dans le bureau le dossier Ex2Partiel et enregistrer votre projet dans ce dossier. (0,5 point)
10.
Donner les extensions des fichiers générés par votre application. (1 point)
Correction
------------------------------------------------------------------------------------------Partie théorique (20 points)
1.
L’objectif
principal d’utilisation des modules en VB est la déclaration des variables
globales. 2 points
2.
L’extention
.bas est résérvée pour les
modules vb. 2 points
3.
La
déclaration du type personne est juste. 2,5 points
4.
« windowState »
ne prend pas le valeurs Moyenne.1,5 points
5.
L’instruction
suivante Text1.visible = True est juste. 2 points
6.
Oui. 2 points
7.
le
numéro de l’erreur « périphérique non disponible » est 68. (3 points)
8.
La
Déclaration d’un tableau de deux dimentions est Dim Tab(1 to 5, 1 to 5).2 points
9.
Le
tableau tableau(2 to 7) contient cinq
cases (2°, 3°, 4°, 5°, 6° et 7ème case).2 points
Partie Pratique(20 points)
1ère Question :
·
2 points pour la nomination des différents contrôles de
la fenêtre.
·
1 point pour la mise en forme.
·
3 points pour la programmation du code des deux boutons
« EuroToDh » et « DhToEuro » comme ci-dessous :
L’évenement
du bouton « EuroToDh » est :
Private
Sub EuroToDh_Click()
Dim
somme As Double
Dim
change As Double
somme
= txtEuro.Text
change = somme * 10.5
txtDh.Text = change
End Sub
L’évenement
du bouton « DhToEuro » est :
Private
Sub DhToEuro_Click()
Dim
somme As Double
Dim
change As Double
somme
= txtDh.Text
change = somme / 10.5
txtEuro.Text = change
End Sub
2ème Question :
·
1,5
point pour la
crétion de l’executable
·
0,5
point s’il
porte le nom Convertisseur.exe
Allez à : Fichier>Créer Projet1.exe
Et par la suite génération d’un executable.
Exercice 2 : (12 points)
1.
Réalisation
de l'interface. (1 point)
2.
(1 point) La
propriété "Font" du contrôle Label permet de jouer sur la mise en
forme de la caption de chaque contrôle.
3.
(1 point) La
proprièté "AutoSize" du contrôle Label, permet d’ajuster la taille du
contrôle label à sa caption.
4.
Les noms
attribués par défaut aux différents contrôles. (1 point)
Label1, Text1, Command1, Command2, Command3
5.
(1 point)
Procédure événementielle correspondant au bouton "Afficher" :
Private Sub
afficher_Click()
Text1.Text = ‘’
Bonjour‘’
End Sub
6.
(1 point)
Procédure événementielle correspondant au bouton "Effacer".
Private Sub
effacer_Click()
Text1.Text = ‘’ ‘’
End Sub
7.
(1
point) Procédure événementielle correspondant au bouton
"Fin" :
Private Sub fin_Click()
end
End Sub
8. (2,5
point)
ATL +
r : Affiche le menu Requête ;
ALT +
m : Ne fait rien;
ALT +
f : Affiche le menu Fichier.
9.
Création
du dossier Ex2Partiel + enregistrement du projet. (0,5 point)
10. Les extensions des fichiers générés : (1 point)
frm : visual basic
form file.
vbp : visual basic
project.
vbw : visual basic
workspace.
Aucun commentaire:
Enregistrer un commentaire