[弹指神通]：颠覆传统！纯 Lisp 也玩多线程开发

nonsmall · 发表于 2009-8-10 10:34:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

长期以来，大家都认为Lisp不能实现类似VB那样的计时器控件效果，

在一段代码循环中还可以做其他事情。

我就想纯Lisp 是否能够实现这样的效果？

经过几天的研究，我终于找到一种方法，

可以实现Lisp在循环过程中接受其他输入的方法。

这样就能实现类似游戏的那种自动化效果了。^_^

我用的是纯Lisp+DCL代码，没有别的语言做控件什么的，也没去调用VB VBS VBA等其他的东西。

计时的部分使用的代码是Lisp自己的那种。O(∩_∩)O~

注意时间在自动更新，同时可以接受输入

nonsmall · 发表于 2009-8-10 10:35:41

验证DCL代码如下：

jx2008 · 发表于 2009-8-11 16:38:45

没人坐沙发啊，可怜！

egos · 发表于 2009-8-11 23:13:06

这些东西很有用应该让更多的人关注起来

nonsmall · 发表于 2009-8-12 09:34:45

即时感知用户输入也很简单:
(while T
      (set_tile "Text2" (get_tile "Text1"))
      (set_tile "time" time)
      (WaitingForInput 100)
)

CUTEE · 发表于 2009-8-21 09:48:51

虽然下载不了，也要顶一下，感觉不错

lixiangdfeng · 发表于 2009-8-23 08:16:38

下载不了????/

libo2000 · 发表于 2009-8-23 21:26:27

晓东的下载系统老是出问题。

xyz518mm · 发表于 2009-8-24 09:23:40

下载不了阿
希望快点恢复~

netbee · 发表于 2009-8-24 21:52:42

效率上怎么样？CPU占用率？

nonsmall · 发表于 2009-8-25 09:13:11

CPU占用比较少,不影响CAD正常操作

nonsmall · 发表于 2009-8-25 09:20:34

代码如下:

xyz518mm · 发表于 2009-8-28 07:54:48

最初由 nonsmall 发布
[B]代码如下: [/B]

是否也可以提供一份至您的"永硕Ｅ盘"分享,
不然都无法在这论坛下载学习.
谢谢!

nonsmall · 发表于 2009-9-1 17:46:05

nonsmall.ys168.com

wanzi568 · 发表于 2018-8-24 21:26:07

为什么代码都看不到呢？

账号		自动登录	找回密码
密码			立即注册

[弹指神通]：颠覆传统！纯 Lisp 也玩多线程开发

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子