Шаг 127 - Как построить график функции

Используя естественно команду LINE:

Private Sub Command1_Click()
    Dim y As Integer
    Form1.ForeColor = &HFF&
    y1 = 0
    x1 = 0
    For x = 0 To 25
    y = x * x
    Form1.Line (x1, y1)-(x, y)
    y1 = y
    x1 = x
    Next x
End Sub

Private Sub Form_Load()
    Form1.ScaleMode = 3
    Form1.Scale (0, 1000)-(100, 0)
End Sub

Единственное, что мы воспользовались командой Scale, чтобы изменить систему координат.

gif/127_1.gif (1999 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.