كيفية رسم المعادلات التربيعية

up

إذا لم تفهم أي جزء من الكود يمكننا مناقشته ..

مثلا إذا أردت رسم المعادلة Y = X^2

Private Sub Form_Load()
 Me.AutoRedraw = True
 Me.ScaleMode = 1
 Me.Width = 5000
 Me.Height = 4000
End Sub
Private Sub Command1_Click()
Me.Cls
Dim x As Integer, y As Long
 Line (0, 2000)-(5000, 2000)
 Line (2500, 0)-(2500, 4000)

For x = -50 To 50
 DoEvents
 y = (x ^ 2)
 PSet (2500 - x * 50, 2000 - y * 2), vbRed
Next
End Sub

وإذا أردت رسم معادلة y= a * x^2+b*x+c

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, x As Integer, y As Long
 Line (0, 2000)-(5000, 2000)
 Line (2500, 0)-(2500, 4000)

a = 1
b = 1
z = 100

For x = -50 To 50
 y = (a * x ^ 2 + b * x + z)
 PSet (2500 - x * 50, 2000 - y * 2), vbRed
Next
End Sub

Private Sub Form_Load()
 Me.AutoRedraw = True
 Me.ScaleMode = 1
 Me.Width = 5000
 Me.Height = 4000
End Sub

الكود السابق يقوم برسم المعادلة مع عمل إزاحة رأسيا ..

ارجع الى الرابط التالي

/index.ph...دلات+الكيميائية

شكرا جداااااااااااااااااااااااااااااا وجاري التجربة :D :D :D