Make your own free website on Tripod.com
- parte 3
Volver a Cuadros de Mensaje (msgBox) Ir al índice Ir a Estructuras de Control
Al llegar a 10 aparecerá un cuadro de mensaje y al oprimir aceptar se cerrará el formulario. Para esto contamos con un cuadro de texto Txt1 y un botón Cmd contar. Si bien la estructura If - Then todavía no fue vista, es muy sencilla de usar. De todos modos si se quiere ahondar en estructuras de control haga click aquí
Private Sub Cmdcontar_Click()
Txt1 = Val(Txt1) + 1
If Txt1 = 10 Then
MsgBox ("Solo contamos hasta 10"), (vbOKOnly + vbExclamation), ("Número final")
End
End If
End Sub

El botón "btn1" suma puntos a la caja de texto "Tlocal". El botón "Btn2" suma puntos a la caja de texto "Tvisitante". Hay otra caja de texto llamada "Tdiferencia" donde se restan los valores obtenidos en las cajas de texto local y visitante.

Colocados dos números en las cajas de texto"N1" y "N2", según el botón accionado (btnsuma, btnresta, btnproducto o btn división, deberá aparecer el resultado en la caja de texto "R"
N1


N2

R

btn:suma
Caption:Suma
btnresta
Caption Resta
btndivisión
Caption:División
btnproducto
Caption Product
o

Evento
Sub btnsuma_Click( )
R.Text = Val (N1.Text) + Val (N2.Text)
End Sub

Evento
Sub btnresta_Click( )
R.Text= Val (N1.Text) - Val (N2.Text)
End Sub
Evento
Sub btnproducto_Click( )
R.Text = Val (N1.Text) * Val (N2.Text)
End Sub

Evento
Sub btndivision_Click( )
R.Text = Val (N1.Text) / Val (N2.Text)
End Sub

A continuación te invitamos a ver
"Estructuras de Control
"
Volver arriba Ir al índice Ir a Estructuras de Control
Volver a Cuadros de Mensaje (MsgBox)