调用子程序，传入参数， 设定目标参数为空的办法

咸鱼666

在做事件转移，已知被调用的子程序的参数信息，比如5个可空参数，现在的办法代码长，依次判断是否传参。
有没有简约点的办法，因为是类.子程序，所有不能用call，被调用的子程序不能修改，只能修改这个转移的事件内容

  

子程序名	返回值类型	公开	备 注
黑月_zyForm_移动	整数型
参数名	类 型	参考	可空	数组	备 注
参数指针	整数型

变量名	类 型	静态	数组	备 注
_存取表	变量存取表类
_变量链接	变量链接类
_类索引	整数型
_参数_左边	整数型
_参数_顶边	整数型
_参数_宽度	整数型
_参数_高度	整数型
_参数_是否立即重画	逻辑型			"默认为真。"

_变量链接.链接_指针 (_存取表, 参数指针)
_类索引 ＝ _存取表.取附加值 ()
读写锁_zyForm.读进入 ()
_存取表.到变量 (1, _参数_左边, )
_存取表.到变量 (2, _参数_顶边, )
_存取表.到变量 (3, _参数_宽度, )
_存取表.到变量 (4, _参数_高度, )
_存取表.到变量 (5, _参数_是否立即重画, )
如果 (_存取表.是否为空_ (1))
如果 (_存取表.是否为空_ (2))
如果 (_存取表.是否为空_ (3))
如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, , , , )
集_zyForm数组 [_类索引].移动 (, , , , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, , , _参数_高度, )
集_zyForm数组 [_类索引].移动 (, , , _参数_高度, _参数_是否立即重画)


如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, , _参数_宽度, , )
集_zyForm数组 [_类索引].移动 (, , _参数_宽度, , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, , _参数_宽度, _参数_高度, )
集_zyForm数组 [_类索引].移动 (, , _参数_宽度, _参数_高度, _参数_是否立即重画)



如果 (_存取表.是否为空_ (3))
如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, _参数_顶边, , , )
集_zyForm数组 [_类索引].移动 (, _参数_顶边, , , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, _参数_顶边, , _参数_高度, )
集_zyForm数组 [_类索引].移动 (, _参数_顶边, , _参数_高度, _参数_是否立即重画)


如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, , )
集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, _参数_高度, )
集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画)




如果 (_存取表.是否为空_ (2))
如果 (_存取表.是否为空_ (3))
如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, , , , )
集_zyForm数组 [_类索引].移动 (_参数_左边, , , , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, , , _参数_高度, )
集_zyForm数组 [_类索引].移动 (_参数_左边, , , _参数_高度, _参数_是否立即重画)


如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, , )
集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, _参数_高度, )
集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, _参数_高度, _参数_是否立即重画)



如果 (_存取表.是否为空_ (3))
如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , , )
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , _参数_高度, )
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , _参数_高度, _参数_是否立即重画)


如果 (_存取表.是否为空_ (4))
如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, , )
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, , _参数_是否立即重画)

如果 (_存取表.是否为空_ (5))
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, )
集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画)





读写锁_zyForm.读退出 ()
返回 (0)

.子程序 黑月_zyForm_移动, 整数型<br /> .参数 参数指针, 整数型<br /> .局部变量 _存取表, 变量存取表类<br /> .局部变量 _变量链接, 变量链接类<br /> .局部变量 _类索引, 整数型<br /> .局部变量 _参数_左边, 整数型<br /> .局部变量 _参数_顶边, 整数型<br /> .局部变量 _参数_宽度, 整数型<br /> .局部变量 _参数_高度, 整数型<br /> .局部变量 _参数_是否立即重画, 逻辑型, , , "默认为真。"<br /> <br /> _变量链接.链接_指针 (_存取表, 参数指针)<br /> _类索引 ＝ _存取表.取附加值 ()<br /> 读写锁_zyForm.读进入 ()<br /> _存取表.到变量 (1, _参数_左边, )<br /> _存取表.到变量 (2, _参数_顶边, )<br /> _存取表.到变量 (3, _参数_宽度, )<br /> _存取表.到变量 (4, _参数_高度, )<br /> _存取表.到变量 (5, _参数_是否立即重画, )<br /> .如果 (_存取表.是否为空_ (1))<br />     .如果 (_存取表.是否为空_ (2))<br />         .如果 (_存取表.是否为空_ (3))<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, , , , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, , , , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, , , _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, , , _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, , _参数_宽度, , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, , _参数_宽度, , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, , _参数_宽度, _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, , _参数_宽度, _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果 (_存取表.是否为空_ (3))<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, , , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, , , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, , _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, , _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则<br />     .如果 (_存取表.是否为空_ (2))<br />         .如果 (_存取表.是否为空_ (3))<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , , , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , , , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , , _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , , _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, , _参数_宽度, _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果 (_存取表.是否为空_ (3))<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, , _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (_存取表.是否为空_ (4))<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, , )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, , _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (_存取表.是否为空_ (5))<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, )<br />                 .否则<br />                     集_zyForm数组 [_类索引].移动 (_参数_左边, _参数_顶边, _参数_宽度, _参数_高度, _参数_是否立即重画)<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 读写锁_zyForm.读退出 ()<br /> 返回 (0)

b0y

期待有大佬回答 我也遇到这个问题 可空的参数 调用另一个子程序传递就不是可空了...

咸鱼666

可以有偿解决

咸鱼666

写了个简单的例子

走一回

能写好已经很了不起了，代码行数也不是太多，哪能跟几千万行代码的软件比呢?

咸鱼666

走一回 发表于 2024-3-27 21:51
能写好已经很了不起了，代码行数也不是太多，哪能跟几千万行代码的软件比呢? ...

这个拿来转换模块的，如果用现在这个办法，光一个黑月模块，转换后40W行。。不处理可空可能只有2W行

accet

b0y 发表于 2024-3-27 14:21
期待有大佬回答 我也遇到这个问题 可空的参数 调用另一个子程序传递就不是可空了... ...

只要你使用了参数 如果是空的 易语言就会给出个默认值的 避免内存问题.
你调用了别的子程序 传他过去就是相当于使用了他.

所以一般可以另类解决..
.如果真 (是否为空 (i))
    i ＝ -1

调 用(i)

然后调用子程序 . 子程序那边判断是不是为 -1  如果是就当他为空去进行流程就是了.

b0y

accet 发表于 2024-3-29 05:54
只要你使用了参数 如果是空的 易语言就会给出个默认值的 避免内存问题.
你调用了别的子程序 传他过去就是 ...

我现在是判断了一下
如果(是否为空(i))
     子程序()
否则
      子程序(i)

accet

b0y 发表于 2024-3-29 06:06
我现在是判断了一下
如果(是否为空(i))
     子程序()

如果可空的参数多了 你这样就要写的代码多了.

accet

其实楼主那个也可以用另类方式处理.. 就不需要那么多代码了.