منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - هل بالإمكان عمل رسم لمحور xy بعدة نقاط كما في المثال

السلام عليكم

هل بالإمكان عمل برنامج بحيث أن المستخدم يقوم بإدخال مجموعة قيم لـ : x ومجموعة قيم لـ : y ومن ثم يقوم البرنامج برسم المنحنى بناء على هذه القيم وشكراً لكم .

وشكراً لكم ،،،

الســـــــــــلام عليـــــــــكم :

أعطيـــــــــــك مثـــــــــــال وانت عــــــــــدل على كيــــــــــــفك :

PHP كود :

Public Class Form1
   
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       
      'Create pen objects
        Dim p As New Pen(Color.Green, 10)
        Dim p1 As New Pen(Color.Yellow, 10)
        Dim p2 As New Pen(Color.Red, 10)
 
        'Create rectangle objects
        Dim rt As New Rectangle(100, 150, 80, 100)
        Dim rt1 As New Rectangle(130, 120, 120, 120)
        Dim rt2 As New Rectangle(160, 100, 150, 150)
 
        'Draw arcs
        e.Graphics.DrawArc(p, rt, 0, -90)
        e.Graphics.DrawArc(p1, rt1, 0, -90)
        e.Graphics.DrawArc(p2, rt2, 0, -90)
    End Sub
 
End Class 

مثــــــــــــــال أخــــــــــــر :

PHP كود :

Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       
        'Create point objects
        Dim pt As New Point(50, 50)
        Dim pt1 As New Point(300, 50)
        Dim pt2 As New Point(200, 70)
        Dim pt3 As New Point(50, 170)
        Dim pt4 As New Point(300, 170)
        Dim pt5 As New Point(200, 70)
        'Array of points
        Dim pArra() As Point = {pt2, pt3, pt4, pt5}
        'Draw a line
        e.Graphics.DrawLine(Pens.Orange, pt, pt1)
        'Draw multiple lines
        e.Graphics.DrawLines(Pens.Blue, pArra)
 
    End Sub
End Class 

شكراً لك ...
والله يعطيك العافية ...

سلام عليكم Big Grin

تم نقل الموضوع لقسم الأسئلة لأنه الآن بالقسم الرئيسي Blush

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبورائد

Abu Ehab

أبورائد

Omar Mekkawy