مطلوب منى عمل برنامج تعليمى لمادة الحساب
للمرحلة البتدائيه . عملت جزء فيه وهو تمارين الجمع والطرح والضرب بشرط كون الا سئلة random&infinite
ولكن المشكلة فى تمارين القسمة ازاى اعملها بنفس الفكرة
ياريت لو حد يساعدنى :^)
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
اقتباسعملت جزء فيه وهو تمارين الجمع والطرح والضرب بشرط كون الا سئلة random&infinite
عملت كل هذا ولم تعرف القسمة <_< على العموم على حسب ما فهمت
بنفس الطريقة أنسخ الاكود .. وضعها في فورم جديد وعكس العملية الموجودة هنا
Sum = Number1 + Number2
إلى
Sum = Number1 / Number2
هذا والله أعلم
تم تعديل هذه المشاركة بواسطة HnHn في 6 أكتوبر 2006 في 00:46
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةشكرا اخى على الاهتمام
بس دول طلبة ابتدائى يعنى مينفعش اسالهم 25/2=كام
لانه هيطلع كسر
فعاوز اعمل فحص الناتج قبل اظهاره للطالب
انا عارف الفكرة بس مش شغالة
if((number1/number2 )mod 1==0 )
حيث مود الواحد يعنى باقى القسمة على الواحد للرقم
فياريت لوحد عنده فكرة تانية
او نفس الفكرة بس شغالة لان انا كنت شغال سي شارب ومش جامد فى الباسك
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
استخدم خاصية int لأظهار الرقم الصحيح فقط
يعني راح يكون الكود زي كذا
Text1 = int(Sum)
تم تعديل هذه المشاركة بواسطة HnHn في 6 أكتوبر 2006 في 01:44
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجة(h) شكرا مرة اخرى
او ممكن اعرف الsum كرقم صحيح من الاول
لكن مينفعش اسال الطالب سؤال واطلعله اجابة غلط :^)
انا بعمل اعداد عشوائيه وعاوز الفحص يتم قبل ما اظهر الاعداد المقسومة على بعضها
وكمان لازم يكون العدد الاول اكبر من التانى فالقسمة مختلفة شوية
معلش هما ولادنا دايما كدا تاعبنا حتى فى البرامج :lol:
ياريت تشوف المثال لانه فيه exception كتير
وياريت تتعاونمعايا لحد ملاقى حل
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
راح تنحل بس فكر شوي .... ولا سيبك من القسمة وخليها جمع وطرح فقط B)
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةاكيد هخليها جمع وطرح :unsure:
ياعم هانى دانت خبير فكر شويه انا عارف ان ا نا هرجعك لايام شبابك مع الباسك
وتفتكر ايام ماكنت مش عارف تسطب الباسك :lol:
وعلى كل حال الف شكر
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
الصعوبة مش في الحل وانما من سيتعامل مع الحل .. فأنت قلت بانهم طلاب ابتدائي ...
كم الارقام التي تريد أن تظهر في القسمة ... ممكن توضح اكثر حول ما تريد عمله ؟
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةواضح انك نويت تساعدنى :اسمع ياسيدى
انا عاوز اعمل برنامج يسال الطالب ناتج القسمة كام بحيث ان البرنامج هو اللى يعطى الارقام وتكون عشوائية ومالانهاية
وطبعا لانه طالب ابتدائى لازم يكون الناتج مش كسر فلازم اراعى ده فى الاسئلة بتاعتى
والرقم الاول لايتعدى المائة والرقم الثانى لايتعدى العشرة
ولانها قسمة لابد ان يكون العدد الاول اكبر من الثانى
بس ياعم :D
وبالنسبه للمشاكل دى كلها محلولة
ماعدا مشكلة ان الناتج ميطلعش كسرودى عارف حلها بالسى شارب
بس مش شغالة باسك :(
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
السلام عليكم
أخى الكريم deepfreeze
إذا كان ما تريده هو شرط مثل هذا فى الفيجوال بيسك
اقتباسif((number1/number2 )mod 1==0 )
إذن فعليك أستخدام الكود التالى
If number1 / number2 Mod 1 = 0 Then
هذا ما فهمته من الشرح اجو ان يكون هو المطلوب ولو فى حاجه انا موجود
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
الأخ الفاضل اذا كنت تستخدم دالة للحصول على ارقام عشوائية فى الضرب فيمكن استخدامها بالعكس فى القسمة
Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim D As Integer
1:
N1 = Int(Rnd() * 12)
N2 = Int(Rnd() * 12)
N3 = N1 * N2
D = Val(InputBox("ما هو خارج قسمة العدد " & N3 & " / " & N1))
If D = N2 Then
MsgBox "أحسنت اجابة صحيحة "
Else
If MsgBox("أخطأت هل ترغب فى اعادة الحاولة ?", vbYesNo, "Test") = vbYes Then GoTo 1
End Ifكن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
أخوي deepfreeze .. جرب هذا الكود :
Private Sub Form_Load() Command2.Value = True End Sub Private Sub Command2_Click() Dim C As Integer Dim I As Integer Randomize C = (Rnd * 100) + 1 I = (Rnd * 100) + 1 Text1 = C Text2 = I Label1 = Val(Text1) / Val(Text2) If Label1 <> Int(Label1) Then Command2.Value = True End If Label1 = "" End Sub Private Sub Command1_Click() Label1 = Val(Text1) / Val(Text2) End Sub
طبعا command1 للحساب ، و Command1 لإعادة الحساب ..
وإن شاء الله يتحقق مطلبك .. وفي المرفقات إذا حبيت المثال موجود .
تم تعديل هذه المشاركة بواسطة شبه جسم في 6 أكتوبر 2006 في 15:28
يا نفسُ إن لم تصلحي
فتشبهي بالصالحينا
[ أبو العتاهية ]
:) شكرا لكم اخوانى على المساعدة
ما شاء الله الثلاث افكار صح :o
أُحبُّ الصَّالِحِينَ وَلسْتُ مِنْهُمْ ××× لَعَلِّي أنْ أنَالَ بهمْ شَفَاعَهْ
وَأكْرَهُ مَنْ تِجَارَتُهُ المَعَاصِي ××× وَلَوْ كُنَّا سَواءً في البضَاعهْ
ارأيت يا أخ deepfreeze
بعد اشوية توضيح افهموك الاخون وساعدوك
وحصلتلك بدل الحل ... ثلاثة :lol:
الله يعطيهم العافيه ...
تم تعديل هذه المشاركة بواسطة HnHn في 7 أكتوبر 2006 في 09:29
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةهذا الموضوع مغلق.