السلام عليكم ورحمة الله
درسنا الوم عن كيفية عمل لعبه على الفجوال بيسك 2005
فكرة اللعبه
زر يتحرك بوقت انت تحدده وكل ما ضغط على اكثر تفوز
اللعبه روعه وإنشاء الله تحبوهه
نبدآ الشرح

اولآ نفتح
الفجوال بيسك 2005
ثم فورم جديده



سوف ندخل اليها هذه الادوات
button1
button2
label1
timer1
timer2
حتى تصبح مثل هذا


نيجى للخطوه الثنيه
الازرار button
نجعل button1 اسمه start من الخاصيه text
نجعل button2 اسمه press من الخاصيه text
التيمر timer
نجعل الخاصيه interval ل timer1 هى 1000
نجعل الخاصيه interval ل timer2 هى 15000
بعد كده label
نجعل الخصيه Autosize هى false
نجعل الخاصيه Borderstyle هى fixed 3D
نجعل الخاصيه ل text هى (لا تكتب شيء اجعلها فارغه)
بعد كده form1
نجعل الخاصيه size هى 300,300
حتى يصبحو مثل هذه



نيجى للبرمجه(ده اهم خطوه)
برمجة form1
كود:
Public Class Form1
Dim x As Integer
Private Sub Form1_Load
Timer1.Enabled = False
Timer2.Enabled = False
Button2.Enabled = False
مثل

برمجة زر start
كود:
Timer1.Enabled = True
Timer2.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
x = 0
مثل

برمجة زر press
كود:
x = x + 1
Label1.Text = Format(x, "score=##")
Beep()
مثل

برمجة زر timer1
كود:
Randomize()
Button2.Left = 300 * Rnd()
Button2.Top = 300 * Rnd()
مثل

برمجة timer2
كود:
Timer1.Enabled = False
Timer2.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
مثل

بس كده كل اللى عليك تعمله انك تلعب
للتجربه اضغط على

خلاص احنا كده خلصنا
============================
ولمن اراد تحميل الشرح
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
============================
ولمن اراد تحميل البرنامج
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
===============================
فى رعاية الله
مطلوب منكم ان تدعولى فى امتحاناتى
درسنا الوم عن كيفية عمل لعبه على الفجوال بيسك 2005
فكرة اللعبه
زر يتحرك بوقت انت تحدده وكل ما ضغط على اكثر تفوز
اللعبه روعه وإنشاء الله تحبوهه
نبدآ الشرح

اولآ نفتح
الفجوال بيسك 2005
ثم فورم جديده



سوف ندخل اليها هذه الادوات
button1
button2
label1
timer1
timer2
حتى تصبح مثل هذا


نيجى للخطوه الثنيه
الازرار button
نجعل button1 اسمه start من الخاصيه text
نجعل button2 اسمه press من الخاصيه text
التيمر timer
نجعل الخاصيه interval ل timer1 هى 1000
نجعل الخاصيه interval ل timer2 هى 15000
بعد كده label
نجعل الخصيه Autosize هى false
نجعل الخاصيه Borderstyle هى fixed 3D
نجعل الخاصيه ل text هى (لا تكتب شيء اجعلها فارغه)
بعد كده form1
نجعل الخاصيه size هى 300,300
حتى يصبحو مثل هذه



نيجى للبرمجه(ده اهم خطوه)
برمجة form1
كود:
Public Class Form1
Dim x As Integer
Private Sub Form1_Load
Timer1.Enabled = False
Timer2.Enabled = False
Button2.Enabled = False
مثل

برمجة زر start
كود:
Timer1.Enabled = True
Timer2.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
x = 0
مثل

برمجة زر press
كود:
x = x + 1
Label1.Text = Format(x, "score=##")
Beep()
مثل

برمجة زر timer1
كود:
Randomize()
Button2.Left = 300 * Rnd()
Button2.Top = 300 * Rnd()
مثل

برمجة timer2
كود:
Timer1.Enabled = False
Timer2.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
مثل

بس كده كل اللى عليك تعمله انك تلعب
للتجربه اضغط على

خلاص احنا كده خلصنا
============================
ولمن اراد تحميل الشرح
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
============================
ولمن اراد تحميل البرنامج
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
===============================
فى رعاية الله
مطلوب منكم ان تدعولى فى امتحاناتى