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

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

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

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

مع البرمجة :
نعطي للطالب عداد 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(10, 400)
        car.Location = New Point(255, 90)
        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.OK, MessageBoxIcon.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(140, rep)
                car.Location = New Point(PictureBox1.Left + 20, PictureBox1.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(140, rep2)
                    car.Location = New Point(PictureBox2.Left + 40, PictureBox1.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 


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


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

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


تحياتي

[Anas Mahmoud]

مبدع دائما اخ عبد الهادي
بارك الله فيك