SoloCodigo

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
  1. Private Sub Command1_Click()
  2. A = val(Text1)
  3. For I = 1 To 10
  4. B = A * I
  5. Print " "; A; "*", I, "=", B
  6. Next I
  7. End Sub
  8.  

al terminar debes incrementar la tabla para la siguiente impresion

Código: Text
  1. Text1= A+1
  2.  

Si lo que quieres es que sea con un timer pues colocalo en el timer  :rolleyes:  :P

Código: Text
  1. Private Sub Timer1_Timer()
  2.    A = val(Text1)
  3.    For I = 1 To 10
  4.        B = A * I
  5.        Print " "; A; "*", I, "=", B
  6.    Next I
  7.   Text1= A+1
  8. End Sub
  9.  

Para borrar se utiliza form.Cls

Código: Text
  1. Form1.Cls
  2.  

o

Código: Text
  1. Me.Cls
  2.  
'// 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
Saludos F_Tanori, muchisimas gracias por la ayuda