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

السلام عليكم

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

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

و نقوم بتصحيح اجابته

الان في الصفحة ضع ليبال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(-4, 4)
        Dim Yrnd = Rnd.Next(-4, 4)
        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 Object, ByVal e As EventArgs) Handles 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(x, y), New Point(x, Mh))
        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.Red, i, 0, 1, Mh)
        Next



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

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


    End Sub


End Class 


بالتوفيق في مشاريعكم 

-------------------------------

يمكن ان ارفع الملف لمن لم يفهم العمل

------------

[بلدي]

ممتاز اخى عبد الهادي بهاب

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

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

(09-08-20, 12:59 AM)بلدي كتب : ممتاز  اخى عبد الهادي بهاب

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

صحيح  استاذي العزيز
وهي اسهل و اروع في امتهان البرمجة 
و من حيث كوني في عائلة التعليم احببت استغلال البرمجة  في هذا الاتجاه

[Anas Mahmoud]

رائع جدا بارك الله فيك