智能工程实践报告.docVIP

黑龙江科技学院 2011年11月28日—12月2日 班 级 测控08-1班 学 号 20 姓 名 范金亮 成 绩 电气与信息工程学院实验室 实验概述： 【实验目的及要求】 【实验目的】 1． 掌握VB基本控件的功能； 2． 掌握VB的基本编程方法； 3． 掌握ADO访问数据库技术； 4． 掌握MSComm控件在串行通信中的应用； 5． 应用VB软件与专业相结合，设计软件模拟控制系统，为今后的研究和技术工作打下坚实的基础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 语句。 Dim sw, sh Private Sub Command1_Click(Index As Integer) Picture2.Picture = LoadPicture() Select Case Index Case 0 Picture2.PaintPicture Picture1.Picture, 0, 0, sw, sh, sw, 0, -sw, sh, vbSrcCopy Case 1 Picture2.PaintPicture Picture1.Picture, 0, 0, sw, sh, 0, sh, sw, -sh, vbSrcCopy Case 2 Picture2.PaintPicture Picture1.Picture, 0, 0, sw, sh, sw, sh, -sw, -sh, vbSrcCopy Case 3 Picture2.PaintPicture Picture1.Picture, 0, 0, 0.5 * sw, 0.5 * sh, 0, 0, sw, sh, vbSrcCopy End Select End Sub Private Sub Form_Load() Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height sw = Picture1.ScaleWidth sh = Picture1.ScaleHeight End Sub 双击结束。 【小结 实践目的： 明确 □ 较明确 □ 基本明确 □ 不明确 □ 实践原理： 准确 □ 较准确 □ 基本准确 □ 不准确 □ 实践方案： 合理 □ 较合理 □ 基本合理 □ 不合理 □ 实践过程记录： 详细 □ 较详细 □ 一 般 □ 不详细 □ 实践结论： 正确 □ 较正确 □ 基本正确 □ 不正确 □ 小结内容： 充实 □ 较充实 □ 一 般 □ 不充实 □ 完成情况： 全部完成 □ 基本完成 □ 没完成 □ 成绩： 指导教师签名： 批阅日期： 电气与信息工程学院实验室 实验报告 1