URGENTE: HORAS EM VB.NET
A seguinte tela trata-se de o controle de jogos de um clube. Em uma lbl invisivel tenho a hora do sistema correndo, e preciso fazer a subtração da hora do próximo jogo agendado do valor da lbl com hora do sistema. Por enquanto, sem o banco, pra isso uso uma variavel com uma hora qualquer.
O problema encontra-se na hora de concatenar e exibir em um campo.
Aqui segue o código atual.
Private Sub frm_jogos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MHora, MMinuto, MSegundo, MHoraSis, MMinSis, MSegSis As Integer
Dim HRes, MRes, SRes As Integer
Dim MTempo As Date
Dim MTempoSistema As Date
[ô]atribuição da hora do banco
MTempo = [Ô]14:30:00[Ô]
lbl_invi.Text = MTempo
MHora = Hour(MTempo)
MMinuto = Minute(MTempo)
MSegundo = Second(MTempo)
[ô]atribuicao da hora do sistema
MTempoSistema = Format(Now, [Ô]HH:mm:ss[Ô])
lb_horasistema.Text = MTempoSistema
MHoraSis = Hour(MTempoSistema)
MMinSis = Minute(MTempoSistema)
MSegSis = Second(MTempoSistema)
[ô]calculos - TESTE que atribui a diversas lbls para testar a conta pois não consigo [Ô]concatenar[Ô] para exibir no tempo restante. sendo que o tempo restante do cliente tem que estar de forma regressiva... 45:12:24... 45:12:23..
lb_hora.Text = Val(MHora) - Val(MHoraSis)
lb_min.Text = Val(MMinuto) - Val(MMinSis)
lb_seg.Text = Val(MSegundo) - Val(MSegSis)
End Sub
Private Sub timer_horasist_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_horasist.Tick
[ô]contagem regressiva campo A
lb_horasistema.Text = Format(Now, [Ô]HH:mm:ss[Ô])
End Sub
O problema encontra-se na hora de concatenar e exibir em um campo.
Aqui segue o código atual.
Private Sub frm_jogos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MHora, MMinuto, MSegundo, MHoraSis, MMinSis, MSegSis As Integer
Dim HRes, MRes, SRes As Integer
Dim MTempo As Date
Dim MTempoSistema As Date
[ô]atribuição da hora do banco
MTempo = [Ô]14:30:00[Ô]
lbl_invi.Text = MTempo
MHora = Hour(MTempo)
MMinuto = Minute(MTempo)
MSegundo = Second(MTempo)
[ô]atribuicao da hora do sistema
MTempoSistema = Format(Now, [Ô]HH:mm:ss[Ô])
lb_horasistema.Text = MTempoSistema
MHoraSis = Hour(MTempoSistema)
MMinSis = Minute(MTempoSistema)
MSegSis = Second(MTempoSistema)
[ô]calculos - TESTE que atribui a diversas lbls para testar a conta pois não consigo [Ô]concatenar[Ô] para exibir no tempo restante. sendo que o tempo restante do cliente tem que estar de forma regressiva... 45:12:24... 45:12:23..
lb_hora.Text = Val(MHora) - Val(MHoraSis)
lb_min.Text = Val(MMinuto) - Val(MMinSis)
lb_seg.Text = Val(MSegundo) - Val(MSegSis)
End Sub
Private Sub timer_horasist_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_horasist.Tick
[ô]contagem regressiva campo A
lb_horasistema.Text = Format(Now, [Ô]HH:mm:ss[Ô])
End Sub
Olá boa noite.
Veja se é isto que quer.
Veja se é isto que quer.
da uma olhada nesse blog tem uns exemplos depois e só adaptar
aqui
aqui
Citação::
Olá boa noite.
Veja se é isto que quer.
PROGRAMADORVB6 , é exatamente isso que eu quero, mas o arquivo que voce postou ele não está mostrando a contagem regressiva, não entendi o por que tambem... assim que clico em iniciar já aparece a msgbox [Ô]terminou o tempo..[Ô]
aguardo...
Olá bom dia.
Conforme o que descreveu o programa funciona assim :
- O sistema mostra a hora atual, conforme o que pediu e também para se poder orientar.
- supúnhamos que tem uma marcação para as 11:00 , então clica na Listbox as horas da marcação.
- Automaticamente é colocado no visor de hora de Agendamento, de seguida pressione no botão Iniciar.
- Se reparar é feito logo o cálculo das horas que resta até esse agendamento (Hora Agendamento - Horas do sistema), segue-se então á regressão das horas em questão; após terminar o utilizador será informado que o tempo da marcação anterior expirou(caso exista), e também significa que existe outra marcação em curso para as próximas horas.
- Pela lógica se agendar uma marcação á qual o seu tempo é inferior á hora no momento(Hora de sistema) também será informado que o tempo expirou ( porque não permite uma marcação inferior á hora do tempo atual).
Espero que com esta explicação entenda como funciona.
Até+
Programadorvb6
PROGRAMADORVB6, Que lusitana! rs , não havia reparado o horario que havia selecionado na listbox e fiquei revirando o codigo inteiro... rs
muito grata! até mais :)
muito grata! até mais :)
Tópico encerrado , respostas não são mais permitidas