+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] تعيين احداثيات نقطة في معلم متعامد متجانس (/showthread.php?tid=36048)
تعيين احداثيات نقطة في معلم متعامد متجانس - عبد الهادي بهاب - 09-08-20
السلام عليكم
------------------
بداية اشكر الاخوة بلدي و الاخ انس -------------
في الرياضيات في علم الهندسة يطلب من التلاميذ و الطلبة تعيين نقطة في معلم متعامد و متجانس
الان باستعمال الموضوع السابق في انشاء خطوط مليمترية
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 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) & " )"
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(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
ستتحصل على الشكل التالي :
بالتوفيق
---------------------------------
لاحقا يمكن ان نجعل المشروع تمرين رياضي