كود يرسم معادلة

كود يرسم معادلة من الدرجة الثانية

الرمز PHP:Option Explicit

Private Sub Command1_Click()

Const PI = 3.14159265358979

Dim Y As Double, X As Double

Dim a As Integer

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

__________________