关于 OpenDCL 的 dcl_delayedinvoke 延迟函数

yxpxa

OpenDCL自带的延迟函数好像只能用于非模式窗口，而且要键盘动一下，这个函数就会被中断
大家可以试试 odcl 自带的那个例子，显示软件封面的那个倒计时动画。


演示一下

1. ;;小东空间  
   
2. (defun c:fla()
   
3. (dcl_project_load "flash.odcl" t)
   
4. (dcl_form_show flash_form1)
   
5. )
   
6. 
   
7. (defun c:flash_Form1_TextButton2_OnClicked (/)
   
8. (setq x 14 y 14)
   
9. (setq stop t speed 0.2)
   
10. (dcl_Control_SetCaption flash_Form1_Label1 (rtos spedd))
    
11. (smove)
    
12. )
    
13. (defun c:flash_Form1_TextButton3_OnClicked (/)
    
14. (setq stop nil)
    
15. )
    
16. 
    
17. (defun smove()
    
18. (while stop
    
19.   (delay speed)
    
20.   (if (and f+ (> y 256))(setq f+ nil))
    
21.   (if (null f+)(setq y (- y 4)))
    
22.   (if (and (null f+) (< y 12))(setq f+ t))
    
23.   (if f+ (setq y (+ y 4)))
    
24.   (if (and g+ (> x 364))(setq g+ nil))
    
25.   (if (null g+)(progn(setq x (- x 4))
    
26.   (dcl_Control_SetPicture flash_Form1_PictureBox1 102)))
    
27.   (if (and (null g+) (< x 12))(setq g+ t))
    
28.   (if g+ (progn(setq x (+ x 4))
    
29.   (dcl_Control_SetPicture flash_Form1_PictureBox1 103)))
    
30.   (dcl_Control_SetPos flash_Form1_PictureBox1 x y)
    
31. ; (dcl_Control_SetPos flash_Form1_PictureBox2 c d)
    
32.   (dcl_Control_Redraw flash_Form1)
    
33. )
    
34. )
    
35. (defun c:flash_Form1_TextButton1_OnClicked (/) ;;加速
    
36. (if (> speed 0.05) (setq speed (- speed 0.03)))
    
37. (dcl_Control_SetCaption flash_Form1_Label1 (rtos speed))
    
38. )
    
39. (defun c:flash_Form1_TextButton4_OnClicked (/) ;;减速
    
40. (if (< speed 2) (setq speed (+ speed 0.04)))
    
41. (dcl_Control_SetCaption flash_Form1_Label1 (rtos speed))
    
42. )
    
43. (defun c:flash_Form1_TextButton5_OnClicked (/)
    
44. (setq stop nil)
    
45. (dcl_Form_Close flash_Form1)
    
46. )
    
47. (defun delay (sec / secs)
    
48. (setq secs (getvar "date")
    
49.        basetime (* 86400.0 (- secs (fix secs)))
    
50.        seconds basetime)
    
51. (while (not (< (+ basetime sec) seconds))
    
52.     (setq secs (getvar "date")
    
53.        seconds (* 86400.0 (- secs (fix secs))))   
    
54.     )
    
55. )
    
56. 
    

;;小东空间  <br /> (defun c:fla()<br /> (dcl_project_load "flash.odcl" t)<br /> (dcl_form_show flash_form1)<br /> )<br /> <br /> (defun c:flash_Form1_TextButton2_OnClicked (/)<br /> (setq x 14 y 14)<br /> (setq stop t speed 0.2)<br /> (dcl_Control_SetCaption flash_Form1_Label1 (rtos spedd))<br /> (smove)<br /> )<br /> (defun c:flash_Form1_TextButton3_OnClicked (/)<br /> (setq stop nil)<br /> )<br /> <br /> (defun smove()<br /> (while stop <br />   (delay speed)<br />   (if (and f+ (> y 256))(setq f+ nil))<br />   (if (null f+)(setq y (- y 4)))<br />   (if (and (null f+) (< y 12))(setq f+ t))<br />   (if f+ (setq y (+ y 4)))<br />   (if (and g+ (> x 364))(setq g+ nil))<br />   (if (null g+)(progn(setq x (- x 4))<br />   (dcl_Control_SetPicture flash_Form1_PictureBox1 102)))<br />   (if (and (null g+) (< x 12))(setq g+ t))<br />   (if g+ (progn(setq x (+ x 4))<br />   (dcl_Control_SetPicture flash_Form1_PictureBox1 103)))<br />   (dcl_Control_SetPos flash_Form1_PictureBox1 x y)<br /> ; (dcl_Control_SetPos flash_Form1_PictureBox2 c d)<br />   (dcl_Control_Redraw flash_Form1)<br /> )<br /> )<br /> (defun c:flash_Form1_TextButton1_OnClicked (/) ;;加速<br /> (if (> speed 0.05) (setq speed (- speed 0.03)))<br /> (dcl_Control_SetCaption flash_Form1_Label1 (rtos speed))<br /> )<br /> (defun c:flash_Form1_TextButton4_OnClicked (/) ;;减速<br /> (if (< speed 2) (setq speed (+ speed 0.04)))<br /> (dcl_Control_SetCaption flash_Form1_Label1 (rtos speed))<br /> )<br /> (defun c:flash_Form1_TextButton5_OnClicked (/)<br /> (setq stop nil)<br /> (dcl_Form_Close flash_Form1)<br /> )<br /> (defun delay (sec / secs)<br /> (setq secs (getvar "date")<br />        basetime (* 86400.0 (- secs (fix secs)))<br />        seconds basetime)<br /> (while (not (< (+ basetime sec) seconds))<br />     (setq secs (getvar "date")<br />        seconds (* 86400.0 (- secs (fix secs))))    <br />     )<br /> )<br /> <br />

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:fla.rar 
下载次数:15  文件大小:13.52 KB 
下载权限: 不限 以上  [免费赚D豆]

Lispboy

模式框也应该能用，不过你要不断的 CLOSE,SHOW对话框吧。

拉契

虽然看不懂，但是支持源码 {:soso__3409329614010722382_3:}

牢固

dcl_delayedinvoke在模态对话框上是无用的！模态对话框是要在对话框关闭后才能执行其他命令，所以dcl_delayedinvoke执行的函数要在模态对话框关闭后才能执行！所以dcl_delayedinvoke函数在模态对话框里就没有任何意义了！