测控08-2.docVIP

黑龙江科技学院 综合实验报告 实验项目名称 判断季节、天数、工作日 所属课程名称 智能控制工程实践 实 验 日 期 2011年10月31日—11月4日 班 级 测控08-2 学 号 9号 姓 名 孙学北 成 绩 电气与信息工程学院实验室 实验概述： 【实验目的及要求】 【实验目的】 1． 掌握VB基本控件的功能； 2． 掌握VB的基本编程方法； 3． 掌握ADO访问数据库技术； 4． 掌握MSComm控件在串行通信中的应用； 5． 应用VB软件与专业相结合，设计软件模拟控制系统，为今后的研究和技术工作打下坚实的基础。 【实践原理】 编写程序模拟“判断季节、天数、工作日”。在组合框中输入0到6，如图所示。然后，按“开始”按钮可以得到是否工作。 编写如下的事件过程： Public Enum Workdays Sunday 值为a Monday 值为b Tuesday 值为c Wednesday 值为d Thursday 值为e Friday 值为f Saturday 值为g Invalid = -1 End Enum Private Sub Command1_Click() Dim Myday As Workdays Text1.SetFocus Myday = Val(Text1.Text) If Myday = Sunday Or Myday = Saturday Then Form3.Show Else Form2.Show End If End Sub Private Sub ChangeColor() Form1.BackColor = HScroll1.Value End Sub Private Sub Command2_Click() Dim y As Integer, m As Integer, days As Integer Dim leapyear As Boolean m = Val(Text3.Text) Select Case m Case 3 To 5 Label15.Caption = 春季(Spring) Case 6 To 8 Label15.Caption = 夏季(Summer) Case 9 To 11 Label15.Caption = 秋季(Autumn) Case 12, 1, 2 Label15.Caption = 冬季(Winter) End Select Select Case m Case 1, 3, 5, 7, 8, 10, 12 Label16.Caption = 31天 Case 4, 6, 9, 11 Label16.Caption = 30天 Case 2 If leapyear Then days = 29 Else days = 28 End If Label16.Caption = Str(days) + 天 End Select End Sub Private Sub Command3_Click() Text3.Text = Label14.Caption = Label15.Caption = Label16.Caption = End Sub Private Sub Form_Load() Label10.Caption = 红色值: HScroll1.Value ChangeColor End Sub Private Sub HScroll1_Change() Label10.Caption = 红色值: HScroll1.Value ChangeColor End Sub Private Sub HScroll1_Scroll() Label10.Caption = 红色值: HScroll1.Value ChangeColor End Sub 【实验环境】（使用的软件） 工具：计算机 软件：Visual Basic6.0 实验内容： 【实验方案设计】 1.设计的项目名称：判断季节、天数、工作日 2.设计要求 （1）应用VB常用基本控件，编程代码正确。 （2）该软件具有智能控制功能。 （3）整体设计科学合理，美观人性化。 3.设计思想： 能对图片进行合成并具有自动，随机，等功能。 【实践过程】 1.建立应用程序用户界面并设置属性。新建一个工程，进入窗体设计器，首先增加一个用作容器的框架Framel。选中Framel，在其中增加一个组合框 Combo1，一个标签Label1和一个命令按钮Command1。将Combo1的Style