Private Sub Command1_Click()
Picture1.Refresh
Picture2.Refresh
Mx = 1
My1 = 100
My2 = 1000
A1 = Text1.Text
B1 = Text2.Text
B2 = Text3.Text
C1 = Text4.Text
C2 = Text5.Text
D1 = Text6.Text
D2 = Text7.Text
B3 = Text8.Text
C3 = Text9.Text
D3 = Text10.Text
B4 = Text11.Text
C4 = Text12.Text
D4 = Text13.Text
z = Mx / 2000
For t = 0 To Mx Step z
B1 = (B1 * B2 + A1 * z * B3) / (B2 + z * B3)
B2 = B2 + z * B3
B1 = (B1 * B2 - B1 * z * B4) / (B2 - z * B4)
B2 = B2 - z * B4
C1 = (C1 * C2 + B1 * z * C3) / (C2 + z * C3)
C2 = C2 + z * C3
C1 = (C1 * C2 - C1 * z * C4) / (C2 - z * C4)
C2 = C2 - z * C4
D1 = (D1 * D2 + C1 * z * D3) / (D2 + z * D3)
D2 = D2 + z * D3
D1 = (D1 * D2 - D1 * z * D4) / (D2 - z * D4)
D2 = D2 - z * D4
X = t
Y = A1
X = (X * 2000 / Mx)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(0)
Y = B1
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(10)
Y = C1
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(9)
Y = D1
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(12)
Y = B2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(10)
Y = C2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(9)
Y = D2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(12)
Next t
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub