02-09-20, 09:15 PM
السلام عليكم
مع البرامج التعليمية
في مجال الرياضيات
في موضوع الكسور يلزمنا ان نشرح للطلبة المقارنة بين الكسور
اولا نشرح للطالب معنى الكسر فيه بسط في الاعلى و مقام في الاسفل
عموما يكون البسط اكبر من المقام و الا فيصبح اكثر من الواحد
الحل في جداء بسط الاول في مقام الثاني و العكس و المقارنة بين الناتجين
مع البرمجة :
نعطي للطالب عداد numericDown للبسط و اخر للمقام
و نفس الشيئ مع الكسر الثاني
نضع زر المقارنة
يقوم بانشاء مربعات بعدد المقام لكل كسر
نضع خطا في الوسط مرجع لانشاء المربعات
يعني مثلا طول المرجع : 400
اذا كان المقام هو 10 ............. ننشء 10 مربعات عرضها هو 40
اذا كان المقام 5 .......ننشئ 5 مربعات عرضها 80
الان نقوم بتلوينها كلها بلون معين .........ثم نلون عدد البسط في كل مجموعة
نستعمل دالة controls.add لانشاء العناصر
ثم في الاخير نقوم بالمقارنة و نظهر النتيجة في نص
الشكل التالي :
كود الزر هو :
يجدر الاشارة انه وجب التنويه بضرورة وجود المقام اكبر من البسط
لذلك اضفنا شرطا لذلك
الملف المفتوح للتعديل
frction.rar (الحجم : 14.84 ك ب / التحميلات : 29)
تحياتي
مع البرامج التعليمية
في مجال الرياضيات
في موضوع الكسور يلزمنا ان نشرح للطلبة المقارنة بين الكسور
اولا نشرح للطالب معنى الكسر فيه بسط في الاعلى و مقام في الاسفل
عموما يكون البسط اكبر من المقام و الا فيصبح اكثر من الواحد
الحل في جداء بسط الاول في مقام الثاني و العكس و المقارنة بين الناتجين
مع البرمجة :
نعطي للطالب عداد 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)
تحياتي
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك