Pocket pc erelevé

Télécharger le projet
Commenter

Description

Le Pocket eRelevé est juste un petit utilitaire pour des observations naturalistes. Il permet de prendre des points GPS, le nom de l'espèce, le nombre,... au cours d'une observation. Il peut être utile aussi pour une randonnée. Les observations sont sauvegarder sous forme de fichier .csv, .xml et .kml. Si vous installez google map et que vous êtes connectés à internet vous pouvez grâce à un clic voir votre parcours

Source / Exemple : 


Imports System.IO
Imports System.Data

Public Class frmSaisie

    'Déclaration des différentes colonnes

    Dim Dat As New DataColumn("Date")
    Dim Esp As New DataColumn("Espece")
    Dim Nomb As New DataColumn("Nombre")
    Dim Lat As New DataColumn("Latitude")
    Dim Lon As New DataColumn("Longitude")
    Dim Dop As New DataColumn("DOP")
    Dim ErPr As New DataColumn("Erreur" & " " & "de" & " " & "Position")
    Dim Desc As New DataColumn("Zone" & " " & "d'etude")
    Dim Obs As New DataColumn("Observateur")

    Dim DT As New DataTable 'Datatable est une table en mémoire
    Dim DS As New DataSet("DT") 'DataSet est un cache de données en mémoire

    Dim DR As DataRow 'Permet d'ajouter de données

    Private m_spz As String
    Private mr_spz As String

    Public val_Ind1 As String
    Public val_Ind2 As String
    Public val_Ind As String

    'Propriété qui permet de récupérer le contenu d'un label mis dans une variable
    Public Property strSPZ() As String
        Get
            Return m_spz
        End Get
        Set(ByVal value As String)
            m_spz = value
            lblEsp.Text = value
        End Set

    End Property

    'Propriété de récupération de la date et l'heure courants
    Public ReadOnly Property Now() As DateTime
        Get
            Dim ThisMoment As Date
            ThisMoment = Now

        End Get
    End Property

    Private Sub rb_nbreInd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_nbreInd.CheckedChanged
        DUp_NbInd.Enabled = True
        DUp_IndAb.Enabled = False

    End Sub

    Private Sub rb_IndAb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_IndAb.CheckedChanged
        DUp_IndAb.Enabled = True
        DUp_NbInd.Enabled = False

    End Sub

    Private Sub btnSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click
        Me.Hide()

        REM On choisit comme nombre le valeur en face du bouton sélectionné
        val_Ind1 = DUp_NbInd.Text
        val_Ind2 = DUp_IndAb.Text
        If rb_nbreInd.Checked = True Then val_Ind = val_Ind1
        If rb_IndAb.Checked = True Then val_Ind = val_Ind2

        Dim newrow1 As DataRow = DT.NewRow

        'Ajout les éléments d'une ligne

        newrow1(Dat) = Me.lblDate.Text
        newrow1(Esp) = Me.lblEsp.Text
        newrow1(Nomb) = Me.val_Ind
        newrow1(Obs) = txtIdObs.Text
        newrow1(Lat) = frmLocalisation.lblLatitude.Text
        newrow1(Lon) = frmLocalisation.lblLongitude.Text
        newrow1(Dop) = frmLocalisation.lbDop.Text
        newrow1(Desc) = frmZoneLieu.tst
        newrow1(ErPr) = frmLocalisation.lbPrecision.Text

        'Ajout de la rangée à la DataTable
        DT.Rows.Add(newrow1)

        'Alimentation de la DataGrid avec la Table
        dgGrid.DataSource = DS.Tables(0)

        frmFin.Show()

        frmTable.odatasource = Me.dgGrid.DataSource 'Copie le contenu de dgGrid dans odatasource

        frmZoneLieu.TextBox1.Text = ""

    End Sub

    Private Sub dgGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If DS.Tables.Count = 0 Then
            'Création des différentes colonnes (ajout des colonnes à la DataTable)
            DT.Columns.Add(Dat)
            DT.Columns.Add(Esp)
            DT.Columns.Add(Nomb)
            DT.Columns.Add(Lat)
            DT.Columns.Add(Lon)
            DT.Columns.Add(Dop)
            DT.Columns.Add(ErPr)
            DT.Columns.Add(Desc)
            DT.Columns.Add(Obs)

            DS.Tables.Add(DT) 'Ajout de la Table au DataSet

        End If
    End Sub

    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        Me.Hide()
        FormMain.Show()

    End Sub
End Class

Conclusion :


J'espère que vous l'essayerez et me ferez part de vos critiques pour de futurs améliorations.
Merci
Télécharger le projet

Codes Sources

A voir également

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 (KIPRE74)