porque no imprime datos?
Publicado por Al (3 intervenciones) el 01/04/2008 19:07:08
Hola, necesito de su ayuda, dentro de un timer tengo un while ya que necesito en determinado tiempo mostrar ciertos valores que se van incrementando hasta llegar a un tope, lo que pretendo es darle un tope inferior, un superior y cada tiempo ir mostrando un incremento del inf hasta llegar al sup, pero al ejecutar cuando pasa este tiempo(el timer tiene un intervalo de 3 segs) solo me imprime el ultimo valor, como le hago para que pueda ver cada uno de los valores ayuda please, este es el codigo:
Dim Sup As Double
Dim Inf As Double
Dim Res As Double
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Text1_Change()
Sup = Val(Text1.Text)
End Sub
Private Sub Text2_Change()
Inf = Val(Text2.Text)
End Sub
Private Sub Timer1_Timer()
Res = Inf
While Res < Sup
Res = Res + 0.2
Text3.Text = Res
Wend
End Sub
Dim Sup As Double
Dim Inf As Double
Dim Res As Double
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Text1_Change()
Sup = Val(Text1.Text)
End Sub
Private Sub Text2_Change()
Inf = Val(Text2.Text)
End Sub
Private Sub Timer1_Timer()
Res = Inf
While Res < Sup
Res = Res + 0.2
Text3.Text = Res
Wend
End Sub
Valora esta pregunta


0