Dim x0, x1, y0, y1, z0, z1, a, b, c, u As Single
Dim n As Integer
Dim coloreaza As Integer
Private Sub Command1_Click()
If coloreaza = False Then
coloreaza = True
Command1.Caption = "Opreste-te"
color
Else
Command1.Caption = "Incepe"
coloreaza = False
End If
End Sub
Private Sub Form_Load()
coloreaza = False
End Sub
Sub color()
h = 0.01
a = 10
b = 28
c = 8 / 3
n = 0
x0 = 0
y0 = 1
z0 = 0
u = Text1.Text
Do While coloreaza = True
x1 = x0 + h * a * (y0 - x0)
y1 = y0 + h * (x0 * (b - z0) - y0)
z = z0 + h * (x0 * y0 - c * z0)
x0 = x1
y0 = y1
z0 = z1
xx = x0 * Cos(u) - y0 * Sin(u)
Picture1.Line -(xx, z0), vbRed
Loop
End Sub