項目課程學習總結報告工控程序開發(fā)訓練項目報告

1、工控程序開發(fā)訓練項目課程學習總結報告班級：_41132_學號：_ _姓名：_ _指導教師： 鄭家輝 2013年4月 第一章 項目過程1.1 項目產(chǎn)品簡介名稱：微機控制打包秤生產(chǎn)管理系統(tǒng)特點：工作界面簡單，操作性強。主要用途：適用于各種顆粒狀物料打包，如大米，小麥。1.2 項目產(chǎn)品主要功能及主要模塊微機控制打包秤生產(chǎn)管理系統(tǒng)生產(chǎn)管理數(shù)據(jù)瀏覽報表打印輔助功能打包品種管理實際生產(chǎn)系統(tǒng)測試模擬生產(chǎn)高速喂料稱斗中的料是否達到38kg打包開始是中速喂料否稱斗中的料是否達到45kg低速喂料是否稱斗中的料是否達到49kg穩(wěn)定稱斗2s放置包裝袋釋放包裝袋稱斗關門稱斗開門放料是否是否達到10包稱斗放料是否放完（重

2、量0.5kg）包裝袋是否夾緊稱斗中的料是否達到50kg是否點動喂料打包完成是否否是是喂料攪籠電機停止轉(zhuǎn)動否1.3 主控生產(chǎn)流程圖1.4 數(shù)據(jù)庫結構product_table表。主要用于記錄各個品種的高停重量、中停重量、低停重量、單包重量。字段名稱數(shù)據(jù)類型字段大小是否主鍵product_id自動編號長整型是product_name文本10否high_speed_weight數(shù)字單精度型否middle_speed_weight數(shù)字單精度型否low_speed_weight數(shù)字單精度型否single_bag_weight數(shù)字單精度型否sc_table表。主要用于記錄生產(chǎn)品種的打包日期、打包時間、生產(chǎn)

3、班組、品種名稱、單包重量、每包生產(chǎn)重量、生產(chǎn)批號、字段名稱數(shù)據(jù)類型字段大小是否主鍵sc_number自動編號長整型是sc_date日期/時間短日期否sc_time日期/時間長時間否sc_group文本2否sc_product_name文本16否sc_single_weight數(shù)字單精度型否sc_weight數(shù)字單精度型否sc_pihao文本14否1.5 項目產(chǎn)品運行效果圖第二章 項目學習2.1 本課程的項目中所涉及到的visual basic方面的主要知識1、設置窗體或控件的屬性值2、shape控件的使用3、vb賦值語句的使用4、計時器控件的設置與使用5、exe文件的生成和安裝包的制作2.2

4、核心代碼分析實際生產(chǎn)主控程序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 =

5、true 啟動輸送機運轉(zhuǎn)動畫 for a = 1 to scbs 為生產(chǎn)包數(shù)定義循環(huán) label9.caption = scbs 顯示生產(chǎn)包數(shù) 高速喂料 mark_djl = true 啟動大攪籠動畫 mark_xjl = true 啟動小攪籠動畫 call high_speed 啟動高速喂料(大、小攪籠)電機 mark_cdl_zj = true 啟動秤斗料增加動畫 do while scale_weight = gtzl 如果當前秤重量高速停止重量gtzl，則一直高速喂料 scale_weight = now_scale_weight 讀取當前秤數(shù)據(jù) label_chengdouzhong

6、liang.caption = format(scale_weight, 0.00) 將稱斗料重量值保留兩位小數(shù)送屏幕顯示 doevents 轉(zhuǎn)讓cpu控制權 loop 中速喂料 mark_djl = true 啟動大攪籠動畫 mark_xjl = false 關閉小攪籠動畫 call middle_speed 啟動中速喂料(大攪籠)電機 shape_xiaojiaolongliao.visible = false 將小攪籠動畫隱藏 do while scale_weight = ztzl 如果當前秤重量中速停止重量ztzl，則一直中速喂料 scale_weight = now_scale_w

7、eight 讀取當前秤數(shù)據(jù) label_chengdouzhongliang.caption = format(scale_weight, 0.00) 將稱斗料重量值保留兩位小數(shù)送屏幕顯示 doevents 轉(zhuǎn)讓cpu控制權 loop 低速喂料 mark_djl = false 關閉大攪籠動畫 mark_xjl = true 啟動小攪籠動畫 call low_speed 啟動低速喂料(小攪籠)電機 shape_dajiaolongliao.visible = false 將大攪籠動畫隱藏 do while scale_weight dbzl * 2 / 1000 如果(單包重量-稱斗重量)大于

