Contagem do Tempo VB6

Level Max escreveu:Pelo o q eu vejo é o seguinte...

Tem: 
Sprit None:Escolhe a Sprit que você vai se transformar.

Força:Modifica a força Pelo periodo que você esta Transformado(quando destransformar saira o atributo)

Defesa:Modifica a Defesa Pelo periodo que você esta Transformado(quando destransformar saira o atribu

Agilidade:Modifica a Agilidade Pelo periodo que você esta Transformado(quando destransformar saira o atributo)

WillPower:Não sei o que é isso mais(Acho que almentar a vontade.Não posso dizer bem.)

Inteligencia:Modifica a Inteligencia(MP) Pelo periodo que você esta Transformado(quando destransformar saira o atributo)

Animação:A animação na hora de se transformar e destransformar.

Duração: O tempo que você vai ficar transformado na Sprit que você escolheu.

----------------------------------------
Traduzindo:Serve para se transforma em uma Sprit por Um tempo.
---------------------------------------

Da Cred ai ferinha (ahusashsah)Tive que fazer esse tutorial ali pa eu te explicar.

Qualquer duvida só falar....

RenanR escreveu:É usado o GetTickCount pra contar o tempo. Pode observar este código durante o sistema.
Aconselho procurar um artigo/tutorial na internet sobre o gettickcount vb6, rs.

Vlw, agora ajudou muito

mais, não quero que feche o tópico, dando como resolvido pois eu gostaria que alguém me mostra-se uma forma de usá-lo, estarei procurando por gettickcount vb6, para aprender, mas mesmo assim gostaria que me ajuda-sem

Código:

Name: lblSumir

Código:

Sub SumirLabel()
Dim Tick as Intiger
Dim Duração as Intiger

Tick = GetTickCount ' Aqui seria o inicio da contagem
Duração = Tick + 10000 ' aqui no caso ficaria 10 segundos ?

If Duração > GetTickCount Then ' aqui é para usar o código acima, quando passar dos 10 segundos "fechar a label"
lblSumir.visible = false ' Aqui fecha a label
End if
End Sub

dazateam escreveu:OK, vamos ver se entendi, caso queira que uma label suma após 10 segundos ao ser aberta, devo usar:

Label

Código:

Name: lblSumir

este código:

Código:

Sub SumirLabel()
Dim Tick as Intiger
Dim Duração as Intiger

Tick = GetTickCount ' Aqui seria o inicio da contagem
Duração = Tick + 10000 ' aqui no caso ficaria 10 segundos ?

If Duração > GetTickCount Then ' aqui é para usar o código acima, quando passar dos 10 segundos "fechar a label"
lblSumir.visible = false ' Aqui fecha a label
End if
End Sub

é isto ou estou errado ? ><

Código:

If Duração > GetTickCount

Código:

If GetTickCount > Duração

DragonicK escreveu:

dazateam escreveu:OK, vamos ver se entendi, caso queira que uma label suma após 10 segundos ao ser aberta, devo usar:

Label

Código:

Name: lblSumir

este código:

Código:

Sub SumirLabel()
Dim Tick as Intiger
Dim Duração as Intiger

Tick = GetTickCount ' Aqui seria o inicio da contagem
Duração = Tick + 10000 ' aqui no caso ficaria 10 segundos ?

If Duração > GetTickCount Then ' aqui é para usar o código acima, quando passar dos 10 segundos "fechar a label"
lblSumir.visible = false ' Aqui fecha a label
End if
End Sub

é isto ou estou errado ? ><

Tudo errado.

"If Duração > GetTickCount" não dará certo pois "Duração" sempre terá um valor maior que GeTickCount; isso se faz ao contrário.

"If GetTickCount > Duração"

Quando você clicar na label, esse código será executado somente uma vez, você precisa verificar todo instante se já passou dos 10 segundos. No caso, você deve deixar esse código dentro do gameloop.

Código:

Public Tick As Integer

Código:

Sub SumirLabel()
Tick = GetTickCount ' Aqui seria o inicio da contagem
End Sub

Código:

Public Sub CheckLabel()
if lblSumir.Visible = false then exit sub ' Verificar se já sumiu, evitar processamento

If GetTickCount > Tick  Then
  lblSumir.Visible = false
End If
End Sub

Código:

Sub AbrirLabel ()
If Time = 13:30:00 then' Inicio
lblSumir.Visible = true
End If
End Sub
Sub SumirLabel ()
If Time = 14:23:00 then' Inicio
lblSumir.Visible = False
End If
End Sub