Skocz do zawartości
pelikan23

Problem z VB

Rekomendowane odpowiedzi

Siema, 

 

wlasnie zaczalem zabawe z VB. No i oczywiscie problem z programowaniem buttonow i timera. Chodzi mi o taki prosty generator z buttonami "Generate" i "Exit", Textbox'em na wygenerowany kod i Progressbar'em oczywiście. Button "Exit" i "Generate" mam, tylko jest problem z Timer'em i Progressbarem, bo jak wciskam "Generate" to tylko generują się kody na zmianę, a Progressbar nic nie idzie. No i jak już bedzie szedl Progressbar to jak zrobic zeby kody generowaly sie jak dojdzie do konca a nie jak zacznie (slyszalem, ze to dosyc czesty problem dlatego od razu pytam z gory). :)

"Twoja ignorancja to ich siła"

Odnośnik do komentarza

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!

 

 

Tutaj masz kod, że jak klikniesz Generate to Ci progressbar idzie:

 

 

Kod do Timera:

ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then            Timer1.Stop()            MessageBox.Show("Done", "Success")

Kod do Generate:

Timer1.Start()

Wyjście:

Exit

Co do kodów to zrób button Patch i najpierw pokazuj że sie generują kody z serwera, a później klikasz button Generate i się pokazują kody

  • Super 1
Odnośnik do komentarza
Mogłeś zrobić pustego ifa :> 

  


      ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
        End If


        Timer1.Stop()
        MessageBox.Show("Done", "Success")

 

 

Zamiast>

 




      ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
 Timer1.Stop()
        MessageBox.Show("Done", "Success")
        End If


       

Edytowane przez JaPiotr
Odnośnik do komentarza

 

Mogłeś zrobić pustego ifa :> 
  
      ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then        End If        Timer1.Stop()        MessageBox.Show("Done", "Success")
 
 
Zamiast>
 
      ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then           Timer1.Stop()           MessageBox.Show("Done", "Success")        End If
       

 

 

Twój kod zatrzymuje timer po pierwszym takcie już o MessageBoxie nie wspominając :>

Edytowane przez tmalec
  • Super 1
Odnośnik do komentarza

Wklej tutaj kod swojego programu.

 

Jeśli chodzi o button "Exit" (pogrubiony "End" wklejony przeze mnie, i wszystko ładnie działa, to cienką czcionką juz bylo) :

 

 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  
 
System.EventArgs) Handles Button2.Click 
 
        End 
 
    End Sub 
 
 
Button "Generate" (wkleiłem taki kod) :
 
 
Timer1.Start()
 
        Dim key As Integer
 
        key = (Rnd() * 3 + 1)
 
        Select Case key
 
            Case 1
 
                TextBox1.Text = "AG7V3BG895SR"
 
            Case 2
 
                TextBox1.Text = "NS2OP5XV5B11"
 
            Case 3
 
                TextBox1.Text = "41S9VBG7YT2P"
 
        End Select
 
 
A to mój kod wpisany pod Timer'em:
 
 ProgressBar1.Increment(1)
 
        If ProgressBar1.Value = 100 Then
 
            Timer1.Stop()
 
            Dim key As Integer
 
            key = (Rnd() * 3)
 
            Select Case key
 
                Case 1
 
                    TextBox1.Text = "AG7V3BG895SR"
 
                Case 2
 
                    TextBox1.Text = "NS2OP5XV5B11"
 
                Case 3
 
                    TextBox1.Text = "41S9VBG7YT2P"
 
            End Select
 
        End If
 
        Timer1.Stop()
        MessageBox.Show("Done", "Success")
 
 
No to by było na tyle. Wszystko, co wkleiłem. "Exit" działa, "Generate" generuje te trzy kody, Progressbar idzie, okienko z napisem "Done" się wyświetla. Jedynym problemem jest kolejnosc, czyli kody i okienko "Done" wyswietlaja sie gdy Progressbar rusza.
 
Pozdrawiam :)

"Twoja ignorancja to ich siła"

Odnośnik do komentarza

 

