الســــلام عليكم
نرجو المساعدة فلقد وضعت هذا السؤال في احد المنتديات ولم يجيبوني واتمنى الاجابة منكم ولكم جزيل الشكر
فأنا بأمس الحاجة إلى الجواب _ لأكمال مشروع التخرج _
:(
السؤال يبدأ بفكرة لعبة من الالعاب
_ دولاب من الارقام يتم فرزه وعند الضغط على زر ايقاف يتوقف الدولاب عن فرز الارقام و يظهر السؤال عند الغغط على زر السؤال كما في الصورة _
لقد تم معرفة كيف نستطيع اظهار الارقام وايقافها ووو
كما في الكود
عند الضغط على الزر ابدأ الفرز مكن التايمر ..
Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PFGame2_1.Click
TGame1.Enabled = True
End Sub
' في حدث التايمر افرز ارقام عشوائية من الواحد للعشرين
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
LGame10.Text = CStr(Int(Rnd() * 20))
If PFGame2_2.Enabled Then
LGame10.Text = CStr(Int(Rnd() * 20))
End If
On Error Resume Next
start:
System.Windows.Forms.Application.DoEvents()
n = Int(Rnd(20) * 20)
FileClose(1)
FileOpen(1, "test", OpenMode.Input)
While EOF(1) = False
Input(1, noa)
Count1 = Count1 + 1
End While
FileClose(1)
Count1 = 0
FileOpen(1, "test", OpenMode.Input)
While EOF(1) = False
Input(1, no)
If n = no Then
GoTo start
End If
End While
End Sub
' عند الضغط على ايقاف عطل التايمر مع الابقاء على الرقم العشوائي الظاهر
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TGame1.Enabled = False
End Sub
'عرض السؤال عند الضغط على زر أعرض السؤال
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PFGame2_3.Click
FileClose(1)
FileOpen(1, "test", OpenMode.Append)
WriteLine(1, n)
FileClose(1)
Select Case n
Case 1 : LGame9.Text = "إذا كانت قيمة 0.4 من عدد يساوي 0.2 فإن 6 أضعاف هذا العدد تساوي ..؟! "
Select Case n
Case 1 : RGame5.Text = "0.5 "
Case 2 : RGame5.Text = "3 "
Case 3 : RGame5.Text = "4 "
Case 4 : RGame5.Text = "5 "
End Select
Case 2 : LGame9.Text = "aaaa "
Case 3 : LGame9.Text = " rrrr"
Case 4 : LGame9.Text = "yyyy"
Case 5 : LGame9.Text = "aaaa"
Case 6 : LGame9.Text = "aaaaaaa!"
Case 7 : LGame9.Text = "tttt"
Case 8 : LGame9.Text = "إrrrrrrr :"
Case 9 : LGame9.Text = ""
Case 10 : LGame9.Text = "!"
Case 11 : LGame9.Text = ""
Case 12 : LGame9.Text = ""
Case 13 : LGame9.Text = " ؟
Case 14 : LGame9.Text = " "
Case 15 : LGame9.Text = ""
Case 16 : LGame9.Text = ""
Case 17 : LGame9.Text = "ا"
Case 18 : LGame9.Text = " "
Case 19 : LGame9.Text = "!"
Case 20 : LGame9.Text = ""
End Select
End Sub
'أغلاق الملف عند اغلاق البرنامج
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEixtyas.Click
End
On Error Resume Next
Kill("test")
End Subولكن كيف نستطيع نمنع عدم تكرار الرقم العشوائي
؟!!
وأيضاً عند نهاية البرنامج لابد من ظهور رسالة تعرض عدد الاجوبة الصحيحة والخاطئة علماً بأن الاسئلة 20 وهناك ليبل يظهر فيه عدد الاسئلة كذا من كذا مثلاُ 3 من 20
عذراً وشكراً جزيلاً لكم
ونرجو الاجابة بأسرع فرصة ...
نتمنى التوفيق للجميع
:)
