الدرس الاول (كيفية تصميم لعبة) باستخدام vb.net

الدرس الأول : تصميم لعبة

اللعبة مدتها 15 ثانية عندما تبدأ اللعبة يظهر مربع مكتوب عليه حاول تلمسنى ويتحرك كل ثانتين إلى مكان عشوائى وعند الضغط عليه ينتقل يسجل عدد مرات الضغط عليه في مربع عنوان.

كيفية تصميم اللعبة :

1- فتح البرنامج .

2- الأداوت المستخدم اداتين button وأداتين timer وأداة label

3- تغيير خصائص الأداتين button

الاداة	Button1
Btnstart	name
Start	text
الأداة	Button2
Btnpress	name
Try to press me	text
النموذج	form1
300;300	size

تغيير خصائص الأداتين timer

الاداة	Timer1
2000	interval
الاداة	Timer2
15000	interval

تغيير خصائص الأداة label1

الاداة	Label1
lblhits	name
	text
Fixed3d	borderstyle

4- كتابة الكود : المفروض عند تحميل البرنامج يكون btnpress غير متاح وكذلك timer1 و timer2

لذلك نكتب الكود التالى للـform1 مع الحدث load

Me.Timer1.Enabled = False

Me.Timer2.Enabled = False

Me.btnstart.Enabled = True

Me.btnpress.Enabled = False

ونكتب الكود التالى لـ btnstart

Me.Timer1.Enabled = True

Me.Timer2.Enabled = True

Me.btnpress.Enabled = True

Me.btnstart.Visible = False

Me.hits = 0

ونقوم بالاعلان عن المتغير hits تحت Public Class Form1 حتى يكون متغير عام :

Dim hits As Integer = 0

ونكتب الكود التالى timer1 لتغيير مكان المفتاح:

Me.btnpress.Left = 300 * Rnd()

Me.btnpress.Top = 300 * Rnd()

ونكتب الكود التالى للمفتاح btnpress :

hits = hits + 1

Me.lblhits.Text = Format(hits, "number of hits=##")

ونكتب الكود التالى لـtimer2 ليجعل متاح btnpress غير متاح ويظهر مفتاح start ويوقف عمل timer1 :

Me.btnpress.Enabled = False

Me.btnstart.Visible = True

Me.Timer1.Enabled = False

» الدرس الثانى (تصميم لعبة متطورة)
» الدرس الثالث (تصميم جدول الضرب)
» الدرس الرابع (تصميم برنامج لعرض اعلام الدول)
» اسئلة على الفصل الاول فى مادة الجغرافيا غير مجاب عنها (للصف الاول الثانوى)
» اسئلة على الفصل الاول فى مادة الجغرافيا مجاب عنها (للصف الاول الثانوى)