مثال لرسم معادلة رياضية بيانيا

مثال لرسم معادلة رياضية بيانيا

' التصريح بالمتغيرات اجباري
Option Explicit
Private Sub Command1_Click()
'إعلان لثابت والذي يمثل الثابت الرياضي ط
Const PI = 3.14159265358979 ' التصريح بمتغير لكل من النقطتين س و ص
Dim Y As Double, X As Double
Dim a As Integer
''(form1 يمثل  me )  تعريف الأبعاد التي يتم الرسم فيه بنسبة للكائن الحالي
Me.Scale (-PI, 1.1)-(PI, -1.1)
' منطقة الرسم
Cls 'غير قيمة الثابت ولاحظ النتيجة
a = 1
' حجم الخط الرسم
DrawWidth = 1
' رسم المحورين السيني والصادي
Line (-PI, 0)-(PI, 0)
Line (0, -1)-(0, 1) ' بداية الحلقة لتحديد قيم س
For X = -PI To PI Step 0.01
'تمكين المعالج لتنفيذ احداث اخرى
DoEvents ' تحديد قيمة ص
Y = Cos(a * X) ' رسم النقطة (س،ص)
Me.PSet (X, Y) 'العودة لتحديد القيمة التالية لـ س
Next X
End Sub