找回密码  加入

AUTOIT CN

搜索
查看: 42477|回复: 126

[效率算法] 心跳的感觉[控件移动]

[复制链接]
发表于 2010-4-19 23:36:49 | 显示全部楼层 |阅读模式
本帖最后由 afan 于 2010-4-19 23:56 编辑

没错,真的是心跳的感觉~~~
虽然最近很忙乱,但也要偷闲。让那个啥疼一下……

请教大家,能否让(附件中的)这颗心跳动得还自然一些?

;练习之界面代码:
  1. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
  2. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
  3. GUICreate('test', 350, 130)
  4. $cIco = GUICtrlCreateIcon($Ico, -1, 100, 100)
  5. GUISetState()
  6. While 1
  7.         $nMsg = GUIGetMsg()
  8.         Switch $nMsg
  9.                 Case -3
  10.                         Exit
  11.                 Case $cIco
  12.                         Msgbox(0, 0, '让心跳动起来')

  13.         EndSwitch
  14. WEnd
复制代码
;
;以下是本菜鸟做的练习,不影响各位有心人的思路,特此隐藏~
;我想主要的问题是把握节奏的算法~ 但这个感觉貌似难把握~
游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2010-4-19 23:51:15 | 显示全部楼层
沙发,这么晚了,来看看
发表于 2010-4-20 00:10:06 | 显示全部楼层
来看看........
发表于 2010-4-20 01:09:35 | 显示全部楼层
来看看先       ....................
发表于 2010-4-20 02:33:20 | 显示全部楼层
来看看先       ....................
发表于 2010-4-20 03:43:01 | 显示全部楼层
来看看先       ....................
 楼主| 发表于 2010-4-20 04:08:32 | 显示全部楼层
各位还不睡啊,天快亮了……
发表于 2010-4-20 04:45:42 | 显示全部楼层
插个FLASH
发表于 2010-4-20 11:25:46 | 显示全部楼层
  1. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
  2. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
  3. GUICreate('test', 350, 130)
  4. $cIco = GUICtrlCreateIcon($Ico, -1, -1,40, 35)
  5. GUISetState()
  6. While 1
  7.         $nMsg = GUIGetMsg()
  8.         Switch $nMsg
  9.             Case -3
  10.                         Exit
  11.             Case $cIco
  12.                         ;Msgbox(0, 0, '让心跳动起来')
  13.                                 For $i=1 To 100
  14.                                         GUICtrlSetPos($cIco,0,1*$i,40,35)
  15.                                         Sleep(50)
  16.                                 Next
  17.                         EndSwitch
  18. WEnd
复制代码

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

发表于 2010-4-20 12:12:47 | 显示全部楼层
呵呵,看看先。。
 楼主| 发表于 2010-4-20 12:43:50 | 显示全部楼层
插个FLASH
nmgwddj 发表于 2010-4-20 04:45


Flash是属于特殊的,自身会动。这里仅讨论下某种意义上的静态控件的规律移动~
如果能定义个2维数组(包含时间、高程),这个问题应该很简单。
发表于 2010-4-20 13:17:45 | 显示全部楼层
上来就看见afan出了个好题,好玩就做了一个,按一下就不停的跳,再按一下停止,挺好玩的,哈哈~~
代码:

  1. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
  2. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'
  3. GUICreate('test', 350, 130)
  4. $cIco = GUICtrlCreateIcon($Ico, -1, 100, 50,32,32)
  5. GUISetState()
  6. $f=1
  7. $g=0
  8. While 1
  9.         $nMsg = GUIGetMsg()
  10.                 Switch $nMsg
  11.                         Case -3
  12.                                         Exit
  13.                         Case $cIco
  14. ;~          Msgbox(0, 0, '让心跳动起来')
  15.                         $t=TimerInit ()
  16.                                 $g = Not $g
  17.                                 While $g
  18.                                         $nMsg = GUIGetMsg()
  19.                                         If $nMsg == -3 Then Exit
  20.                                         If $nMsg == $cIco Then
  21.                                                 If $g Then MsgBox (0,"","你干嘛,会死人的!")
  22.                                                 $g = Not $g
  23.                                         EndIf
  24.                                         $time = Round ( TimerDiff($t)/1000,1)*10
  25.                                         $jump = Mod ( $time, 10)
  26.                                         If $jump == 0 Then
  27.                                                 GUICtrlDelete ($cIco)
  28.                                                 $cIco = GUICtrlCreateIcon($Ico, -1, 95, 45,42,42)
  29.                                                 Sleep (80)
  30.                                                 GUICtrlDelete ($cIco)
  31.                                                 $cIco = GUICtrlCreateIcon($Ico, -1, 100, 50,32,32)
  32.                                         EndIf
  33.                                 WEnd
  34.         EndSwitch
  35. WEnd


复制代码

评分

参与人数 1金钱 +40 收起 理由
afan + 40 呵呵

查看全部评分

 楼主| 发表于 2010-4-20 13:21:18 | 显示全部楼层
回复 12# C.L


    泡MM的好代码,哈~
发表于 2010-4-20 13:25:05 | 显示全部楼层
回复 13# afan

泡MM我倒是没想到,被你提醒了,哈哈~
发表于 2010-4-20 13:39:49 | 显示全部楼层
重在参与!
  1. #include <GUIConstantsEx.au3>
  2. #include <WindowsConstants.au3>

  3. Dim $P = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
  4. Dim $Ico = $P & '\Aut2Exe\Icons\strawberry.ico'

  5. $hGui = GUICreate('test', 300, 300)
  6. $cIcoa = GUICtrlCreateIcon($Ico, -1, 130, 150)
  7. $cIcob = GUICtrlCreateIcon($Ico, -1, 130, 150, 40, 40)
  8. GUICtrlSetState(-1, $GUI_HIDE)
  9. GUISetState()
  10. AdlibRegister('Mobile', 800)

  11. While 1
  12.         $nMsg = GUIGetMsg()
  13.         Switch $nMsg
  14.                 Case - 3
  15.                         Exit
  16.         EndSwitch
  17. WEnd

  18. Func Mobile()
  19.         GUICtrlSetState($cIcoa, $GUI_HIDE)
  20.         GUICtrlSetState($cIcob, $GUI_SHOW)
  21.         Sleep(500)
  22.         GUICtrlSetState($cIcob, $GUI_HIDE)
  23.         GUICtrlSetState($cIcoa, $GUI_SHOW)
  24. EndFunc   ;==>Mobile
复制代码

评分

参与人数 1金钱 +30 收起 理由
afan + 30

查看全部评分

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2021-7-24 04:27 , Processed in 0.218750 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表