项目课程学习总结报告工控程序开发训练项目报告.doc

工控程序开发训练 项目课程学习总结报告 班级：______41132_____ 学号：______ _____ 姓名：_____ _____ 指导教师： 郑家辉 2013年4月  第一章 项目过程 1.1 项目产品简介 名称：微机控制打包秤生产管理系统 特点：工作界面简单，操作性强。 主要用途：适用于各种颗粒状物料打包，如大米，小麦。 1.2 项目产品主要功能及主要模块 1.3 主控生产流程图 1.4 数据库结构 product_table表。主要用于记录各个品种的高停重量、中停重量、低停重量、单包重量。 字段名称 数据类型 字段大小 是否主键 product_id 自动编号 长整型 是 product_name 文本 10 否 high_speed_weight 数字 单精度型 否 middle_speed_weight 数字 单精度型 否 low_speed_weight 数字 单精度型 否 single_bag_weight 数字 单精度型 否 sc_table表。主要用于记录生产品种的打包日期、打包时间、生产班组、品种名称、单包重量、每包生产重量、生产批号、 字段名称 数据类型 字段大小 是否主键 sc_number 自动编号 长整型 是 sc_date 日期/时间 短日期 否 sc_time 日期/时间 长时间 否 sc_group 文本 2 否 sc_product_name 文本 16 否 sc_single_weight 数字 单精度型 否 sc_weight 数字 单精度型 否 sc_pihao 文本 14 否 1.5 项目产品运行效果图 第二章 项目学习 2.1 本课程的项目中所涉及到的Visual Basic方面的主要知识 1、设置窗体或控件的属性值 2、shape控件的使用 3、VB赋值语句的使用 4、计时器控件的设置与使用 5、exe文件的生成和安装包的制作 2.2 核心代码分析 实际生产主控程序 Public Sub produce_program_true(pzmc, scbs, scbz, gtzl, ztzl, dtzl, dbzl) Dim hw As Integer 定义hw变量 Dim mw As Integer 定义hw变量 Dim lw As Integer 定义hw变量 Dim a As Integer 定义hw变量 Dim ab As Integer 定义hw变量 Dim ph As String 定义hw变量 Label8.Caption = pzmc 显示品种名称 Call close_door 称斗门关 mark_ssj_yz = True 启动输送机运转动画 For a = 1 To scbs 为生产包数定义循环 Label9.Caption = scbs 显示生产包数 高速喂料 mark_djl = True 启动大搅笼动画 mark_xjl = True 启动小搅笼动画 Call high_speed 启动高速喂料(大、小搅笼)电机 mark_cdl_zj = True 启动秤斗料增加动画 Do While scale_weight = gtzl 如果当前秤重量≤高速停止重量gtzl，则一直高速喂料 scale_weight = now_scale_weight 读取当前秤数据 Label_chengdouzhongliang.Caption = Format(scale_weight, 0.00) 将称斗料重量值保留两位小数送屏幕显示 DoEvents 转让CPU控制权 Loop 中速喂料 mark_