Skocz do zawartości

Niedziałający progressbar


markos

Rekomendowane odpowiedzi

Mógłby ktoś rzucić okiem na kod? Bo gdy klikam 'generate' wyświetla się klucz, a progressbar nie działa.

Public Class Form1    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton2.Click        End    End Sub            Private Sub GButton1_Click(sender As System.Object, e As System.EventArgs) Handles GButton1.Click        If RadioButton1.Checked = False AndRadioButton2.Checked = False Then            MessageBox.Show("Choose platform!", "Error")        Else            Timer1.Start()            ProgressBar1.Value = ProgressBar1.Minimum            If RadioButton1.Checked Then                RadioButton2.Enabled = False            End If            If RadioButton2.Checked Then                RadioButton1.Enabled = False            End If        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        End If        Timer1.Stop()        MessageBox.Show("Key generated!", "Success!")        If RadioButton1.Checked Thenlosowanie_klucza:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 35560 Then                    Dim klucz As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz = klucz.Replace("2", "G")                    klucz = klucz.Replace("4", "Z")                    klucz = klucz.Replace("6", "S")                    klucz = klucz.Replace("8", "N")                    TextBox1.Text = klucz                    Exit Sub                Else                    GoTo losowanie_klucza                End If            Else                GoTo losowanie_klucza            End If        Else        End If        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        End If        Timer1.Stop()        If RadioButton2.Checked Thenlosowanie_klucza2:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 38560 Then                    Dim klucz2 As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz2 = klucz2.Replace("3", "F")                    klucz2 = klucz2.Replace("4", "Z")                    klucz2 = klucz2.Replace("5", "T")                    klucz2 = klucz2.Replace("8", "N")                    TextBox1.Text = klucz2                    Exit Sub                Else                    GoTo losowanie_klucza2                End If            Else                GoTo losowanie_klucza2            End If        End If        End    End SubEnd Class
Edytowane przez markos
Odnośnik do komentarza

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!

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 .