POCKET PC ERELEVÉ

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

Télécharger le zip

19 novembre 2008 11:52:53 :

Après avoir amélioré certaines fonctionnalités,j'y ai ajouté la visionneuse, afin de vous permettre de voir vos données sur Google Earth.

27 novembre 2008 13:43:46 :

J'y ai ajouter un bouton qui permet de voir directement votre parcourt sur google map. Si vous voulez avoir le CAB contactez moi : kip_rolland@yahoo.fr

03 décembre 2008 09:54:19 :

Petites corrections