【已解决】请老师看看这个自动显示计算结果的窗体为何出错

wdmzslw

我想设计一个窗体，在其中的文本框中输入算式，下面的标签中自动计算结果。但是为何只能计算整数，不能计算带小数和函数的算式呢？还有中间输入过程中如果等式不完整会出错，如何在等式不完整出错的时候不显示，只有等式完整了再显示呢？

newer

(dcl-Control-SetCaption bbb (cal NewValue))
这个地方改
(dcl-Control-SetCaption bbb (xd::vla:catchapply  'cal (list NewValue)))
试试

newer

命令: (xd::vla:catchapply 'cal (list "23.3+32.3"))
55.6

wdmzslw

newer 发表于 2018-6-4 23:10
(dcl-Control-SetCaption bbb (cal NewValue))
这个地方改
(dcl-Control-SetCaption bbb (xd::vla:catcha ...

还是出错

wdmzslw

newer 发表于 2018-6-4 23:16
命令: (xd::vla:catchapply 'cal (list "23.3+32.3"))
55.6

(xd::vla:catchapply 'cal (list "23.3+32.3"))单独运行这个命令没有问题，放到程序里就出错了

marting

wdmzslw 发表于 2018-6-4 23:18
还是出错

(cal NewValue) 这个返回的是实数或者整数
而setCaption要求的是字符串，你不转换，当然出错了。

wdmzslw

marting 发表于 2018-6-4 23:29
(cal NewValue) 这个返回的是实数或者整数
而setCaption要求的是字符串，你不转换，当然出错了。

呵呵，还是老师厉害。第一个问题解决了。但是在输入的过程中，比如：输入“2.5*”的时候就提示出错了，能不能在算式不完整出错时不提示错误：

命令: 错误:

意外的表达式结尾
; 错误: 参数类型错误: numberp: T

marting

wdmzslw 发表于 2018-6-4 23:43
呵呵，还是老师厉害。第一个问题解决了。但是在输入的过程中，比如：输入“2.5*”的时候就提示出错了，能 ...

你是在回调里面调用CAL的啊，就是你输入一个字符，CAL就计算一次，计算 "2.0*" 肯定要错啊，你加个判断，判断下 符号前后都有数字的时候，在调用CAL去计算。

marting

wdmzslw 发表于 2018-6-4 23:43
呵呵，还是老师厉害。第一个问题解决了。但是在输入的过程中，比如：输入“2.5*”的时候就提示出错了，能 ...

或者说，字符串以数字开头，以数字结尾的时候，你再调用CAL