主题:[原创]如何用VB.NET编计算器
题目:标准计算器编程
编程思路:
计算器的工作流程:
(1) 输入第一个数,按下运算符,再输入第二个数时,窗口中显示第二个数。
(2) 输入第二个运算符时,窗口中显示前两个数的计算结果。
(3) 按“=”号时,如果之前的结果是数字,就进行运算并显示结果,如果之前没有运算,就保持显示不变。下一个输入的如果是数字,就清除以前的结果,开始下一轮运算;如果输入的是运算符,就将前一步运算的结果作为第一个数,等待第二个数的输入。
(4) 按“C”清除所有数据,一切从头开始。
步骤:
1、窗体FORM1,将其text属性改为calcularor,maximizebox属性改为false
2、在窗体中添加17个命令按钮,text属性分别为:“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“0”、“.”、“=”、“+”、“-”、*、“/”、“C”。将他们的name属性分别改为button1、button2、button3、button4、button5、button6、button7、button8 、button9、button10、Deci、Equal、Addition、Subtraction、Multiplication、Division、Clearing,改变字体大小
3、在窗体中添加1个文本框,TEXT属性改为“0.”改变字体大小,数字对齐为右对齐。
4、添加清楚操作Clear()代码
private sub clear()
……
end sub
5、在Form_Load()方法中添加代码,以进行程序的初始化:
…… ‘调用清除程序以进行初始化
6、在Cleating_Click()过程中添加调用代码。
7、添加进一步运算的方法Operate():
private sub operate()
……
end sub
8、添加处理数字按钮0~9点击的ClickNum()子过程:
Private Sub clicknum(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click ‘自己动手添加,要输入
……
End Sub
9、在Deci_Click()过程中,编写小数点按钮的点击处理事件
……
10、添加处理运算符按钮的方法ClickOper().
Private Sub clickoper(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Addtition.Click, Subtraction.Click, Multipliction.Click, Division.Click ‘自己动手添加,要输入
………
End Sub
11、在Equal_Click()过程中,编辑Equal按钮代码
……
程序调试:
编程思路:
计算器的工作流程:
(1) 输入第一个数,按下运算符,再输入第二个数时,窗口中显示第二个数。
(2) 输入第二个运算符时,窗口中显示前两个数的计算结果。
(3) 按“=”号时,如果之前的结果是数字,就进行运算并显示结果,如果之前没有运算,就保持显示不变。下一个输入的如果是数字,就清除以前的结果,开始下一轮运算;如果输入的是运算符,就将前一步运算的结果作为第一个数,等待第二个数的输入。
(4) 按“C”清除所有数据,一切从头开始。
步骤:
1、窗体FORM1,将其text属性改为calcularor,maximizebox属性改为false
2、在窗体中添加17个命令按钮,text属性分别为:“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“0”、“.”、“=”、“+”、“-”、*、“/”、“C”。将他们的name属性分别改为button1、button2、button3、button4、button5、button6、button7、button8 、button9、button10、Deci、Equal、Addition、Subtraction、Multiplication、Division、Clearing,改变字体大小
3、在窗体中添加1个文本框,TEXT属性改为“0.”改变字体大小,数字对齐为右对齐。
4、添加清楚操作Clear()代码
private sub clear()
……
end sub
5、在Form_Load()方法中添加代码,以进行程序的初始化:
…… ‘调用清除程序以进行初始化
6、在Cleating_Click()过程中添加调用代码。
7、添加进一步运算的方法Operate():
private sub operate()
……
end sub
8、添加处理数字按钮0~9点击的ClickNum()子过程:
Private Sub clicknum(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click ‘自己动手添加,要输入
……
End Sub
9、在Deci_Click()过程中,编写小数点按钮的点击处理事件
……
10、添加处理运算符按钮的方法ClickOper().
Private Sub clickoper(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Addtition.Click, Subtraction.Click, Multipliction.Click, Division.Click ‘自己动手添加,要输入
………
End Sub
11、在Equal_Click()过程中,编辑Equal按钮代码
……
程序调试: