Visual Basic erste Projekte

[s4gamer500]

Hallo Elitepvpers

Also ich bin noch relativ am anfang von Visual Basic und ich wollte heute ein programm coden. aber wenn ich das dann debugge und ne website eingeb und auf start drück öffnet sich die website unendlich mal was soll ich ändern ?
Hier der Code :

PHP Code:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Process.Start(TextBox1.Text)
        End If
    End Sub

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

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(2)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Process.Start("http://www.youtube.com/?gl=DE&hl=de")
        End If
    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckBox1.Checked = True Then
            Timer2.Start()
            If CheckBox2.Checked = True Then
                Timer3.Start()
                If CheckBox3.Checked = True Then
                    Timer4.Start()
                End If
            End If
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        ProgressBar2.Increment(2)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Process.Start("http://www.elitepvpers.com/forum/s4-league/")
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        ProgressBar2.Increment(2)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Process.Start("http://www.facebook.com/")
        End If
    End Sub
End Class 


[.Timoleini]

Ich bin mir jetzt zwar nicht sicher , weil ich mich nicht konzentrieren kann im moment aber versuch es einfach mal mit dem Quellcode habe da 3 zeilen reingemacht , hoffe ich hab das auf den ersten Blick richtig gesehen wenn nicht schau ich nochmal richtig

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Process.Start(TextBox1.Text)
Timer1.Stop()
End If
End Sub

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

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.youtube.com/?gl=DE&hl=de")
Timer2.Stop()
End If
End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If CheckBox1.Checked = True Then
Timer2.Start()
If CheckBox2.Checked = True Then
Timer3.Start()
If CheckBox3.Checked = True Then
Timer4.Start()
End If
End If
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.elitepvpers.com/forum/s4-league/")
Timer3.Stop()
End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.facebook.com/")
End If
End Sub

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

End Sub
End Class

[Kraizy​]

Du musst den Timer dann natürlich auch stoppen, denn du frägst ja ab, ob ProgressBar.Value = Maximum und wenn ja, dann Seite aufrufen. Jedoch ist bei dir die ProgressBar irgendwann voll und der Timer läuft immernoch weiter, also ruft er die Seite nochmal auf. Noch eine Frage: Haben deine ProgressBars irgendeine Funktion oder benutzt du die einfach so um die Seite nach einer bestimmten Zeit zu öffnen? Wenn ja, dann bräuchtest du diese gar nicht.

[.Timoleini]

Ich hab ihn mit Timer stop schon reingetan.

Am ende wär es auch noch Praktisch die Progressbare wieder auf 0 zu setzen

Einfach mit

Progressbar1.Value = 0

Damit er auch beim nächsten mal wieder von vorne anfängt.

[s4gamer500]

Vielen Herzlichen Dank

[s4gamer500]

hmm jetz öffnet er zwar nich mehr so viele seiten aber immer noch minderstens 3 ...

Edit : ah jetz funktionierts doch nochmals vielein dank