+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] تصميم برنامج من سيربح المليون (/showthread.php?tid=36099)
الصفحات:
1
2
تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 13-08-20
السلام عليكم
من باب التحدي احببت ان ارفع لاخواني ملف سورس مفتوح
لتصميم برنامج من سيربح المليون
------ حصري لمنتدى الفجيوال بيسك لكل العرب ---------
اعرف انه سبق وان تناول البعض الموضوع لكن التحدي هو ان تصمم انت بطريقتك و تفكيرك البرمجي
اولا سنبدا بالاساسيات :
سنحتاج الى صور البرانامج و هي :
مساعدة الحاسوب - تدخل صديق - الجمهور - صورة خلفية لنص السؤال و الاجابات - صورة لشهادة تقديرية
سنحتاج الى اصوات :
صوت البداية - صوت التفكير - صوت الصح - صوت الخطا - صوت الاتصال
سنحتاج الى ليسبوكس لاستعراض التقدم في الاجابات
سنحتاج الى عنصر richtextbox لاستعراض السؤال
و الى ليبالاات لاستعرض الاجابات
الان مع البرمجة :
اهم شيء في البرنامج هو الاسئلة و الاجابات .الكل حر في استعمال قاعدة البيانات التي يراها مناسبة
في مثالي استعملت ابسط طريقة وهي المصفوفة
يعني وضعت الاسئلة في مصفوفة
بهذا الشكل :
PHP كود :
Qus = {" عاصمة الجزائر", "عملة الجزائر", "رئيس الجزائر", "الوان العلم الجزائري الاحمر و الابيض",
"لون الهلال في العلم الجزائري", "تقع الجزائر في شمال", "يقع قي غرب الجزائر", "لون السماء في الجزائر",
"عبد الهادي مصمم البرنامج لقبه", "صمم البرنامج في منتدى فيجوال بيسك لكل ", "في القرن مرة و في الدقيقة مرتين",
"يحمل قنطارا و لا يحمل مسمارا", "و ذا النون من هو", "لو نجا منها احد لنجا منها ", "نبي بن نبي بن نبي بن نبي",
"جمع اخطبوط", "مفرد نساء", "جمع عندليب", "ابن الجمار", "عاصمة فلسطين"}
و الاجابات في مصفوفة اخرى
PHP كود :
Rep = {"الجزائر * تونس*طرابلس * القاهرة", "الدينار * الدولار * الجنيه *الدرهم", "تبون*بوتفليقة*قيس سعيد * السراج",
"الاخضر * الازرق * الاصفر * الاسود", "أحمر * ابيض * اسود * بني", "افريقيا * اوروبا*اسيا* امريكا",
"المغرب * تونس * مالي * ليبيا", "أزرق * احمر * اسود * اصفر", "بهاب * وهاب * رهاب * ذهاب",
"العرب * العجم * الغرب * العزب", "القاف * النقطة * اللام * الثانية", "السفينة * الماء * الكلمة * الرافعة",
"يونس * محمد * موسى*عيسى", "سعد * معاذ * ابوبكر * علي", "يوسف * محمد * آدم * نوح", "اخاطيط * اخابيط * اخاطبوطات * اخوطات",
"امرأة * نسوة * نسية * منسية", "عناديل * عندليبات *عندولبون * معاديل", "جحش*حمير * حرو* محمر", "القدس*عمان* تل ابيب * رام الله"}
بحيث كل عنصر من الاجابات فيه اربعة عناصر بينها علامة * وهي التي سنقسم بها العنصر هذا الى مصفوفة من اربع باستعمال الدالة
PHP كود :
Split("*")
كيف يتم الاستدعاء العشوائي ؟
اولا سنسخ العنصر هذه في ArrayList لماذا ؟ ببساطة لكي يتم حذف العنصر بعد استخدامه وهذا من خلال الكود التالي
PHP كود :
For Each item As String In Qus
Questions.Add(item)
Next
For Each item As String In Rep
Reponses.Add(item)
Next
الان سننشء دالة sub من اجل استدعاء عشوائي للسؤال و ضمان عدم تكرراه وهذا من خلال انشاء عدد عشوائي من البداية 0 الى حد المصفوفة و ليس الى رقم معين لانه حين التناقص لا نريد ان يتعطل البرنامج
PHP كود :
Dim Nran As New Random
الان في دالة توليد الاسئلة سنكتب التالي"
PHP كود :
' اختيار عشواي للاسئلة*-
Dim Nq = Nran.Next(0, Questions.Count)
RichTextBox1.Text = Questions(Nq)
Questions.RemoveAt(Nq)
' تقسيم الاجابات على الخاناات الارابع
Rarr = Reponses(Nq).ToString.Split("*")
LabA.Text = Rarr(0)
LabB.Text = Rarr(1)
LabC.Text = Rarr(2)
LabD.Text = Rarr(3)
Reponses.RemoveAt(Nq)
لما يختار رقم عشوائي سياخد العنصر من مصوفة الاسئلة و يضعه في richtext و يحذف العنصر من المصفوفة
الان سنقوم باخد ترتيب العنصر من مصفوفة الاجابات و نقوم بتقسيمه الى اربع عناصر كل عنصر في ليبال
الان ........ دائما الاجابة الصحية هي في الزر 1 .......... و هذا لتجنب دالة if يعني كود الصح دائما في الزر 1 اما البقية 2.3.4 دائما خطا مهما كان النص
اللقطة اذن كيف ؟
نغير موقع الازرار ...........
كبف العمل ؟
يتبع........
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 13-08-20
ازرار الاجابة يمكن ان تضعها باي شكل
في حالتنا وضعت صورة كخلفية وسطها فارغ شفاف يتلائم مع خلفية صورة البرنامج
![[صورة مرفقة: p_168674ohe1.png]](https://j.top4top.io/p_168674ohe1.png)
و في داخلها ليبال عادي ........... خلفيته اسود
وهذا من اجل تغيير اللون في التصحيح
الان سنحفظ الصور و اليبالات في مصفوفات
PHP كود :
PicArry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
LabName = {LabA, LabB, LabC, LabD}
الان ننشيء دالة جديدة لتغغير المواقع
سنحفظ فيها مواقع الصور في arrylist ثم عشوائيا نغيرها
PHP كود :
'تفريغ المصفوات
LabPos.Clear()
picPos.Clear()
'تسجيل موقع اليبال
For Each lab As Label In LabName
LabPos.Add(lab.Location)
Next
'تسجيل موقع الصور
For Each pic As PictureBox In PicArry
picPos.Add(pic.Location)
Next
'تغيير عشواي للصور و لكاتها
For i = 0 To 3
Dim Posr = Nran.Next(0, LabPos.Count)
LabName(i).Location = LabPos(Posr)
PicArry(i).Location = picPos(Posr)
LabPos.RemoveAt(Posr)
picPos.RemoveAt(Posr)
Next
في مجريات البرنامج سنغغير لون الصور و الليبالات لذلك كلما غيرنا السؤال يجب ان يكون لون الصور و اليبالات اسود و تكون كلها ظاهرة
لذلك سنضيف لدالة توليد الاسئلة
PHP كود :
For i = 0 To 3
PicArry(i).BackColor = Color.Black
LabName(i).BackColor = Color.Black
PicArry(i).Visible = True
LabName(i).Visible = True
Next
----يتبع
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 13-08-20
الان في البداية نضع صور الاتصال بصديق و حذف اجابتين و الجمهور مخفية
سنشغل تايمر نجعله لمدة 20 ثانية و هي مدة موسيقى المقدمة
في المقدمة سنجعل شعار المسابقة متحرك
![[صورة مرفقة: p_1686vj7ig1.gif]](https://c.top4top.io/p_1686vj7ig1.gif)
و سنضعها بحجم و مكان معين في البرنامج
PHP كود :
PicLogo.Visible = True
PicLogo.Image = My.Resources.logo
PicLogo.Location = New Point(345, 60)
PicLogo.Size = New Size(200, 200)
و سنغير موقع اللوغو بعد تشغير تايمر البداية
PHP كود :
Sub imgLogo()
PicLogo.Image = My.Resources.logo
PicLogo.Location = New Point(10, 10)
PicLogo.Size = New Size(80, 80)
LabSomme.Visible = False
End Sub
سنضيف form-load تشغيل تايمر
PHP كود :
TimerSatrt.Start()
الان في التايمر المعني سنفعل دالة توليد الاسلة و دالة تغيير موقع الاجابات و نجعل شعار المقدمة في الجانب العلوي
و سنظهر ازار المساعدة
PHP كود :
Pict50.Visible = True
Pictjomhr.Visible = True
PictTel.Visible = True
Randqustions()
PosLab()
TimerSatrt.Stop()
imgLogo()
RE: تصميم برنامج من سيربح المليون - عبد العزيز البسكري - 14-08-20
متابع إن شاء الله
سلاماتي و تحياتي واحتراماتي لك أخي عبد الهادي بهاب و لكل سكّان مدينة بشّار العريقة
الله الموفّق و الله المستعان
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 14-08-20
الان سنشغل موسيقى خلال التفكير في دالة توليد الاسئلة و ايضا نوسط السؤال في richbox
----- تحية طيبة للاخ بلدي ----------
PHP كود :
My.Computer.Audio.Play(My.Resources.ref, AudioPlayMode.Background)
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
لما تظهر الاسئلة سيقوم المستخدم باختيار اجابة معينة
لما يضغط عليها منها ستبدا تغير لونها لذلك سنلجا الى تايمر من اجل ذلك
سنعرف متغير start =0 ليبدا اضافة 1 في التايمر
اولا كي لا نكرر تايمر لكل اجابة سنعرف متغير ref لما يضغط على الزر الاول سيكون رقمه 0 و هو رقمه في مصفوفة الاسماء التي عرفهناها في load
و التايمر سيغل العنر المراد و يغير لونه عشر مرات مثلا
ثم بعد 1 مرات سيصحح لذلك سنعرف متغير جديد jab و هي من صيغة صح او خطا Boolean
الزر الاول سيكون true اما البقية false
في الليبال الاول و الصورة الاولى
PHP كود :
Timer1.Start()
ref = 0
Start = 1
jab = True
في الليبال الثاني و الصورة الثانية
PHP كود :
Timer1.Start()
ref = 1
Start = 1
jab = False
في الليبال الثالث و الصورة الثالثة
PHP كود :
Timer1.Start()
ref = 3
Start = 1
jab = False
في الليبال الرابع و الصورة الرابعة
PHP كود :
Timer1.Start()
ref = 2
Start = 1
jab = False
الان في التايمر سيشغل تايمر 2 من اجل تغيير اللون يعني التايمر الاول يعطيها اللون الاخضر Color.Green و التايمر يعطيها اللون Color.GreenYellow
بعد 10 مرات
نوقف التايمر 1 و 2 و نحدد الجواب الصح و الخطا
لما يكون الصح نشغل صوت الصح و في ليسبوكس سنحدد القيمة الاولى من الاسفل
هناك قيمة Nqus رقم السؤال الذي سيزيد كلما فعلنا دالة التوليد
و نشغل تايمر الانتظار وهي مدة التصفيق .الخ و بعدها سنفعل السؤال التالي اي تغيل الدالة
لذلك سيكون التحديد كالتالي
PHP كود :
My.Computer.Audio.Play(My.Resources.sah, AudioPlayMode.Background)
ListBox1.SelectedIndex = 15 - Nqus
TimerRusit.Start()
اما في حالة الخطا jab=false
و لان البرنامج لا يقبل الاعادة اي ان الخطا قاتل
سنشغل موسيقى الخطا سنظهر له شهادة شرفية
في الفراغ في المبلغ سنضيف ليبال بعد ان نظهره و نضع فيه مكان التحديد في اليسبوكس
PHP كود :
LabSomme.Text = ListBox1.Text
LabSomme.Visible = True
حتى لا نلجا الى انشاء فورم جديد و و و و .......... الصورة اللوغو هي التي سنتعامل معها بتغيير حجمها و موقعها و محتواها
PHP كود :
PicLogo.Image = My.Resources.felictation
PicLogo.Location = New Point(30, 20)
PicLogo.Size = New Size(935, 450)
الان ستبقى الشهادة لمدة معينة مما يتطلب تايمر جديد وهو الذي سيعيدنا الى المرحلة الاولى
اي الاعادة من جديد
و بالتالي الكود الاجمالي للتايمر 1 هو
PHP كود :
PicArry(ref).BackColor = Color.Green
LabName(ref).BackColor = Color.Green
Start += 1
Timer1.Stop()
Timer2.Start()
If Start >= 10 Then
Timer1.Stop()
Timer2.Stop()
' في حالة الصح
If jab = True Then
My.Computer.Audio.Play(My.Resources.sah, AudioPlayMode.Background)
ListBox1.SelectedIndex = 15 - Nqus
TimerRusit.Start()
'حالة الخطأ في
ElseIf jab = False Then
PicArry(ref).BackColor = Color.OrangeRed
LabName(ref).BackColor = Color.OrangeRed
My.Computer.Audio.Play(My.Resources.no1, AudioPlayMode.Background)
PicLogo.Image = My.Resources.felictation
PicLogo.Location = New Point(30, 20)
PicLogo.Size = New Size(935, 450)
LabSomme.Text = ListBox1.Text
LabSomme.Visible = True
Timerfin.Start()
End If
End If
PHP كود :
PicArry(ref).BackColor = Color.GreenYellow
LabName(ref).BackColor = Color.GreenYellow
Start += 1
Timer2.Stop()
Timer1.Start()
و تايمر النهائي او الاعادة سيعيد كل شيء الى 0
PHP كود :
PicLogo.Visible = False
LabSomme.Visible = False
Nqus = 0
LabA.Text = ""
LabB.Text = ""
LabC.Text = ""
LabD.Text = ""
RichTextBox1.Text = ""
ListBox1.SelectedIndex = 15
PicArry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
LabName = {LabA, LabB, LabC, LabD}
For i = 0 To 3
LabName(i).BackColor = Color.Black
PicArry(i).BackColor = Color.Black
Next
Timerfin.Stop()
Form1_Load(e, e)
TimerSatrt.Start()
مع ارار المساعدة
مع زرحذف اجابتين
![[صورة مرفقة: p_1686ckhyj1.png]](https://k.top4top.io/p_1686ckhyj1.png)
يكفي ان نخفي الصورة 2 و 3 مع النص 2 و 3 و تغيل موسيقى
PHP كود :
My.Computer.Audio.Play(My.Resources.DRUMROLL, AudioPlayMode.Background)
LabB.Visible = False
LabC.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
Pictjomhr.Visible = False
مع زر الاتصال بصديق
![[صورة مرفقة: p_1686a9meq1.png]](https://h.top4top.io/p_1686a9meq1.png)
سنشغل صوت الاتصال
و نغير صورة اللوغو الى صورة اتصال هاتفي
![[صورة مرفقة: telephone-sonne.gif]](https://reducfacture.fr/wp-content/uploads/2020/06/telephone-sonne.gif)
ثم نشغل تايمر الاتصال الذي سيظهر رسالة تظهر فيه نص اليبال الاول
لذلط في زر الاتصال بصديق نزرع التالي
PHP كود :
PicLogo.Image = My.Resources.dring
PicLogo.Location = New Point(290, 80)
PicLogo.Size = New Size(301, 177)
My.Computer.Audio.Play(My.Resources.tel, AudioPlayMode.Background)
TimerTel.Start()
PictTel.Visible = False
سنخفي الزر مباشرة بعد الضغط
في التايمر الخص بالاتصال
PHP كود :
TimerTel.Stop()
MessageBox.Show(" الصديق ينصح بالجواب التالي " & vbNewLine & LabA.Text, "الاتصال بصديق")
imgLogo()
سظيهر رسالة ثم يعيد اللوغو الى مكانه
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 14-08-20
الان في زر الجمهور
نزرع كود اظهر فورم جديد و اخفاء الور بعدها
PHP كود :
Me.TopMost = True
Form2.Show()
Pict50.Visible = False
وهو ما يتطلب منا انشاء فورروم جديد يظهر كديالوخ
فيه اربع صور بعة اعمدة الاطول للجواب الصح
لذلك ننشء فورم جديد form2 و نضع فيه اربعة صورة ملونة بشكل مختلف فوقها اربعة ليبالات
دائما الصورة الاولى هي الصح
لذلك سنعطي اليبالات الاربعة قيمة او نصوص اللبلات الرابع في الفورم الاول
PHP كود :
Label1.Text = Form1.LabA.Text
Label2.Text = Form1.LabB.Text
Label3.Text = Form1.LabC.Text
Label4.Text = Form1.LabD.Text
نشغل موسيى التفكير
PHP كود :
My.Computer.Audio.Play(My.Resources.ref, AudioPlayMode.Background)
الان سنحفظ اسماء الصور و الليبالات و موقعها
PHP كود :
Pic2Arry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
Labpos = {Label1, Label2, Label3, Label4}
' موقع الصور
PicLoc.Add(PictureBox1.Location)
PicLoc.Add(PictureBox2.Location)
PicLoc.Add(PictureBox3.Location)
PicLoc.Add(PictureBox4.Location)
' موقغ الليبال
LabLoc.Add(Label1.Location)
LabLoc.Add(Label2.Location)
LabLoc.Add(Label3.Location)
LabLoc.Add(Label4.Location)
الان نفس العمل سنغير موقعها عشوائيا
PHP كود :
For i = 0 To 3
Dim p = rand.Next(0, PicLoc.Count)
Pic2Arry(i).Location = PicLoc(p)
Labpos(i).Location = LabLoc(p)
PicLoc.RemoveAt(p)
LabLoc.RemoveAt(p)
Next
و نجعل الفورم 2 هو في الاعلى
PHP كود :
Me.TopMost = True
الان سنجعل الاطوال تزيد تدريجيا لذلك نشغل تايمر و نضع فيه
PHP كود :
Hg += 10
PictureBox1.Size = New Size(30, Hg + 35)
PictureBox2.Size = New Size(30, Hg + 10)
PictureBox3.Size = New Size(30, Hg + 5)
PictureBox4.Size = New Size(30, Hg)
If Hg >= 150 Then
TimProg.Stop()
End If
للنهاية
سنعلن عن المتغيرات في الكود العام
PHP كود :
Dim Nqus As Integer = 0
Dim Qus(), Rep(), Rarr() As String
Dim Questions, Reponses, LabPos, picPos, TxtBox As New ArrayList
Dim Nran As New Random
Dim Start, ref As Integer
Dim PicArry() As PictureBox
Dim LabName() As Label
Dim jab As Boolean = False
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 14-08-20
الشكل النهائي للبرنامج
الملف السورد المفتوح و الاستفادة
[attachment=25446]
--- اشكر الاستاذ بلدي على تهذيب الملف -------
كلمة السر
عبد الهادي بهاب
بالتوفيق في مشاريعكم
RE: تصميم برنامج من سيربح المليون - بلدي - 14-08-20
ما شاء الله
ربنا يبارك فيك
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 14-08-20
(14-08-20, 12:56 AM)بلدي كتب : ما شاء الله
ربنا يبارك فيك
تحية طيبة لك استاذي و مشارك معنا في الاجر
(14-08-20, 12:16 AM)عبد العزيز البسكري كتب :متابع إن شاء اللهسلاماتي و تحياتي واحتراماتي لك أخي عبد الهادي بهاب و لكل سكّان مدينة بشّار العريقةالله الموفّق و الله المستعان
الف تحية لاحفاد عقبة بن نافع شكرا لمتابعتك استاذ عبد العزيز
ربي وقفنا و يوفقكم
RE: تصميم برنامج من سيربح المليون - عبد الهادي بهاب - 14-08-20
تحية جد طيبة و كثيرة جدا
للاستاذ بلدي على النصائح و التعديلات التي اضافت رونقا
للملف ة المشروع