• Domingo 22 de Diciembre de 2024, 19:56

Autor Tema:  Unas Preguntitas  (Leído 1079 veces)

eorack

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Unas Preguntitas
« en: Sábado 14 de Julio de 2007, 19:06 »
0
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

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Unas Preguntitas
« Respuesta #1 en: Sábado 14 de Julio de 2007, 23:06 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

eorack

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Unas Preguntitas
« Respuesta #2 en: Domingo 15 de Julio de 2007, 16:23 »
0
Saludos F_Tanori, muchisimas gracias por la ayuda