السلام عليكم
اخواني لدي سؤال عن طريقة رسم الدائرة من خلال مكتبة دي ال ال
طريقة انشاء المكتبة معروفة لدي و طريقة رسم الدائرة ضمن الفيجوال معروفة أيضا
و لكني اريد استخدامها من خلال برامج أخرى غير الفيجوال لرسم دائرة في مكان معين
ممكن لو تكرمتو شرح الطريقة و طريقة كتابة الكود الذي سيكون ضمن المكتبة لكي يكون مهيء للاستخدام من خلال برامج اخرى غير الفيجوال
او اذا كان ممكن رسمها بالاستعانة بويندوز بدون انشاء المكتبة من الفيجوال ايضا ينفع
مع الشكر
تم تعديل هذه المشاركة بواسطة memouz في 8 نوفمبر 2008 في 21:14
ليش ال Dll
ممكن تستخدم كود كالتالي :
Private Sub Ofqy_Click(a As Long, d As Long, h As Long)
y = (4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5 y = -1 * ((4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5)
ممكن تحط أي معادلة
كمعادلة الدائرة مثلا
FoFO asil كتب:ليش ال Dllممكن تستخدم كود كالتالي :
On Error Resume Next
Me.Scale (-100, 100)-(100, -100)
Line (-100, 0)-(100, 0)
Line (0, -100)-(0, 100)
For x = -100 To 100 Step 0.01
y = (4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5
Me.PSet (x, y)
y = -1 * ((4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5)
Me.PSet (x, y)
Next x
End Sub
وبدلPrivate Sub Ofqy_Click(a As Long, d As Long, h As Long)y = (4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5 y = -1 * ((4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5)ممكن تحط أي معادلة
كمعادلة الدائرة مثلا
شكرا لك احي الكريم و لكني اريد استخدام دي ال ال لاني اريد استدعاء كود رسم الدائرة ببرنامج غير مبرمج بالفيجوال
السلام عليكم...
المثال المرفق يحتوي على دالة لرسم دائرة مع تحديد مركزها و نصف قطرها، بالإضافة إلى تحديد حجم و لون و نمط خط الرسم، و نمط و لون التعبئة.
الكود يحتوي على شرح مفصل.
إذا كنت ستستدعي الدالة من ActiveX DLL فيمكن نقل الكود من الـ Module إلى Class Module.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
