CRONÔMETRO

MARCOSILVERIO 12/09/2016 20:24:38
#466815
Preciso criar algo que quando eu clicar em um botão acione um temporizador de 30 minutos e após os 30 minutos eu transfira informação de uma Textbox para outra ...alguem pode me ajudar ???
W8.LISBOA 12/09/2016 20:31:11
#466816
Pode ser feito usando timer, mas se a sua aplicação for fechada neste período? ou sempre vai ficar aberto?
MARCOSILVERIO 12/09/2016 20:36:33
#466817
Depois dos 30 minutos vou ter que trasferir uma informação de uma Text1.Text para Text2.Text ... Só que a Text1.Text é um Textbox com informação viva , ela varia ...Você teria um código pronto ?
JCM0867 12/09/2016 20:37:55
#466818 Resposta escolhida
Selecione o componente Timer e coloque intervalo 1800000 (milisegundos em 30 minutos)

Private Sub frmCronomero_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Comandos Text1.Text para Text2.Text (Text2.Text = Text1.Text
End Sub

Deve funcionar
Se tirar o Timer1.Stop() os comandos rodarão a cada 30min sem parar




[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
MARCOSILVERIO 12/09/2016 20:43:58
#466819
Preciso abrir um formulário novo ?? só para o Cronometro ? Não posso fazer dentro de uma frm que já tenho ?
JCM0867 12/09/2016 20:48:42
#466820
Citação:

:
Preciso abrir um formulário novo ?? só para o Cronometro ? Não posso fazer dentro de uma frm que já tenho ?



Não precisa, veja a solução que coloquei acima
O Timer1.Start() pode ser colocado em um botão para disparar os 30 minutos em teu form
MARCOSILVERIO 12/09/2016 21:05:20
#466821
Não funcionou seu código ...coloque o código dentro dos espaços !!!

Private Sub CmdIniciar_2T_Click()

End Sub


Private Sub Timer1_Timer()

End Sub
JCM0867 12/09/2016 23:08:07
#466827
Colocou o componente Timer1?
Qual a mensagem de erro?

Esse comando que descrevi está 100% igual que fiz aqui no meu projeto, a diferença que eu uso 5 segundos

se for um start num botão, não tem muito o que enfeitar

Private Sub NomeBotao_Click(sender As Object, e As EventArgs) Handles NomeBotao.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Comandos Text1.Text para Text2.Text
End Sub
KURTGU 12/09/2016 23:38:18
#466828
Pergunta principal vb6 né? Se sim mude seu tópico pois está vb.net....
MARCOSILVERIO 13/09/2016 15:54:08
#466866
Obrigado pela dica ... mas acabei usando outro código :


Coloquei um cronometro regressivo ...
Como faço uma instrução para que quando o cronometro chegar no 00:00:01 eu transfira informação de Text1 para Text2 ?? Sabendo que tenho uma LblCronometro que mostra o cronometro !!!???

Private Sub CmdIniciar_2T_Click()

[ô] Copiando as celulas vivas para Tramo A na Comparaturb_2T
TextPT22A_I_2T = SimpleOPCInterface.OPCItemValue(0)
TextTE22A_I_2T = SimpleOPCInterface.OPCItemValue(1)
TextVACC_A_I_2T = SimpleOPCInterface.OPCItemValue(2)
TextVC_A_I_2T = SimpleOPCInterface.OPCItemValue(3)
TextHORA_A_I_2T = SimpleOPCInterface.OPCItemValue(8)

[ô] Copiando as celulas vivas para Tramo B na Comparaturb_2T
TextPT22B_I_2T = SimpleOPCInterface.OPCItemValue(4)
TextTE22B_I_2T = SimpleOPCInterface.OPCItemValue(5)
TextVACC_B_I_2T = SimpleOPCInterface.OPCItemValue(6)
TextVC_B_I_2T = SimpleOPCInterface.OPCItemValue(7)
TextHORA_B_I_2T = SimpleOPCInterface.OPCItemValue(8)

LblCronometro.Visible = True

If CmdIniciar_2T.Caption = [Ô]Iniciar[Ô] Then
Timer1.Enabled = True
TextCronometro.Enabled = True
CmdIniciar_2T.Enabled = False
CmdLimpar_2T.Enabled = True

If TextCronometro.Text = 30 Then
AD = Format(TextCronometro.Text, [Ô]00:00:00[Ô])
LblCronometro = AD

Else

End If

TextCronometro.Text = 30

AD = Format(TextCronometro.Text, [Ô]00:00:00[Ô])
LblCronometro = AD

Else

End If

End Sub
Private Sub Timer1_Timer()

[ô]Se o cronometro zerar então
If LblCronometro.Caption = [Ô]00:00:00[Ô] Then

CmdLimpar_2T.Enabled = True

Else

LblCronometro.Visible = True
LblCronometro.Caption = Format(TimeValue(LblCronometro.Caption) - TimeValue([Ô]00:00:01[Ô]), [Ô]hh:mm:ss[Ô])

End If

End Sub


Private Sub Timer1_Timer()

[ô]Se o cronometro zerar então
If LblCronometro.Caption = [Ô]00:00:00[Ô] Then

CmdLimpar_2T.Enabled = True

Else

LblCronometro.Visible = True
LblCronometro.Caption = Format(TimeValue(LblCronometro.Caption) - TimeValue([Ô]00:00:01[Ô]), [Ô]hh:mm:ss[Ô])

End If

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar