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

في الرياضيات في علم الهندسة يطلب من التلاميذ و الطلبة تعيين نقطة في معلم  متعامد و متجانس



الان باستعمال الموضوع السابق في انشاء خطوط مليمترية 

http://vb4arb.com/vb/showthread.php?tid=36025



الان  سننشء في تقاطعات هذه الخطوط مستطيل صغير جدا
نزرع فيه حدث click  ليظهر اسمه
اللقطة في التسمية 
------------------------------------------------------------------
العمل :
انشء صفحة جديدة 
اضف ليبال في الاسفل 

في الكود ضع :

PHP كود :
Imports System.Drawing

Public Class Form1
    Dim g 
As Graphics
    Dim pnt 
As Point
    Dim NovoN 
As PictureBox
    Dim ArrPic 
As New ArrayList
    Dim ArrPic1 
As New ArrayList

    
  
    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) & " )"
                ArrPic.Add(NovoN.Name)
                NovoN.Cursor = Cursors.Hand
                AddHandler NovoN.Click, Sub(s, ev) Label1.Text = s.name
            Next
        Next
    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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تصميم تمرين رياضي تعيين نقطة في معلم عبد الهادي بهاب 3 189 09-08-20, 11:56 AM
آخر رد: Anas Mahmoud

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


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