Wie füge ich alle fünf Sekunden in vb.net einen Punkt zu meiner Punktzahl hinzu, wenn ich auf eine Schaltfläche klicke?

Question

Ich mache ein Spiel, wo Sie Punkte von einem Klick erhalten (ein Klick = ein Punkt), dann, wenn Sie 100 Punkte erreichen, können Sie einen Manager kaufen, indem Sie auf eine andere Schaltfläche namens button2 klicken, wo sie jeden Punkt hinzufügen fünf Sekunden, aber wenn Sie einen Manager für 100 Punkte kaufen, werden 800 Punkte benötigt, um einen Manager zu kaufen. Dann haben Sie zwei Manager, also 2 Punkte alle fünf Sekunden.

Wie füge ich alle fünf Sekunden einen Punkt hinzu? (Muss ich, um eine Funktion zu machen?)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    If Score.Text >= 100 And Score.Text <= 800 Then 
       If Button2.Text = "Buy One Manager for 100 Clicks" Then 
        Button2.Text = "Buy One Manager for 800 Clicks" 
        MsgBox("You have bought one manager") 
        Score.Text = Score.Text - 100 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 100) + (One * 4) 
       End If 
      ElseIf Score.Text >= 800 And Score.Text <= 6400 Then 
       If Button2.Text = "Buy One Manager for 800 Clicks" Then 
        Button2.Text = "Buy Two Managers for 6400 Clicks" 
        MsgBox("You have bought one manager") 
        Score.Text = Score.Text - 800 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 800) + (One * 4) 
       End If 
      ElseIf Score.Text >= 6400 And Score.Text <= 51200 Then 
       If Button2.Text = "Buy Two Managers for 6400 Clicks" Then 
        Button2.Text = "Buy Three Managers for 51200 Clicks" 
        MsgBox("You have bought two managers") 
        Score.Text = Score.Text - 6400 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 6400) + (One * 8) 
       End If 
    End If 
End Sub 

Answer 1

Verwendung Timer mit 5000 Intervall Code schreiben hier

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

End Sub