عدة اسئلة حول الفيجوال بيسك 6 ، أرجو الإجابة

[Seedoh]

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

اود الاستفسار والحصول على الحل من عندكم حول بعض الأمور التي اود القيام بها في احد البرامج التي اصممها بالفيجوال بيسك 6

1- اود ان اعرف كيف استطيع ان يقوم البرنامج الذي صممته بعرض الـ(Forms) بشكل عشوائي ، مثلاً انا اصمم برنامج مسابقات واود ان يكون ترتيب الاسئلة في كل مرة يعمل فيها البرنامج مختلفة بحيث يكون وضع الاسئلة وترتيبها يختلف في كل مرة.

2- اود ان اضع زمن محدد على كل Form أي ان السؤال الواحد عليه مدة من الزمن بانتهاء هذه المدة ينتقل البرنامج إلى السؤال الثاني حسب نوع التوزيع العشوائي الموجود في البرنامج كما ذكرت اعلاه.

3- اود ان تكو في نهاية المسابقة ان يقوم البرنامج بحساب النقاط التي قام بجمعها المتسابق بحيث ان الاجابة الصحية تحسب بعدد من النقاط والاجابة الخاطئة تخصم من النتيجة العامة بعض النقاط ومن ثم يعرضها البرنامج في نهاية المسابقة.

اعتقد اني طلبت منكم كيفية تصميم برنامج مسابقات كامل وهذا ما اريده بالضبط لذا ارجو منكم يا اخواني ان تساعدوني في هذا الموضوع وسأكون لكم من الشاكرين

تحياتي
سيدوه
seedoh@hotmail.com

[القــعـقـاع]

1-جرب الطريقة هذي

Randomize
a = Int((2 * Rnd) + 1)
Select Case a:
Case 1: Form1.Show
Case 2: Form2.Show
End Select

بدل 2 بعدد الform اللي عندك
و افضل مكان لها هي في الـunload للسبلاش سكرين

2-فيه اداة اسمها Timer حطها في الفورم و حط الكود هذا

Private Sub Form_Load()
x = 1
Label1.Caption = Time
End Sub

Private Sub Timer1_Timer()
x = x + 1
Label1.Caption = Time
If x = 15 Then
MsgBox "عفوا لقد انتهى الوقت", vbOKOnly, "النهاية"
Unload Me
End If
End Sub

الx لازم تعرفه
غير ال15 الموجودة في الif الى عدد الثواني اللي تبغاها



3-هنا اخوي الافضل انك تستخدم جدول من قاعدة البيانات و تزود عمود للدرجة و عمود يبين هل الاجابة صح او غلط فاذا كانت صح يجمعو اذا كانت غلط يطرح

[Seedoh]

شكراً لك اخي العزيز الف الشكر لك وتحياتي
وكنت افضل التوسع اكثر في الموضوع الا اذا اردت الاكتفاء بماذكرت فلك ماتريد

سيدوه

[القــعـقـاع]

و الله اخوي انت تآمر بس اي نقطة تبغى اتوسع فيها

[Sh3M]

السلام عليكم
بإمكانك استخدام المصفوفات أو قواعد البيانات بدل ماتخلي برنامجك كبير الحجم
سوي نفس طريقته بس لإختيار مصفوفات وليس لإختيار نوافذ
والله أعلم