Jak zaprogramować Timer w VB?

Czy mógłby ktoś pomóc zaprogramować timer w VB?

Chodzi mi o to, żeby po naciśnięciu buttona "start" odpalał się progress bar i w "label1" wyskakiwały teksty w stylo "connecting..." itp.

Automatyczna wiadomość


Ten temat został przeniesiony z "Webmastering i Skrypty" do "Visual Basic". Staraj się umieszczać tematy w odpowiednich działach

@piotruss96 skopiowałeś żywcem z poradnika Krypy. Mam ten poradnik i to jest kod do keygena, żeby wywalił jeden z "casów" po tym jak progres bar dojdzie do końca. A mi jednak chodzi o coś innego, tak jak opisałem w pierwszym poście

nie jestem pewien czy o to chodzi ale proszę: 
ogólnie to polega na tym że jak idzie progress bar to wyświetlają się napisy "connecting..." "hacking..." "DONE!" itp... 

 Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "Please wait..."        End If        If ProgressBar1.Value = 25 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 25 Then            Label2.Text = "Connecting..."        End If    If ProgressBar1.Value = 50 Then            Label2.Text = ""        End IfIf ProgressBar1.Value = 50 Then            Label3.Text = "Hacking..."        End IfIf ProgressBar1.Value = 100 Then            Label3.Text = ""        End IfIf ProgressBar1.Value = 100 Then            Label4.Text = "Done!"        End If

Mam nadzieję że to o to chodziło tylko tam jeszcze musisz tak zrobić: 
dajesz label1 i wpisujesz tekst np. "Connecting" a potem musisz go wymazać (tylko nie wywalić cały label1 tylko wymazać sam tekst) i tak z każdym bo tak to wszystkie na raz Ci się będą wyświetlały.
W razie czego to pisz to dokładniej wyjaśnię

Nie wiem dlaczego, ale to mi podkreśla -> InfluenceProgressBar1.Increment(1)

(mam dodane influence bo używam takiego skina i tak mój progressBar się nazywa)

Dzięki wielkie Soony08 i Mateht, z wykorzystaniem waszej pomocy wszystko działa jak należy

Polecam się na przyszłość

A tak przy okazji może ja też zadam takie małe pytanie

Mógłby mi ktoś wytłumaczyć jak zrobić tak żeby pasek postępu szedł tak bardzo powoli, tak żeby to wyglądało że się duży plik pobiera i wyglądało to realistycznie bo raczej małe szanse są że gra jakaś czy jakikolwiek inny duży plik się pobrał w kilka sekund.

zmienić intervał timera? 

http://prntscr.com/1ufmah

ooo! dzięki bardzo o to mi chodziło, ja nie znam się jeszcze zbytnio na tym programie, to co ty potrzebowałeś to akurat wiedziałem bo też tego potrzebowałem kiedyś  

A może ma paczke kodowań do hacka ?  Czyli jak zaprogramować exit , generate h@ack  itp ?

A może ma paczke kodowań do hacka ?  Czyli jak zaprogramować exit , generate h@ack  itp ?

Przylaczam sie do pytania.

Użyłem tego kodu który podał Soony08 ale nie działa mi to tak jak powinno. Mianowicie wyświetla pierwsze dwa labele a kolejnych już nie. Próbowałem tak jak jest w kodzie cztery różne labela a później wszystko na jednym ale dalej jest to samo. Używam skórki do VB ale to raczej nie jest jej wina bo jest to skórka tylko do paru elementów i nie obejmuje tych objętych w kodzie. Ma może ktoś pomysł dlaczego się ta dzieje?

Sprobuj zmienic na konstrukcje case, polecam poradnij rockndrug "make your own app" czy cos takiego

Wysłane z mojego GT-I9000 przy użyciu Tapatalka

Użyłem tego kodu który podał Soony08 ale nie działa mi to tak jak powinno. Mianowicie wyświetla pierwsze dwa labele a kolejnych już nie. Próbowałem tak jak jest w kodzie cztery różne labela a później wszystko na jednym ale dalej jest to samo. Używam skórki do VB ale to raczej nie jest jej wina bo jest to skórka tylko do paru elementów i nie obejmuje tych objętych w kodzie. Ma może ktoś pomysł dlaczego się ta dzieje?

Zmień Label2 i Label3 na Label1 i będzie dobrze:)

Posiadam poradnik rockndrug'a. Uczyłem się z niego podstaw. Niestety nadal nie działa. Podpiąłem timer2 do progressbar1 i mam coś takiego:

 Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label3.Text = "Please wait..."        End If        If ProgressBar1.Value = 25 Then            Label3.Text = ""        End If        If ProgressBar1.Value = 25 Then            Label3.Text = "Connecting..."        End If        If ProgressBar1.Value = 50 Then            Label3.Text = ""        End If        If ProgressBar1.Value = 50 Then            Label3.Text = "Hacking..."        End If        If ProgressBar1.Value = 100 Then            Label3.Text = ""        End If        If ProgressBar1.Value = 100 Then            Label3.Text = "Done!"        End If    End SubEnd Class

I w tym momencie  wyświetla mi tylko "hacking" i "Done". Może widzi tutaj ktoś coś czego ja nie dostrzegam?

Dziwne trochę, że cały kod jest przypisany do funkcji ProgressBar1_Click. Wydaje mi się, że dużo łatwiejszym i lepszym byłoby użycie Timer'a

tu masz prosty kod z buttonem, progressbarem, labelem i timerem:

Public Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End Sub    Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click            End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "Please wait..."        End If        If ProgressBar1.Value = 25 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 25 Then            Label1.Text = "Connecting..."        End If        If ProgressBar1.Value = 50 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 50 Then            Label1.Text = "Hacking..."        End If        If ProgressBar1.Value = 100 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 100 Then            Label1.Text = "Done!"        End If    End SubEnd Class

i według niego spróbuj ocenić co masz źle

Dziwne trochę, że cały kod jest przypisany do funkcji ProgressBar1_Click. Wydaje mi się, że dużo łatwiejszym i lepszym byłoby użycie Timer'a

Bardzo możliwe. Nie jestem orłem z programowania, zawsze miałem z tym problem ale na szczęście są miejsca gdzie można znaleźć pomoc

tu masz prosty kod z buttonem, progressbarem, labelem i timerem:

Public Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End Sub    Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click            End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "Please wait..."        End If        If ProgressBar1.Value = 25 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 25 Then            Label1.Text = "Connecting..."        End If        If ProgressBar1.Value = 50 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 50 Then            Label1.Text = "Hacking..."        End If        If ProgressBar1.Value = 100 Then            Label1.Text = ""        End If        If ProgressBar1.Value = 100 Then            Label1.Text = "Done!"        End If    End SubEnd Class

i według niego spróbuj ocenić co masz źle

Wszystko działa mi już jak należy. Z lekkim zmodyfikowaniem już nie powinienem mieć problemu. Dzięki wielkie