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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] برنامج عشرًا : للتذكير بالصلاة على النبي عليه الصلاة والسلام Anas Mahmoud 1 130 , 10:23 PM
آخر رد: ابو روضة
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 54 22,304 16-11-20, 12:55 AM
آخر رد: ibrahematia
  [مشروع] مشروع برنامج مبيعات متكامل بالباركود nouribenyahia 47 13,880 14-11-20, 03:14 PM
آخر رد: عبد العزيز البسكري
  [مشروع] تصميم احترافي لبرنامج شئون الموظفين باستخدام ديف اكسبريس + تحميل السورس كود mazentq 4 451 12-11-20, 03:05 PM
آخر رد: MORADWAN
  [مشروع] تصميم تطبيق لقفل واخفاء الملفات مع السورس كود ahmadpal 11 2,086 10-11-20, 06:41 PM
آخر رد: djtech
  برنامج المغسلة SABER_ZINOUBI 2 428 09-11-20, 11:08 PM
آخر رد: SABER_ZINOUBI
Heart [مشروع] نسخه مصغره من برنامج صانع الاكواد للجميع aliday03 17 12,195 26-10-20, 01:23 AM
آخر رد: Arfat007
  [مشروع] 3 مشاريع مفتوحى المصدر يمكن أن يكونوا نواة لبناء برنامج أذان عالمى كما يصلح ل mmaalmesry 2 569 15-10-20, 09:55 AM
آخر رد: ibra9009
  [VB.NET] مشروع برنامج مبيعات بلغة فيجوال بيسك و سيكوال سيرفر aloush 16 7,090 15-10-20, 09:52 AM
آخر رد: ibra9009
  [مشروع] برنامج البحث السريع في القران الكريم عبد الهادي بهاب 2 462 15-10-20, 09:51 AM
آخر رد: ibra9009

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


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