心跳的感觉[控件移动]

afan

回复 30# C.L


    皮球型弹跳够自然了~ 我那个是气球~ 呵呵

C.L

回复 31# afan
气球只是质量小一点，我那里可以改质量，然后调整一下加速度，你看看下面这段象不象气球：

Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
GUICreate('test', 350, 130)
$cIco = GUICtrlCreateIcon($Ico, -1, 100, 100)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                        Case -3
                                        Exit
                        Case $cIco
                                IcoMove ()        
        EndSwitch
WEnd

Func IcoMove()
                For $y=500 To 1 Step -25
                        Circle ($y)
                Next
EndFunc   ;==>IcoMove

Func Circle ($times)
        Local $v=0,$t,$s,$h=0,$g=9.8,$a=$times
        For $t=1 To $times
                $v=Round (0.01*$a/$t,2)
                $s=$v*$t
                $a=$a-$g
                $h+=$s
                If $h <= 0 Then ExitLoop
                ControlMove('test', '', $cIco, Default, 100-$h)
                Sleep (30)
        Next
        $v=0
        $a=0
        $h=100
        For $t=1 To $times
                $v=Round (0.01*$a/$t,2)                
                $s=$v*$t
                $a=$a+$g
                $h+=$s
                If $h >= 100 Then ExitLoop
                ControlMove('test', '', $cIco, Default, $h)
                Sleep (30)
        Next        
EndFunc
                

afan

回复  afan
气球只是质量小一点，我那里可以改质量，然后调整一下加速度，你看看下面这段象不象气球：
C.L 发表于 2010-4-21 00:21

    果真，效果非常自然，学习了~

lxz

学习高手们的技术.

waxy

虽然插不上手，但afan的贴子一定是要顶一下的。

水木子

我在想当球落地的时候稍微改变球的形状，是不是更真实些呢！

lxz

我在想当球落地的时候稍微改变球的形状，是不是会真实呢！
水木子 发表于 2010-4-21 09:08

    我也很想知道.

wasd

有意思，不错啊

afan

我在想当球落地的时候稍微改变球的形状，是不是更真实些呢！
水木子 发表于 2010-4-21 09:08

    那个只怕用flash方便很多吧（我不会做flash... gif的效果也不好），要不就得做多个ico图标...

superpangya

呵呵,学习了....

xwlzx

牛人们，都这么熬夜，身体才是革命的本钱啊！学习AU3，可别忘了本钱！

298311657

乱七八糟的一段代码

Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
GUICreate('test', 400, 640)
$cIco = GUICtrlCreateIcon($Ico, -1, 10, 10)
$dIco = GUICtrlCreateIcon($Ico, -1, 250, 10)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
                        Exit
                Case $cIco
                        heart_1()
                Case $dIco
                        heart_2()
        EndSwitch
WEnd

Func heart_1()
        For $i = 0 To 60
                GUICtrlSetPos($cIco, 10 + $i * 3, 10 + 4.9 * 0.03 * ($i + 1) ^ 2)
                Sleep(30)
        Next
        Sleep(20)
        For $i = 60 To 0 Step -1
                GUICtrlSetPos($cIco, 10 + $i * 3, 10 + 4.9 * 0.03 * ($i + 1) ^ 2)
                Sleep(30)                
        Next
EndFunc

Func heart_2()
        Dim $H[22] = [0, 0, 15, 30, 41, 52, 62, 70, 77, 83, 88, 92, 95, 97, 99, 101, 102, 103, 104, 104, 104, 104]
        For $j = 1 To 21
                If mod($j, 2) <> 0 Then
                        Sleep(Round(200/$j))
                        For $i = $H[$j] To 105
                                Sleep(10)
                                GUICtrlSetPos($dIco, 250, 10 + 4.9 * 0.01 * ($i + 1) ^ 2)
                        Next
                Else
                        For $i = 105 To $H[$j] Step -1
                                Sleep(10)
                                GUICtrlSetPos($dIco, 250, 10 + 4.9 * 0.01 * ($i + 1) ^ 2)
                        Next
                EndIf
        Next
EndFunc        

lokiey

很有意思，看看。

dddwd

呵呵呵呵呵呵呵呵呵嗬嗬嗬嗬

dddwd

呵呵呵呵呵呵呵呵呵呵呵额呵呵