تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تصميم برنامج تعلميمي حول المقارنة بين الكسور
#1
السلام عليكم
مع البرامج التعليمية
في مجال الرياضيات
في موضوع الكسور يلزمنا ان نشرح للطلبة المقارنة بين الكسور

اولا نشرح للطالب معنى الكسر فيه بسط في الاعلى و مقام في الاسفل
عموما يكون البسط اكبر من المقام و الا فيصبح اكثر من الواحد

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

مع البرمجة :
نعطي للطالب عداد numericDown  للبسط و اخر للمقام 
و نفس الشيئ مع الكسر الثاني

نضع زر المقارنة 
يقوم بانشاء مربعات بعدد المقام لكل كسر
نضع خطا في الوسط مرجع لانشاء المربعات
يعني مثلا طول المرجع : 400
اذا كان المقام هو 10 ............. ننشء 10 مربعات عرضها هو 40
اذا كان المقام 5 .......ننشئ 5 مربعات عرضها 80

الان نقوم بتلوينها كلها بلون معين .........ثم نلون عدد البسط في كل مجموعة 

نستعمل دالة  controls.add  لانشاء العناصر

ثم في الاخير نقوم بالمقارنة و نظهر النتيجة في نص 

الشكل التالي :






كود الزر هو :
PHP كود :
For Each pb In Me.Controls.OfType(Of PictureBox)().ToArray()
 
           pb.Dispose()
 
       Next
        Button2
.Text ""
 
       ' horizontal
        car = New PictureBox()
        Controls.Add(car)
        car.Size = New Size(400, 10)
        car.Location = New Point(60, 490)
        car.BackColor = Color.Black
        ' 
vertical
        car 
= New PictureBox()
 
       Controls.Add(car)
 
       car.Size = New Size(10400)
 
       car.Location = New Point(25590)
 
       car.BackColor Color.Black


        
' kser 1
        '
baset
        bast1 
Baset1.Value
        
' makam
        makm1 = Makam1.Value
        ' 
nebat tol ila amoud
        Dim MaxTol 
PictureBox2.Height
        Dim rep 
MaxTol makm1

        If bast1 
makm1 Then
            MessageBox
.Show("يجب ان يكون المقام اكبر او يساوي البسط""عبد الهادي بهاب"MessageBoxButtons.OKMessageBoxIcon.Information)
 
           Makam1.Focus()
 
       Else

            
' creer baset
            For p = 1 To bast1
                car = New PictureBox()
                Controls.Add(car)
                car.Size = New Size(140, rep)
                car.Location = New Point(PictureBox1.Left + 20, PictureBox1.Top - rep * p)
                car.BackColor = Color.Blue
                car.BorderStyle = BorderStyle.FixedSingle
            Next
            ' 
draw rectange makam
            For i 
1 To makm1
                car 
= New PictureBox()
 
               Controls.Add(car)
 
               car.Size = New Size(140rep)
 
               car.Location = New Point(PictureBox1.Left 20PictureBox1.Top rep i)
 
               car.BackColor Color.Orange
                car
.BorderStyle BorderStyle.FixedSingle
            Next



            
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''' 2 fraction "''''''''''''''''''''''''''''''''''''''''''''''''''''''

            bast2 = Baset2.Value
            '
__________________________'
            makm2 = Makam2.Value

            If bast1 > makm1 Then
                MessageBox.Show("يجب ان يكون المقام اكبر او يساوي البسط", "عبد الهادي بهاب", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Makam2.Focus()
            Else


                Dim rep2 = MaxTol / makm2
                ' 
creer baset
                For p 
1 To bast2
                    car 
= New PictureBox()
 
                   Controls.Add(car)
 
                   car.Size = New Size(140rep2)
 
                   car.Location = New Point(PictureBox2.Left 40PictureBox1.Top rep2 p)
 
                   car.BackColor Color.Green
                    car
.BorderStyle BorderStyle.FixedSingle
                Next
                
' draw rectange makam
                For i = 1 To makm2
                    car = New PictureBox()
                    Controls.Add(car)
                    car.Size = New Size(140, rep2)
                    car.Location = New Point(PictureBox2.Left + 40, PictureBox1.Top - rep2 * i)
                    car.BackColor = Color.Yellow
                    car.BorderStyle = BorderStyle.FixedSingle
                Next

                If bast1 * makm2 = bast2 * makm1 Then
                    Button2.Text = "="
                ElseIf bast1 * makm2 > bast2 * makm1 Then
                    Button2.Text = ">"
                ElseIf bast1 * makm2 < bast2 * makm1 Then
                    Button2.Text = "<"
                End If

                '''''''''''''''''''''''''''''''''''''''''''''''''
 
               '''''''''''''''''''''''''''''''''''''''''''''''''
            End If
        End If 

يجدر الاشارة انه وجب التنويه بضرورة وجود المقام اكبر من البسط

لذلك اضفنا شرطا لذلك


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

.rar   frction.rar (الحجم : 14.84 ك ب / التحميلات : 4)



تحياتي
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: asemshahen5 , Anas Mahmoud
#2
مبدع دائما اخ عبد الهادي
بارك الله فيك
الرد
تم الشكر بواسطة: عبد الهادي بهاب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تصميم برنامج ميثاق فلسطين عبد الهادي بهاب 0 85 17-09-20, 01:40 AM
آخر رد: عبد الهادي بهاب
  ادوات + برنامج مفتوح المصدر للتحميل من اليوتيوب معاند الحظ 0 95 15-09-20, 09:23 PM
آخر رد: معاند الحظ
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 5 1,021 15-09-20, 04:56 PM
آخر رد: Ali 2020
  [مشروع] تصميم برنامج تعليمي للاطفال ... الحساب الذهني Calcul Mental عبد الهادي بهاب 0 65 12-09-20, 09:12 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي مراجعة تفاعلية لعلمية الجمع عبد الهادي بهاب 4 178 11-09-20, 01:01 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي للاطفال ..المقارنة بين الاطوال عبد الهادي بهاب 1 140 10-09-20, 05:03 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامح تعليمي للاطفال ...رتب كلمات الجملة ( سحب الكلمة ) عبد الهادي بهاب 0 102 07-09-20, 12:52 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة السلم و الافعى عبد الهادي بهاب 0 93 05-09-20, 07:04 PM
آخر رد: عبد الهادي بهاب
  تصميم برنامج صانع الشهادات التقديرية عبد الهادي بهاب 0 101 05-09-20, 06:17 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة المربعات squaresgame عبد الهادي بهاب 0 95 04-09-20, 02:13 PM
آخر رد: عبد الهادي بهاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم