|
|
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.. |
|
|
|
|
|
|
|
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... |
|
|
|
|
|
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
|
|
|
|
|
|
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."
|
|
|
|
|
|
Postada em 03/03/2006 16:16 hs
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
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... |
|
|
|
