طلب لعبة بسيطة للأطفال

توقعها مني اليوم ان شاء الله

شكرا على اهتمامك .. وأنا في الانتظار :D

السلام

اذكر اني سويتها قبل 5 سنين

بس عطني صوره الكوره وانا اسويها

السلام عليكم

اسف للتأخير

تحتاج لtimer1 and timer2 and image1 في الفورم

اجعل ال interval=10

Dim x, y
Private Sub Form_Load()
Randomize
Image1.Move Rnd * Form1.Width, Rnd * Form1.Height
x = "l"
y = "u"
End Sub

Private Sub Image1_Click()
Timer1.Enabled = False
Timer2.Enabled = False
s = MsgBox("play again?", vbQuestion + vbYesNo, "HishamNasr")
If s = vbYes Then
Timer1.Enabled = True
Timer2.Enabled = True
End If
If s = vbNo Then End
End Sub

Private Sub Timer1_Timer()
If x = "l" Then Image1.Left = Image1.Left - 50
If x = "r" Then Image1.Left = Image1.Left + 50


If Image1.Left < 0 Then x = "r"
If Image1.Left + Image1.Width > Form1.Width Then x = "l"
End Sub

Private Sub Timer2_Timer()
If y = "u" Then Image1.Top = Image1.Top - 50
If y = "d" Then Image1.Top = Image1.Top + 50
If Image1.Top < 0 Then y = "d"
If Image1.Height + Image1.Top > Form1.Height Then y = "u"
End Sub

:D

السلام عليكم ...

شكرا يا أخ Professional VB999 على اهتمامك بس رد الأخ hishamnasr كفى وزيادة .. :)

عن جد أنا كتييييييير بشكرك يا hishamnasr جربت الكود وهوبالضبط اللي كان بدي اياه :D :D

بس عندي سؤال على الكود..

ما فائدة هالجملة

Timer1.Enabled = False

Timer2.Enabled = False

؟؟؟؟؟؟؟ لأني خليتها True وما تغير شي وكمان جربت أحذفها وما صار شي !!!!

عند ظهور الرسالة "play again?" نريد ان نوقف الكرة

و ال timer هو اللي بيحركها

الامر timer1.enabled =false

عطل التايمر

على فكرة كل كائن تريد تعطيله اجعل الخاصية enabled=flase له .......جربها مع command1

جرب اللعبة التالية

باك مان

و اقرأ الكود

السلام عليكم ...

شكرااااااا على ردك ..

بس عندي طلب اذا ممكن.. كيف أقدر أخلي سرعة الكرة تزيد كل ما يتمكن المستخدم من امساكها 5 مرات متتالية ( كانتقال لمرحلة متطورة بالنسبة للطفل ) وهكذا إلى أن يصل إلى مرحلة نهائية لا نستطيع أن نزيد سرعة الكرة ...

مع الشكر :)

السلام عليكم ورحمة الله وبركاته

لزيادة السرعة اولا قم بتعريف متغير فى قسم التصريحات العامة ثم عند الامساك بالكرة يزيد المتغير بمقدار واحد ثم وضع جملة شرطية تتحقق من قيمة المتغير فاذا كان يقبل القسمة على 5 بدون باقى تزداد السرعة وليكن بمقدار 10

فى السطور

If x = "l" Then Image1.Left = Image1.Left - 50
If x = "r" Then Image1.Left = Image1.Left + 50
*****************************************************
If y = "u" Then Image1.Top = Image1.Top - 50
If y = "d" Then Image1.Top = Image1.Top + 50

اذا زاد الرقم 50 ستزيد السرعة واذا قل ستقل السرعة

للتحقق من قيمة المتغير اذا كان يقبل القسمة على 5 بدون باقى ام لا استخدم الجملة التالية بفرض ان المتغير يسمى HitNumbers

If HitNumbers Mod 5 =0 Then

لكن للعلم , هذه الطريقة فى التحريك غير مجدية وسترى عيوبها عند زيادة السرعة لكن اذا اردت الحركة المثالية فعليك بالدايركت اكس

1.rar

2.rar

السلام عليكم ...

شكرا جزيييييلا .. الله يعطيك العافية .. وبالنسبة للدايركت اكس أنا أصلا كنت بدور على الكود اللي يخلي الحركة سلسة وبدون عيوب وسبحان الله جيت بوقتك :D بس انتظر مني بعض الأسئلة على الكود :rolleyes: ...

الله يجزي كل اللي ساعدوني الخير ... قدمتولي كل الأ<وبة لطلباتي :D :D

اقتباس

بس انتظر مني بعض الأسئلة على الكود

باذن الله مستعد للاسئلة وانا فى الخدمة دايماً :rolleyes: