Contagem Regressiva em tela de login - <

[Linghston]

Ola amigos, esta é minha primeira participação neste forum e espero poder encontar aqui ajuda para minha duvidas, como no caso abaixo:
Estou precisando criar um contador regressivo em minutos para avisar ao usuário o tempo que falta para o sistema fechar caso ele não efetue logon.
Alguém saberia como poderia criar esta rotina??

Obrigado!!!

[mfelis]

Acho que vc pode colocar um timer com interval de 60000 (1 Minuto) e ai coloca num textbox um numero exemplo 5 (Equivale a 5 Minutos) e ai no método timer do timer coloca :

Código:

lContador = thisform.textbox1.value

if lContador = 0
&& Sai do Sistema
else
thisform.textbox1.value= lContador - 1
endif
 


[hugo]

o codigo abaixo faz exatamente o que pediu no enunciado

Código:

tempo=30
resta=val(subst(time(),4,2))
do while tempo#0
   IF resta#VAL(SUBSTR(TIME(),4,2))
      tempo=tempo-1
      resta=val(subst(time(),4,2))
   endif
   m=ALLTRIM(STR(tempo))
   WAIT WINDOW "Falta(m) "+m+" minutos para o logoff!"
enddo

favor reportar de se deu certo para podermos finalizar o post

nao se esqueca de postar qual solucao te atendeu!

reputar a quem tenta de ajudar eh uma boa pratica!

valeu

[mfelis]

Hugo, vc é o cara!!

[hugo]

vamo v se vai atender nosso amigo primeiro ne?!

hehe

[alceu11]

Aproveitando o codigo do Hugo

no form11
do form splash

metodo timer

Código:


With Thisform

 ****************
tempo=2
thisform.text1.Value=tempo
resta=val(subst(time(),4,2))
do while tempo#0
  IF resta#VAL(SUBSTR(TIME(),4,2))
      tempo=tempo-1
      resta=val(subst(time(),4,2))
  endif
  m=ALLTRIM(STR(tempo))
  thisform.text1.Value="Falta(m) "+ m+ " minutos para o logoff!"
  thisform.text1.refresh
  WAIT WINDOW "Falta(m) "+m+" minutos para o logoff!" TIMEOUT 0.2
  This.Parent.TEXT1.Visible = ! This.Parent.TEXT1.Visible
enddo

IF tempo=0
thisform.release()
endif

    If Thisform.timer1.Interval < 6000
       Wait Window 'esta acabandoo tempo' Timeout 1
    thisform.text1.Value=Thisform.timer1.Interval
    thisform.text1.Refresh
    endif
   
   
   If Thisform.timer1.Interval >=6000
   Wait Window ' acabou tempo' Timeout 1
      thisform.fECHAR1.Click
      Thisform.Release()
      
      
    
   Endif
Endwith


figura[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver este link.]

fonte

