VB课程设计.docx

VB课程设计(论文)任务书机电工程 学院物流管理 专业 2 班一、课程设计(论文)题目 ： 股票计算器 二、课程设计(论文)工作自 2013 年 6 月16日起至 2013年 6月 26 日止 三、课程设计(论文) 地点: 计算中心8#601 四、课程设计(论文)内容要求：1. 奔课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 2课程设计的任务及要求1）基本要求：1、目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。通过课程设计，学生能达到具备设计功能较为复杂的Windows应用程序的能力。2、至少多窗体界面（3-5个窗体）3、使用菜单、数组、文件操作、图形操作等制试点。；2）课程设计论文编写要求（1）要按照书稿的规格打印誊写毕业论文（2）论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等 了解VB6.0的集成开发环境，熟悉各主要窗口的作用。熟悉窗体的属性、方法和事件，还要了解Visual Basic语言字符集、词汇集及编码规则，掌握Visual Basic各种数据类型的表示、常量与变量的用法及各种运算符的使用规则。同时还要掌握程序设计的基本命令、简单的输入、输出语句和命令按钮、标签及文本框控件的使用方法。 学生签名:徐明毅 2013年6月20日课程设计（论文）评阅意见序号项 目等级优秀良好中等及格不及格1课程设计态度评价2出勤情况评价3任务难度评价4工作量饱满评价5设计中创新性评价6论文书写规范化评价综合评定等级评阅人 职称 2013年 月 日 目 录一概要1二.窗体的详细设计.2 2.1 运行程序的主窗口.3三.程序源代码.4 3.1 Form1的代码.4 3.2 Form2 的代码.6 3.3 Form3 的代码.7 3.4 Form4 的代码.9 3.5 Form5 的代码.10四. 运行结果及分析11五心得12六参考文献12一, 概要设计要求：设计一个“股市计算器”股民在进行股票投资和交易时，经常需要对买卖股票做出投资分析；在上市公司进行送股、分红和配股后还要对股票除权后的价格进行计算。若采用手工操作，不仅公式复杂，还易出错。“股市计算器”这个小软件可以帮助股民解决这个问题。说明：股民在买卖股票时，除了买入股票本身需要投入的资金外，还需要支付一定的交易费用。交易费用主要有2项：佣金：是指投资者在委托买卖证券成交后按成交金额的一定比例支付给券商的费用，此项费用一般由券商的经纪佣金、证券交易所交易经手费及管理费等构成。佣金的收费标准为：买卖股票时，按单向成交金额的3.5计算，不足10元时，按10元支付。印花税：是根据国家税法规定，在股票成交后对买卖双方投资者按照规定的税率分别征收的税金。印花税的交纳由证券经营机构在同投资者交割中代为扣收，然后在证券经营机构同证券交易所或登记结算机构的清算交割中集中结算，最后由登记结算机构统一向征税机关缴纳。买吗股票时，按单向成交金额的4计算。如何计算除权价、除息价？上市公司进行分红、配股后，除去可享有分红、配股权利，在除权、除息日这一天会产生一个除权价或除息价，除权价或除息价是在股权登记这一天收盘价基础上产生的，具体计算办法如下：计算除息价：计算除权价：计算配股后的除权价：计算除权除息价：除权除息价=（股权登记日的收盘价-每股所分红利现金额+配股价）（1+每股送红股数+每股配股数） 1 1二,窗体的设计流程图：股市计算器清除关于清除参数设置除权除息清除投资分析清除退出输入数据输入数据设置参数分析计算计算得出结果得出结果 2 2.1. 运行程序，显示主窗口 控件名属性名属性值Form1caption股市计算器Command1caption投资分析Command2caption除权除息Command3caption参数设置Command4caption关于Command5caption推出 “股市计算器”的主窗口 3第3章源程序代码3.1 Form1窗口上的代码.Form1 的代码Private Sub Command1_Click()Load Form1Form2.ShowEnd SubPrivate Sub Command2_Click()Load Form1Form3.ShowEnd SubPrivate Sub Command3_Click()Load Form1Form4.ShowEnd SubPrivate Sub Command4_Click()Load Form1Form5.ShowEnd SubPrivate Sub Command5_Click()EndEnd Sub3.单击“投资分析”按钮将出现“投资分析”窗口，然后用户根据需要输入股票代号、持股数量、买入价位、卖出价位，然后单击“计算”按钮对买卖股票的盈亏进行分析计算，其中所花费的手续费用和“参数设置”窗体中设置的印花税率、佣金比率以及最低费用有关。按“清空”按钮可将文本框中所有数据清除4.投资分析窗口 4 投资分析 窗口控件名属性名属性值Label1caption输入数据Label2caption股票代号Label3caption股票数量Label4caption买入价位 Label5caption卖出价位Label6caption输出结果Label7caption保本价位Label8caption手续费用Label9caption投入资金Label10caption回收资金Label11caption盈亏金额Label12caption盈亏比率Command1caption计算Command2caption清除 53.2 Form2窗口上的代码Form2代码：Private Sub Command1_Click()Dim a, b, c, d, e, f, g, h, j As Integera = 0.0035b = 0.004c = Val(Text2.Text)d = Val(Text3.Text)e = Val(Text4.Text)f = 10If c * d * a 10 Theng = c * d * aElseg = 10End IfIf c * e * a 10 Thenh = c * e * aElseh = 10End Ifi = Format(c * d * (1 + b) + g + h) / (c * (1 - b), 0.00)Text5.Text = iText6.Text = Format(g + h + (b * d + b * e) * c), 0.00)Text7.Text = Format(c * d * (1 + 0.004) + g, 0.00)Text8.Text = Format(c * e * (1 - 0.004) - h, 0.00)Text9.Text = Format(Val(Text8.Text) - Val(Text7.Text), 0.00)Text10.Text = Format(Val(Text9.Text) / Val(Text7.Text) * 100, 0.00)End SubPrivate Sub Command2_Click()Private Sub Command2_Click()Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = Text7 = Text8 = Text9 = 6Text10 = Text1.SetFocusEnd Sub5.在主窗口中单击“除权除息”按钮将出现“除权除息”窗口，然后用户根据需要输入当前价位、每股送股、每股分红、每股配股和配股价位，然后单击“计算”按钮对上市公司进行送股、分红和配股后的除权价格进行计算。按“清除”按钮可将文本框中所有数据清除. 详细请见下图除权分析 窗口控件名属性名属性值Form3caption除权除息Label1caption输入数据Label2caption当前价位Label3caption每股送股Label4caption每股分红Label5caption每股配股Label6caption配股价位Label7caption输出结果Label8caption除权除息价Command1caption计算Command2caption清除3.3 Form3窗口上的代码Form3代码：Private Sub Command1_Click()Dim a, b, c, d, e, f As Single 7If Text1 = ThenMsgBox 当前价位不能为空 End IfIf Text2 = ThenMsgBox 每股送股不能为空 End IfIf Text3 = ThenMsgBox 每股分红不能为空 End IfIf Text4 = ThenMsgBox 每股配股不能为空 End IfIf Text5 = ThenMsgBox 配股价位不能为空 End Ifa = Val(Text1)b = Val(Text2)c = Val(Text3)d = Val(Text4)e = Val(Text5)f = (a + d * e - c) / (1 + b + d)Text6 = Format(Val(f), 0.00)End SubPrivate Sub Command2_Click()Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = End Sub6.在主窗口中单击“参数设置”按钮将出现“参数设置”窗口，然后对印花税、佣金比率及最低佣金设置。在程序设计时，给它们赋予如图所示的默认值。 8参数设置窗口控件名属性名属性值Form4caption参数设置Label1caption手续费用参数Label2caption印花税率Label3caption佣金率Label4caption最低费用3.4 Form4窗口上的代码Form4 Private Sub Command1_Click() Form1.Show Form4.HideEnd Sub4. 在主窗口中单击“关于”按钮将出现“关于”窗口（如图5），“关于”窗体主要就软件的功能及版本信息进行说明。 9 控件名属性名属性值From5caption关于Textcaption(文本)Scrollbarscaption2-Vertical3.5 Form5 代码Private Sub Form_Load() Text1 = 股民在进行股票交易时,经常需要对买卖股票作出投资分析；在上世公司进行送股，分红和配股后还需要对股票除权后的价格进行计算。若采用手工计算，不仅公式复杂，还易出错。 “股市计算器”这个小软件可帮股民解决这个难题。End Sub-5. 在主窗口中单击“退出”按钮，则结束这个应用程序。 10 四. 运行结果及分析如图所示均为本程序的控制窗口。3.单击“投资分析”按钮将出现“投资分析”窗口，然后用户根据需要输入股票代号、持股数量、买入价位、卖出价位，然后单击“计算”按钮对买卖股票的盈亏进行分析计算.这样可以减少用户用手计算所花费的时间,按“清空”按钮可将文本框中所有数据清除.4.点击除权除息后,用户根据自己的价位和数据 得出 除权除息价,这样可以节约用于大部分的时间,方便了用户. 11 五心得 通过本次课程设计，我进一步的熟悉了Visual Basic的操作，初步掌握了不同界面之间的切换的实现功能，加深了不同界面之间相关联的认识。且在本次实践中，我综合了已学的VB知识，充分达到了对知识融会贯通的效果，加深了我的认识。我体会到，一个项目，不是一蹴而就的，必须通过多次的修改，才能一点一点的让它完美。 我还了解到VB的特点。VB是在原来的Basic语言基础上发展而来的。Visual指的是可视的图形用户界面开发方法。不需编写大量代码去描述界面元素的外观和位置，只要把预先建立的对象而加到屏幕上即可。如果已使用过诸如Paint之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是B语言，一种在计算机技术发展历史上应用最为广泛的语言之一。VB在原有Basic语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI有直接关系。VB不仅是可视语言，而且是面向对象的编程语言，其特点是概念多，实践性强，涉及面广。同时，我还知道了一些窗体的方法的功能及使用。例如Show方法，若调用Show方法时指定的窗体没有装载，VB将会自动装载该窗体。另外，应用程序的启动窗体在其Load事件调用后会自动出现。还有Hide方法是用来隐藏Form对象的，不能使其卸载。若调用该方法时窗体还没有加载，那么Hide方法将加载该窗体但不使用它。这些方法在制作多窗口应用程序时都是很有用的。还有学习VB，很重要一点就是要弄清楚什么