智能工程实践报告

电气与信息工程学院实验室 实验报告 1 黑龙江科技学院黑龙江科技学院 综合实验报告综合实验报告 实验项目名称实验项目名称 工具栏窗口设计工具栏窗口设计 所属课程名称所属课程名称 智能控制工程实践智能控制工程实践 实实 验验 日日 期期 2011 年年 10 月月 24 日日 10 月月 28 日日 班班 级级 电气 08 13 班 学学 号号 12 号 姓姓 名名 田淑钰 成成 绩绩 电气与信息工程学院实验室 电气与信息工程学院实验室 实验报告 2 实验概述 实验概述 实验目的及要求实验目的及要求 实验目的实验目的 1 1 掌握掌握 VBVB 基本控件的功能 基本控件的功能 2 2 掌握掌握 VBVB 的基本编程方法 的基本编程方法 3 3 掌握掌握 ADOADO 访问数据库技术 访问数据库技术 4 4 掌握掌握 MSCommMSComm 控件在串行通信中的应用 控件在串行通信中的应用 5 5 应用应用 VBVB 软件与专业相结合 设计软件模拟控制系统 为今后的研究和软件与专业相结合 设计软件模拟控制系统 为今后的研究和 技术工作打下坚实的基础 技术工作打下坚实的基础 实践原理实践原理 Visual Fortran Visual Basic 混合语言编程时 一般使用混合语言编程时 一般使用 Visual Basic 开发用开发用 户界面 户界面 GUI 利用 利用 Visual Fortran 开发后数值计算与分析模块 通常的情况开发后数值计算与分析模块 通常的情况 是从是从 Visual Basic 中调用中调用 Fortran 子程序 子程序 在在 Visual Fortran Visual Basic 程序中 程序中 Visual Basic 必须是必须是 32 位的 也可位的 也可 以使用以使用 Microsoft Excel 中的中的 Visual Basic for Applications VBA 调用 调用 Fortran 子程序 子程序 Visual Basic 开发环境与开发环境与 Visual Fortran Visual 6 开发环境是独立的 然而 开发环境是独立的 然而 这两种语言能共存与最终的应用程序中 这两种语言能共存与最终的应用程序中 当从当从 Visual Basic 调用一个调用一个 Fortran 子程序时 必须 把子程序时 必须 把 Visual Fortran 子子 程序创建一个程序创建一个 Fortran DLL 工程 从工程 从 Visual Basic 引用这个引用这个 DLL 方法是用一个方法是用一个 Declare Sub 或或 Declare Func 语句 语句 实验环境实验环境 使用的软件 使用的软件 工具 计算机工具 计算机 软件 软件 VisualVisual Basic6 0Basic6 0 实验内容 实验内容 实验方案设计实验方案设计 1 1 设计的项目名称 图像的合成设计的项目名称 图像的合成 2 2 设计要求设计要求 1 1 应用 应用 VBVB 常用基本控件 编程代码正确 常用基本控件 编程代码正确 2 2 该软件具有智能控制功能 该软件具有智能控制功能 3 3 整体设计科学合理 美观人性化 整体设计科学合理 美观人性化 3 3 设计思想 设计思想 能对图片进行合成并具有与 异或 覆盖的功能 能对图片进行合成并具有与 异或 覆盖的功能 实践过程实践过程 程序代如下 程序代如下 电气与信息工程学院实验室 实验报告 3 Private Sub Command1 Click Static i As Integer i i 1 Select Case 1 Case 1 If Text2 Text 123 And Text3 Text 123 Then Form2 Show Else MsgBox 用户名错误 End If Case 2 If Text2 Text 123 And Text3 Text 123 Then Form2 Show Else MsgBox 用户名错误 End If Case 3 If Text2 Text 123 And Text3 Text 123 Then Form2 Show Else MsgBox 用户名错误 End If MsgBox 密码三次错误 64 关闭程序 End End Select End Sub 电气与信息工程学院实验室 实验报告 4 Private Sub Command1 Click Picture1 Visible True Picture2 Visible False Picture3 Visible False Show End Sub Private Sub Command2 Click Picture1 Visible False Picture2 Visible True Picture3 Visible False Show End Sub Private Sub Command3 Click Picture1 Visible False Picture2 Visible False Picture3 Visible True Form3 Show End Sub 电气与信息工程学院实验室 实验报告 5 Private Sub Command1 Click List2 AddItem List1 Text If List1 Text 狗狗爱吃骨头 Then MsgBox 答对了 Else MsgBox 错 End If End Sub Private Sub Command2 Click List2 RemoveItem List2 ListIndex End Sub 小结小结 六天实训很快就过去了 在这六天中我学到了很多东西 这之中我对 VB 有了一定的了解 也很感兴趣 VB 是一个很有用的软件 在做游戏 网页等方 面有很大的用