[福吉茨主页]

一个简单的袖珍计算器


使用前面的示例所示的思想,您可以构建一个简单的袖珍计算器。

[您的浏览器不支持fupplets。下面是一个窗口转储:]

[向上/向下/复位计数器的窗口转储]

为了简单起见,使用后缀表示法,即计算输入的3+43输入4+.

以下是源代码:

进口 胡说八道

主要的 = 胡说八道(贝壳 “袖珍计算器” 计算)计算 = intDispF公司 >==< 地图斯塔夫 计算[0]>==< 钮扣

数据 按钮 = 加上 |  | 时代 | 迪夫 | 进入 | 数字 内景   衍生(情商)钮扣 = 广场(矩阵X 4) (列表F[d 7,d 8,d 9,行动 迪夫,d 4,d 5,d 6,行动 时代,d 1,d 2,d ,行动 ,,d 0,耳鼻喉科,行动 加上])哪里
    d n =(数字 n,按钮(显示 n))耳鼻喉科 = 行动 进入
     =(进入,霍利夫)行动 o =(o,按钮(奥帕贝尔 o))哪里 奥帕贝尔 加上 = "+"
            奥帕贝尔  = "-"
            奥帕贝尔 时代  = "*"
            奥帕贝尔 迪夫 = "/"
            奥帕贝尔 进入 = “耳鼻喉科”

计算(n:s)   (数字 d,_)= 新的(n*10+d)s
计算 s(进入,_)=(0:s,[])计算(是的::s) (加上,_)= 新的(+是的)s
计算(是的::s) (,_)= 新的(-是的)s
计算(是的::s) (时代,_)= 新的(*是的)s
计算(是的::s) (迪夫,_)= 新的(`迪夫`是的)s
计算 s       _           =(s,[])新的 n s =(n:s,[n])

注意事项

程序结构与上升/下降/复位计数器.
  • 上一个示例
  • 回到示例列表