FORMULAS DE PROGRA
Prívate Sub Command1_Click()
a = Val (Texvalora.Text)
b = Val (texvalorb.Text)
c = a + b
Labrespuesta.Caption = c
Private Sub Command2_Click()
a = Val (Texvalora.Text)
b = Val(texvalorb.Text)
c = a - b
Labrespuesta.Caption = c
Private Sub Command3_Click()
a = Val (Texvalora.Text)
b = Val (texvalorb.Text)
c = a * b
Labrespuesta.Caption = c
Private Sub Command4_Click()
a = Val(Texvalora.Text)
b = Val (texvalorb.Text)
c = a / b
Labrespuesta.Caption = c
Private Sub Command7_Click()
Texvalora.Text = ""
texvalorb.Text = ""
Labrespuesta.Caption = ""
CRONOMETRO CON LABELS:
Dimsegundos As Integer
Dim dias As Integer
Dim año As Integer
Dim minutos As Integer
Dim horas As Integer
Private Sub cominiciar_Click ()
Timer1.Enabled = True
Comparar. Visible = True
cominiciar.Visible =False
comsalir.Visible = False
comlimpiar.Visible = False
Comlapso.Visible = True
Prívate Sub Comlapso_Click ()
LisLapsos.AddItem año & " años " & dias & " días " & horas & " horas " & minutos & " min" & segundos & " Seg"
Private Sub comlimpiar_Click()
Segundos = 0
Minutos = 0
Horas = 0
labhoras.Caption = 0
labminutos.Caption = 0
labsegundos.Caption = 0
comlimpiar.Visible = FalseLisLapsos.Clear
Private Sub comparar_Click ()
comparar.Visible = False
cominiciar.Visible = True
comsalir.Visible = True
comlimpiar.Visible = True
Timer1.Enabled = False
Comlapso.Visible = False
Private Subcomsalir_Click ()
End
Private Sub Form Load ()
comparar.Visible = False
comlimpiar.Visible = False
Comlapso.Visible = False
Timer1.Enabled = False
Private Sub Timer1_Timer ()
Segundos = segundos + 1labsegundos.Caption = segundos
If segundos = 60 Then
Segundos = 0
Minutos = minutos + 1
labminutos.Caption = minutos
labsegundos.Caption = 0
End If
If minutos = 60 Then
Minutos = 0
Horas = horas + 1labhoras.Caption = horas
labminutos.Caption = 0
End If
If segundos = 60 Then
Segundos = 0
Minutos = minutos + 1
labminutos.Caption = minutos
labsegundos.Caption = 0
End If
If minutos = 60 Then
Minutos = 0...
Regístrate para leer el documento completo.