Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: eorack en Sábado 14 de Julio de 2007, 19:06
Título: Unas Preguntitas
Publicado por: eorack en Sábado 14 de Julio de 2007, 19:06
Saludos a todos, bueno pues mi problema es que no puede hacer un programa que me muestre las tablas multiplicar una por una hasta la del 10 usando timer y para colmo cuanto termine con un command button tengo que hacer que se limpie la pantalla, mi codigo para una tabla es este:
Private Sub Command1_Click() A = Text1 For I = 1 To 10 B = A * I Print " "; A; "*", I, "=", B Next I End Sub
Como le hago para que me muestre las tablas? y para limpiar la pantalla con un command button? Gracias por su atencion
Título: Re: Unas Preguntitas
Publicado por: F_Tanori en Sábado 14 de Julio de 2007, 23:06
Código: Text
Private Sub Command1_Click()
A = val(Text1)
For I = 1 To 10
B = A * I
Print " "; A; "*", I, "=", B
Next I
End Sub
al terminar debes incrementar la tabla para la siguiente impresion
Código: Text
Text1= A+1
Si lo que quieres es que sea con un timer pues colocalo en el timer :rolleyes: :P
Código: Text
Private Sub Timer1_Timer()
A = val(Text1)
For I = 1 To 10
B = A * I
Print " "; A; "*", I, "=", B
Next I
Text1= A+1
End Sub
Para borrar se utiliza form.Cls
Código: Text
Form1.Cls
o
Código: Text
Me.Cls
'// formulario activo
Utiliza las etiquetas [CODE] para que tu codigo sea mas entendible
Saludos
Título: Re: Unas Preguntitas
Publicado por: eorack en Domingo 15 de Julio de 2007, 16:23