[Problem] Pomoże ktoś z kodem ?

[DobeRmanRGH]

Witam. Uczę się tworzyć keygeny poprzez poradnik rockndruga, Jest to poradnik nr.3 Jeśli ktoś będzie chciał mi pomóc z tym kodem to mu podam link do tematu z poradnikiem na pw.

I mam problem z kodem ponieważ mam tam 2 błędy tylko nie wiem jak je poprawić. Oto kod:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = False And
RadioButton2.Checked = False Then
            MessageBox.Show("Choose game version", "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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        If RadioButton1.Checked Then
            RadioButton2.Enabled = True
        End If
        If RadioButton2.Checked Then
            RadioButton1.Enabled = True
        End If
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles <---- Błąd 
        Timer1.Tick() <---- Błąd
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MessageBox.Show("Key generated! Have Fun!", "Success!")
            If RadioButton1.Checked Then
losowanie_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 = "Your key: " & 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
                Timer1.Stop()
                If RadioButton2.Checked Then
losowanie_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 = "Your key: " & 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 If
        End If
    End Sub
End Class

 

[Sunnyline2]

Jakie masz dwa błędy ? ?

[Shadow666]

Jakie masz dwa błędy ? ?

Przecież jest napisane gdzie jest Błąd

 

 

Witam. Uczę się tworzyć keygeny poprzez poradnik rockndruga, Jest to poradnik nr.3 Jeśli ktoś będzie chciał mi pomóc z tym kodem to mu podam link do tematu z poradnikiem na pw.

I mam problem z kodem ponieważ mam tam 2 błędy tylko nie wiem jak je poprawić. Oto kod:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles <---- Błąd 
        Timer1.Tick() <---- Błąd
     
   
              

[Gość]

Timer.Tick, to nie jest metoda, tylko zdarzenie.

 

A błąd masz, ponieważ zamiast

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles <---- Błąd 
        Timer1.Tick() <---- Błąd

powinno być

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'działa