| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1763 人关注过本帖, 4 人收藏
标题:[原创]甜橙计算软件,给VB初学者好的例子。
只看楼主 加入收藏
VB丶小宇
Rank: 3Rank: 3
来 自:河北省石家庄市
等 级:论坛游侠
帖 子:172
专家分:142
注 册:2013-3-11
结帖率:96.77%
收藏(4)
 问题点数:0 回复次数:12 
[原创]甜橙计算软件,给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 编辑 ]
搜索更多相关主题的帖子: 中文版 程序设计 软件 想学 
2014-01-19 22:07
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
回复 楼主 VB丶小宇
好!对控件使用、条件语句用法等都有实例,是入门学习的好帮手,鼓励下。
2014-01-20 06:58
VB丶小宇
Rank: 3Rank: 3
来 自:河北省石家庄市
等 级:论坛游侠
帖 子:172
专家分:142
注 册:2013-3-11
收藏
得分:0 
回复 2楼 lowxiong
非常感想版版的支持。。我也是从新手一点一点走过来的,希望能够帮助他们!

编程最蛋疼的事:不是编程多么累,而是编完后,一点运行,出现四个字:程序错误。。。
2014-01-20 08:39
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
不错。适合新手看了。

----------------------
发现一个BUG

Private Sub About_Click()
 FormAbout.Show
 End Sub
 Private Sub Add_Click()
 opt = "+"
 End Sub
 Private Sub CalculationCommand_Click()
 On Error GoTo Wrong
……………………
If Err.Number = 13 Then
Wrong: MsgBox "请在各个文本框中输入数据,并选择运算符号!", vbCritical + vbOKOnly, "提示:"
End If
 End Sub
可以使用 GOTO 等条件或无条件转移语句从 循环、判断 中转出,但不可以 转入。
如果你上面这个错误捕捉 如果遇到了错误,会导致程序报 有 End if ,但没有 IF 语句 这个错误。




授人于鱼,不如授人于渔
早已停用QQ了
2014-01-20 10:11
VB丶小宇
Rank: 3Rank: 3
来 自:河北省石家庄市
等 级:论坛游侠
帖 子:172
专家分:142
注 册:2013-3-11
收藏
得分:0 
回复 4楼 风吹过b
经实验,程序运行并无这样的报错,比如让在文本框中不输入任何的数据,也就是错误代码:13,类型不匹配,并无出现,无IF错误。如图:
图片附件: 游客没有浏览图片的权限,请 登录注册

在文本框中输入字符串型数据,也是错误代码:13类型不匹配,但错误捕捉器仍能正确提示,并无出现,无IF错误。如图:
图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 VB丶小宇 于 2014-1-20 10:33 编辑 ]

编程最蛋疼的事:不是编程多么累,而是编完后,一点运行,出现四个字:程序错误。。。
2014-01-20 10:31
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
置顶

无知
2014-01-20 12:26
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
收藏
得分:0 
版主都来捧场了,好厉害啊
2014-01-20 18:31
VB丶小宇
Rank: 3Rank: 3
来 自:河北省石家庄市
等 级:论坛游侠
帖 子:172
专家分:142
注 册:2013-3-11
收藏
得分:0 
回复 7楼 vbvcr51
厉害啥啊。。跟你相比。。就是九牛一毛。。

编程最蛋疼的事:不是编程多么累,而是编完后,一点运行,出现四个字:程序错误。。。
2014-01-21 09:12
horizon84
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-2-6
收藏
得分:0 
偶是个初学者,希望从简单入手。谢谢分享。
2014-02-06 23:05
a895610496
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-2-12
收藏
得分:0 
谢谢分享  简单易懂
2014-02-12 11:19
快速回复:[原创]甜橙计算软件,给VB初学者好的例子。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026663 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved