易语言写计算器关于限制小数点输入的问题

爱婷学易

用易语言写计算器输入小数点可以连续输入很多个，怎么做才能像系统自带的计算器那样一次只允许输入一个小数点呢？百度搜不到解决方法，自己也试过多种方法还是不行，只好来这里请教大家了。

亚子

最终版，楼楼可以采纳了~~

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 ( (键代码 ＝ 229 或 键代码 ＝ 190) 且 寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)
返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 ((键代码 ＝ 229 或 键代码 ＝ 190) 且 寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)<br />     返回 (假)<br /> .如果真结束

Harry·

源码发上来。可以在编辑框输入做手脚

亚子

  

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ 229 且 寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)
返回 (假)

.版本 2<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (键代码 ＝ 229 且 寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)<br />     返回 (假)<br /> .如果真结束

亚子

下载附件看下吧

亚子

现在 就只能输入进去1个小数点了。并且必须输入的是数字

犹豫的流星

楼上正解   ！

易正易则

亚子

fanr5201314 发表于 2016-5-14 12:36

不行的，输入小数 可以输入N个“.”

亚子

fanr5201314 发表于 2016-5-14 12:36

你自己看吧。。。