[原创]甜橙计算软件,给VB初学者好的例子。
一个小程序:[甜橙计算软件](中文版)功能:用于计算日常的数据。
软件截图:
本程序由小宇编写,供给那些想学编程,而有感觉无从下手的 初学者。希望学者能从本软件中学到自己想要的东西。
为了使初学者更加方便理解,在多处核心位置添加注释。
PS:
1.在程序设计之初,就要做好程序错误的捕获工作,想全面程序可能发生的错误,并给与相应的处理,否则会给程序带来致命错误,导致程序退出,影响使用。
2.在程序设计的过程中,要多考虑人性化的设计,要知道,用户想要的是更加灵活和有活力的程序,适当的加强与用户的互动是必要的。比如,在适当的位置添加提示弹窗,询问弹窗等,都是软件和用户最好的交互,但是要知道,过多的弹窗等提示会使用户感到厌烦。应该适当添加,达到理想的效果。
核心源代码:
程序代码:
Option Explicit Dim opt As String '定义一个字符串型变量opt Private Sub About_Click() 'About按钮的Click事件(即单击事件) FormAbout.Show '调出另一新的"FormAbout"窗体 End Sub Private Sub Add_Click() 'Add(加)的单击事件 opt = "+" End Sub Private Sub CalculationCommand_Click() '计算按钮的单击事件 On Error GoTo Wrong '设计一个错误捕获程序,用来捕获程序的未知错误 Dim No1 As Double, No2 As Double, Result As Double '定义No1,No2,Result均为双精度型 No1 = No1Text.Text '将No1文本框中的文本赋值给No1 No2 = No2Text.Text '将No2文本框中的文本赋值给No2 Select Case opt '运用Select Case语句判断 Case "+" '如果是"+",也就是opt="+" Result = No1 + No2 '那么将No1+No2的值赋给Result,简单的说就是结果=No1+No2 Case "-" '依次类推 Result = No1 - No2 Case "*" Result = No1 * No2 Case "/" If No2 <> 0 Then '用If语句来判断,如果No2(被除数)大于小于0(即不等于0)才执行下一行代码。 Result = No1 / No2 '将No1/No2的值赋给Result Else '如果不满足No2<>0,也就是在No2=0的情况下执行 MsgBox "除数不能为0,请修改!", vbCritical + vbOKOnly, "提示:" '弹出一个对话框,告诉用户除数不能为0,必须修改。 End If End Select ResultText.Text = Result '最后将Result赋值给Result文本框 If Err.Number = 13 Then '用If语句判断,如果错误代码是13,那么执行下一行代码 Wrong: MsgBox "请在各个文本框中输入数据,并选择运算符号!", vbCritical + vbOKOnly, "提示:" '在出现错误,错误代码=13的情况下,弹出对话框,报错。 End If End Sub Private Sub Division_Click() opt = "/" End Sub Private Sub EmptyCommand_Click() No1Text.Text = "" '将No1文本框中的内容清空。 No2Text.Text = "" '将No2文本框中的内容清空。 ResultText.Text = "" '将Result文本框中的内容清空。 Add.Value = False '将所有的单选框初始化。 Subtract.Value = False Multiplicat.Value = False Division.Value = False MsgBox "清除成功!", vbInformation + vbOKOnly, "提示:" '人性化设计,弹出一个对话框,告诉用户,清除成功! End Sub Private Sub ExitCommand_Click() Unload Me '卸载本窗体。 End Sub Private Sub ExitTheProgram_Click() Unload Me '卸载本窗体。 End Sub Private Sub Multiplicat_Click() opt = "*" End Sub Private Sub OperationAdd_Click() Add.Value = True CalculationCommand_Click End Sub Private Sub OperationDivision_Click() Division.Value = True CalculationCommand_Click End Sub Private Sub OperationEmpty_Click() No1Text.Text = "" '将No1文本框中的内容清空。 No2Text.Text = "" '将No2文本框中的内容清空。 ResultText.Text = "" '将Result文本框中的内容清空。 Add.Value = False Subtract.Value = False Multiplicat.Value = False Division.Value = False MsgBox "清除成功!", vbInformation + vbOKOnly, "提示:" End Sub Private Sub OperationMultiplicat_Click() Multiplicat.Value = True CalculationCommand_Click End Sub Private Sub OperationSubtract_Click() Subtract.Value = True CalculationCommand_Click End Sub Private Sub Subtract_Click() opt = "-" End Sub Private Sub Timer1_Timer() Label3.Caption = Time End Sub Private Sub UserHelp_Click() FormUserHelp.Show End Sub发布时间:2014/1/19
文件:
甜橙计算软件.rar
(2.69 MB)
[ 本帖最后由 VB丶小宇 于 2014-1-20 14:08 编辑 ]