WinCC課程設計

1、工業(yè)組態(tài)課程設計 題目：基于WinCC的運料小車控制系統(tǒng)監(jiān)控界面設計院系：物理與電氣工程學院班級： 學號： 姓名： 基于WinCC的運料小車控制系統(tǒng)監(jiān)控界面設計監(jiān)控界面如下圖所示，畫面大小為800×600。設計任務：實現(xiàn)小車的自動運料方式與單動運料方式。單動運料過程：小車首先位于最左方，在后限位開關指示燈為綠色時，小車車門關閉，小車車廂上的煤為空，此時小車開始啟動，向右運行，當運行到漏斗正下方時，前限位開關指示燈由紅變綠，漏斗門打開，定時器開始計時7s（70×100ms），小車車門打開，開始卸煤，定時器開始計時5s（50×100ms），卸煤完成，小車停止。自動運料

2、過程則為單動過程的不斷重復。另外需組態(tài)兩個按鈕，停止按鈕與復位按鈕，停止按鈕用來控制小車在單動與自動運料過程的停止。復位按鈕則用來對小車進行復位，即小車回到如圖所示的初始狀態(tài)下。設計要求：1. 創(chuàng)建如圖所示的過程畫面。2. 創(chuàng)建所有使用的內(nèi)部變量并作變量說明（包括變量的數(shù)據(jù)類型、名稱以及作用，可列作表格寫出）。3. 寫出4個按鈕的左鍵事件的C動作程序代碼。4. 寫出全局腳本程序代碼（自動運行腳本程序與單動運行腳本程序），并要求寫出所用的觸發(fā)器。設計如下：1 創(chuàng)建過程畫面如下：內(nèi)部變量數(shù)據(jù)類型名稱作用flag1 二進制單動標志位控制單動flag2二進制自動標志位控制自動xiaochex無符號16

3、位小車位置控制小車位置qianxiankaiguan二進制前限位開關限位開關houxiankaiguan 二進制后限位開關限位開關cheshachuxian二進制車沙出現(xiàn)控制小車沙出現(xiàn)loudoushanxiaoshi二進制漏斗沙控制漏斗沙出現(xiàn)T5無符號16位定時5S定時T7無符號16位定時7S定時loudoumen二進制漏斗門控制漏斗門xiaochemen二進制小車門控制小車門2所使用的內(nèi)部變量：3個按鈕的C動作程序代碼：自動： SetTagDWord("flag1",1);單動：SetTagDWord("flag2",1);停止：SetTagDWor

4、d("flag1",0); SetTagDWord("flag1",0);復位：SetTagDWord("flag1",0); SetTagDWord("flag1",0);SetTagDWord("xiaochex",0);4全局腳本程序代碼：單動程序：#include "apdefap.h"int gscAction( void ) DWORD value,valueT5,valueT7; int bit1; SetTagDWord("T5",50);

5、 SetTagDWord("T7",70);SetTagDWord("loudoushanxiaoshi",1); bit1=GetTagDWord("flag1"); while(bit1) bit1=GetTagDWord("flag1"); value=GetTagDWord("xiaochex"); value+=10; if(value>640) value=640; SetTagDWord("xiaochex",value); SetTagDWord(&qu

6、ot;qianxiankaiguan",1); /前限位開關變色 SetTagDWord("loudoumen",30); /漏斗門開 SetTagDWord("loudoushanxiaoshi",0); /漏斗沙消失 SetTagDWord("cheshachuxian",1); /車沙出現(xiàn) while(bit1) valueT7=GetTagDWord("T7"); /定時7S valueT7-=1; if(valueT7<=0) valueT7=0; SetTagDWord("T7

7、",valueT7); /車沙出現(xiàn) SetTagDWord("loudoumen",0); /漏斗門開關SetTagDWord("loudoushanxiaoshi",1); /漏斗沙出現(xiàn) SetTagDWord("qianxiankaiguan",0); /前限位開關變還色 while(bit1) value=GetTagDWord("xiaochex"); value-=10; if(value<=0) value=0;SetTagDWord("xiaochex",value

8、); while(bit1) SetTagDWord("xiachemen",1); /che門開 SetTagDWord("houxiankaiguan",1); /hou限位開關變色 valueT5=GetTagDWord("T5"); /定時5S valueT5-=1; if(valueT5<=0) valueT5=0; SetTagDWord("cheshachuxian",0); SetTagDWord("houxiankaiguan",0); /hou限位開關huan色 Set

9、TagDWord("xiachemen",0); SetTagDWord("flag1",0); SetTagDWord("T5",valueT5);bit1=GetTagDWord("flag1"); SetTagDWord("xiaochex",value); bit1=GetTagDWord("flag1"); SetTagDWord("T7",valueT7); bit1=GetTagDWord("flag1"); SetTag

10、DWord("xiaochex",value); bit1=GetTagDWord("flag1"); return 0; 自動程序：#include "apdefap.h"int gscAction( void ) DWORD value,valueT5,valueT7; int bit1; while(bit2)SetTagDWord("T5",50); SetTagDWord("T7",70);SetTagDWord("loudoushanxiaoshi",1); bi

11、t1=GetTagDWord("flag2"); while(bit1) bit1=GetTagDWord("flag2"); value=GetTagDWord("xiaochex"); value+=10; if(value>640) value=640; SetTagDWord("xiaochex",value); SetTagDWord("qianxiankaiguan",1); /前限位開關變色 SetTagDWord("loudoumen",30); /漏斗

12、門開 SetTagDWord("loudoushanxiaoshi",0); /漏斗沙消失 SetTagDWord("cheshachuxian",1); /車沙出現(xiàn) while(bit1) valueT7=GetTagDWord("T7"); /定時7S valueT7-=1; if(valueT7<=0) valueT7=0; SetTagDWord("T7",valueT7); /車沙出現(xiàn) SetTagDWord("loudoumen",0); /漏斗門開關SetTagDWord(&

13、quot;loudoushanxiaoshi",1); /漏斗沙出現(xiàn) SetTagDWord("qianxiankaiguan",0); /前限位開關變還色 while(bit1) value=GetTagDWord("xiaochex"); value-=10; if(value<=0) value=0;SetTagDWord("xiaochex",value); while(bit1) SetTagDWord("xiachemen",1); /che門開 SetTagDWord("ho

14、uxiankaiguan",1); /hou限位開關變色 valueT5=GetTagDWord("T5"); /定時5S valueT5-=1; if(valueT5<=0) valueT5=0; SetTagDWord("cheshachuxian",0); SetTagDWord("houxiankaiguan",0); /hou限位開關huan色 SetTagDWord("xiachemen",0); SetTagDWord("flag2",0); SetTagDWord("T5",valueT5);bit1=GetTagDWord("flag2"); SetTagDWord("xiaochex",value); bit1=GetT