كيفية رسم منحني عن طريق احداثيات س و ص

هل تريد بالفأرة الرسم أم بأداة Line

dيبقي كرم منك لو شرحت الطريقتين ولو لعدم توفر امكانية لذلك فياريت شرح الرسم عن طريق ال Line وجزاك الله كل خير

السلام عليكم

لدي طريقة أخرى أخي الكريم

لكن حسب ما تحتاجه أنت أنا سأعطيك لطريقة و أنت ترى إن كانت مناسبة لمشروعك أو لا

الطريقة:

مثلا نريد رسم منحنى للدالة التالية: f(x)=Sin x

هذه الدالة موجودة في لغة Basic وهي Sin

سوف أكتب الآن برنامجا لرسم منحنى هذا المثال ما بين x=-180 و x=180

180 تعني زاوية Pi و -180 تعني زاوية -Pi

Form1.width = 800
Form1.height = 800

Dim myX0, myY0 as Integer

myX0 = 400
myY0 = 400


For i=-180 to 180
Form1.Pset((myX0 + i),(myY0 + (100*Sin(i)) )),VbBlack
Next

'You can use another scale by replacing 100 by 200 or 300 or any other BIG number

سوف أشرح لك حتى تتمكن من التعديل لأي دالة أخرى تريدها

myX0 = 400
myY0 = 400

هذا الجزء للتعرف على مركز الصفحة حتى يكون مبدأ للمعلم، بالنسبة لـ 400 فهي لأنها منتصف 800 وهو عرض الفورم

نفس الشيء بالنسبة للطول

For i=-180 to 180

سوف ينم المرور بكل النقاط من -180 غاية 180

Form1.Pset((myX0 + i),(myY0 + (100*Sin(i)) )),VbBlack

الدالة Pset تقوم برسم نقطة وتحتاج إلى إحداثيات xوy و لون النقطة

Pset(x,y,),Colour

وبما أن النقطة 0،0 في VB هي في أعلى اليسار فعلينا جعلها في المنتصف حتى يكون المنحني ظاهرا على الفورم

لذلك أضفنا للإحداثيات xوy إحداثيات المبدأ الذي حددناه سابقا و هو myX0,myY0

و بالنسبة لـ *100 فلأن الدالة Sin لن تكون أكبر من 1 أو أصغر من -1 "هذا معروف ;)" فالرسم لن يكون واضحا لأن 1 pixel لن تراها على الفورم و الجهاز ليس لديه أقل من 1 pixel فلا يمكن وضع جسم ارتفاعه 0،5 pixel مثلا

لذلك نستعمل معامل تكبير و هو 100 مثلا،يمكنك استعمال أي عدد كبير آخر وكلما كان كبيرا كان الشكل أكبر

أرجوا أن يكون المثال واضحا

أي إستفسار أنا هنا

شكرا