心跳的感觉[控件移动]

afan

回复 30# C.L


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

C.L

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

1. 
   
2. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
   
3. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
   
4. GUICreate('test', 350, 130)
   
5. $cIco = GUICtrlCreateIcon($Ico, -1, 100, 100)
   
6. GUISetState()
   
7. 
   
8. While 1
   
9.         $nMsg = GUIGetMsg()
   
10.         Switch $nMsg
    
11.                         Case -3
    
12.                                         Exit
    
13.                         Case $cIco
    
14.                                 IcoMove ()       
    
15.         EndSwitch
    
16. WEnd
    
17. 
    
18. Func IcoMove()
    
19.                 For $y=500 To 1 Step -25
    
20.                         Circle ($y)
    
21.                 Next
    
22. EndFunc   ;==>IcoMove
    
23. 
    
24. Func Circle ($times)
    
25.         Local $v=0,$t,$s,$h=0,$g=9.8,$a=$times
    
26.         For $t=1 To $times
    
27.                 $v=Round (0.01*$a/$t,2)
    
28.                 $s=$v*$t
    
29.                 $a=$a-$g
    
30.                 $h+=$s
    
31.                 If $h <= 0 Then ExitLoop
    
32.                 ControlMove('test', '', $cIco, Default, 100-$h)
    
33.                 Sleep (30)
    
34.         Next
    
35.         $v=0
    
36.         $a=0
    
37.         $h=100
    
38.         For $t=1 To $times
    
39.                 $v=Round (0.01*$a/$t,2)               
    
40.                 $s=$v*$t
    
41.                 $a=$a+$g
    
42.                 $h+=$s
    
43.                 If $h >= 100 Then ExitLoop
    
44.                 ControlMove('test', '', $cIco, Default, $h)
    
45.                 Sleep (30)
    
46.         Next       
    
47. EndFunc
    
48.                
    

复制代码

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

乱七八糟的一段代码

1. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
   
2. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
   
3. GUICreate('test', 400, 640)
   
4. $cIco = GUICtrlCreateIcon($Ico, -1, 10, 10)
   
5. $dIco = GUICtrlCreateIcon($Ico, -1, 250, 10)
   
6. GUISetState()
   
7. 
   
8. While 1
   
9.     $nMsg = GUIGetMsg()
   
10.     Switch $nMsg
    
11.         Case -3
    
12.                         Exit
    
13.                 Case $cIco
    
14.                         heart_1()
    
15.                 Case $dIco
    
16.                         heart_2()
    
17.         EndSwitch
    
18. WEnd
    
19. 
    
20. Func heart_1()
    
21.         For $i = 0 To 60
    
22.                 GUICtrlSetPos($cIco, 10 + $i * 3, 10 + 4.9 * 0.03 * ($i + 1) ^ 2)
    
23.                 Sleep(30)
    
24.         Next
    
25.         Sleep(20)
    
26.         For $i = 60 To 0 Step -1
    
27.                 GUICtrlSetPos($cIco, 10 + $i * 3, 10 + 4.9 * 0.03 * ($i + 1) ^ 2)
    
28.                 Sleep(30)               
    
29.         Next
    
30. EndFunc
    
31. 
    
32. Func heart_2()
    
33.         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]
    
34.         For $j = 1 To 21
    
35.                 If mod($j, 2) <> 0 Then
    
36.                         Sleep(Round(200/$j))
    
37.                         For $i = $H[$j] To 105
    
38.                                 Sleep(10)
    
39.                                 GUICtrlSetPos($dIco, 250, 10 + 4.9 * 0.01 * ($i + 1) ^ 2)
    
40.                         Next
    
41.                 Else
    
42.                         For $i = 105 To $H[$j] Step -1
    
43.                                 Sleep(10)
    
44.                                 GUICtrlSetPos($dIco, 250, 10 + 4.9 * 0.01 * ($i + 1) ^ 2)
    
45.                         Next
    
46.                 EndIf
    
47.         Next
    
48. EndFunc       
    

复制代码

lokiey

很有意思，看看。

dddwd

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

dddwd

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