课程设计报告2333刘奇峰Word格式.docx

1、在基本要求的基础上又进行了创新。总的来说这次课程设计让我学习了很多，让我拥有一个平台来对我所学习知识进行应用，并且在解决问题的时候更加丰富了自己的知识熟练了对visual basic的应用，可谓收获颇多。关键词： 微型小助手 数字时钟 电话本 记事本 简易 计算器 日历 相册目 录1.选题的意义12.系统功能需求分析12.1系统概述12.2系统的组成及各模块的功能12.3系统的运行环境13.系统设计13.1总体结构设计13.2控件数组设计14.系统实现24.1总体界面设计24.2日历3 4.3 计算器44.4相册65.总结85.1总结85.2存在的主要问题8参考文献81.选题的意义：（1）通过

2、这次的课程设计我对visual basic 进行进一步的深入学习，并且能够自己完成一些程序的编制和应用。之所以选择微型小助手就是因为其工作量大而且应用了更多的知识，让我可以在完成设计的过程中充实自己以利于进一步的学习。（2）我所选择的题目中应用了控件、数组、多种函数、程序设计结构，过程、控件数组等。2.系统功能需求分析2.1系统概述 微型小助手主要是应用visual basic设计了一些日常的常用程序，利用这些程序可以方便我们日常的生活。给我们带来不少的方便。这些设计也能够增强我们解决问题的能力，学好它会让我们受益匪浅。2.2系统的组成及各模块的功能 微型小助手由记事本、数字时钟、电话本、日历

3、、计算器、电子相册六个部分组成。 2.2.1记事本功能：可以记录要事、重要节日，同时具有提醒功能。 2.2.2 数字时钟功能：可以用指针的形式显示当前时间，当前日期星期等。 2.2.3电话本功能：可以浏览、查阅、删除、添加、修改通讯信息。 2.2.4 日历功能：可以显示任意一年的日期以及对应的星期。 2.2.5 计算器功能：可以四则运算，各种三角函数的运算。2.2.6相册功能：可以添加、删除、放大、缩小相片。2.3系统的运行环境 操作系统：Window xp/2000/me/98 系统支持：Visual Basic 6.0以上版本 3.系统设计3.1总体结构设计微型小助手由记事本、数字时钟、电

4、话本、日历、计算器、电子相册六个部分组成。由一个主窗体的6个按钮分别进入各个功能模块，同时可以通过一个按钮返回到主界面，并且6个功能模块可以同时运行。各有各的特点，对题设的要求做出了很好的设计，界面设计也是别有用心。3.2控件数组设计 计算机的数字键，运算符号等运用控件数组，方便编程与运算。同时日历也是运用了label的数组，得以将数字很好的进行对齐分布。4.系统实现 4.1总体界面设计核心代码：Private Sub Command1_Click（）calculator.ShowEnd SubPrivate Sub Command2_Click（）calender.ShowPrivate S

5、ub Command3_Click（）clock.ShowPrivate Sub Command4_Click（）phonenumber.ShowPrivate Sub Command5_Click（）photo.ShowPrivate Sub Command6_Click（）record.Show说明：在主界面通过6个按钮分别进入6个功能模块。4.2日历 月份的填充运用了comboboox，填充代码为 Dim CurrMonth As Integer cboMonth.AddItem 一月二月三月四月五月六月七月八月九月十月十一月十二月 CurrMonth = CInt（Format（Dat

6、e, MM） cboMonth.ListIndex = CurrMonth - 1查询年份则是运用过程call入核心代码为Dim month1 As Integer, year1 As Integer If SelecteDate = 0 Then Exit Sub month1 = cboMonth.ListIndex + 1 year1 = Val（cboYear.Text）Call checkdate（month1, year1）日期的填入则是重头戏，其核心代码为： lblnumber（I）.Caption = lblnumber（I）.BorderStyle = 0 Next ISta

7、rtDay = CStr（year1） + - + CStr（month1） + + 01StartWeek = Weekday（CDate（StartDay）Select Case Val（month1） Case 1, 3, 5, 7, 8, 10, 12: MaxDate = 31 Case 4, 6, 9, 11:30 Case 2: If year1 Mod 4 = 0 Then MaxDate = 29 Else MaxDate = 28 End Select For I = StartWeek - 1 To MaxDate + StartWeek-2 lblnumber（I）.C

8、aption = I - StartWeek + 24.3 计算器数字键是运用了command1的控件数组函数部分的运算的核心为Case 0Text1.Text = Val（Text1.Text） * Val（Text1.Text）Case 11If Text1.Text 0 ThenText1.Text = Sqr（Val（Text1.Text）Else MsgBox 负数不能开平方哦！, , 64 + vbOKEnd IfCase 13If Text1.Text 0 Then Text1.Text = 1 / Val（Text1.Text）Case 2Call fact（Text1.Tex

9、t, f）Text1.Text = fExit SubCase 10Text1.Text = Exp（Val（Text1.Text）Case 9If Val（Text1.Text） Text1.Text = Log（Val（Text1.Text）MsgBox 条件错误, vbInformation + vbYes, 错误Case 12Text1.Text = Sin（Val（Text1.Text）Case 1Text1.Text = Cos（Val（Text1.Text）阶乘运算则是用了过程实现核心代码为Private Sub fact（n As Integer, f As Double）Di

10、m mm As Integerf = 1For mm = 1 To nf = f * mmNext mmEnd Sub 加减乘除的运算核心代码为dianl = Falsefuhao = FalseSelect Case fuhaozhuangtaiText1.Text = Val（firstnumber） + Val（numbumbuf）Text1.Text = Val（firstnumber） - Val（numbumbuf）Text1.Text = Val（firstnumber） * Val（numbumbuf）Case 3Text1.Text = Val（firstnumber） /

11、Val（numbumbuf）End Selectfirstnumber = Text1.Textdian = False重置键的核心代码为Private Sub Command7_Click（Index As Integer）Select Case IndexText1.Text = 0numbumbuf = dianal = Falsefirstnumber = 4.4相册 图片的添加应用了CommonDialog代码入下Private Sub Command8_Click（） CommonDialog2.ShowOpenIf CommonDialog2.FileName Then List

12、1.AddItem _CommonDialog2.FileName删除为Private Sub Command9_Click（） If List1.ListIndex -1 ThenList1.RemoveItem List1.ListIndex无该删除图片, vbCritical + vbApplicationModal, 错误放大缩小则用了left，height，width，top函数Private Sub Command3_Click（） image1.Left = image1.Left - 100image1.Top = image1.Top - 100image1.Height =

13、 image1.Height + 200image1.Width = image1.Width + 200image1.Left = image1.Left + 100image1.Top = image1.Top + 100image1.Height = image1.Height - 200image1.Width = image1.Width - 2005.总结： 5.1总结 这次的课程设计我觉得收获颇多，掌握了多种visual basic的设计方法，并且控件数组应用上面也是更上一层楼。深深地感觉到了这个系统的强大以及这个系统给我们带来的好处。而对于自己来说不仅丰富了知识而且增加了自己设计方面的技能。对其使用也变得熟悉得心应手起来。我所制作的，计算器、日历、以及相册通过自己的想法完成了老师所要求项目。总之，学生受益匪浅。5.2存在的问题：在日历的制作方面没能够成功的添加农历节日深感遗憾，我想以后我要通过自己进一步的学习从而完善自己的设计。参考文献：1.Visual Basic 6.0编程案例精解， 张路平，电子工业出版社2.Visual Basic 程序设计 王学军，中国铁道出版社3. MSDN