Discussion :

[foued01]

Salut
alors, jai des coordonées geographiques (longitude: x, latitude: y) et j'ai du mal à les representer graphiquement, tento elle me sort alonvers, ..., peut être problemes d'echelle. Alors si qlq peus m'aider à trouver la bonne ECHELLE et comment bien exploiter ScaleMode, ScaleTop, ScaleLeft, ScalWeight.
Et merci.

[avigeilpro]

Premièrement, prière de faire un peu attention à ce que tu écrit, ce n'est pas très lisible.
Deuxièmement, ou sont tes coordonnées, dans un tableau ? dans un fichier ?
Qu'utilise tu pour les afficher : un PictureBox ? Image ?
Montre nous ce que tu as déjà fait (un petit bout de code serait le bienvenu).

[foued01]

Mon Objectf est de representer garphiquement une carte géographique graphiquement sur un FORM, pour ce faire j'ai un fichier de type dat, chaque gouvernerat débute par le nbre de pt puis les pts (longit, latitude)
il y a une vingtaine de gouvernerat. voici un exemple du contenu:

283
9.89 37.25
9.90 37.25
9.88 37.26
9.88 37.27
9.89 37.27
9.89 37.29
9.87 37.30
.........etec
160
10.27 36.82
10.27 36.84
10.24 36.87
10.24 36.88
10.25 36.89
10.25 36.91
10.26 36.92
10.25 36.93
.........etec
et voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Trace_Click()
Dim Lig, NbrPt, x, y, XX, YY, i, L, CX, CY
ScaleWidth = 39 '15 '640
ScaleHeight = 39 '40 '480
ScaleLeft = 20
ScaleTop = 0
ScaleMode = 0
TraceCarteGlobal:
i = 0
Open "c:\seisme1\tungov.dat" For Input As #1
  While Not EOF(1)
  Line Input #1, Lig
  If Mid(Lig, 5, 1) <> "." Then GoSub TraceGouv
  Wend
  Close
  GoTo fin
TraceGouv:
i = i + 1
NbrPt = Val(Lig)
For J = 1 To NbrPt
Line Input #1, Lig
y = Val(Left(Lig, 7))
x = Val(Right(Lig, 5))
   If Abs(x - XX) < 0.3 And Abs(y - YY) < 0.3 Then Line (x, y)-(XX, YY)
    XX = x
    YY = y
Next J
Return

[Delbeke]

tu devrais entourer ton code avec des balises [Code] [/Code ]

la ligne ci-dessous m'interpelle

Code :

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

If Mid(Lig, 5, 1) <> "." Then GoSub TraceGouv

en regardardant l'extrait du fichier dat, tu executes TraceGouv a chaque entrée du Dat. Cette ligne signifie "Si le 5° caractere est différent du point". Hors toutes les lignes que tu montres repondent à cette condition

[Delbeke]

Ces deux lignes posent egaement problème

Code :

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

1
2
ScaleWidth = 39 '15 '640
ScaleHeight = 39 '40 '480

Ces deux propriétes doivent recevoir des décimaux, pas des mesures d'angle
et en plus j'aurais bien ScaleHeight en négatif

[foued01]

Alor
En ce qui conserne l'algorithme pas de probleme, cette carte je l'avais representé sur le language "QuikBasic", mon Objectif est de la representer sur VB6 et sur un FORM. Le test

Code :

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

If Mid(Lig, 5, 1) <> "." Then GoSub TraceGouv

est tout à fait juste puisque "." qui se trouve au 5ème ron de la ligne "Lig" et cette condition n'est pas valide que lorsque la ligne Lig contien le nbre de pt du gouvernerat en question.
et En ce qui concerne les lignes :

Code :

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

1
2
ScaleWidth = 39 '15 '640
ScaleHeight = 39 '40 '480

ils sont juste et bien sure c'est pas des mesures d'angles... en VB lorsque vous mettez 'bla bla >> c'est considerer comme des commentaires donc c'est comme si vous avez éciris ScaleWidth = 39 toute seule et '15 '640 sont des commentaires... en fait se sont des valeurs que j'avais esseyés au par avant.