A continuación voy a colocar unos pantallazos hechos en proyectos de programacion.


Programacion para llevar acabo la ejecución del timer.
Timer1.Interval = Timer1.Interval + 1
Lblcontador.Text = Timer1.Interval
If Timer1.Interval = 338 Then
CONTAMINU = CONTAMINU + 1
Timer1.Interval = 1
Lblminutos.Text = CONTAMINU.
Timer1.Stop()
Timer1.Interval = 1
Lblminutos.Text = "MINUTOS"
Lblcontador.Text = 0.
Programación para llevar acabo la ejecucion de la calculadora.
Programación para los signos.
Num2 = Val(Txtvisor.Text)
Txtvisor.Text = ""
If Topera = 1 Then
Suma = Val(Num1 + Num2)
Txtvisor.Text = Suma
ElseIf Topera = 2 Then
Suma = Val(Num1 - Num2)
Txtvisor.Text = Suma
ElseIf Topera = 3 Then
Suma = Val(Num1 * Num2)
Txtvisor.Text = Suma
ElseIf Topera = 7 Then
Suma = Val(Num1 / Num2)
Txtvisor.Text = Suma.
Programacion para cada numero de la calculadora
Txtvisor.Text = Txtvisor.Text + "4
Txtvisor.Text = Txtvisor.Text + "5"
Txtvisor.Text = Txtvisor.Text + "6"
Txtvisor.Text = Txtvisor.Text + "1"
Txtvisor.Text = Txtvisor.Text + "2"
Txtvisor.Text = Txtvisor.Text + "3"
Num1 = Txtvisor.Text
Txtvisor.Text = ""
Txtvisor.Focus()
Topera = 2.
Num1 = Txtvisor.Text
Txtvisor.Text = ""
Txtvisor.Focus()
Topera = 3.
Num1 = Txtvisor.Text
Txtvisor.Text = ""
Txtvisor.Focus()
Topera = 4.
No hay comentarios:
Publicar un comentario