Exercice Visual Basic : Gestion Magasin
Afin de faciliter la gestion de notre magasin, on souhaite développer une petite application qui répond aux fonctionnalités désirés :
- Créer une Interface de Mise à Jour des Articles
- Ajouter un Article (le contrôle de saisie est obligatoire et l’article ne doit pas être enregistré deux fois.)
- Modifier un article
- Rechercher un article
- Supprimer un article
Interface Graphique:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Public Class Form1 Public num As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With art .numA = Textnum.Text .nomA = Textnom.Text .prixA = TextprixA.Text .prixV = TextprixV.Text For i = 0 To col.Count - 1 art = col(i) If col(art.numA) = .numA Then MsgBox("cette article existe déjà") Exit Sub Else End If Next col.Add(art) End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Textnum.SelectAll() If MessageBox.Show("voulez vous vraiment modifier cette article", "information", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then col.Insert(art.numA, art) End If End SubEnd Class------------------------------------------------------------------------------Module gestion_art Structure articles Public numA As Integer Public nomA As String Public prixA As Double Public prixV As Double End Structure Public art As articles Public col As New ArrayListEnd Module |