Necesito programar una cuenta regresiva en un timer, que muestre el tiempo en un label, y que con un botón agregue tiempo, por ejemplo un minuto cada que se presione el botón, si pudieran ayudarme, estaría muy agradecido

Iniciado por El Don

Necesito programar una cuenta regresiva en un timer, que muestre el tiempo en un label, y que con un botón agregue tiempo, por ejemplo un minuto cada que se presione el botón, si pudieran ayudarme, estaría muy agradecido

Hola,

Creo que lo que quieres es algo asi.

Create un nuevo proyecto con un formulario (form1) y en este debes añadir1 label (label1), 3 botones (button1, button2, button3) y un control timer (Timer1).

Despues pega este codigo en el formulario:

Código:

[color=#0000ff size=2][color=#0000ff size=2]


Public[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class[/color][/color] Form1


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] min [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Long[/color][/color] = 0


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] hor [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Long[/color][/color] = 0


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] seg [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Long[/color][/color] = 0


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] min2 [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#a31515 size=2][color=#a31515 size=2]""[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] hor2 [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#a31515 size=2][color=#a31515 size=2]""[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] seg2 [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#a31515 size=2][color=#a31515 size=2]""[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Form1_Load([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]MyBase[/color][/color].Load


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


Timer1.Interval = 1000


Button1.Text = [color=#a31515 size=2][color=#a31515 size=2]"HORA"[/color][/color]


Button2.Text = [color=#a31515 size=2][color=#a31515 size=2]"MINUTO"[/color][/color]


Button3.Text = [color=#a31515 size=2][color=#a31515 size=2]"SEGUNDO"[/color][/color]


Label1.Text = TimeOfDay


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]


seg = DatePart(DateInterval.Second, [color=#0000ff size=2][color=#0000ff size=2]CDate[/color][/color](Label1.Text))


min = DatePart(DateInterval.Minute, [color=#0000ff size=2][color=#0000ff size=2]CDate[/color][/color](Label1.Text))


hor = DatePart(DateInterval.Hour, [color=#0000ff size=2][color=#0000ff size=2]CDate[/color][/color](Label1.Text))


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Timer1_Tick([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Object[/color][/color], [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] Timer1.Tick


seg = seg - 1


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] seg < 0 [color=#0000ff size=2][color=#0000ff size=2]And[/color][/color] hor2 = [color=#a31515 size=2][color=#a31515 size=2]"00"[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]And[/color][/color] min2 = [color=#a31515 size=2][color=#a31515 size=2]"00"[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


Label1.Text = [color=#a31515 size=2][color=#a31515 size=2]"FIN"[/color][/color]


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Exit[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] seg < 0 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


seg = 59


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] hor2 <> [color=#a31515 size=2][color=#a31515 size=2]"00"[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Or[/color][/color] min <> [color=#a31515 size=2][color=#a31515 size=2]"00"[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


min = min - 1


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] min < 0 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


min = 59


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] hor2 <> [color=#a31515 size=2][color=#a31515 size=2]"00"[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


hor = hor - 1


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](seg)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


seg2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & seg


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


seg2 = seg


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](min)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


min2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & min


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


min2 = min


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](hor)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


hor2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & hor


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


hor2 = hor


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


Label1.Text = hor2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & min2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & seg2


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Button1_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] Button1.Click


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


hor = hor + 1


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](hor)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


hor2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & hor


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


hor2 = hor


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


Label1.Text = hor2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & min2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & seg2


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Button2_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] Button2.Click


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


min = min + 1


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](min)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


min2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & min


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


min2 = min


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


Label1.Text = hor2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & min2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & seg2


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Button3_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] Button3.Click


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


seg = seg + 1


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] Len([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](seg)) < 2 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


seg2 = [color=#a31515 size=2][color=#a31515 size=2]"0"[/color][/color] & seg


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


seg2 = seg


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


Label1.Text = hor2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & min2 & [color=#a31515 size=2][color=#a31515 size=2]":"[/color][/color] & seg2


Timer1.Enabled = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub


End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class

[/color]


Espero que te sirva.

Un saludo.[/color]