Güzel Bir Yılan Oyunu...

[pisko_3541]

Forma 4 tane command butonu4 tane option nesnesibiri kare digerleri yuvarlak 5 tane shape nesnesi bir tane de timer yerlestiriniz.
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
Saygılarımla....

 

[bloodthief]

bide kodlama dilini yazsan

 

[pisko_3541]

bide kodlama dilini yazsan

Visual Basic:biggrin:biggrin:biggrin:biggrin