本帖最后由 gray 于 2011-4-19 13:48 编辑
回复 korli319 的帖子
;这个就是algroskill.pdf自带的例子程序(如果找不到这个文档,那就是你的Allegro版本不同了),稍微修改一下就可以拿来用
;YourSkillProcedure和YourTimerCallback都是自定义的函数,不是系统自带的。。。
;另外,www.pcbdb.com里面有很多有价值的资料,可以去看看。
procedure( YourSkillProcedure()
; set up a continuous timer using the main window ;这里是程序主函数
timerId = axlUIWTimerAdd(nil 2000 nil 'YourTimerCallback) ;新建一个计时器,关于axlUIWTimerAdd函数的参数可以去查文档,2000表示每隔2秒触发一次事件,调用YourTimerCallback函数,就把保存的方法写到这个函数里面来就可以了
;timerId->yourData = yourdata ) procedure( YourTimerCallback( window timerId elapsedTime) ;响应事件写到这里
;your time period has elapsed. do something. ) |