Kod pojawia się za wcześnie

[kamilll3]

Witam

Mimo że wszystko mam napisane poprawnie, kod który ma się wyświetlić po ukończeniu ładowania (generowania)

pojawia się sekundę wcześniej

 

Oto cały kod programu

 

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 End
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Timer1.Start()
	 ProgressBar1.Value = ProgressBar1.Minimum

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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
	 Timer1.Stop()
	 Dim key As Integer
	 key = (Rnd() * 3)
	 Select Case key
		 Case 1
			 TextBox1.Text = "KOD1"
		 Case 2
			 TextBox1.Text = "KOD2"
		 Case 3
			 TextBox1.Text = "KOD3"
	 End Select
	 MessageBox.Show("Generated", "Success!")
 End If
End Sub
End Class
End Sub

 

Czy jest to normalne, czy popełniłem gdzieś błąd ?

[Gość LastPhoenix450]

To jest jakiś fake keygen czy coś? Tu masz lepszy:

 

Public Class Form1
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    TextBox1.SelectAll()
    TextBox1.Copy()
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = Int(Rnd() * 19)
    Select Case TextBox1.Text
	    Case 0
		    TextBox1.Text = "92WMH7-2K6F-Z7X62E-R7CP-4N676W"
	    Case 1
		    TextBox1.Text = "6GY7GP-KMBY-CWY728-H427-7WMEMY"
	    Case 2
		    TextBox1.Text = "NEHT4B-678V-VBZMWZ-CPWP-HEXJXH"
	    Case 3
		    TextBox1.Text = "HEWP66-KD4K-DH6ZZP-F87Y-D9FYFW"
	    Case 4
		    TextBox1.Text = "F9EC62-J82V-E8DYKT-VXN6-7MNRNE"
	    Case 5
		    TextBox1.Text = "DNNFYZ-WYMW-MR6RJB-986B-266W6N"
	    Case 6
		    TextBox1.Text = "BM6FDN-NV42-F4C479-XD6Y-GPNJN6"
	    Case 7
		    TextBox1.Text = "2REJX7-JXVX-FPV7MX-J4FY-JPNENE"
	    Case 8
		    TextBox1.Text = "W8N4WJ-6VX6-GV6CWE-7X2M-JXC4VR"
	    Case 9
		    TextBox1.Text = "DZKPCK-Z8K6-ENVNK9-C9NK-9D9R9D"
	    Case 10
		    TextBox1.Text = "26F2ZW-HMJH-V226GT-KKEG-7MWKNZ"
	    Case 11
		    TextBox1.Text = "MYH9EF-XHPY-X8FCJF-MFH7-BJC667"
	    Case 12
		    TextBox1.Text = "MWNCB8-FRMB-KMC6DF-YM7X-G7H6RE"
	    Case 13
		    TextBox1.Text = "Y8PDMD-8MCH-Y2BWMV-HFYZ-YYFEFD"
	    Case 14
		    TextBox1.Text = "NHN2TH-YC4K-WC6P7X-XNW8-K7MBKF"
	    Case 15
		    TextBox1.Text = "GGTFHW-BBM2-47WDPE-6HMD-7DN2DC"
	    Case 16
		    TextBox1.Text = "P2HGN4-DFEW-KVKV4G-JKWR-289CYM"
	    Case 17
		    TextBox1.Text = "H2V49N-TMCE-778CY7-7KXX-CN6NMC"
	    Case 18
		    TextBox1.Text = "ZHG4JH-N4BE-RJ28FC-VWXN-YVHRKX"


    End Select
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Close()
   End Sub
End Class

 

Jedna sekunda robi różnicę?

[kamilll3]

To dałem akurat przykładowo, żeby było przejrzyście, ale dzięki.

 

Robi różnice jeżeli ładowanie trwa 5 sec, pojawia się tekst a ładowanie jeszcze trwa

[LordOfHearts]

to jest wina działania ProgressBaru "windowsowego"

ja bym zrobił to w timerze,

np. odlicza 2 sec i uruchamia np.

Public Class Form1
Dim a As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Timer2.Enabled = False

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 = 100 Then
Timer1.Stop()
Timer2.Start()

End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
a = a + 1
If a = 1 Then
Timer2.Stop()
If ProgressBar1.Value = 100 Then
Form2.ShowDialog()
End If
End If
End Sub
End Class

[kamilll3]

Dzięki wszystkim, temat do zamknięcia

[somanyidiots]

No to jeszcze inaczej , import.system.thread.threading , progressbar i do tego sleep(1000) - przykładowo po 1sek po wykonaniu jednego zadania. I można obejść się bez timera .