منتديات رحيل لكل العرب - كود لرسم المعادلات

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

كود:

 كود

'مع العلم ان 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