項(xiàng)目課程學(xué)習(xí)總結(jié)報(bào)告工控程序開發(fā)訓(xùn)練項(xiàng)目報(bào)告

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

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

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

4、核心代碼分析實(shí)際生產(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 稱斗門關(guān) mark_ssj_yz =

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

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

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

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

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

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

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

12、iadai.visible = true 顯示釋放包裝袋時(shí)包裝袋的動(dòng)畫 mark_bag_yd = true 顯示包裝袋移動(dòng)動(dòng)畫 call release_bag 啟動(dòng)釋放包裝袋 label_baoshu.caption = 第 + str(a) + 袋 顯示“第幾袋” if a = 1 then 為生產(chǎn)批號(hào)定義if循環(huán) ph = format(date, yyyymmdd) & format(time(), hhmmss) 將生產(chǎn)批號(hào)以“yyyymmddhhmmss”的格式顯示 end if adodc_sc.recordset.addnew 添加一條空紀(jì)錄 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 更新當(dāng)前記錄 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 讀取當(dāng)前稱數(shù)據(jù) label_chengdouzhongliang.caption = format(now_scale_weight, 0.00) 將稱斗重量值保留兩位小數(shù)送屏幕顯示 mscomm1.inbuffercount = 0 清除緩沖區(qū)數(shù)據(jù)end sub2.3 在整個(gè)包裝秤自動(dòng)稱重系統(tǒng)中，指出本軟件所起的作用對(duì)生產(chǎn)實(shí)行自動(dòng)控制，并能夠進(jìn)行生產(chǎn)管理。第三章 項(xiàng)目總結(jié)3.1 在項(xiàng)目學(xué)習(xí)過程中遇到的問題、困難及解決方法或過程；問題：編寫點(diǎn)動(dòng)喂料代碼時(shí)，總出現(xiàn)問題，實(shí)行不了點(diǎn)動(dòng)。解決方法：通過