ayuda con los arrays
Publicado por Albert Poti (2 intervenciones) el 25/11/2008 20:50:49
necesito que me echen una mano porfavor. io tengo un programa para kcalcular en una tabla d valores la posicion de un objeto en funcion del tiempo... pero al intentar que me salgan los diferentes valores en la tabla de Flexigrid no se como definir los arrays. necesito dos arrays uno para las coordenadas X y otro para las coordenadas Y. aqui adjunto el escrito del VB para que les sea mas facil entenderlo:
Private Sub CB1_Click()
Dim x, y, v, at, t, ay As Single
For i = 1 To 500
at = 0.01
ay = -9.8
v = Val(Txt1.Text)
t = t + at
x = (v * Cos(Txt2.Text / 180 * 3.141593)) * t
y = (v * Sin(Txt2.Text / 180 * 3.141593)) * t + 1 / 2 * ay * t ^ 2
GR1.Col = 1
GR1(1).Rows = x
GR1(i).Text = x
Next i
End Sub
muchas gracias de antemano
Private Sub CB1_Click()
Dim x, y, v, at, t, ay As Single
For i = 1 To 500
at = 0.01
ay = -9.8
v = Val(Txt1.Text)
t = t + at
x = (v * Cos(Txt2.Text / 180 * 3.141593)) * t
y = (v * Sin(Txt2.Text / 180 * 3.141593)) * t + 1 / 2 * ay * t ^ 2
GR1.Col = 1
GR1(1).Rows = x
GR1(i).Text = x
Next i
End Sub
muchas gracias de antemano
Valora esta pregunta


0