Programación General > Visual Basic 6.0 e inferiores

 Unas Preguntitas

(1/1)

eorack:
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

F_Tanori:

--- Código: Text ---Private Sub Command1_Click()A = val(Text1)For I = 1 To 10B = A * IPrint " "; A; "*", I, "=", BNext IEnd 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+1End 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

eorack:
Saludos F_Tanori, muchisimas gracias por la ayuda

Navegación

[0] Índice de Mensajes