工業控制過程中,對於閥門的控制有比較嚴格的方法,也是十分重要的一個生產過程。
Excel 可以模擬這一過程,雖然沒有實際意義,但在展示生產過程方面,還有一個教學意義。
閥門開關示例圖
通常閥門有兩個狀態,開或關。半開半關那是調節閥。
這個示例是氣動截止閥,或者電動閥也可以。
紅色為關閉狀態,綠色為打開狀態。
示例過程
打開補液閥,分液罐液位上升。
此過程沒有設置液位上限和下限,不能做超限處理,需要手動打開排液閥,進行排液。
實際上就是個展示閥門狀態效果。
所以也不必期待太多,通過畫圖實現這樣的一個功能,感覺Excel還是很強大的。
如果,多點耐心,完全可以實現整個工業生產過程,但是費力沒結果。
所以,這裡就不深入研究具體實現後有什麼意義了。
打開排液閥,分液罐液位下降。
整個示例中,可實現閥門狀態過程。其實也沒有意義,可以做為PPT匯報工作用,製作過程也不複雜。
應用在生產分析會議上,顯得更加具有說服力,效果很好。
代碼
Private Sub CommandButton1_Click()'''''''''打開閥門With ActiveSheet.Shapes.Range(Array("Group 6")).Fill .Visible = msoTrue .ForeColor.RGB = RGB(23, 211, 11) .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With ActiveSheet.Shapes.Range(Array("Rectangle 1029")).ScaleHeight 1.5, msoFalse, _ msoScaleFromBottomRightEnd SubPrivate Sub CommandButton2_Click()'''''''''關閉閥門With ActiveSheet.Shapes.Range(Array("Group 6")).Fill.Visible = msoTrue.ForeColor.RGB = RGB(213, 21, 11).ForeColor.TintAndShade = 0.ForeColor.Brightness = 0.Transparency = 0.SolidEnd WithEnd Sub
結尾
有時候真想做一些具體的內容,但是這樣完成之後,真不知道有什麼結果。
工業過程示例曾做過一個液位控制過程,那個示例還是有一點點自動過程。喜歡的朋友,可以訪問這個地址:
Excel vba 模擬工業過程監控,液位變化情況