精易论坛

标题: 计算器例程非常震撼开源代码给个例程非常实用1 [打印本页]

作者: zhugeliang 时间: 2018-4-1 17:28
标题: 计算器例程非常震撼开源代码给个例程非常实用1
源码：
.版本 2
.程序集窗口程序集_启动窗口
.子程序 _按钮1_被单击
显示框.加入文本 (“1”)

.子程序 _按钮8_被单击
显示框.加入文本 (“2”)

.子程序 _按钮13_被单击
显示框.加入文本 (“3”)

.子程序 _按钮4_被单击
显示框.加入文本 (“4”)

.子程序 _按钮7_被单击
显示框.加入文本 (“5”)

.子程序 _按钮12_被单击
显示框.加入文本 (“6”)

.子程序 _按钮3_被单击
显示框.加入文本 (“7”)

.子程序 _按钮6_被单击
显示框.加入文本 (“8”)

.子程序 _按钮11_被单击
显示框.加入文本 (“9”)

.子程序 _按钮2_被单击
显示框.加入文本 (“0”)

.子程序 _按钮5_被单击
显示框.加入文本 (“.”)

.子程序 _按钮9_被单击
数一.内容＝显示框.内容
符号.内容＝ “+”
显示框.内容＝ “”

.子程序 _按钮17_被单击
数一.内容＝显示框.内容
符号.内容＝ “-”
显示框.内容＝ “”

.子程序 _按钮16_被单击
数一.内容＝显示框.内容
符号.内容＝ “*”
显示框.内容＝ “”

.子程序 _按钮10_被单击
数一.内容＝显示框.内容
符号.内容＝ “/”
显示框.内容＝ “”

.子程序 _按钮18_被单击
.如果 (符号.内容＝ “+”)
显示框.内容＝到文本 (到数值 (数一.内容) ＋到数值 (显示框.内容))
.否则
.如果 (符号.内容＝ “-”)
      显示框.内容＝到文本 (到数值 (数一.内容) －到数值 (显示框.内容))
.否则
      .如果 (符号.内容＝ “*”)
         显示框.内容＝到文本 (到数值 (数一.内容) × 到数值 (显示框.内容))
      .否则
         .如果 (显示框.内容 ≠ “0”)
            .如果 (符号.内容＝ “/”)
                  显示框.内容＝到文本 (到数值 (数一.内容) ÷ 到数值 (显示框.内容))
            .否则
            .如果结束
         .否则
         .如果结束

      .如果结束
.如果结束
.如果结束

.子程序 _按钮14_被单击
显示框.内容＝ “”
数一.内容＝ “”
符号.内容＝ “”

.子程序 _按钮15_被单击
显示框.内容＝取文本左边 (显示框.内容, 取文本长度 (显示框.内容) － 1)

计算器.e

9.47 KB, 下载次数: 78, 下载积分: 精币 -2 枚

作者: zhugeliang 时间: 2018-4-1 17:47
我是作者我是作者挺好用

作者: zhugeliang 时间: 2018-4-1 17:48
这个例程的意思是只要你按一个键，显示框上就会出现数字。

作者: 我已更新 时间: 2018-4-1 20:24
咦，看到你这个帖子我突然安耐不住自己的双手前来水一波

作者: AHHFLQ 时间: 2018-4-2 09:53
先谢楼主分享

作者: wjswzj0 时间: 2018-4-2 11:58
先谢楼主分享

作者: 网络注册会员 时间: 2018-4-4 09:56
看一下顶哦

作者: ruyan666 时间: 2018-4-10 05:00
看到你这个帖子我突然安耐不住自己的双手前来水一波

作者: taodile 时间: 2018-4-11 11:48

先谢楼主分享

作者: sqyclycd 时间: 2018-5-24 22:22
谢谢分享，已下载

作者: panda92 时间: 2020-4-6 13:21

谢谢分享，已下载

作者: exiaofeng2008 时间: 2025-6-8 12:56
谢谢分享，已下载

欢迎光临精易论坛 (https://125.confly.eu.org/)