[Resolvido] Timer / ProgressBar

[Gustavo_Germ 0]

Olá Galera,

 

minha dúvida acho que é simples... quero uma barra de progresso junto a um label que conta a porcentagem....

2 coisas:

1- preciso de um Timer (se sim, como faço que não faço a mínima idéia)

2- o código está faltando o que, sendo que inicializo o programa e a barra já está concluída e o label já está 100%:

 

 

 

_____________________________________________

Dim X As Integer

 

 

Private Sub Form_Load()

X = 0

 

 

Do Until X = 100

X = X + 1

 

Barra.Value = X 'progress bar está recebendo o quanto X já obteve

LblPorc.Caption = X & "%" 'lança o valor já carregado

Loop

 

CEAMDI.show

 

End Sub

_______________________________________________

 

daí finalizando isso eu gostaria que antes do CEAMDI ser carregado, a janela fizasse uns 10 segundos....

 

 

Alguem pode me ajudar?

 

 

grato, gutsavo.

[scorpio 7]

Olá Galera,

 

minha dúvida acho que é simples... quero uma barra de progresso junto a um label que conta a porcentagem....

2 coisas:

1- preciso de um Timer (se sim, como faço que não faço a mínima idéia)

2- o código está faltando o que, sendo que inicializo o programa e a barra já está concluída e o label já está 100%:

 

 

 

_____________________________________________

Dim X As Integer

 

 

Private Sub Form_Load()

X = 0

 

 

Do Until X = 100

X = X + 1

 

Barra.Value = X 'progress bar está recebendo o quanto X já obteve

LblPorc.Caption = X & "%" 'lança o valor já carregado

Loop

 

CEAMDI.show

 

End Sub

_______________________________________________

 

daí finalizando isso eu gostaria que antes do CEAMDI ser carregado, a janela fizasse uns 10 segundos....

 

 

Alguem pode me ajudar?

 

 

grato, gutsavo.

No form_load você ativa o timer(timer que esta com Interval = 1000.

 

no evento do timer, você vai incrementando uma variavel, quando chegar a 10, passaram 10 segundos e você chama o outro form.

 

 

 

Mas por que voc}ê quer que fique 10 segundos parado ?

[Gustavo_Germ 0]

Olá Galera,

 

minha dúvida acho que é simples... quero uma barra de progresso junto a um label que conta a porcentagem....

2 coisas:

1- preciso de um Timer (se sim, como faço que não faço a mínima idéia)

2- o código está faltando o que, sendo que inicializo o programa e a barra já está concluída e o label já está 100%:

 

 

 

_____________________________________________

Dim X As Integer

 

 

Private Sub Form_Load()

X = 0

 

 

Do Until X = 100

X = X + 1

 

Barra.Value = X 'progress bar está recebendo o quanto X já obteve

LblPorc.Caption = X & "%" 'lança o valor já carregado

Loop

 

CEAMDI.show

 

End Sub

_______________________________________________

 

daí finalizando isso eu gostaria que antes do CEAMDI ser carregado, a janela fizasse uns 10 segundos....

 

 

Alguem pode me ajudar?

 

 

grato, gutsavo.

No form_load você ativa o timer(timer que esta com Interval = 1000.

 

no evento do timer, você vai incrementando uma variavel, quando chegar a 10, passaram 10 segundos e você chama o outro form.

 

 

 

Mas por que voc}ê quer que fique 10 segundos parado ?

 

Puts... não ajudou muito =/... é que eu não manjo nada de TIMER...

mas os 10 segundos parado é pra pessoa visualizar o logo e tambem pra fazer um tempinho

[scorpio 7]

De uma olhada

 

http://www.linhadecodigo.com.br/Artigo.aspx?id=125

[Gustavo_Germ 0]

OOkk

 

já consegui fazê-lo!

 

 

Muito Grato!