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

استغلالا للمواضيع السابقة حول رسم خطوط

يمكن ان نطلب من الطالب ان يعين نقطة في المغلم المتعامد و المتجانس
و نقوم بتصحيح اجابته


الان في الصفحة ضع ليبال1 في الاسفل لعرض النقطة المطلوبة
ليبال2 و فيه نص ( اضغط على النقطة ذات الاحداثيات )
ضع ليبال 3 لحساب عدد الاجابات الصحيحة 
و ليبال 4 لحساب عدد الاجابات الخاطئة  

في الكود ارزع التالي :

PHP كود :
Imports System.Drawing

Public Class Form1
    Dim g 
As Graphics
    Dim NovoN 
As PictureBox
    Dim Rep 
As String
    Dim Sah 
As Integer 0
    Dim kata 
As Integer 0
 
    Sub qustions
()
 
       Dim Rnd As New Random
        Dim Xrnd 
Rnd.Next(-44)
 
       Dim Yrnd Rnd.Next(-44)
 
       Label1.Text "( " Xrnd " * " Yrnd " )"
 
   End Sub


    Sub correction
()
 
       If Label1.Text Rep Then
            Sah 
+= 1
            Label3
.Text Sah
            MsgBox
("جميل جدا واصل ")
 
       Else
            kata 
+= 1
            Label4
.Text kata
            MsgBox
("للاسف لقد ضغطت على النطقة" vbNewLine Rep)
 
       End If
 
       qustions()
 
   End Sub


    
  
    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        g 
CreateGraphics()

 
       ' وضع نقط في اماكن التقاطع 
        For i = 0 To 320 Step 40
            For p = 0 To 320 Step 40
                NovoN = New PictureBox
                Controls.Add(NovoN)
                NovoN.Size = New Size(5, 5)
                NovoN.BackColor = Color.Red
                NovoN.Location = New Point(p - 2, i - 2)
                NovoN.Name = "( " & (p - 160) / 40 & " * " & (i - 160) / 40 * (-1) & " )"
                NovoN.Cursor = Cursors.Hand
                AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
                AddHandler NovoN.Click, Sub(s, ev) correction()

            Next
        Next
        qustions()

    End Sub


    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        ' 
معطيات طول و عرض الصفحة كلها 
        Dim Mw 
As Integer 320 'Me.Size.Width
        Dim Mh As Integer = 320 ' 
Me.Size.Height
        
' الخطوط الافقية
        For i = 0 To Mh Step 4
            Dim x = 0
            Dim y = i
            g.DrawLine(Pens.OrangeRed, New Point(x, y), New Point(Mw, y))
        Next

        ' 
الخطوط العمودية
        For i 
0 To Mw Step 4
            Dim x 
i
            Dim y 
0
            g
.DrawLine(Pens.OrangeRed, New Point(xy), New Point(xMh))
 
       Next


        
' كل عشرة افقية خط سميك
        For i = 0 To Mh Step 40
            g.DrawRectangle(Pens.Red, 0, i, Mw, 1)
        Next

        ' 
كل عشرة خطوط عمودية خط مسيك 
        For i 
0 To Mw Step 40
            g
.DrawRectangle(Pens.Redi01Mh)
 
       Next



        
' الخط المركزي الافقي
        Dim Cw As Integer = Mh / 2
        g.DrawRectangle(Pens.DarkRed, 0, Cw, Mw, 1)

        ' 
الخط العمودي المركزي
        Dim Ch 
As Integer Mw 2
        g
.DrawRectangle(Pens.DarkRedCh01Mh)


 
   End Sub


End 
Class 

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

يبدو انك تحب الرياضيات
الرد
تم الشكر بواسطة: عبد الهادي بهاب , asemshahen5 , asemshahen5
#3
(09-08-20, 12:59 AM)بلدي كتب : ممتاز  اخى عبد الهادي بهاب

يبدو انك تحب الرياضيات

صحيح  استاذي العزيز
وهي اسهل و اروع في امتهان البرمجة 
و من حيث كوني في عائلة التعليم احببت استغلال البرمجة  في هذا الاتجاه
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: بلدي , asemshahen5
#4
رائع جدا بارك الله فيك
الرد
تم الشكر بواسطة: عبد الهادي بهاب , بلدي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تصميم برنامج ميثاق فلسطين عبد الهادي بهاب 0 81 17-09-20, 01:40 AM
آخر رد: عبد الهادي بهاب
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 5 1,017 15-09-20, 04:56 PM
آخر رد: Ali 2020
  [مشروع] تصميم برنامج تعليمي للاطفال ... الحساب الذهني Calcul Mental عبد الهادي بهاب 0 59 12-09-20, 09:12 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي مراجعة تفاعلية لعلمية الجمع عبد الهادي بهاب 4 174 11-09-20, 01:01 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي للاطفال ..المقارنة بين الاطوال عبد الهادي بهاب 1 136 10-09-20, 05:03 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامح تعليمي للاطفال ...رتب كلمات الجملة ( سحب الكلمة ) عبد الهادي بهاب 0 102 07-09-20, 12:52 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة السلم و الافعى عبد الهادي بهاب 0 92 05-09-20, 07:04 PM
آخر رد: عبد الهادي بهاب
  تصميم برنامج صانع الشهادات التقديرية عبد الهادي بهاب 0 98 05-09-20, 06:17 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة المربعات squaresgame عبد الهادي بهاب 0 94 04-09-20, 02:13 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة الدبناصور لمتصفح كروم T- rex runner عبد الهادي بهاب 0 112 03-09-20, 04:09 AM
آخر رد: عبد الهادي بهاب

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


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