تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] برنامج otou feasbok للنشر التلقائى على بروفايلك وصفحاتك وجروبات ابو روضة 9 180 , 03:28 PM
آخر رد: anes
  برنامج أذان aldery 2 62 , 01:11 PM
آخر رد: aldery
Wink [مشروع] برنامج مؤقيت الصلاة الاصدار الثالث alsaher1 9 287 22-07-21, 09:42 PM
آخر رد: alsaher1
  [مشروع] برنامج أذان aldery 3 152 17-07-21, 11:17 PM
آخر رد: عبد الهادي بهاب
  [مشروع] مشروع برنامج مبيعات متكامل بالباركود nouribenyahia 50 20,220 15-07-21, 08:12 PM
آخر رد: اسامة الجزائر
  برنامج المحاسب كامل بالسورس كود محمود صالح 31 14,434 13-07-21, 03:18 PM
آخر رد: ahmedelkassar
  [مشروع] ملف مفتوح ... تصميم برنامج الباحث القرآني و عرض الاية بروايتي حفص و ورش وتفسيرها عبد الهادي بهاب 5 1,009 13-07-21, 03:41 AM
آخر رد: aldery
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 57 29,371 11-07-21, 01:54 PM
آخر رد: asemshahen5
Heart برنامج تشفير و حذف الملفات aldery 0 160 30-06-21, 08:08 PM
آخر رد: aldery
  [vb6.0] 3 مشاريع مفتوحى المصدر يمكن أن يكونوا نواة لبناء برنامج أذان عالمى mmaalmesry 2 1,156 27-06-21, 11:18 PM
آخر رد: spiky

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


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