Solo para EXPERTOS, son Capaces?
quiero saber si alguien puede realizar un programa en vb para antes de las 12 de la noche(hora de colombia) de el 17 de mayo de 2004, que tenga las tablas de multiplicar (que se las debieron de haber aprendido en primaria) . Los reto. "expertos"
Necesitas
dos command button
un list box
un label
text box
label
nombre = Label1
caption = Tabla del:
command Button1
nombre = Command1
caption=Ok
command button2
nombre = Command2
caption = limpiar
enabled= false
list box
nombre = list1
EN EL FORMULARIO VA ASI:
-----------------------------------------------------------------------------------------------------
__________
| Tabla del | -> este es el label
-----------------
______________
------------------------- -> text box (en blanco)
(Ok) -> CommandButton1
---------------------------------
todo esto es el list box
---------------------------------
(limpiar) -> CommandButton2
--------------------------------------------------------------------------------------------------
PROGRAMACION
Private Sub Command1_Click()
Dim i, n, r As Integer
List1.Visible = True
Command2.Enabled = True
n = Val(Text1.Text)
For i = 0 To 12
r = n * i
List1.AddItem (Str(n) + " * " + Str(i) + " = " + Str(i))
Next i
End Sub
Private Sub Command2_Click()
List1.Visible = False
List1.Clear
Command2.Enabled = False
End Sub
dos command button
un list box
un label
text box
label
nombre = Label1
caption = Tabla del:
command Button1
nombre = Command1
caption=Ok
command button2
nombre = Command2
caption = limpiar
enabled= false
list box
nombre = list1
EN EL FORMULARIO VA ASI:
-----------------------------------------------------------------------------------------------------
__________
| Tabla del | -> este es el label
-----------------
______________
------------------------- -> text box (en blanco)
(Ok) -> CommandButton1
---------------------------------
todo esto es el list box
---------------------------------
(limpiar) -> CommandButton2
--------------------------------------------------------------------------------------------------
PROGRAMACION
Private Sub Command1_Click()
Dim i, n, r As Integer
List1.Visible = True
Command2.Enabled = True
n = Val(Text1.Text)
For i = 0 To 12
r = n * i
List1.AddItem (Str(n) + " * " + Str(i) + " = " + Str(i))
Next i
End Sub
Private Sub Command2_Click()
List1.Visible = False
List1.Clear
Command2.Enabled = False
End Sub
