Exercice Visual Basic : Ligne Article
Rédigé par GC Team, Publié le 05 Janvier 2012, Mise à jour le Samedi, 17 Décembre 2022 16:19![](/images/thumb/146/default.png)
Une ligne article est décrite par les données suivantes
ATTRIBUTS |
Type |
Visibilite |
NumArticle |
Entier |
Private |
Designation |
Caractere |
Private |
PrixUnitaire |
Reel double |
Private |
QuantiteEn Stock |
Entier |
Private |
QuantiteCommandee |
Entier |
Private |
NumCommande |
Entier |
Private |
On peut connaitre le prix de vente article par la fonction MontantLigneQ.
On peut connaitre le total facture par la fonction TotalFactureQ. On peut connaitre le reste en stock par la fonction RestStockQ.
1- Ecrire la classe LigneArticle avec ses donnees, ses methodes et ses constructeurs :
• la methode MontantLigneQ renvoie le calcul du total ligne (PrixUnitaire * QuantiteCommandee)
• la methode TotalFactureQ renvoie le calcul du total facture (somme(MontantLigne))
• la methode RestStockQ renvoie le reste en stock lorsque un article est vendu
(QuantiteEn Stock - QuantiteCommandee )
• la methode AffichageQ affiche les lignes commande
2- Les objets de la classe LigneArticle sont a stocke dans un vecteur dynamique.
a) Creer une methode SaisieArticleQ permettant de saisir les objets de la classe LigneArticle
Exemple d'objets de la classe LigneArticle
NumArticle |
Designation |
PrixUnitaire |
QuantiteEnStoc k |
QuantiteCommandee |
NumCommande |
01 |
Ecran |
350 |
30 |
10 |
1 |
02 |
Souris |
30 |
100 |
30 |
1 |
01 |
Ecran |
350 |
20 |
5 |
2 |
03 |
Imprimante |
1000 |
10 |
2 |
1 |
02 |
Souris |
30 |
70 |
5 |
2 |
b) Ecrire un programme permettant de realiser le menu suivant:
1. Remplissage du vecteur .
2. Ajout d'une ligne article et affichage du reste en stock pour Particle commande.
3. Insérer une ligne article a un emplacement précis.
4. Suppression d'un ligne article.
5. Afficher les lignes articles.
6. Afficher les lignes articles d'une même commande.
7. Trier les lignes articles par numéro d'article.
3 - On désire stocker dans un fichier séquentiel les lignes articles dont la quantité en stock est supérieur a 50.
Ecrire un programme permettant de :
a) Créer le fichier séquentiel a partir des informations contenues dans le vecteur
b) Afficher 1'ensemble des enregistrements
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 |
Public Class ligne_article Private NumArticle As Integer Private Designation As Char Private PrixUnitaire As Double Private QuantiteEn_Stock As Integer Private QuantiteCommandee As Integer Private NumCommande As Integer Dim a As Double Property _numart() Get Return NumArticle End Get Set(ByVal value) NumArticle = value End Set End Property Property _des() Get Return Designation End Get Set(ByVal value) Designation = value End Set End Property Property _prix() Get Return PrixUnitaire End Get Set(ByVal value) PrixUnitaire = value End Set End Property Property _qtstock() Get Return QuantiteEn_Stock End Get Set(ByVal value) QuantiteEn_Stock = value End Set End Property Property _qtcom() Get Return QuantiteCommandee End Get Set(ByVal value) QuantiteCommandee = value End Set End Property Property _numcom() Get Return NumCommande End Get Set(ByVal value) NumCommande = value End Set End Property Public Function montantligne() As Double Return (PrixUnitaire * QuantiteCommandee) End Function Public Function TotalFactureQ() As Double a += montantligne() Return a End Function Public Function RestStockQ() As Double Return (QuantiteEn_Stock - QuantiteCommandee) End Function Public Sub AffichageQ() Console.WriteLine(NumCommande & vbTab & QuantiteCommandee) End Sub End Class --------------------------------------------------------------------------------------------- Module Module1 Public al As New Collections.ArrayList Sub Main() End Sub Public Sub SaisieArticleQ() Dim s As New ligne_article Console.WriteLine("Entrez le numero d'article") s._numart = Console.ReadLine Console.WriteLine("Entrez le designation") s._des = Console.ReadLine Console.WriteLine("Entrez le prix unitaire") s._prix = Console.ReadLine Console.WriteLine("Entrez la qt en stock ") s._qtstock = Console.ReadLine Console.WriteLine("Entrez le qt commandé") s._qtcom = Console.ReadLine Console.WriteLine("Entrez le numero de commande") s._numcom = Console.ReadLine al.Add(s) End Sub End Module |