VB课设报告.doc

Visual Basic课程设计报告课程设计题目： 一、 模拟时钟 二、 流动字幕板的设计三、 可行解的求法 四、 小型文本编辑器的设计 五、 学生成绩的评定 学生姓名： 刘娟娟 专 业： 电子商务 班 级： 电子商务1101 学 号： 20115376 指导教师： 陈奕老师2012年6 月 9日前 言VB是一种可视化，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows环境下的各类应用程序，是目前较为流行的应用软件开发平台。VB的编程功能十分强大，应用范围非常广泛，有许多应用软件都可用它作为开发工具。利用Visual Basic我们可以在windows环境下，轻松自如的设计出复杂的图形用户界面，高效率的开发出各种各样的应用软件。VB不仅是一种计算机语言，更确切的说，它是一个集软件开发，测试和差错等功能于一体的集成式开发环境。一、 开发背景： VB课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，计算机已经成为当今计算机应用中空前活跃的领域， 在生活中可以说得是无处不在。因此作为二十一世纪的大学来说掌握计算机的开发技术是十分重要的。二、 实现目标： 运用所学VB语言知识，对VB语言中基本数据类型、语法、数组、函数、结构、文件以及数据库等的操作，从而全面掌握面向对象的可视化程序设计的基本方法。三、课程设计的题目：课题一：模拟时钟1. 1.功能模块图： 图1 图22.程序代码：初始化：建立4个Line、1个Timer控件，（Line控件的长度重上至下如图1） Const pi = 3.1415926 定义常量Private Sub Form_Load() tx = Form1.ScaleWidth / 2: ty = Form1.ScaleHeight / 2 Scale (-tx, ty)-(tx, -ty) 自定义坐标系 For i = 1 To 12 每30画一刻度线 a = pi * (i - 1) / 6 Load Line4(i) 1000，1200为刻度起终点半径 Line4(i).X1 = 1000 * Cos(a): Line4(i).Y1 = 1000 * Sin(a) Line4(i).X2 = 1200 * Cos(a): Line4(i).Y2 = 1200 * Sin(a) Line4(i).Visible = True Next i Timer1_Timer Label1.Caption = DateEnd SubPrivate Sub Form_Paint() Circle (0, 0), 1400 绘制钟表盘面End SubPrivate Sub Timer1_Timer() hh = Hour(Time) Mod 12 取当前时、分、秒数 mm = Minute(Time): ss = Second(Time) a = ss * pi / 30 + pi / 2 秒针与坐标轴的夹角 Line3.X1 = 100 * Cos(a): Line3.Y1 = -100 * Sin(a) Line3.X2 = 1000 * Cos(a - pi): Line3.Y2 = -1000 * Sin(a - pi) a = mm * pi / 30 + pi / 2 分针与坐标轴的夹角 Line2.X1 = 100 * Cos(a): Line2.Y1 = -100 * Sin(a) Line2.X2 = 900 * Cos(a - pi): Line2.Y2 = -900 * Sin(a - pi) a = hh * pi / 6 + mm * pi / 360 + pi / 2 时针与坐标轴的夹角 Line1.X1 = 100 * Cos(a): Line1.Y1 = -100 * Sin(a) Line1.X2 = 700 * Cos(a - pi): Line1.Y2 = -700 * Sin(a - pi)End Sub3. 该设计的基本功能：可以呈现一个表盘式时钟，随时记录时间的推移，以及了解日期。 课题二：流动字幕板1. 2.功能模块图： 2.程序代码：Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseTimer2.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 80If Label1.Left = Form1.Width Then Label1.Left = -Label1.WidthEnd IfEnd SubPrivate Sub Timer2_Timer()Label1.Left = Label1.Left - 80If Label1.Left = -Label1.Width Then Label1.Left = Form1.WidthEnd IfEnd Sub当运行程序时，定时器控件不可见，我们可以通过单击命令按钮来控制标签的移动，由于我们已经将标签设成透明的了，所以我们这时见到的便是文字的移动效果了。 课题三：可行解 1. 3.功能模块图： 2.程序代码：Private Sub Command1_Click()For x = 1 To 16 For y = 1 To 24 z = 30 - x - y If 3 * x + 2 * y + z = 60 Then p = Format(x, ) & Format(y, ) & Format(z, ) List1.AddItem p End IfNextNextEnd Sub3. 该设计的基本功能： 可进行比较复杂的计算，具有计算功能，可计算可行解，并输出结果。 课题四：小型文本编辑器 1. 4.功能模块图： 2.程序代码：Private Sub biancu_Click()Text1.FontBold = TrueEnd SubPrivate Sub heiti_Click()Text1.FontName = 黑体End SubPrivate Sub hongse_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub kaiti_Click()Text1.FontName = 楷体_gb2312End SubPrivate Sub lanse_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub lishu_Click()Text1.FontName = 隶书End SubPrivate Sub qingxie_Click()Text1.FontItalic = TrueEnd SubPrivate Sub xiahuaxian_Click()Text1.FontStrikethru = TrueEnd Sub3. 该设计的基本功能：具有输出和输入文字的功能，可以改变字体风格以及颜色，标注下划线，设置粗体和倾斜度等。是一款小型文本编辑器。 课题五：学生成绩评定 1. 5.功能模块图： 2.程序代码：Private Sub Command1_Click()Select Case Val(Text1)Case Is 60Label1.Caption = 不合格Case Is 70Label1.Caption = 合格Case Is 80Label1.Caption = 中等Case Is = 90Label1.Caption = 优秀End SelectEnd SubPrivate Sub Text1_Validate(Cancel As Boolean)n = Val(Text1.Text)If n 150 Then MsgBo