الاخوة الاعزاء اود الاستفسار عن كيفية ادخال بينات الى مصفوفه برمجيا
مثال على ذلك
اقوم حاليا بتطوير برنامج رسم ثلاثي ابعاد
بحثت عبر الانترنت فوجدت كود يخدمني ولكنه قام بادخال احداثيات النقاط يدويا بالشكل التالي
استخدم List (Of فهي متقدمة ومرنة أكثر من المصفوفة التقليدية، وتعامل معها كما تتعامل مع Items التي تخص ListBox أو ComboBox من حيث الإضافة والحذف والإدراج في وسطها إلخ...، وإليك مثال جربه
طبعا الـ (Class Point3d) هو يكتب مرة واحدة فقط..
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
#Region " Class Point3d "
Class Point3d
Private _x As Double
Private _y As Double
Private _z As Double
Sub New()
End Sub
Sub New(ByVal x As Double, ByVal y As Double, ByVal z As Double)
_x = x
_y = y
_z = z
End Sub
Public Property x() As Double
Get
Return _x
End Get
Set(ByVal value As Double)
_x = value
End Set
End Property
Public Property y() As Double
Get
Return _y
End Get
Set(ByVal value As Double)
_y = value
End Set
End Property
Public Property z() As Double
Get
Return _z
End Get
Set(ByVal value As Double)
_z = value
End Set
End Property
End Class
#End Region
إعتمادا على ما وضعتموه من مثال المكعب، عملت لكم طريقتين لوضع الإحداثيات
أولا: التصريح عن مصفوفة خاصة بالمكعب كالتالي
كود :
' المكعب له 8 نقاط، ولكل نقطة 3 إحداثيات
' بما أن فهرس المصفوفة في البرمجة يبدأ من الصفر
' فننشئ المصفوفة كالتالي
Dim PointsArray(7, 2) As Double
' الـ 7 هي الثمان نقاط للمكعب وتحسب مع الصفر
' الـ 2 هي الثلاث إحداثيات وتحسب مع الصفر
ثانيا: الطريقة الأولى لوضع قيم إحداثيات النقاط في المصفوفة
' SetPoint3D الدالة
Public Sub SetPoint3D(ByRef array As Array, ByVal Point As Integer, ByVal x As Double, ByVal y As Double, ByVal z As Double)
array(Point, 0) = x
array(Point, 1) = y
array(Point, 2) = z
End Sub
إعتمادا على ما وضعتموه من مثال المكعب، عملت لكم طريقتين لوضع الإحداثيات
أولا: التصريح عن مصفوفة خاصة بالمكعب كالتالي
كود :
' المكعب له 8 نقاط، ولكل نقطة 3 إحداثيات
' بما أن فهرس المصفوفة في البرمجة يبدأ من الصفر
' فننشئ المصفوفة كالتالي
Dim PointsArray(7, 2) As Double
' الـ 7 هي الثمان نقاط للمكعب وتحسب مع الصفر
' الـ 2 هي الثلاث إحداثيات وتحسب مع الصفر
ثانيا: الطريقة الأولى لوضع قيم إحداثيات النقاط في المصفوفة
' SetPoint3D الدالة
Public Sub SetPoint3D(ByRef array As Array, ByVal Point As Integer, ByVal x As Double, ByVal y As Double, ByVal z As Double)
array(Point, 0) = x
array(Point, 1) = y
array(Point, 2) = z
End Sub