Bonjour
Dans un Button_click() j'ai ce premier calcul effectué
Code :
- 'Calcul des Y(i) en fonction de h
- For i = 1 To NBZ
- Y(i) = Pente(i) * (h(i) - h(i - 1)) + Y(i - 1)
- Debug.Print(" Y : " & i & " Valeur : " & Y(i))
- Next
- call traceprofil()
|
Dans Sub traceprofil() suite a ce calcul j'ai une routine de traçage de graph dans un Picture Box
Code :
- Sub traceprofil()
- Dim g As Graphics = PictureBox1.CreateGraphics
-
- Dim maxportX, Midheight As Single
- maxportX = PictureBox1.Width / D
- Midheight = PictureBox1.Height / 2
- For i=1 to NBZ
- g.DrawLine(Pens.Black, 0, Y(i), PictureBox1.Width, Y(i)+1)
- NEXT
|
Sauf que dans traceprofil le tableau des Y(i) est vide les données bouclées dans Button_click ne sont pas dans traceprofil
Bref les données ne passent pas la sub
tout est déclaré au niveau module pourtant
j'ai du louper qqchose
Merci !
Message édité par Gandalf la croute le 28-09-2010 à 20:15:17
---------------
Astro, photo, macro, brico, dodo
