新手照搬简单的计算器

admin6年前 (2020-12-10)图文教程5168
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

编辑框1.加入文本 (“1”)

.子程序 _按钮2_被单击

编辑框1.加入文本 (“2”)

.子程序 _按钮3_被单击

编辑框1.加入文本 (“3”)

.子程序 _按钮4_被单击

编辑框1.加入文本 (“4”)

.子程序 _按钮5_被单击

编辑框1.加入文本 (“5”)

.子程序 _按钮6_被单击

编辑框1.加入文本 (“6”)

.子程序 _按钮7_被单击

编辑框1.加入文本 (“7”)

.子程序 _按钮8_被单击

编辑框1.加入文本 (“8”)

.子程序 _按钮9_被单击

编辑框1.加入文本 (“9”)

.子程序 _按钮15_被单击

编辑框1.加入文本 (“0”)

.子程序 _按钮16_被单击

编辑框1.加入文本 (“.”)

.子程序 _按钮10_被单击

编辑框2.内容 = 编辑框1.内容
编辑框3.内容 = “/”
编辑框1.内容 = “”

.子程序 _按钮11_被单击

编辑框2.内容 = 编辑框1.内容
编辑框3.内容 = “*”
编辑框1.内容 = “”

.子程序 _按钮12_被单击

编辑框2.内容 = 编辑框1.内容
编辑框3.内容 = “+”
编辑框1.内容 = “”

.子程序 _按钮13_被单击

编辑框2.内容 = 编辑框1.内容
编辑框3.内容 = “-”
编辑框1.内容 = “”

.子程序 _按钮14_被单击

.如果 (编辑框3.内容 = “+”)
    编辑框1.内容 = 到文本 (到数值 (编辑框2.内容) + 到数值 (编辑框1.内容))
.否则
    .如果 (编辑框3.内容 = “-”)
        编辑框1.内容 = 到文本 (到数值 (编辑框2.内容) - 到数值 (编辑框1.内容))
    .否则
        .如果 (编辑框3.内容 = “*”)
            编辑框1.内容 = 到文本 (到数值 (编辑框2.内容) × 到数值 (编辑框1.内容))
        .否则
            .如果 (编辑框3.内容 = “/”)
                编辑框1.内容 = 到文本 (到数值 (编辑框2.内容) ÷ 到数值 (编辑框1.内容))
            .否则

            .如果结束

        .如果结束

    .如果结束

.如果结束


.子程序 _按钮18_被单击

编辑框1.内容 = “”
编辑框2.内容 = “”
编辑框3.内容 = “”