Yılan oyunu

Forma 4 tane command butonu,4 tane option nesnesi,biri kare , di?erleri yuvarlak 5 tane shape nesnesi, bir tane de timer yerle?tiriniz.

Private Sub Timer1_Timer()

If Shape1.Left >= 15120 Or Shape1.Left <= 0 Or Shape1.Top <= 0 Or Shape1.Top > 8160 Then

Label3.Visible = True

Label4.Visible = True

yen.Visible = True



End If





Text2.Text = Shape1.Left

Text3.Text = Shape1.Top

If a1.Value = True Then

Shape1.Left = Shape1.Left - 120

End If

If a2.Value = True Then

Shape1.Left = Shape1.Left + 120

End If

If a3.Value = True Then

Shape1.Top = Shape1.Top + 120

End If

If a4.Value = True Then

Shape1.Top = Shape1.Top - 120

End If









If Shape2.Visible = True And Shape1.Top = 1920 And Shape1.Left = 840 Then

Text1.Text = Val(Text1.Text) + 10

Shape2.Visible = False

Shape3.Visible = True



End If



If Shape3.Visible = True And Shape1.Top = 1320 And Shape1.Left = 5760 Then

Text1.Text = Val(Text1.Text) + 10

Shape3.Visible = False

Shape4.Visible = True



End If



If Shape4.Visible = True And Shape1.Top = 4200 And Shape1.Left = 1560 Then

Text1.Text = Val(Text1.Text) + 10

Shape5.Visible = True

Shape4.Visible = False



End If



If Shape5.Visible = True And Shape1.Top = 6360 And Shape1.Left = 8760 Then

Text1.Text = Val(Text1.Text) + 10

Shape2.Visible = True

Shape5.Visible = False

Shape3.Visible = False

Shape4.Visible = False



End If



End Sub



Private Sub Timer2_Timer()

If Text4.Text = "1" Then

Shape1.Visible = False

Else

Shape1.Visible = True

End If



Text4.Text = Val(Text4.Text) + 1

If Text4.Text = "3" Then

Text4.Text = "0"





End If



End Sub