EDA365电子工程师网

标题: 求高手指点下代码是否可以精减一下！！ [打印本页]
作者: ghfghyb    时间: 2013-6-14 09:24
标题: 求高手指点下代码是否可以精减一下！！
以下是我喜欢精减的代码！
附件是整个skill的原码！主要想通过软件入的方式做出一个阻抗表！！
这是我早期做的表，现在想精减一下，或者请高手们指一点别的指令也能实现这个功能！！

谢谢！！
  1.         case(myform->curField
  2.                                                
  3.                         ("SW0"
  4.                                 zzSW[0] = myform->curValue

  6.                         )
  7.                        
  8.                         ("SW1"
  9.                                 zzSW[1] = myform->curValue
  10.                                
  11.                         )
  12.                        
  13.                         ("SW2"
  14.                                 zzSW[2] = myform->curValue
  15.                                
  16.                         )
  17.                        
  18.                         ("SW3"
  19.                                 zzSW[3] = myform->curValue
  20.                                
  21.                         )
  22.                        
  23.                         ("SW4"
  24.                                 zzSW[4] = myform->curValue
  25.                                
  26.                         )
  27.                        
  28.                         ("SW5"
  29.                                 zzSW[5] = myform->curValue
  30.                        
  31.                         )
  32.                        
  33.                         ("SW6"
  34.                                 zzSW[6] = myform->curValue
  35.                                
  36.                         )
  37.                        
  38.                         ("SW7"
  39.                                 zzSW[7] = myform->curValue

  41.                                
  42.                         )
  43.                        
  44.                         ("SW8"
  45.                                 zzSW[8] = myform->curValue
  46.                                
  47.                         )
  48.                        
  49.                         ("SW9"
  50.                                 zzSW[9] = myform->curValue
  51.                         )
  52.                        
  53.                         ("SW10"
  54.                                 zzSW[10] = myform->curValue

  56.                                
  57.                         )
  58.                        
  59.                         ("SW11"
  60.                                 zzSW[11] = myform->curValue
  61.                                
  62.                         )
  63.                        
  64.                         ("SW12"
  65.                                 zzSW[12] = myform->curValue
  66.                                
  67.                         )
  68.                        
  69.                         ("SW13"
  70.                                 zzSW[13] = myform->curValue
  71.                                
  72.                         )
  73.                        
  74.                         ("SW14"
  75.                                 zzSW[14] = myform->curValue
  76.                                
  77.                         )
  78.                                
  79.                         ("SW15"
  80.                                 zzSW[15] = myform->curValue
  81.                                
  82.                         )
  83.                        
  84.                         ("SW16"
  85.                                 zzSW[16] = myform->curValue
  86.                                
  87.                         )
  88.                        
  89.                         ("SW17"
  90.                                 zzSW[17] = myform->curValue
  91.                                
  92.                         )
  93.                        
  94.                         ("SW18"
  95.                                 zzSW[18] = myform->curValue
  96.                                
  97.                         )
  98.                        
  99.                         ("SW19"
  100.                                 zzSW[19] = myform->curValue
  101.                                
  102.                         )
  103. )
复制代码
作者: deargds    时间: 2013-6-14 09:30
  1.         when(myform->curField && atoi(myform->curField)
  2.                 zSW[atoi(myform->curField)] = myform->curValue
  3.         )
复制代码
作者: betamelody    时间: 2013-6-14 13:50
LZ去语法文档中看下makeTable的用法
还有你的所有变量都是全局变量,这样会有很多问题的
既然都用到全局变量了,不妨在创建filed的时候就将动态创建的filed全部记录下来,以供回调函数使用,如果不用全局变量,可以用form传值

定义时
  1. myform = axlFormCreate(gensym() CreateWidthFormfile '("NE" "msglines" 0) 'CreateWidthFormfileAction t nil)
  2. myform->myvalue = "54321"
复制代码
回调函数中使用
  1. v = myform->myvalue

  3. v=>"54321"
复制代码
作者: ghfghyb    时间: 2013-6-18 14:09
deargds
发表于 2013-6-14 09:30 |只看该作者
        when(myform->curField && atoi(myform->curField)
                zSW[atoi(myform->curField)] = myform->curValue
        )
复制代码


非常感觉，，已经可以使用在代码中，一直以胶case是操作指令，没想到是可以做成判断的运行方式！！



欢迎光临 EDA365电子工程师网 (http://bbs.elecnest.cn/) Powered by Discuz! X3.2