Aacor

Télécharger le projet
Commenter

Description

Je viens de passer ma conduite acompagnée et j'en ai déjà marre de devoir tout écrire sur le petit carnet qu'ils nous donnent !
J'ai donc décidé de créer mon propre programme me permettant de sauvegarder mes parcours pour les écrires lorsque j'aurais mon rendez-vous pédagogique !

Et heureusement que VB.Net est là, car le code ne fait que 21 lignes de code (sans compter le : Code généré par le Concepteur Windows Form).

C'est une vrai partie de plaisir de coder en VB.Net !! J'utilise un DataGrid qui me permet de lire et d'éditer (sans m'occuper de rien) mon fichier au format .xml (révolutionnaire !!!)

Franchement, si vous ne connaissez pas, je vous conseille de vite migrer en VB.Net (ou C# si vous voulez !) !

[MISE A JOUR] J'ai implémenter une fonction qui permet de savoir combien de km ont été parcouru depuis le début !!

Source / Exemple : 


'Permet d'utiliser les fonctions ayant un rapport avec l'XML
Imports System.IO

Public Class FrmMain

    Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "
'Code coupé !
#End Region

    'Cette variable permet de faire toutes les opérations sur le DataGrid :
    Dim dsAAC As DataSet

    'Lorsque l'on clique sur le bouton Afficher :
    Private Sub btnAfficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfficher.Click
        'Instanciation de la variable 
        dsAAC = New DataSet
        'Lecture du fichier "AAC.xml" :
        dsAAC.ReadXml("AAC.xml")

        With dtgrd
            'Le controle gère automatiquement l'affichage du fichier !!!
            .DataSource = dsAAC
            'Permet d'afficher les différentes colonnes avec les noms qu'elles ont dans le fichier .xml
            .DataMember = dsAAC.Tables(0).TableName
        End With
        'Affiche le nombre total de kilometre parcourus :
        AfficheLeTotalDeKM()
    End Sub

    'Lorsqu'on clique sur le bouton Enregistrer :
    Private Sub btnEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnregistrer.Click
        'Déclaration et instanciation d'une variable permetant d'écrire dans le fichier "AAC.xml" :
        Dim sw As New StreamWriter(Path.GetDirectoryName(Application.ExecutablePath) & "\AAC.xml")
        'Ecrit dans le fichier :
        dsAAC.WriteXml(sw)
        'On ferme le fichier :
        sw.Close()
        'Actualise le nombre total de km :
        AfficheLeTotalDeKM()
    End Sub

    'Lorsqu'on clique sur le bouton Fermer :
    Private Sub btnFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFermer.Click
        'Efface le controle DataGrid :
        dtgrd.DataSource = Nothing
        'Efface le contenu du TextBox txtKM :
        txtKM.Text = ""
    End Sub

  'Permet de savoir combien de Km ont été parcouru :
   Private Sub AfficheLeTotalDeKM()
        Dim i As Integer
        Dim Total As Integer = 0

        With dtgrd
            'Lecture des kilométrages :
            For i = 0 To .VisibleRowCount - 2
                    Total += .Item(i, 2)
            Next
        End With
        'Affichage des km :
        txtKM.Text = Total
    End Sub

End Class

Conclusion :


Il ne me reste plus qu'à faire la gestion des types des données que l'on peut rentrer dans le DateGrid !
Télécharger le projet

Codes Sources

S'inscrire maintenant

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.

Du même auteur (ZogStriP)