Skocz do zawartości

Jak zaprogramować Timer w VB?


frycek1987

Rekomendowane odpowiedzi

Zarejestruj się za darmo i naucz się zarabiać online!

  • 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, sztucznej inteligencji 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
Nie używaj funckji increment. Można to obejść np. w taki sposób:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
InfluenceProgressBar1.Value = InfluenceProgressBar1.Value + 1
If InfluenceProgressBar1.Value = InfluenceProgressBar1.Maximum Then
Timer1.Stop()
End If
End Sub

  • Super 1
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ę
  • Polecana zawartość

    • Poradnik podatkowy - jak rozliczać się z pieniędzy zarobionych przez Internet bez DG?
      Zarabianie w Internecie wiąże się z koniecznością płacenia podatków - a rozliczanie się z urzędem skarbowym nie jest jednoznaczne i proste. Prawo podatkowe w Polsce jest nieujednolicone - co oznacza, że każdy urząd skarbowy może mieć inne interpretacje. Sprawdź jak się za to zabrać!
        • Lubię to!
        • Super
      • 12 odpowiedzi
    • JDG - Jak zarejestrować, rozliczać i prowadzić działalność gospodarczą w Polsce
      Jednoosobowa działalność gospodarcza (JDG) to najprostsza forma prowadzenia działalności gospodarczej w Polsce. Jest to działalność prowadzona przez jedną osobę fizyczną na własne nazwisko i na własne ryzyko. Jednak mimo, że nazywa się jednoosobowa - daje jednak możliwość zatrudniania pracowników. Takich firm jest zarejestrowanych w Polsce zdecydowanie najwięcej. Sprawdź jak zarejestrować, rozliczać i prowadzić własną JDG!
        • Super
      • 3 odpowiedzi
    • Inwestowanie w obligacje detaliczne skarbu państwa - od podstaw!
      Sprawdź jak inwestować w obligacje skarbowe - krok po kroku! Detaliczne obligacje skarbowe to rodzaj obligacji emitowanych przez Państwo, które są oferowane indywidualnym inwestorom, takim jak osoby fizyczne, a nie instytucjom finansowym.

      Są to instrumenty dłużne, nienotowane na żadnym rynku, co oznacza że kupując taką obligację, w praktyce pożyczasz pieniądze państwu na określony czas, a w zamian otrzymujesz odsetki. Można więc powiedzieć że obligacje są indywidualną pożyczką na określony % dla Skarbu Państwa. Państwo odda Ci więcej niż od Ciebie pożyczyło.
        • Super
      • 7 odpowiedzi
    • Jak pozyskiwać i zarabiać na poleconych dzięki make-cash.pl
      W tym poradniku przedstawiam możliwości dostępne dla każdego użytkownika. Dowiesz się jak efektywnie wykorzystać forum do zbierania poleconych i budowania dodatkowych zysków.

      Make-cash.pl to miejsce, gdzie ludzie dzielą się swoimi doświadczeniami, poszukują porad i rekomendacji, a także nawiązują wartościowe kontakty. Codziennie odwiedza nas minimum 2000 unikalnych osób, które są zainteresowane zarabianiem przez Internet - a to ogromny potencjał, z którego może korzystać nie tylko administracja - ale każdy użytkownik forum !
        • Super
      • 2 odpowiedzi
    • Jak pisać treści na stronę internetową z wykorzystaniem AI
      Tworzenie treści od podstaw może być procesem czasochłonnym. Istnieje wiele mniejszych kroków, o których należy pomyśleć w drodze do stworzenia atrakcyjnych treści, takich jak badanie rynku, SEO i redagowanie tekstu, a to tylko początek. Jednak nie musisz zaczynać od zera, gdy istnieją narzędzia AI, które mogą pomóc w tworzeniu wysokiej jakości treści. 
        • Dzięki!
        • Super
      • 13 odpowiedzi
×
×
  • 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 .