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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Cronometro
Janagihara
PONTA PORÃ
MS - BRASIL
Postada em 03/03/2006 08:34 hs            
Gostarial de um Help.. queria saber se alguem ja fez um cronometro funcionar no visual basic.... e se dah para trabalhar com SQL o cronometro.. OK..
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 03/03/2006 10:27 hs         
Um cronometro com certeza vc vai usar o controle timer. Quanto a trabalhar o cronometro com sql, eu não entendi. Vc quer cronometrar quanto tempo uma query demora pra executar, é isso? Se for vc vai ter que usar a função TimeValue pra pegar a hora logo antes da query executar e logo depois da query executada, calcular a diferença...
     
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 03/03/2006 16:07 hs            
Só tome cuidado pois se não me engano o controle timer só suporta  65.535 milisegundos, se for usar mais terá de acumular em uma variavel...

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 03/03/2006 16:15 hs            
Option Explicit
Dim strCentesimo As String
Dim strSegundos As String
Dim strMinutos As String
Dim strHoras As String
Dim strDisplay As String

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    strDisplay = ":"
   ' If strCentesimo = "99" Then
    '    strCentesimo = "000"
        If strSegundos = "59" Then
            strSegundos = "00"
            If strMinutos = "59" Then
                strMinutos = "00"
                strHoras = Val(strHoras) + 1
            Else
                strMinutos = Val(strMinutos) + 1
            End If
        Else
            strSegundos = Val(strSegundos) + 1
        End If
        'If strDisplay = " " Then
        '    strDisplay = ":"
        'Else
            'strDisplay = ":"
        'End If
    'Else
    '    strCentesimo = Val(strCentesimo) + 1
    'End If
    
    strHoras = Format(IIf(strHoras <> "", strHoras, "00"), "00")
    strMinutos = Format(IIf(strMinutos <> "", strMinutos, "00"), "00")
    strSegundos = Format(IIf(strSegundos <> "", strSegundos, "00"), "00")
    'strCentesimo = Format(strCentesimo, "00")
    
   ' lblCentesimo = strCentesimo
    lblteste = strHoras & strDisplay & strMinutos & strDisplay & strSegundos
    'lblCentesimo.Refresh
    lblteste.Refresh
End Sub


"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 03/03/2006 16:16 hs            

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Janagihara
PONTA PORÃ
MS - BRASIL
ENUNCIADA !
Postada em 05/07/2006 13:14 hs            
entao tipo o cronometro que eu necessito é que toda vez q eu teclar enter o valor seja guardado no acess até ae td bl... só que ao final eu gostaria de somar todo os  tempos registrados para obter o tempo total...
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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