找回密码
 注册
关于网站域名变更的通知
查看: 1316|回复: 8
打印 上一主题 下一主题

谁知道这个SKILL是什么功能

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-8-19 23:32 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

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

x
(defun cal ()
aa=nil
bb=nil
cc=nil
dd=nil
ee=nil
ff=nil

createmyform()
myconvertform()

)

(defun myconvertform ()

myform=axlFormCreate( (gensym) mymainformfile nil 'myConv_Action t)
axlFormDisplay(myform)
t
)

(defun createmyform ()

drain()
mymainformfile = "myconv.form"
myform = outfile(mymainformfile "w")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 45 45\n")
fprintf(myform "HEADER \"Quick Cal V1.0\"\n")
fprintf(myform "TILE\n")

fprintf(myform "FIELD aa\n")
fprintf(myform "FLOC 3 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "TEXT \"+ \"\n")
fprintf(myform "TLOC 15 1\n")
fprintf(myform "ENDTEXT\n")

fprintf(myform "FIELD bb\n")
fprintf(myform "FLOC 16 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD add\n")
fprintf(myform "FLOC 28 1\n")
fprintf(myform "MENUBUTTON \"=\" 3 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD cc\n")
fprintf(myform "FLOC 32 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD dd\n")
fprintf(myform "FLOC 3 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "TEXT \"- \"\n")
fprintf(myform "TLOC 15 3\n")
fprintf(myform "ENDTEXT\n")

fprintf(myform "FIELD ee\n")
fprintf(myform "FLOC 16 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD red\n")
fprintf(myform "FLOC 28 3\n")
fprintf(myform "MENUBUTTON \"=\" 3 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD ff\n")
fprintf(myform "FLOC 32 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD reset\n")
fprintf(myform "FLOC 9 6\n")
fprintf(myform "MENUBUTTON \"Clear\" 8 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD exit\n")
fprintf(myform "FLOC 30 6\n")
fprintf(myform "MENUBUTTON \"Exit\" 8 3\n")
fprintf(myform "ENDFIELD\n")


fprintf(myform "\n")
fprintf(myform "ENDTILE\n")
fprintf(myform "\n")
fprintf(myform "ENDFORM\n")
close( myform)

)

(defun myConv_Action (myform)
        aa=evalstring(axlFormGetField(myform "aa"))
        bb=evalstring(axlFormGetField(myform "bb"))
        dd=evalstring(axlFormGetField(myform "dd"))
        ee=evalstring(axlFormGetField(myform "ee"))
(case myform->curField

cal.rar

809 Bytes, 下载次数: 2, 下载积分: 贡献 -30 , 威望 -10

skill code

  • TA的每日心情
    开心
    2025-6-7 15:41
  • 签到天数: 62 天

    [LV.6]常住居民II

    2#
    发表于 2012-10-13 11:03 | 只看该作者
    楼主高手啊  小弟只会用 不会写  不会读
      希望高手解答

    该用户从未签到

    3#
    发表于 2012-10-13 22:36 | 只看该作者
    楼主是要开课讲如何编写skill?运行效果如下
    功能就是实现两个数加和减

    QQ截图20121013223628.jpg (4.73 KB, 下载次数: 0)

    QQ截图20121013223628.jpg

    该用户从未签到

    4#
    发表于 2012-10-13 22:41 | 只看该作者
    十分怀疑楼主为赚分而来,我把楼主放在附件中没有直接贴出来的部分贴出来,积分不够的自己慢慢抄下来学习。
    (defun myConv_Action (myform)
            aa=evalstring(axlFormGetField(myform "aa"))
            bb=evalstring(axlFormGetField(myform "bb"))
            dd=evalstring(axlFormGetField(myform "dd"))
            ee=evalstring(axlFormGetField(myform "ee"))
    (case myform->curField

            ("add"
            cc=aa+bb
            axlFormSetField(myform "cc" cc)
             );
       
            ("red"
            ff=dd-ee
            axlFormSetField(myform "ff" ff)
            );
           
             ("reset"
            aa=nil
            bb=nil
            cc=nil
            dd=nil
            ee=nil
            ff=nil
            axlFormSetField(myform "aa" nil)
            axlFormSetField(myform "bb" nil)
            axlFormSetField(myform "cc" nil)
            axlFormSetField(myform "dd" nil)
            axlFormSetField(myform "ee" nil)
            axlFormSetField(myform "ff" nil)
            );
           
             ("exit"
            axlFormClose(myform)
            shell("rm -f myconv.form")
                    nil
            );
    )
    )

    axlCmdRegister( "cal" `cal)

    该用户从未签到

    5#
    发表于 2012-10-14 17:28 | 只看该作者
    十分怀疑楼主.

    该用户从未签到

    6#
     楼主| 发表于 2012-10-14 19:54 | 只看该作者
    当时确实为了赚分,现在不用了。呵呵!
    头像被屏蔽

    该用户从未签到

    7#
    发表于 2013-3-23 22:12 | 只看该作者
    提示: 作者被禁止或删除 内容自动屏蔽

    该用户从未签到

    9#
    发表于 2018-7-30 20:14 | 只看该作者
    看着论坛我突然笑了
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-6-9 21:24 , Processed in 0.093750 second(s), 27 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

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