|
|
file:///C:/Users/Administrator/AppData/Roaming/360se6/Application/User Data/temp/dKeLT26WPAAA&ek=1&kp=1&pt=0&bo=7ACxAAAAAAAFAH4!&su=093454865&sce=0-12-12&rf=2-9..jpg
- Private Sub CommandButton1_Click() '蝴蝶曲线
- With SlideShowWindows(Index:=1).View
- .PointerColor.RGB = vbBlue
- π = 3.1415926
- r = t * 360
- For t = -π To π Step 0.001
- x = 50 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- y = 50 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
- Next
- For t = -π To π Step 0.001
- x = 40 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- y = 40 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
- Next
- For t = -π To π Step 0.001
- x = 20 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- y = 20 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
- SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
- Next
- End WithEnd Sub
复制代码 |
|
