Skocz do zawartości

Jak zaprogramować Timer w VB?


frycek1987

Rekomendowane odpowiedzi

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

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ę :)

  • Super 2
Odnośnik do komentarza

Polecam się na przyszłość :D

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.

Odnośnik do komentarza
  • 4 tygodnie później...

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?

Edytowane przez Samick
Odnośnik do komentarza

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:)

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

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?

Odnośnik do komentarza

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

Edytowane przez Xander92
  • Super 1

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

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 :)

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .