كود لرسم المعادلات

[الفارس]

كود لرسم المعادلات

 كود
'مع العلم ان pic هي اداة Pictuer
Dim X As Integer
Dim Y As Single

' ----------------------------------------
' يمكن تغيير القيم التالية لتغيير ابعاد الرسم
Const Min = -30
Const Max = 30
' ----------------------------------------

Pic.Scale (Min, Min)-(Max, Max)
For X = Min To Max

'----------------------------
' هنا اكتب معادلتك التي تريدها
Y = X ^ 2
'----------------------------

If X = Min Then
Pic.Cls
Pic.Line (Min, 0)-(Max, 0), vbBlack
Pic.Line (0, Min)-(0, Max), vbBlack
Pic.CurrentX = -100
Pic.CurrentY = -Y
Else
Pic.Line -(X, -Y), vbRed
End If