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 29 30 31 32
|
With Me
Dim g As Graphics
Dim sr As New StreamReader(man & "out\visib") 'fichier contenant les coordonnees
strs = Split(sr.ReadLine)
lsat0 = Round(Val(strs(0)), 0)
bsat0 = Round(Val(strs(1)), 0)
With .carte 'le picturebox
.Refresh()
g = .CreateGraphics()
For i = 1 To 360
strs = Split(sr.ReadLine)
lsat1 = Round(Val(strs(0)), 0)
bsat1 = Round(Val(strs(1)), 0)
lsat2 = lsat0 : lsat3 = lsat1
If Abs(lsat1 - lsat0) > 400 Then
If lsat1 > lsat0 Then lsat2 += 800 Else lsat3 += 800 'la carte du monde fait 800*400 pixels
ils = i
End If
g.DrawLine(Pens.White, lsat2, bsat0, lsat3, bsat1)
If ils = i Then
lsat2 -= 800
lsat3 -= 800
g.DrawLine(Pens.White, lsat2, bsat0, lsat3, bsat1)
ils = 0
End If
lsat0 = lsat1
bsat0 = bsat1
Next
End With
sr.Close()
End With |
Partager