[عبد الهادي بهاب]

السلام عليكم

دائما مع البرمجة في مجال التعليم الرياضي

 التمرين :

ماهي العملية الحسابية المناسبة لما يلي

 15 ؟ 5 = 3 

طبعا الاجابة هي التقسيم 

الان :

نفترض فيه مستويات .....المستوى الاول للاعداد الصغيرة من 1 الى 10

 نجعل البرنامج يولد اعداد معينة من 1 الى 10

نستعمل الدالة

PHP كود :

[align=center]Dim rn As New Random[/align]
[align=center]        Dim v1 = rn.Next(min, max)[/align] 


بحيث min = 0  , ;max = 10 

 القيمة v1  ستكن بين 0 و 10

نفس الشيء للقيمة v2

  الان بالنسبة للعمليات سنضعها ضمن مصفوفة 

PHP كود :

Dim oper() As String = {"+", "-", "*", "/"} 


و نختار العملية عشوائيا

PHP كود :

[align=center]   Dim Nop = rn.Next(0, 4)[/align]
[align=center]        Dim op = oper(Nop)[/align] 


الان  نجمع المل في نص لينتج

PHP كود :

Dim total = v1 & op & v2 


لكن الناتج هو نص فقط 

--------- الشكر للاستاذ بلدي على الكود الذي يعالج المشكل ---------

PHP كود :

[align=center]  Private Function calc(ByVal formula As String) As Double[/align]
[align=center]        Try[/align]
[align=center]            Dim obj As Object = CreateObject("ScriptControl")[/align]
[align=center]            obj.Language = "VBSCRIPT"[/align]
[align=center]            Return obj.Eval(formula)[/align]
[align=center]        Catch ex As Exception[/align]
[align=center]            MsgBox(ex.Message)[/align]
[align=center]        End Try[/align]
[align=center]    End Function[/align] 


و بالتالي سيحس النتيجة كليا 

البرنامج سيولد عشوائيا في كل مرة رقمين و عملية حسابية و يعطي الناتج

لكن التمرين هو اخفاء العملية ( ؟ ) و نضع اربع ازرار تحمل اسماء العمليات

لما يضغط الطالب على العملية سيقارن النتيجة 

فان كانت صح نضيف له 1 و الا نضيف لمجموع الاخطاء 1

الطرافة ان نجعل ارنب يتقدم باتجاه الجزرة  كل مرة اذا  كانت الاجابات الصحيحة 10 اكلها ............. نظهر له ارنبا يامل الجزرة

و ننتقل الى المستوى 2 .................. عندها قيمة كل من  min max   ستزيد ب 10 

يعني مستوى الصعوبة

الشكل النهائي للعمل :

الملف المفتوح للتعديل 

https://top4top.io/downloadf-1681ak8n91-rar.html

بالتوفيق في مشاريعكم