Timer no VB

[williamfoose 0]

Estou precisando de uma ajudinha no vb.

 

Bom estou querendo que quando o usuario abrir a janela. Aconteça o sequinte.

 

Apareça no titulo do site.

 

00:00:00 e q vá almentando para mostrar quanto tempo a janela está aberta.

 

Tipo se a janela tiver aberta por uns 1 hora e 54 minutos e 10 segundos, apareça lá no titulo.

 

01:54:10

 

Só não sei como add as horas do zero porque sou meio noob ainda em visual basic.

 

Mais ja add o timer =D

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Text = ""

End Sub

Vlw

[mibnetweb 0]

Private Sub Timer1_Timer()
Form1.Caption = Time

End Sub

Isso ajuda?

[Claudio Neto 3]

E você precisa configurar o interval do seu timer para 1000, que é 1 segundo.

[Nilson Cl. 0]

Boa noite williamfoose

 

Não sei se você ja solucionou o seu problema, mais no link abaicho tem um projeto em vb 9 que faz o que você quer.

 

Da uma olhada.

 

Clique nete link para baixar o projeto em vb 9 que conta o tempo que a tela esta aberta

 

O Codigo todo esta aqui você somente tem que adicionar um time no seu projeto e abilitar o mesmo, ai é somente copiar este codigo e colar dentro do seu projeto.

 

Public Class Form1

 

Dim DataInicio As Date

 

Function Calcula_Tempo(ByVal DataI As Date) As String

Dim Segundos As Double, Minutos As Double, Horas As Double

Segundos = DateDiff("S", DataI, DateTime.Now)

If CLng(Segundos) >= 60 Then

Minutos = (Segundos / 60)

Minutos = Fix(Minutos)

Segundos -= (Minutos * 60)

End If

If CLng(Minutos) >= 60 Then

Horas = (Minutos / 60)

Horas = Fix(Horas)

Minutos -= (Horas * 60)

End If

Dim Tempo_Total_Uso_Pc As String = (Format(Horas, "0#") & ":" & Format(Minutos, "0#") & ":" & Format(Segundos, "0#"))

Calcula_Tempo = Tempo_Total_Uso_Pc

End Function

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Text = "Tempo total Logado " & Calcula_Tempo(DataInicio)

End Sub

 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

DataInicio = Date.Now

End Sub

End Class

 

 

Qual quer duvida é so postar

 

 

T+