论坛 › 『 谈天说地 』 › 好久没来论坛了，今天无聊，画圈玩~

taliove 发表于 2012-7-13 17:29:17

好久没来论坛了，今天无聊，画圈玩~

最近都在玩C#。同样无聊的童鞋来画圈吧。
Global $r = 100 ;半径
Global $x = @DesktopWidth/2,$y = @DesktopHeight/2

For $ii        = 1 To 2
        OneCirle()
Next


Func OneCirle()
        For $xx = $x - $r To $r + $x Step 1
                $zz = $r ^ 2 - ($xx - $x) ^ 2
                $yy = Sqrt(Abs($zz)) + $y
                MouseMove($xx,$yy,1)
        Next
        For $xx = $x + $r To $x - $r Step -1
                $zz = $r ^ 2 - ($xx - $x) ^ 2
                $yy = $y - Sqrt(Abs($zz))
                MouseMove($xx,$yy,1)
        Next
EndFunc

wsfda 发表于 2012-7-13 18:01:09

楼主开始玩C#了?

taliove 发表于 2012-7-14 20:32:04

回复 3# sliqi

C#入门很容易，我以前从未玩过C#，但是一开始就可以做东西了。
C#唯一不爽的地方，就是很多电脑上面都需要安装.net
而且每个版本的.net框架都不一样上下兼容的。这一点是最蛋疼的。

xiaowo 发表于 2012-7-16 23:41:21

原来AU3的自动化操作可以做到这样，学习了……消化一下……

seniors 发表于 2012-7-17 20:03:06

Global $r = 100 ;半径
Global $pi = 3.14159265358979
Global $degToRad = $pi / 180
Global $Ox = @DesktopWidth/2,$Oy = @DesktopHeight/2

For $ii      = 1 To 2
      OneCirle()
Next


Func OneCirle()
      For $ang = 0 To 360 Step 1
                $xx = $Ox +$r *Sin($ang * $degToRad)
                $yy = $Oy +$r *Cos($ang * $degToRad)
                MouseMove($xx,$yy,1)
      Next
EndFunc
匀速转两圈

查看完整版本: 好久没来论坛了，今天无聊，画圈玩~