+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36052)
ملف مفتوح ... تصميم تمرين رياضي التعرف على العملية المناسبة - عبد الهادي بهاب - 09-08-20
السلام عليكم
دائما مع البرمجة في مجال التعليم الرياضي
التمرين :
ماهي العملية الحسابية المناسبة لما يلي
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
يعني مستوى الصعوبة
الشكل النهائي للعمل :
الملف المفتوح للتعديل
بالتوفيق في مشاريعكم