USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criar um Cornometro de minutos no VB 6 ?
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 02/03/2005 09:58 hs         
- Crie um form, coloque um timer e um label
- Coloque o intervalo do timer para 60000
- No Evento Timer do Objeto timer coloque: label1.caption = label1.caption + 1
 
E era isso, seu caption será acrescentado em um a cada minuto, isso criará o efeito que vc quer, 1 hora e meia será 90 e uma hora e 31 minutos será 91.... e assim por diante.
 
Falows.
 
     
Clayte
não registrado
Postada em 02/03/2005 10:19 hs   
OBRIGADO - FUNCIONOU REDONDO DO JEITO QUE EU QUERIA FICO MUITO GRATO POR SUA AJUDA
     
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 02/03/2005 11:01 hs            
em segundos:
NO GERARAL DO FORM
Dim Tempo As Integer
Private Sub Form_Load()
With Me
  .Timer1.Interval = 1000 'CONTA DE SEGUNDO EM SEGUNDO
  .Timer1.Enabled = True 
  .Label1.Caption = "00"
nd With
End Sub
Private Sub Timer1_Timer()
With Me
  Tempo = Tempo + 1
    If Tempo = 60 Then ' VERIFICA SE O TEMPO É 60
       .Label1.Caption = .Label1.Caption + 1 'ACRESCENTA 1 A CADA MINUTO
       .Label1.Caption = Format(.Label1.Caption, "0#") ' FORMATA PARA DUAS CASAS
        Tempo = 0 'SE FOR 60 VOLTA PRA ZERO
    End If
      .Label2.Caption = Tempo 'MOSTRA O TEMPO DECORRIDO EM SEGUNDOS
End With
End Sub
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página