8、單包重量*2/1000，則一直點動喂料 mark_xjl = true 啟動小攪籠動畫 call low_speed 啟動低速喂料(小攪籠)電機 my_sleep (500) 電機停轉(zhuǎn)500毫秒 mark_xjl = false 關閉小攪籠動畫 shape_xiaojiaolongliao.visible = false 將小攪籠動畫隱藏 call stop_speed 停止喂料，電機停轉(zhuǎn) my_sleep (1000) 電機停轉(zhuǎn)1000毫秒 scale_weight = now_scale_weight 讀取當前秤數(shù)據(jù) label_chengdouzhongliang.caption = f

9、ormat(scale_weight, 0.00) 將稱斗料重量值保留兩位小數(shù)送屏幕顯示 doevents 轉(zhuǎn)讓cpu控制權 loop 包裝袋是否夾緊 do while bag_status 1 檢測包裝袋是否夾緊 doevents 轉(zhuǎn)讓cpu控制權 loop label10.caption = a 顯示當前包數(shù) bb = scale_weight 將當前稱數(shù)據(jù)賦值給bb aa = aa + bb 將aa+bb的值即累計重量賦值給aa label11.caption = format(aa, 0.00) 將累計重量值保留兩位小數(shù)送屏幕顯示 picture_shangdai.visible =

10、true 顯示夾緊包裝袋時包裝袋的動畫 picture_xiadai.visible = false 隱藏釋放包裝袋時包裝袋的動畫 稱斗開門 call open_door 啟動稱斗開門 mark_cdl_js = true 顯示稱斗料增加動畫 mark_cd_km = true 顯示稱斗開門動畫 mark_bag_zj = true 顯示包裝袋移動動畫 稱斗料是否放完 do while scale_weight = 0.5 檢測稱斗中剩余料是否大于0.5kg scale_weight = now_scale_weight 讀取當前秤數(shù)據(jù) label_chengdouzhongliang.cap

11、tion = format(scale_weight, 0.00) 將稱斗料重量值保留兩位小數(shù)送屏幕顯示 doevents 轉(zhuǎn)讓cpu控制權 loop 稱斗關門 call close_door 啟動稱斗關門 mark_cdl_js = false 關閉稱斗料增加動畫 mark_cd_km = false 關閉稱斗開門動畫 mark_bag_zj = false 關閉包裝袋料增加動畫 釋放包裝袋 shape_kaimenliao.visible = false 將開門下放料動畫隱藏 picture_shangdai.visible = false 隱藏夾緊包裝袋時包裝袋的動畫 picture_x

12、iadai.visible = true 顯示釋放包裝袋時包裝袋的動畫 mark_bag_yd = true 顯示包裝袋移動動畫 call release_bag 啟動釋放包裝袋 label_baoshu.caption = 第 + str(a) + 袋 顯示“第幾袋” if a = 1 then 為生產(chǎn)批號定義if循環(huán) ph = format(date, yyyymmdd) & format(time(), hhmmss) 將生產(chǎn)批號以“yyyymmddhhmmss”的格式顯示 end if adodc_sc.recordset.addnew 添加一條空紀錄 adodc_sc.records

13、et.fields(sc_date) = date 為字段sc_date賦值date adodc_sc.recordset.fields(sc_time) = time 為字段sc_time賦值time adodc_sc.recordset.fields(sc_group) = scbz 為字段sc_group賦值scbz adodc_sc.recordset.fields(sc_product_name) = pzmc 為字段sc_product_name賦值pzmc adodc_sc.recordset.fields(sc_single_weight) = dbzl 為字段sc_singl

14、e_weight賦值dbzl adodc_sc.recordset.fields(sc_weight) = ab 為字段sc_weight賦值ab adodc_sc.recordset.fields(sc_pihao) = ph 為字段sc_pihao賦值ph adodc_sc.recordset.update 更新當前記錄 nextend subprivate sub mscomm1_oncomm() dim ss as string 定義ss變量 dim mm as integer 定義mm變量 ss = mscomm1.input 將com1端口賦值給ss mm = instr(ss,

15、) 查找數(shù)據(jù)起始位置 now_scale_weight = val(mid(ss, mm + 1, 7) / 10 讀取當前稱數(shù)據(jù) label_chengdouzhongliang.caption = format(now_scale_weight, 0.00) 將稱斗重量值保留兩位小數(shù)送屏幕顯示 mscomm1.inbuffercount = 0 清除緩沖區(qū)數(shù)據(jù)end sub2.3 在整個包裝秤自動稱重系統(tǒng)中，指出本軟件所起的作用對生產(chǎn)實行自動控制，并能夠進行生產(chǎn)管理。第三章 項目總結3.1 在項目學習過程中遇到的問題、困難及解決方法或過程；問題：編寫點動喂料代碼時，總出現(xiàn)問題，實行不了點動。解決方法：通過