• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

bioshock

Progress Bar ajuda

9 mensagens neste tópico

Boas, sou novo neste site, mas cheio de vontade para aprender :P

O meu problema é o seguinte:

Eu gostava de fazer uma progress bar com um determinado tempo [pode ser 50 segundos] e que no final desse tempo aparecesse uma mensagem a dizer "Acabou o seu tempo" [ou algo do genero] ..Assim que eu clicasse no botão de "jogar" a progress bar começava..

cumprimentos, obrigado pela ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas amigo, não consigo sacar, dá-me este erro:

ERROR: Please enable JavaScript.

Mas eu tenho o javascript on..

obrigado e cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas amigo, não consigo sacar, dá-me este erro:

ERROR: Please enable JavaScript.

Mas eu tenho o javascript on..

obrigado e cumprimentos

dame teu mail por pm k mandote por email

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, poem aqui o código, para que toda a gente o possa ver, obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, poem aqui o código, para que toda a gente o possa ver, obrigado

Apanhas-me Bem disposto ;)

http://rapidshare.com/files/97770353/barpor.rar.html

ta ai o que pediste. :P Um código bastante simples :thumbsup:

Ele já aqui tem o código ;)

Quem quiser saca :P

Ele só vai mandar para o bioshock em especial porque ele deve estar com algum problema em aceder ao javascript, e consequentemente ao RapidShare.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok

1º Insiram um Timer e metam o tempo a 1000. ou seja 1 segundo.

segundo metam uma progress bar

depois 1 label

e 1 butão

depois o codigo xpto


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim contagem As Integer = 50
        ProgressBar1.Maximum = contagem
        ProgressBar1.Value = 0
        Label1.Text = "Faltam: " & ProgressBar1.Maximum - ProgressBar1.Value & " Segundos"
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MsgBox("Tempo Terminado")
            Timer1.Stop()
        Else
            ProgressBar1.Value += 1
            Label1.Text = "Faltam: " & ProgressBar1.Maximum - ProgressBar1.Value & " Segundos"
        End If
        
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Faltam: 50 Segundos"
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Comigo também não funcionou ... deve ser do meu browser!

Mas faz falta código para que quem lê possa comentar, aprender e mesmo corrigir.

Ninguém sabe tudo e mesmo os "bons" cometem erros.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora