Programilla
Quisiera que me escribiera un código chiquito que haga lo siguiente:
Un label que cuente 5,4,3,2,1,0 y cuando llegue a 0 que es cuando se acaba el tiempo me haga algo por ejemplo hacer un beep o mostrar un msgbox.
Un label que cuente 5,4,3,2,1,0 y cuando llegue a 0 que es cuando se acaba el tiempo me haga algo por ejemplo hacer un beep o mostrar un msgbox.
Respuesta de leosoft
1
Primero declara esto en el procedimiento general
Dim Numero as Single
en el evento Load del formulario coloca esto:
Text1.Text = ""
Command1.Caption = "Comenzar"
Numero = 5
Coloca un Boton en el formulario con este codigo:
Private Sub Command1_Click()
Numero = 5
Timer1.Interval = 1000
End Sub
ahora coloca un objeto timer en el formulario y colocale este codigo en el evento Timer
Private Sub Timer1_Timer()
Text1.Text = Numero
If Numero = 0 Then
Timer1.Interval = 0
Beep
MsgBox ("Listo")
Else
Numero = Numero - 1
End If
End Sub
También coloca en el formulario un TextBox y listo
Ejecuta la aplicación y al hacer click en el Botón te va a hacer una cuenta regresiva en el Textbox y al llegar a "0" te va a dar un mensaje, fíjate que este esta en el control Timer, tu puedes cambiar el mensaje o hacer cualquier otra cosa.
Dim Numero as Single
en el evento Load del formulario coloca esto:
Text1.Text = ""
Command1.Caption = "Comenzar"
Numero = 5
Coloca un Boton en el formulario con este codigo:
Private Sub Command1_Click()
Numero = 5
Timer1.Interval = 1000
End Sub
ahora coloca un objeto timer en el formulario y colocale este codigo en el evento Timer
Private Sub Timer1_Timer()
Text1.Text = Numero
If Numero = 0 Then
Timer1.Interval = 0
Beep
MsgBox ("Listo")
Else
Numero = Numero - 1
End If
End Sub
También coloca en el formulario un TextBox y listo
Ejecuta la aplicación y al hacer click en el Botón te va a hacer una cuenta regresiva en el Textbox y al llegar a "0" te va a dar un mensaje, fíjate que este esta en el control Timer, tu puedes cambiar el mensaje o hacer cualquier otra cosa.
2 respuestas más de otros expertos
Respuesta de alan politan
el visual c#
TimeSpan time;
private void Form1_Load(object sender, EventArgs e)
{
time = TimeSpan.Parse("00:00:05");
Timer timer = new Timer();
timer.Interval = 1000;
timer.Tick += (a, b) =>
{
time = time.Subtract(new TimeSpan(0, 0, 1));
label2.Text = time.ToString();
if (time.Seconds == 0)
{
timer.Stop();
return;
}
};
timer.Start();
ja cualquier duda me dies...
}
y para el mensaje solo cambia label2.Text = time.ToString(); por MessageBox.Show(time.ToString());
Respuesta de xabi
-1
Para que funcione solo tienes que insertar un label y un timer en el formulario y este código:
Option Explicit
Dim iSeg As Integer 'Segundos de la cuenta atras
Private Sub Form_Load()
iSeg = 5
Label1.Caption = iSeg
Timer1.Interval = 1000 'Tiempo en milisegundos entre cada Timer1_Timer
End Sub
Private Sub Timer1_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer1.Interval = 0
Beep 'Beep :-)
MsgBox "Boooooom!" 'MsgBox ;-)
End If
End Sub
Option Explicit
Dim iSeg As Integer 'Segundos de la cuenta atras
Private Sub Form_Load()
iSeg = 5
Label1.Caption = iSeg
Timer1.Interval = 1000 'Tiempo en milisegundos entre cada Timer1_Timer
End Sub
Private Sub Timer1_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer1.Interval = 0
Beep 'Beep :-)
MsgBox "Boooooom!" 'MsgBox ;-)
End If
End Sub