تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موضوع خفيف لعبة حلوة من كم سطر
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:
#2
مشكور مستر بسام
الاسطر الطويلة هي حسابات لمواقع الازرار في حالة الاصطدام او خسران الكرة

انصح بتغيير السطر الرابع من الاخير
Label1.Text = Life
الى
Label1.Text = "Life " & Life
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم