[Line en relatif] aen VB Fermé

Question

Bonjour,

J'aurais besoin d'un coup de pouce en visual basic...
j'ai un fichier texte avec des coordonnées de points filtrés dans le tableaux Decoupe(). A chaque ligne du fichier texte qui se présente ainsi :


24290 2.07
24297.5 2.076
24305 2.081
24309.5 2.086
24315 2.091
24320.5 2.097
24327 2.102
24334 2.107
24340 2.112
24345 2.118
24351 2.122
24355 2.128

les nombres à gauche du signe ESPACE sont les coordonnées en X tandis que ceux à droite du signe ESPACE sont les coordonnées en Y.

A l'aide de la fonction split() ci-dessous je mets pour chaque ligne les coordonnées en X et Y respectivement dans Decoupe(0) et Decoupe(1)


Decoupe() = Split(Texte, " ")


le but est de tracer un graphe dans une picturebox avec la fonction line.

Il parait que l'on peut avec cette fonction effectuer le tracer en relatif par rapport au point précédent savez-vous comment procéder ?

Merci d'avance à tous les membres pour leurs aides.

Utilisateur anonyme · Answer

Bonjour je remonte mon post à tout hasard...

Toujours personnes ??

amigo · Answer

Bonjour

voila comment on trace des lignes en VB

'Premier segment
Line (x1, y1)-(x2, y2), color

'Segements suivants
Line -(x2, y2), color

ce qui donnerait:

Sub polyligne()
dim x1,x2,y1,y2

Open fichier for input as #1
input #1, x1,y1
input #1,x2,y2
'premier segment
Line (x1, y1)-(x2, y2)
while not eof(1)
   input #1,x2,y2
   'segments suivants
   Line -(x2, y2)
wend
close

end sub

[Line en relatif] aen VB

2 réponses

Discussions similaires