Allegro 界面的时钟

chuankay

今天要放假了 ，比较激动，本想写个倒计时的代码的，觉得被领导发现不好，写个时钟，还能复习函数。(注：之前发的代码有误，优化后没有及时测试，代码可能不是最简洁的，大家有意见，多提，共同进步。）

时钟效果

1. ;  load("clock.il")
   
2. ;  by chen_ck
   
3. ; allegro-skill论坛学习交流用
   
4. 
   
5. axlCmdRegister("clock" ,'clock)
   
6. axlCmdRegister("stop" , 'stop)
   
7. defun( clock ()
   
8. 
   
9.         gc()
   
10.         S = nil
    
11.         M = nil
    
12.         H = nil
    
13.         if(boundp('timerIDS) || boundp('timerIDM) || boundp('timerIDH)
    
14.                 then
    
15.                         stop()
    
16.         );if
    
17.         initializer_time()
    
18.         axlClearSelSet()
    
19.         axlSetFindFilter(?enabled list("noall" "lines") ?onButtons list("noall" "lines"))
    
20.         lines = axlGetSelSet(axlAddSelectAll())
    
21.         foreach(db lines
    
22.                 cond(
    
23.                         (db->layer == "BOARD GEOMETRY/OUTLINE" S = db)
    
24.                         (db->layer == "ETCH/TOP" M = db)
    
25.                         (db->layer == "ETCH/BOTTOM" H = db)
    
26.                         );cond
    
27.         );foreach               
    
28.         timerIDS = nil
    
29.         timerIDM = nil
    
30.         timerIDH = nil        
    
31.         timerIDS = axlUIWTimerAdd(nil 1000 nil 'updateS)
    
32.         timerIDM = axlUIWTimerAdd(nil 60000 nil 'updateM)
    
33.         timerIDH = axlUIWTimerAdd(nil 3600000 nil 'updateH)
    
34. );defun
    
35. 
    
36.         
    
37. defun(updateS (window timerIDS elapseTime)
    
38.         axlTransformObject(S, ?angle -6 ?origin 0:0)
    
39. );defun
    
40. defun(updateM (window timerIDM elapseTime)
    
41.         axlTransformObject(M, ?angle -6 ?origin 0:0)
    
42. );defun
    
43. defun(updateH (window timerIDH elapseTime)
    
44.         axlTransformObject(H, ?angle -6 ?origin 0:0)
    
45. );defun
    
46.         
    
47. defun( initializer_time ()
    
48. 
    
49.         time = nth(2 parseString(getCurrentTime()))        
    
50.         timeH = atoi(car(parseString(time ":")))
    
51.         timeM = atoi(cadr(parseString(time ":")))
    
52.         timeS = atoi(caddr(parseString(time ":")))
    
53. 
    
54.         S = caar(axlDBCreateLine( (list 0:0 0:400), 10, "BOARD GEOMETRY/OUTLINE"))
    
55.         M = caar(axlDBCreateLine( (list 0:0 0:360), 20, "ETCH/TOP"))
    
56.         H = caar(axlDBCreateLine( (list 0:0 0:300), 40, "ETCH/BOTTOM"))
    
57.         axlDBCreateCircle( list(0:0 500) , 5 , "PACKAGE GEOMETRY/PLACE_BOUND_TOP")
    
58.         axlDBCreateCircle( list(0:0 450) , 5 , "PACKAGE GEOMETRY/PLACE_BOUND_TOP")
    
59.         BAR = caar(axlDBCreateLine( (list 0:360 0:420), 25, "PACKAGE GEOMETRY/PLACE_BOUND_TOP"))
    
60.         for(i 1 11
    
61.                 angle_ = i * 30
    
62.                 axlCopyObject(BAR , ?angle eval(angle_) ?origin 0:0)
    
63.         );for
    
64.         myorient = make_axlTextOrientation(?textBlock "7", ?rotation 0.0,?mirrored nil, ?justify "center")
    
65.         axlDBCreateText("CHEN_CK", 0:165, myorient,"PACKAGE GEOMETRY/PLACE_BOUND_TOP", nil)
    
66.                
    
67.         axlTransformObject(S, ?angle -timeS * 6 ?origin 0:0)
    
68.         axlTransformObject(M, ?angle -timeM * 6 ?origin 0:0)
    
69.         axlTransformObject(H, ?angle (-timeH + 12 - timeM / 60.0) * 30 , ?origin 0:0)
    
70. );defun
    
71.         
    
72. defun( stop ()
    
73.         axlUIWTimerRemove(timerIDS)
    
74.         axlUIWTimerRemove(timerIDM)
    
75.         axlUIWTimerRemove(timerIDH)
    
76.         );defun stop

复制代码

vivienluo

这个很不错，很有创意。。。。楼主强人啊。。。。{:soso__8968018481728829654_1:}

hayden

顶一个！！

chuankay

子木 发表于 2013-6-9 21:45
咋加载成功后没画面啊

不好意思刚开始清零有问题：boundp('timerIDS) || boundp('timerIDM) || boundp('timerIDH)
有一处s应该是大写，写成小写了。快下班了比较激动优化完没有测试一下，实在抱歉。

PCB设计专家

chuankay

子木 发表于 2013-6-14 21:46
我把那处小写的换成大写后还是没画面，出现如下提示

HI 子木：显示的文字应该是在编译器里面显示的吧，第一函数就是 clock() 就是主函数，在编译器中运行clock()就可以了啊（要一个空白的brd哦，我参考的函数是16.5的），建议重新复制代码试试看，函数都比较简单，看看提提错！

chuankay

子木 发表于 2013-6-15 20:52
哦，是有前提条件嗖

是的呀 随便写写的 只为简单实现功能 没考虑太多 所以导致功能实现局限性

chuankay

子木 发表于 2013-6-16 10:51
不过很有创意

之前发一个帖子关于form中加动态logo的，只是提了下，所以这个贴也是为了补充如何加动态logo的主题，有兴趣可以试试加一个动态logo啊。

chuankay

子木 发表于 2013-6-17 22:57
如果在16.3上面显示，需要怎么修改代码呢？

函数比较简单，虽然是参考16.5的函数，但是在16.3上应该适用，我记得截图就是16.3版本的。

chuankay

子木 发表于 2013-6-18 18:55
是吗，为啥我这里加载成功后还是没画面啊？

HI 子木：
       刚试了一下，时钟的是在原点生成的，如果原点比较偏也是不行的，下图是刚刚生成的钟表图，对照函数看看吧，里面还有些地方写的不合理，看了多指正。