Exo vb

said22 - 22 janv. 2018 à 22:25 - Dernière réponse : Whismeril 11517 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 mai 2018 Dernière intervention
- 23 janv. 2018 à 12:59
Bonjour,
j'ai un exo et jepprouve des difficultées
On dispose des informations suivantes sur un individu :
N° ordre : entier
Nom et prenom : String
Age : entier
Taille : Reel
Sexe : Caractère


Enregistrer en mémoire dans un datagridview les individus
Donner l’accès à deux boutons pour trier la datagrid de deux manière (a définir par chaque groupe)
Enregistrer les informations dans un fichier à acces direct
Des boutons pour pouvoir afficher du fichier des informations dans la datagrid (selon 2 critères au choix)
Un bouton pour calculer l’age moyen des informations affichées à un instant t
Afficher la suite 

Votre réponse

8 réponses

Whismeril 11517 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 mai 2018 Dernière intervention - 22 janv. 2018 à 23:06
saidboms 3 Messages postés lundi 22 janvier 2018Date d'inscription 23 janvier 2018 Dernière intervention - 23 janv. 2018 à 08:23
je suis etudiant en année de 3eme licence en systeme informatique et logiciel.....
le code source
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = "" Then
        MsgBox(" Veuillez entrer les informations")


    ElseIf TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" And TextBox5.Text = "" And ComboBox1.SelectedItem = "" Then
        MsgBox(" Veuillez entrer les informations")

    Else


        DataGridView1.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, ComboBox1.SelectedItem)

    End If

    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    TextBox5.Clear()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
        e.Handled = True
    End If
End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
    If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
        e.Handled = True
    End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    End


End Sub

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

    FileOpen(1, "C:\Users\kbb\Desktop\Projet\MiniProjet\Personnes.dat", OpenMode.Random)
    Dim lign As String

    lign = DataGridView1.AccessibleDescription





End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    DataGridView1.Sort(DataGridView1.Columns(3), System.ComponentModel.ListSortDirection.Ascending)
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

saidboms 3 Messages postés lundi 22 janvier 2018Date d'inscription 23 janvier 2018 Dernière intervention - 23 janv. 2018 à 08:31
comment joindre une image
Whismeril 11517 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 mai 2018 Dernière intervention - 23 janv. 2018 à 12:44
Pour les images, il faut répondre avec le bouton "répondre au sujet" et non commenter...
Quand je disais, je ne connais pas ton niveau, je ne parlais pas de l'école où tu es car cela peut être trompeur.
Tu vois en lisant
je suis etudiant en année de 3eme licence en systeme informatique et logiciel.....
on peut se dire "ça en jette, il connait l'objet, le MVC, etc... " et quand on lit le code (sans coloration....), on se rend compte que non, pas encore.
Whismeril 11517 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 mai 2018 Dernière intervention - 23 janv. 2018 à 12:58
Alors déjà, dans tout projet tu vas dans les références et tu enlèves Microsoft Visual Basic. Ça t'interdira d'utiliser du VB6 dans VB.Net.
Tant que tu y es active Option Strict et Option Explicit

MsgBox(" Veuillez entrer les informations") 
ça c'est du VB6, et t'as vu c'est quand même bien plus lisible en couleur.

Ensuite il est très déconseillé d'utiliser les noms de contrôles par défaut.
En effet, en cas de maintenance future ou de question dans un forum, on ne sait pas à quoi correspond TextBox1 ou Bouton37, alors que par exemple tbxNom pour un textbox dans lequel on saisit le nom ou butTriParPrenom pour le bouton qui sert à trier par prénom c'est plus parlant.


If TextBox1.Text = "" Then 
MsgBox(" Veuillez entrer les informations") 


ElseIf TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" And TextBox5.Text = "" And ComboBox1.SelectedItem = "" Then 
MsgBox(" Veuillez entrer les informations") 


Ça n'ira jamais dans le elseif, en effet si TextBox1.Text = "" ça ira dans le if et si TextBox1.Text n'est pas = "" alors ça ne rentrera pas dans le elseif.
Whismeril 11517 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 mai 2018 Dernière intervention - 23 janv. 2018 à 12:59
Quand à la lecture et l'écriture de ton fichier dat, il faut que tu décrives le format du fichier.
Commenter la réponse de Whismeril

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.