Pytanie Problem z VB

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

A i gdybym mogl prosic o łopatologiczne wyjasnienia byloby fajnie, bo dopiero zaczynam przyode z PPA

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

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

Dzieki za odp. A można jaśniej? bo nie bardzo kapuje?

Powklejalem i wszystko byloby ladnie, ale okienko z napisem "Done" i wygenerowany kod pokazuja sie gdy Progressbar rusza niestety

Wklej tutaj kod swojego programu.

Spróbuj dopisać

Timer1.Interval = 50

Przed 

Timer1.Start()

no to jak wyskakuje na początku to coś w kodzie już musiałeś namieszać

      ProgressBar1.Increment(1)

        If ProgressBar1.Value = 100 Then

        End If



        Timer1.Stop()

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

      ProgressBar1.Increment(1)

        If ProgressBar1.Value = 100 Then

           Timer1.Stop()

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

        End If

 

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

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

naucz się czytać ze zrozumieniem.

naucz się czytać ze zrozumieniem.

Wydaje mi się, że jednak dobrze przeczytałem

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

 

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

 

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 

 

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...

I pod buttonem dajesz tylko Timer1.start(), a nie kod generujący cd key, bo tak to się nie dziw, że od razu się cd key pokazuje jak masz zaprogramowane (tłumacząc): 1. włącz timer 2. wyświetl losowo 1 z kodów

Zajebiscie, dzieki chlopaki

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

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

Dzieki tmalec