[ALL]Sistema de Contagem para Transformação

por V-Force Sáb 18 Set 2010, 08:25

Galera é o mesmo tutorial que eu fiz para ajudar o ADM Geração,só que eu vou postar no lugar correto

Vamos La

Client Side
no FrmMirage Crie um timer com as seguintes padrões

Código:: (Name) = TmrNormal (Enabled) = False (Interval) = deixe XXXXXX

Explicando:
XXXXXX = Quanto tempo você quiser por exemplo você quer 100 segundos você poem 100000 no Interval

Continuano clique duas vezes no tmrNormal e poem dentro

Código:: Call SendData("YYYYY" & END_CHAR) tmrNormal.Enabled = False lblRegressiva.visible = false lblContagem.visible = false tmrContagem.enabled = false

YYYYY = Nome do Packet de voltar ao Normal

Agora va nas pic de transformação (SSJ,SSJ2,SSJ3...)
e adicione isso:

Código:: tmrNormal.Enabled = True lblRegressiva.visible = true lblContagem.visible = true tmrContagem.enabled = true

Crie mais um timer com os seguintes padrões

Código:: (Name) = tmrContagem (Enabled) = False (Interval) = 1000

Clique duas vezes nele e coloque :

Código:: If lblContagem.Caption = "1" Then lblContagem.Caption = "100" Else lblContagem.Caption = lblContagem.Caption - 1 End If

Crie em algum cato da fmrMirage Duas Label com os Seguintes Padrões

Código:: A primeira assim ohh (Name) = lblRegressiva (Caption) = "A Transformação vai durar por " // sem as Aspa =D (Visible) = False A Segunda poem assim (Name) = lblContagem (Caption) = "100" (Visible) = False

Desculpe pelos os erros portugues mas ta ae

Obs: Ai ta config para 100 segundos durar a transformação se quiser mudar mude o lblContagem.caption para qual numero que vc quiser

===Edit===
Créditos: Eu mesmo