Jeśli chodzi o button "Exit" (pogrubiony "End" wklejony przeze mnie, i wszystko ładnie działa, to cienką czcionką juz bylo) :

 

 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  
 
System.EventArgs) Handles Button2.Click 
 
        End 
 
    End Sub 
 
 
Button "Generate" (wkleiłem taki kod) :
 
 
Timer1.Start()
 
        Dim key As Integer
 
        key = (Rnd() * 3 + 1)
 
        Select Case key
 
            Case 1
 
                TextBox1.Text = "AG7V3BG895SR"
 
            Case 2
 
                TextBox1.Text = "NS2OP5XV5B11"
 
            Case 3
 
                TextBox1.Text = "41S9VBG7YT2P"
 
        End Select
 
 
A to mój kod wpisany pod Timer'em:
 
 ProgressBar1.Increment(1)
 
        If ProgressBar1.Value = 100 Then
 
            Timer1.Stop()
 
            Dim key As Integer
 
            key = (Rnd() * 3)
 
            Select Case key
 
                Case 1
 
                    TextBox1.Text = "AG7V3BG895SR"
 
                Case 2
 
                    TextBox1.Text = "NS2OP5XV5B11"
 
                Case 3
 
                    TextBox1.Text = "41S9VBG7YT2P"
 
            End Select
 
        End If
 
        Timer1.Stop()
        MessageBox.Show("Done", "Success")
 
 
No to by było na tyle. Wszystko, co wkleiłem. "Exit" działa, "Generate" generuje te trzy kody, Progressbar idzie, okienko z napisem "Done" się wyświetla. Jedynym problemem jest kolejnosc, czyli kody i okienko "Done" wyswietlaja sie gdy Progressbar rusza.
 
Pozdrawiam :)

 

 

No i masz błąd ostatnie 2 linijki :>

 

Zmień kod od timera:

  ProgressBar1.Increment(1)         If ProgressBar1.Value = 100 Then             Timer1.Stop()             Dim key As Integer             key = (Rnd() * 3)             Select Case key                 Case 1                     TextBox1.Text = "AG7V3BG895SR"                 Case 2                     TextBox1.Text = "NS2OP5XV5B11"                 Case 3                     TextBox1.Text = "41S9VBG7YT2P"             End Select        Timer1.Stop()        MessageBox.Show("Done", "Success")         End If 
  • Super 2
Odnośnik do komentarza

 

No i masz błąd ostatnie 2 linijki :>

 

Zmień kod od timera:

  ProgressBar1.Increment(1)         If ProgressBar1.Value = 100 Then             Timer1.Stop()             Dim key As Integer             key = (Rnd() * 3)             Select Case key                 Case 1                     TextBox1.Text = "AG7V3BG895SR"                 Case 2                     TextBox1.Text = "NS2OP5XV5B11"                 Case 3                     TextBox1.Text = "41S9VBG7YT2P"             End Select        Timer1.Stop()        MessageBox.Show("Done", "Success")         End If 

O tym właśnie pisałem od początku...

  • Super 1
Odnośnik do komentarza

Ciąg dalszy zabawy :) Chodzi mi o taki bardziej zaawansowany generator - buttony "Generate", "Exit" i "Reset", oczywiście Textbox, Progressbar i 2 RadioButtony. Chodzi mi o to zeby mozna bylo wybrac dowolny RadioButton i wygenerowac do niego kod. No i ten "Reset" zeby dzialala jakby ktos zalozmy kapnal sie, ze nie ten RadioButton chcial wybrac.

 

Dzieki za wszystkie odpowiedzi, zreszta podziekuje jeszcze repami :)

"Twoja ignorancja to ich siła"

Odnośnik do komentarza

Przycisk Generate 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()    End Sub

Timer

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then            Timer1.Stop()            If RadioButton1.Checked Then                TextBox1.Text = "Radio1 checked"            Else                TextBox1.Text = "Radio2 checked"            End If        End If    End Sub

Przycisk reset

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        ProgressBar1.Value = 0    End Sub

Przycisk exit

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click        Close()    End Sub
Edytowane przez tmalec
  • Super 2
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 .