[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver este link.] alt="" />[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

[Linghston]

Mfelis / Hugo e Alceu11....
Muito obrigado pela ajuda!!!!
Todas as 03 rotinas me atendi perfeitamente!!!!
Era tudo que eu procurava.......
VALEUUUUUUU!!!!!!!!
Voces são D+++++++++++++++++
Obrigadúúúúúúú!!!!!

Linghston

[lardecristo]

Gente me desculpe, mas acho que o exemplo que vocês mandaram não resolve o problema do cara, porque o mesmo trava o usuário de digitar, serve para o caso de Form Splash, mas para uma tela de Login é preciso fazer de outra forma, se eu entendi o que o cara quer, estou testando a rotina do Hugo e estou aguardando por 30 minutos o sistema parar para eu poder digitar, vou fazer um form para o cara com o que eu entendi, e ver se eu não entendi errado....rsrsrs....

Gente realmente me desculpem, estamos aqui para todos aprender, acho que fui muito direto.....não fiquem bravos comigo.

Já já eu posto aqui o exemplo que eu vou fazer.

[lardecristo]

Acabei o exemplo de um olhada.

[Você precisa estar registrado e conectado para ver este link.]

Abraço a todos, e me desculpem.

Luiz Alexandre Ruiz

Por isso que eu amo informática, todo dia aprendo coisas novas, e nunca passa de 1% do que tem por ai.

[Linghston]

Lardecristo:, seu exemplo ficou perfeito na minha aplicação!!!
Muito obrigado por me ajudar, ja estava sem saber como fazer isto,
e obrigado a todos que de uma forma ou de outra me ajudou participando deste assunto. Espero poder contar sempre voces e o que eu puder ajudar conte comigo!!!
Um abraço a todos.
Obrigado!!!!

Linghston

[alceu11]

Para resolver mesmo de vez pegando o exemplo Lardecristo que ja tinha resolvido.

Agora com splash e tempo para digitar a senha se em 2 minutos o usuario nao digita
a senha o sistema nao carrega e fecha ficou muito bom
Vamos ver na pratica como ficou agora.

[Você precisa estar registrado e conectado para ver este link.][Você precisa estar registrado e conectado para ver esta imagem.]

[lardecristo]

Só mais um detalhe, eu não coloquei retorno no form, então quando usarem não esqueçam de colocar.

Por exemplo:

0 = Não Logar;
1 = Logar;
2 = Timeout.

[hugo]

Gente me desculpe, mas acho que o exemplo que vocês mandaram não resolve o problema do cara, porque o mesmo trava o usuário de digitar, serve para o caso de Form Splash, mas para uma tela de Login é preciso fazer de outra forma, se eu entendi o que o cara quer, estou testando a rotina do Hugo e estou aguardando por 30 minutos o sistema parar para eu poder digitar, vou fazer um form para o cara com o que eu entendi, e ver se eu não entendi errado....rsrsrs....

Gente realmente me desculpem, estamos aqui para todos aprender, acho que fui muito direto.....não fiquem bravos comigo.

Já já eu posto aqui o exemplo que eu vou fazer.

sem stress meu irmao
na verdade o que fiz foi mostrar o caminho para a mensagem
o que ele iria colocar no meio era por conta dele
por exemplo, em solucoes deste tipo costumo colocar um lastkey() no meio
do "do while" que ira proceder um "desvio" matando o "do while" e focando
no ultimo campo em foco

aproveito tambem pra comentar o seguinte
achei que ele ia fazer algo do tipo
um usuario com permissoes para tal enviaria uma mensagem para todos usuarios
logados, solicitando pra desligar o sistema em X minutos e que apos isto
o usuario seria desconectado do banco, como o programador pode trabalhar
com banco nativo, sqls, cliente servidor, servidor dedicado e terminal service
ficaria dificil colocar toda a solucao ( heheheheheheh )

aproveitando gostaria de parabenizar ao

Linghston pela pergunta

ao mfelis pelo empenho de ajudar

ao lardecristo pela boa observacao no meu codigo e disponibilizacao de codigo com a solucao correta

ao alceu na preocupacao tambem em ajudar, e que alem de ja termos a solucao postada ainda postou mais uma solucao diferenciada, mostrando que nao mede esforco
para ajudar

to notando que a galera ta se unindo e criando uma solucao juntos
muito massa isto

sinceramente
fico muito feliz de participar de um forum com uma galera assim!

grande abraço e Deus abencoe a todos!

otimo final de semana galera

[Linghston]

Ok Galera!!!! Valeu mesmo!!!!
Muito obrigado pela atenção de voces!!!
Esta turma da RAPOSA é realmente UNIDA e capaz!!!!!
Otimo fim de semana a todos!!!
Fiquem com Deus Sempre.

Linghston

[alceu11]

Nao entedi Lar de Cristo
da para fazer na pratica com o exemplo que postei anteriormente na resposta anterior a esta.

Quer uma variavel de retorno antes de chamar o o form senha
e se retorno do form for 0
nao loga ?

mais uma coisa


o que faz esta propriedade no form= _memberdata

<VFPData><memberdata name="minuto" type="property" display="Minuto" favorites="True"/><memberdata name="segundo" type="property" display="Segundo" favorites="True"/><memberdata name="tempolimite" type="property" display="TempoLimite" favorites="True"/></VFPData>

Código:


<VFPData><memberdata name="minuto" type="property" display="Minuto" favorites="True"/><memberdata name="segundo" type="property" display="Segundo" favorites="True"/><memberdata name="tempolimite" type="property" display="TempoLimite" favorites="True"/></VFPData>