Discussion :

[rikidude]

Bonjour,

J'essais de développer une petite application qui fais la lecture des fichiers ShapeFile d'ESRI. (.shp, .dbf et .shx)

Dans mon état d'avancement je suis rendu à l'affichage des points. Par programmation je lance cette fonction pour ajouter le point:

l_obj_graphicPath.AddEllipse(l_obj_coordinates.X, l_obj_coordinates.Y, 5, 5)

Voilà le problème: mes coordonnées X et Y sont en LAT/LON ou p-e même en mètres. Comment je fais pour mettre cela à l'échelle dans mon contrôle de type PANEL ou PICTUREBOX. Par exemple mon premier point est (226483,5371490) Ou est-ce qu'il apparaitra dans mon application?

Merci beaucoup.

[rikidude]

Selon le lien suivant: http://www.codeproject.com/KB/dotnet/Calibrator.aspx

J'ai fais quelque chose du genre. Pour le moment, je n'obtiens pas le résultat souhaité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Private Sub setTransformParameters()
            DeltaX = (MaxLon - MinLon) / (DisplayPanel.Width)
            DeltaY = (MinLat - MaxLat) / (DisplayPanel.Height)
            Lat0 = MaxLat * DeltaY
            Lon0 = MinLon * DeltaX
        End Sub
 
        Public Function LatLongtoXY(ByVal Lat As Double, ByVal Lon As Double) As Point
            Dim X As Double = (Lon - Lon0) / DeltaX
            Dim Y As Double = (Lat - Lat0) / DeltaY
            Dim pnt As Point = New Point(X, Y)
 
            Return pnt
        End Function

[Poulain]

En fait, normalement pour remettre à l'echelle, il faut tout simplement faie un produit en croix

[rikidude]

Voila la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        Private Function LatLongtoXY(ByVal p_bln_lon As Double, ByVal p_bln_lat As Double) As Point
            Dim l_dbl_x As Double = 0 + (p_bln_lon - MinLon) * (DisplayPanel.Width / (MaxLon - MinLon))
            Dim l_dbl_y As Double = 0 - (p_bln_lat - MaxLat) * (DisplayPanel.Height / (MaxLat - MinLat))
            Dim l_obj_point As Point = New Point(l_dbl_x, l_dbl_y)
 
            Return l_obj_point
        End Function