易锦大学第四课【搞个商品计价器，同时输出原价总价】
.版本 2.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 结账, 小数型
.参数 单价, 小数型
.参数 数量, 小数型
.参数 结果, 小数型, 参考
.局部变量 原来的价格, 小数型
.局部变量 打折后价格, 小数型
原来的价格 ＝ 单价 × 数量
打折后价格 ＝ 原来的价格 × 0.6
结果 ＝ 打折后价格
返回 (原来的价格)
.子程序 _按钮1_被单击
.局部变量 总金, 小数型
.局部变量 折扣后总金, 小数型
总金 ＝ 结账 (2, 5, 折扣后总金)
调试输出 (总金)
调试输出 (折扣后总金)
楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页:
[1]