Données tableau VB Xpress 2008

Données tableau VB Xpress 2008 - VB/VBA/VBS - Programmation

Marsh Posté le 28-09-2010 à 20:08:41    

Bonjour
Dans un Button_click() j'ai ce premier calcul effectué

 
Code :
  1. 'Calcul des Y(i) en fonction de h
  2.         For i = 1 To NBZ
  3.             Y(i) = Pente(i) * (h(i) - h(i - 1)) + Y(i - 1)
  4.             Debug.Print(" Y : " & i & " Valeur : " & Y(i))
  5.        Next
  6. call traceprofil()
 

Dans Sub traceprofil()  suite a ce calcul j'ai une routine de traçage de graph dans un Picture Box

 
Code :
  1. Sub traceprofil()
  2.                Dim g As Graphics = PictureBox1.CreateGraphics
  3.              
  4.         Dim maxportX, Midheight As Single
  5.         maxportX = PictureBox1.Width / D
  6.         Midheight = PictureBox1.Height / 2
  7. For i=1 to NBZ     
  8.   g.DrawLine(Pens.Black, 0, Y(i), PictureBox1.Width, Y(i)+1)
  9. 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
Reply

Marsh Posté le 28-09-2010 à 20:08:41   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed