按键画椭圆的代码，求高手改成TC

aimei_8866999

Call 模拟椭圆弧线(300, 300)
Function 模拟椭圆弧线(x2, y2)
    Dim i,x(20),y(20)
    GetCursorPos x1, y1//得到当前鼠标位置
    If y1 = y2 Then
            y1=y1+1
    End If    //防止溢出
    i=0
    For 21
        y(i) = int(y1-y2 + (y2 - y1)*(i+1) / 21)//y1到y2之间平均分割成21段，坐标换成椭圆相对坐标，存入数组
        x(i) = int(sqr((x2 - x1) ^ 2 * (1 - y(i) ^ 2 / (y2 - y1) ^ 2)))//根据椭圆公式，已知y，求x
        y(i) = y2 + y(i)
        If x2 > x1 Then
            x(i) = x1 + x(i)
        Else
            x(i) = x1 - x(i)
        End If       //椭圆坐标换回屏幕坐标
        MoveTo x(i), y(i)
        Delay 5
        i = i +1
    Next
End Function

星.月

换是能换，就是看不到你这张图的效果

1. 功能 模拟椭圆弧线(x2,y2)
   
2.     变量 i,x=数组[100],y=数组[100],x1,y1
   
3.     鼠标.获取坐标(x1,y1)
   
4.     //GetCursorPos x1, y1//得到当前鼠标位置
   
5.     如果(y1==y2)
   
6.         y1=y1+1
   
7.     如果结束
   
8.     //If y1 = y2 Then
   
9.             //y1=y1+1
   
10.     //End If    //防止溢出
    
11.     i=0
    
12.     遍历(21)
    
13.         y[i]=类型.取整(y1-y2+(y2-y1)*(i+1)/21)
    
14.         x[i]=类型.取整(数学.开方((x2-x1)*(x2-x1)*(1-y[i]*y[i]/((y2-y1)*(y2-y1)))))
    
15.         y[i]=y2+y[i]
    
16.         如果(x2>x1)
    
17.             x[i]=x1+x[i]
    
18.         否则
    
19.             x[i]=x1-x[i]
    
20.         如果结束
    
21.         鼠标.移动(x[i],y[i])
    
22.         辅助.等待(10)
    
23.         i=i+1
    
24.     遍历结束
    
25.     //For 21
    
26.         //y(i) = int(y1-y2 + (y2 - y1)*(i+1) / 21)//y1到y2之间平均分割成21段，坐标换成椭圆相对坐标，存入数组
    
27.         //x(i) = int(sqr((x2 - x1) ^ 2 * (1 - y(i) ^ 2 / (y2 - y1) ^ 2)))//根据椭圆公式，已知y，求x
    
28.         //y(i) = y2 + y(i)
    
29.         //If x2 > x1 Then
    
30.             //x(i) = x1 + x(i)
    
31.         //Else
    
32.             //x(i) = x1 - x(i)
    
33.         //End If       //椭圆坐标换回屏幕坐标
    
34.         //MoveTo x(i), y(i)
    
35.         //Delay 5
    
36.         //i = i +1
    
37.     //Next
    
38. 
    
39. 功能结束

复制代码

aimei_8866999

星.月 发表于 2013-12-23 23:25
换是能换，就是看不到你这张图的效果

效果是一样的,谢谢