05-10-12, 03:35 AM
كاتب الموضوع : FlyToAbd
بكل بساطة اضف Button عدد 2
Label عدد 1
Timer عدد 1
الصق الكود التالي بدل كود الفورم والعب....
انصحك ما تظل تلعب وانما ادرس الفورم واذا انت شاطر فكر كيف تعمله قبل ما تدرسه
كود :
Public Class Form1
Private HDir As Integer = -1
Private VDir As Integer = -1
Private Speed As Integer = 5
Private Life As Integer = 4
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Label1
.Left = 0
.Top = 0
.Text = Life
End With
With Timer1
.Interval = 100
.Enabled = True
End With
With Button1
.Width = 20
.Height = 20
.Text = ""
End With
With Button2
.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
.Width = 75
.Height = 10
.Top = Me.Height - 60
.Text = ""
End With
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.X < (Me.Width - Button2.Width - 15) Then Button2.Left = e.X
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Left = Button1.Left + HDir * Speed
If Button1.Left <= 5 Then HDir = 1
If Button1.Left >= (Me.Width - Button1.Width - 15) Then HDir = -1
Button1.Top = Button1.Top + VDir * Speed
If Button1.Top <= 3 Then VDir = 1
If Button2.Top < (Button1.Top + Button1.Height) And Button2.Top > (Button1.Top) And Button2.Left < (Button1.Left + Button1.Width) And Button1.Left < (Button2.Left + Button2.Width) Then
VDir = -1
ElseIf Button1.Top > Me.Height Then
Life = Life - 1
If Life < 0 Then
Timer1.Enabled = False
MsgBox("Game Over")
End
End If
Button1.Left = 0
Button1.Top = 0
Label1.Text = Life
End If
End Sub
End Class