Visual Basic 6

[Vlad444]

Здравствуйте! Ребят нужна ваша помощь! Мне надо написать программу на VB6, надо построить график функции ax^2+bx+c. Я сам график построил, но я не могу выполнить требования.. программа ниже..
1 Программа не должна допускать ввода "не цифровых" символов Сейчас можно вводить все что попало.
2 Программа ни при каких условиях, при любых значения вводимых параметров не должна "вываливаться" в аварийную остановку.
и должна работать при любых значениях а, в и с.
3. Нет возможности ограничивать график по значению Х
4. График должен вычерчиваться в отдельном графическом окне с его автоматическим масштабированием
5. Грубоват шаг Х графика, слишком мало точек.
Вот эти требования я не выполнил..
Помогите пожалуйста кто сможет!

Private Sub Command1_Click()
Dim i, j As Integer
Dim c, d, x, y As Integer
Dim a(1, 100) As String
Form1.Cls
Command1.Visible = False
Command2.Visible = True
Label4.Visible = False
DD.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Cls
Form1.Scale (-50, 50)-(50, -50)     ' области определения по оси х и у соответственно
For i = -50 To 50
For j = -50 To 50
Form1.PSet (i, j)      ' нарисовать сетку
Next
Next
CurrentX = 45
CurrentY = 5
Print "X"
CurrentX = -3
CurrentY = 47
Print "Y"
Form1.Line (0, 50)-(0, -50)
Form1.Line (50, 0)-(-50, 0)
Form1.Line (2, 48)-(0, 50)
Form1.Line (-2, 48)-(0, 50)
Form1.Line (48, 2)-(50, 0)
Form1.Line (48, -2)-(50, 0)
Form1.Line (-3, -1)-(-3, 1)
Form1.Line (3, -1)-(3, 1)
Form1.Line (1, 3)-(-1, 3)
Form1.Line (1, -3)-(-1, -3)
For x = -50 To 50
y = x * x * Text1.Text + x * Text2.Text + Text3.Text     ' сама функция вида: y=f(x) (ввод любой функции)
DrawWidth = 7         ' толщина точки
Form1.PSet (x * 3, y * 3), vbRed
Next
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command2.Visible = False
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
End Sub