Formula General
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (0, -5)-(-5, -5)
Picture1.Line (-5, -5)-(-5, -9)
Picture1.Line (-5, -9)-(-4, -9)
Picture1.Line (-4, -9)-(-4, -6)Picture1.Line (-4, -6)-(-1, -6)
Picture1.Line (-1, -6)-(-1, -9)
Picture1.Line (-1, -9)-(0, -9)
Picture1.Line (0, -9)-(0, -5)
Picture1.Line (-4, -3.5)-(-3, -4.8)
Picture1.Line (-3, -4.8)-(-1,-4.8)
Picture1.Line (-1, -4.8)-(0, -3.5)
Picture1.Circle (-2.1, -3), 0.4
Picture1.Circle (-2.7, -4), 0.4
Picture1.Circle (-1.5, -4), 0.4
Picture1.Line (1, -5)-(6, -5)
Picture1.Line (6,-5)-(6, -9)
Picture1.Line (6, -9)-(5, -9)
Picture1.Line (5, -9)-(5, -6)
Picture1.Line (5, -6)-(2, -6)
Picture1.Line (2, -6)-(2, -9)
Picture1.Line (2, -9)-(1, -9)
Picture1.Line (1, -9)-(1, -5)Picture1.Line (5, -3.5)-(4, -4.8)
Picture1.Line (4, -4.8)-(2, -4.8)
Picture1.Line (2, -4.8)-(1, -3.5)
End Sub
Private Sub Picture1_DblClick()
For X = -2.5 To 2.5 Step 0.002
Y =(-X ^ 2) + 1
Picture1.Circle (X, Y), 0.4
Picture1.Line (0, -5)-(-5, -5)
Picture1.Line (-5, -5)-(-5, -9)
Picture1.Line (-5, -9)-(-4, -9)
Picture1.Line (-4, -9)-(-4, -6)
Picture1.Line (-4,-6)-(-1, -6)
Picture1.Line (-1, -6)-(-1, -9)
Picture1.Line (-1, -9)-(0, -9)
Picture1.Line (0, -9)-(0, -5)
Picture1.Line (-4, -3.5)-(-3, -4.8)
Picture1.Line (-3, -4.8)-(-1, -4.8)
Picture1.Line(-1, -4.8)-(0, -3.5)
Picture1.Line (1, -5)-(6, -5)
Picture1.Line (6, -5)-(6, -9)
Picture1.Line (6, -9)-(5, -9)
Picture1.Line (5, -9)-(5, -6)
Picture1.Line (5, -6)-(2, -6)
Picture1.Line (2,-6)-(2, -9)
Picture1.Line (2, -9)-(1, -9)
Picture1.Line (1, -9)-(1, -5)
Picture1.Line (5, -3.5)-(4, -4.8)
Picture1.Line (4, -4.8)-(2, -4.8)
Picture1.Line (2, -4.8)-(1, -3.5)Picture1.Circle (-2.7, -4), 0.4
Picture1.Circle (-1.5, -4), 0.4
Picture1.Cls
Next X
For X = -2.5 To 2.5 Step 0.002
Y = (-X ^ 2) + 3
Picture1.Circle (X, Y), 0.4
Picture1.Line (0, -5)-(-5, -5)...
Regístrate para leer el documento completo.