تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow دروس Toolbox in VB.NET موضوع متجدد Genius Live 9 3,597 14-11-16, 08:42 AM
آخر رد: Genius Live
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 7 2,050 26-01-16, 08:07 PM
آخر رد: سعود
  [حصرياً] و لأول مرة : درس برمجة لعبة x-o أسامة أحمد 4 1,449 04-03-15, 12:46 PM
آخر رد: abulayth
  موضوع للنقاش- الفئة WeakReference RaggiTech 7 520 05-10-12, 01:25 AM
آخر رد: RaggiTech
  موضوع للنقاش- الواجهة IDisposable RaggiTech 2 502 05-10-12, 01:20 AM
آخر رد: RaggiTech
  بعض النقاط في موضوع الرسم في VB .net RaggiTech 0 1,135 03-10-12, 01:54 AM
آخر رد: RaggiTech

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


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