Visual Basic'de Gelişmiş bir zıplayan top Oyunu Yapımı

[SaNcArHaN71]

Visual Basic'de Gelişmiş bir zıplayan top Oyunu Yapımı


Size belirttiğim gibi bir zıplayan top yapımını öğreteceğim.

Öncelikle forma neler koymalıyız hemen söyleyelim:

3 adet optionbutton
1 adet checkbox
1 adet shape
1 adet timer

Hemen kodları vereyim:

Code:

Private Sub Check1_click() If Check1.Value = 1 Then Timer1.Enabled = False Option1.Enabled = False Option2.Enabled = False Option3.Enabled = False Else Timer1.Enabled = True Option1.Enabled = True Option2.Enabled = True Option3.Enabled = True End If End Sub Private Sub Option1_Click() Timer1.Interval = "20" End Sub Private Sub Option2_Click() Timer1.Interval = "12" End Sub Private Sub Option3_Click() Timer1.Interval = "1" End Sub Private Sub Timer1_Timer() Static ax, ay If IsEmpty(ax) Then ax = 100 ay = 100 End If If Shape1.Top <= 0 Or Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then ay = -ay Beep End If If Shape1.Left <= 0 Or Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then ax = -ax Beep End If Shape1.Left = Shape1.Left + ax Shape1.Top = Shape1.Top + ay End Sub