论坛风格切换切换到宽版
<b>Allegro羊皮卷</b>

Allegro羊皮卷

求微雪电

求微雪电

菜鸟作业-

菜鸟作业-

0507-菜鸟作

0507-菜鸟作

VK2C22A/B LQFP

VK2C22A/B LQFP

作业-J28GT-R

作业-J28GT-R

发帖 回复
返回列表  提醒：不能用迅雷等P2P下载，否则下载失败，标(二级)的板块,需二级才能下载，没二级不要购买，下载不了
  • 1117阅读
  • 2回复

SKILL源程序共享_MM转MIL，且附带计算器功能 [复制链接]

 上一主题 下一主题
离线sumi
二级逆天
 

性别:
人妖
发帖
47
金币
136
提示：会员销售的附件,下载积分 = 版块积分 + 销售积分       只看楼主 倒序阅读 使用道具 0楼 发表于: 2020-11-14
关键词： 程序设计PCBA
SKILL源程序共享_MM转MIL，且附带计算器功能 VJ;'$SYx  
有交流skill的可以联系哦 i g?]kZ  
复制代码
  1. ;
  2. ;
  3. ;
  6. (defun _cale_Form ()
  7.         FORMFILE = outfile( "./cale.form")
  8.         fprintf( FORMFILE "FILE_TYPE=FORM_DEFN VERSION=2\n")
  9.         fprintf( FORMFILE "FORM\n")
  10.         fprintf( FORMFILE "FIXED\n")
  11.         fprintf( FORMFILE "PORT 40 13\n")
  12.         fprintf( FORMFILE "HEADER \"Cale V1.0\"\n")
  13.         fprintf( FORMFILE "\n")
  14.         fprintf( FORMFILE "TILE\n")
  15.     
  16.         fprintf( FORMFILE "FIELD value_show\n")
  17.         fprintf( FORMFILE "FLOC 2 1\n")
  18.         fprintf( FORMFILE "STRFILLIN 20 100\n")
  19.         fprintf( FORMFILE "ENDFIELD\n")
  20.         fprintf( FORMFILE "\n")
  21.         
  22.         fprintf( FORMFILE "TEXT \"=\"\n")
  23.         fprintf( FORMFILE "TLOC  25 1\n")
  24.         fprintf( FORMFILE "ENDTEXT\n\n")
  25.         
  26.         fprintf( FORMFILE "FIELD jieguo\n")
  27.         fprintf( FORMFILE "FLOC 27 1\n")
  28.         fprintf( FORMFILE "REALFILLIN 10 100\n")
  29.         fprintf( FORMFILE "ENDFIELD\n")
  30.         fprintf( FORMFILE "\n")
  31.         
  32.         fprintf( FORMFILE "FIELD mils\n")
  33.         fprintf( FORMFILE "FLOC 2 4\n")
  34.         fprintf( FORMFILE "REALFILLIN 10 100\n")
  35.         fprintf( FORMFILE "ENDFIELD\n")
  36.         fprintf( FORMFILE "\n")
  37.         
  38.         fprintf( FORMFILE "TEXT \"mils\"\n")
  39.         fprintf( FORMFILE "TLOC  15 4\n")
  40.         fprintf( FORMFILE "ENDTEXT\n\n")
  41.         
  42.         fprintf( FORMFILE "FIELD mm\n")
  43.         fprintf( FORMFILE "FLOC 22 4\n")
  44.         fprintf( FORMFILE "REALFILLIN 10 100\n")
  45.         fprintf( FORMFILE "ENDFIELD\n")
  46.         fprintf( FORMFILE "\n")
  47.         
  48.         fprintf( FORMFILE "TEXT \"mm\"\n")
  49.         fprintf( FORMFILE "TLOC  35 4\n")
  50.         fprintf( FORMFILE "ENDTEXT\n\n")
  51.         
  52.     fprintf( FORMFILE "FIELD clear\n")
  53.     fprintf( FORMFILE "FLOC 10 7\n")
  54.     fprintf( FORMFILE "MENUBUTTON \"Clear\" 5 3\n")
  55.         fprintf( FORMFILE "ENDFIELD\n")
  56.        fprintf( FORMFILE "\n")
  59.     fprintf( FORMFILE "FIELD exit\n")
  60.     fprintf( FORMFILE "FLOC 25 7\n")
  61.     fprintf( FORMFILE "MENUBUTTON \"EXIT\" 5 3\n")
  62.         fprintf( FORMFILE "ENDFIELD\n")
  63.            fprintf( FORMFILE "\n")
  64.                 
  65.         fprintf( FORMFILE "ENDTILE\n")
  66.         fprintf( FORMFILE "\n")
  67.         fprintf( FORMFILE "ENDFORM\n")
  68.         close( FORMFILE)
  69.         form = (axlFormCreate (gensym) "cale.form" `("E" "OUTER") `cale_Callback t)
  70.         axlFormDisplay( form)
  71.         axlFormSetDecimal(form "jieguo" 4)
  72.         axlFormSetDecimal(form "mils" 3)
  73.         axlFormSetDecimal(form "mm" 4)
  74.         deleteFile( "cale.form")
  75.         s = ""
  76.         m1 = 0.0
  77.         m2 = 0.0
  78.         m3 = 0.0
  79.         a = ""
  80. )
  82. (defun cale_Callback (form)
  83. (prog ()
  84.     case( form->curField
  85.           ("value_show"
  86.               t1=1
  87.               i=1
  88.               s = form->curValue
  89.               while(t1==1
  90.                     a=symbolToString(getchar(s i))
  91.                     i++
  92.                     case(a
  93.                          ("+"
  94.                            t1=0
  95.                            m1_c= car(parseString(s "+"))
  96.                            m2_c= nthelem(2 parseString(s "+"))
  97.                            sscanf(m1_c "%f" m1 )
  98.                            sscanf(m2_c "%f" m2 )
  99.                            m3=m1+m2
  100.                           )
  101.                          ("-"
  102.                            t1=0
  103.                            m1_c= car(parseString(s "-"))
  104.                            m2_c= nthelem(2 parseString(s "-"))
  105.                            sscanf(m1_c "%f" m1 )
  106.                            sscanf(m2_c "%f" m2 )
  107.                            m3=m1-m2
  108.                           )
  109.                          ("*"
  110.                            t1=0
  111.                            m1_c= car(parseString(s "*"))
  112.                            m2_c= nthelem(2 parseString(s "*"))
  113.                            sscanf(m1_c "%f" m1 )
  114.                            sscanf(m2_c "%f" m2 )
  115.                            m3=m1*m2
  116.                           )
  117.                          ("/"
  118.                            t1=0
  119.                            m1_c= car(parseString(s "/"))
  120.                            m2_c= nthelem(2 parseString(s "/"))
  121.                            sscanf(m1_c "%f" m1 )
  122.                            sscanf(m2_c "%f" m2 )
  123.                            m3=m1/m2
  124.                           )
  125.                         )
  126.                      axlFormSetField( form "jieguo" m3)
  127.                    );end while
  128.            t)
  129.           
  130.            ("mils"
  131.               mils = form->curValue
  132.               mm = axlMKSConvert( mils "MILS" "MM")
  133.               axlFormSetField( form "mm" mm)
  134.            t)
  135.           
  136.            ("mm"
  137.               mm = form->curValue
  138.               mils = axlMKSConvert( mm "MM" "MILS")
  139.               axlFormSetField( form "mils" mils)
  140.            t)
  141.           
  142.            ("clear"
  143.              axlFormSetField( form "value_show" nil)
  144.              axlFormSetField( form "jieguo" nil)
  145.              axlFormSetField( form "mils" nil)
  146.              axlFormSetField( form "mm" nil)
  147.            t)
  148.            ("exit"
  149.              axlFormClose(form)
  150.            t)
  152.       )
  153. ))
  154.     
  155. axlCmdRegister( "cale" `_cale_Form)
VLQfuh;  
=faV,o&{`  
P6IhpB59  
MM转MIL，且附带计算器功能 SKILL源程序共享_MM转MIL，且附带计算器功能.7z (2 K) 下载次数:0 SKILL源程序共享_MM转MIL，且附带计算器功能 -O(.J'=8  


评价一下你浏览此帖子的感受

精彩
感动
搞笑
开心
愤怒
一般
差劲
回复
举报
离线xjz632
二级逆天

性别:
帅哥
发帖
3368
金币
15
提示：会员销售的附件,下载积分 = 版块积分 + 销售积分       只看该作者 1楼 发表于: 2021-02-19
    


回复
举报
离线the_lagacy_
二级逆天

性别:
人妖
发帖
70
金币
735
提示：会员销售的附件,下载积分 = 版块积分 + 销售积分       只看该作者 2楼 发表于: 2022-09-27
非常好用


回复
举报
发帖 回复
返回列表
快速回复
限150 字节
 
上一个 下一个