【正文】 0=Change10 THEN n10:=Change10。 n5:=n5+1。 END_IF*) (*1*) WHILE xx=1 DO xx:=xx1。 ELSE x:=xx。 xx:=xnhalf*。 END_IFEND_IF(*將結果輸出給中間變量，供找零機構調(diào)用*) OutputHalf:=nhalf。 Output20:=n20。 n5:=0。 n100:=0。在不停機、不打開機箱的情況下完成上述操作大大提高了售貨機的實用性和智能化程度。 NOTadmin: BOOL:=TRUE。 Enter_NEW_Password: BOOL。 r_ctu1: BOOL。IF Check=TRUETHEN IF Password_input Password THEN NOTadmin:=TRUE。 END_IF。39。END_IFTP1(IN:=pay , PT:=t300ms , Q= , ET= )。IF n=1THEN(*減庫存*)Quantity_a:=。Quantity_e:=。SoldoutD:=SoldoutD+。salesC:=salesC+Cost_c。 Change1:=Change1+。(*消費金額清零*)Cost_a:=0。Cost_e:=0。END_IF 交易成功畫面子程序在付款后，會出現(xiàn)一段動態(tài)畫面，提示顧客交易成功，并在結束后跳轉回歡迎界面，等待下一位顧客使用。 TOF1:TOF。 CTU1: CTU。IF CurrentVisu=39。 thanks:=arr1[i]。 a2 AT %I*:BOOL。 b1 AT %Q*:BOOL。 b5 AT %Q*:BOOL。 b44 AT %Q*:BOOL。 b8 AT %Q*:BOOL:=TRUE。 r_ctu1: BOOL。 disable: BOOL。 carta,cartb,cartc,cartd,carte: BOOL。 TPc3: TP。END_VARb1:=。b3:=。b5:=。THEN TP3(IN:=a8 , PT:=t300ms , Q= , ET= )。SELECTING39。CARGOB39。CARGOD39。 IF t250ms THEN currentvisu:=39。TC_VISU39。 THEN IF a1=TRUE THEN currentvisu:=39。 END_IF IF a3=TRUE THEN currentvisu:=39。 END_IF IF a5=TRUE THEN currentvisu:=39。TC_VISU39。CARGOA39。 IF a2=TRUE THEN currentvisu:=39。 END_IF IF a4=TRUE THEN currentvisu:=39。 END_IFEND_IF(*CARGOB*)IF currentvisu=39。 END_IF TPb3(IN:=a2 , PT:=T50MS , Q=addb , ET= )。CARGOC39。CARGOE39。CARGOA39。 TPc2(IN:=a8 , PT:=t50ms , Q=cartc , ET= )。 END_IF IF a5=TRUE THEN currentvisu:=39。 THEN IF a1=TRUE THEN currentvisu:=39。 END_IF IF a3=TRUE THEN currentvisu:=39。 TPd1(IN:=a88 , PT:=t50ms , Q=canceld , ET= )。CARGOE39。CARGOB39。CARGOD39。END_IF 輸入輸出變量與I/O端子的連接本設計以兩塊KL1104和兩塊KL2408提供輸入輸出點。TwinCAT Visualization 不需要額外的變量列表，它能直接訪問控制器中的變量。 HMI界面本設計共有11個可視化界面，其中9個為客戶購買界面，分別為：歡迎界面（TC_VISU）、商品選擇界面(SELECTING)、商品購買界面（CARGOA,CARGOB,CARGOC,CARGOD,CARGOE）、結帳界面(CHECKOUT)、付款成功界面(PAID)。啟動TwinCAT Run Time，PC便具備了一個模擬PLC的實時核，將程序下載，運行。選擇完后，回到商品選擇界面，在商品A和商品B的框體旁出現(xiàn)了剛才選購的數(shù)量，點擊“結帳”。投入1個5元，1個10元，“已投入”顯示為15元。系統(tǒng)重新回到歡迎界面，商品A缺貨指示燈亮，有貨指示燈滅。雖然只是一個簡單的自動售貨機，卻也傾注了我不少的熱情與心血。非但考驗了知識儲備與思路方法，更是磨練了學習態(tài)度與鉆研精神。由衷地感謝你們對我的栽培。參考文獻［1］ 王佳慶，［J］.自動化儀表，2003,24(2):1012.［2］ 歐陽三泰，周琴歐，［J］.電氣傳動，2005,35(9):5254。感謝陳凱工程師不厭其煩地知道我在編程方面的疑問以及在本設計ADS通信部分中的極大貢獻。我感覺到學習一門新知識、新技術并不難，難的是將所學過的形成自己的一套體系，在此基礎之上才能開發(fā)出新的應用或是發(fā)現(xiàn)新的理論。有不少差錯看似疏忽大意，但刨根問底一番，發(fā)現(xiàn)全因自己當初治學不嚴、似懂非懂所致，日后必引以為戒。由此可見，整個自動售貨機設計的功能均得到實現(xiàn)。點擊“確認并付款”，畫面跳轉到支付成功畫面，且動態(tài)字符顯示正常?？梢娚唐愤x擇和購物清單管理功能正常。程序運行后，購買3個商品A，1個商品B。各界面如下：圖 9 TC_VISU圖 10 SELECTING圖 11 CARGOA圖 12 CHECKOUT圖 13 PAID圖 14 ADMINISTRATOR圖 15 MANAGE7 仿真運行當硬件設備均已選定，程序集HMI均已設計完成，則可開始進行調(diào)試。因此，這可明顯地減少工程上實現(xiàn)可視化的工作量。TwinCAT Visualization 是 TwinCAT PLC Control 中自帶的可視化編輯組件。 TPe2(IN:=a8 , PT:=t50ms , Q=carte , ET= )。CARGOC39。CARGOA39。CARGOE39。 END_IF TPd3(IN:=a4 , PT:=T50MS , Q=addd , ET= )。 END_IF IF a2=TRUE THEN currentvisu:=39。 END_IFEND_IF(*CARGOD*)IF currentvisu=39。 IF a4=TRUE THEN currentvisu:=39。CARGOB39。CARGOC39。CARGOD39。 TPb1(IN:=a88 , PT:=t50ms , Q=cancelb , ET= )。 THEN IF a1=TRUE THEN currentvisu:=39。 END_IF IF a5=TRUE THEN currentvisu:=39。 END_IF IF a3=TRUE THEN currentvisu:=39。 TPa2(IN:=a8 , PT:=t50ms , Q=carta , ET= )。 ELSE QUIT2:=FALSE。 END_IF TP2(IN:= a8, PT:=t50ms , Q=pay2 , ET= )。 END_IF IF a4=TRUE THEN currentvisu:=39。 END_IF IF a2=TRUE THEN currentvisu:=39。 END_IFEND_IF(*CHECKOUT*)IF currentvisu=39。 END_IF IF a88=TRUE THEN QUIT2:=TRUE。CARGOE39。CARGOC39。CARGOA39。SELECTING39。(*TC_VISU*)IF currentvisu=39。b4:=。b2:=。 R_TRIG1: R_TRIG。 TPb3: TP。 adda,addb,adde,addc,addd: BOOL。 r_ctu2: BOOL。 CTU1: CTU。 a8 AT %I*:BOOL。 b22 AT %Q*:BOOL。 b3 AT %Q*:BOOL。 a4 AT %I*:BOOL。TC_Visu39。THENTON1(IN:=NOT , PT:= t100ms, Q= a, ET= )。TC_Visu39。 a: BOOL。 arr1:ARRAY[0..13]OF BYTE:=255,254,252,248,240,224,192,128,0,255,0,255,0,0。r_ctu1:=TRUE。Cost_c:=0。 Change10:=Change10+。salesE:=salesE+Cost_e。(*加銷售額*)salesA:=salesA+Cost_a。SoldoutB:=SoldoutB+。Quantity_c:=。PAID39。NEW_Password:=39。39。 Again.39。END_VAR(*錢箱總計*)Total:=Changehalf*+Change1*1+Change5*5+Change10*10+Change20*20+Change50*50+Change100*100。 CTU1: CTU。 back: BOOL。00000039。每次成功交易后，程序?qū)⒆詣訉⒊鍪鄣呢浳锓N類、數(shù)量及營業(yè)額記錄下來。 n20:=0。 nhalf:=0。 Output5:=n5。 END_IF IF x=0 THEN ChangeEnough:=TRUE。 nhalf:=nhalf+1。 END_WHILE IF n1=Change1 THEN n1:=Change1。 xx:=xn5*5。 ELSE x:=xx。 END_IF (*10*) WHILE xx=10 DO xx:=xx10。 n20:=n20+1。 END_WHILE IF n50=Change50 THEN n50:=Change50。 x:=xx。(*面值為1005的紙幣均屏蔽，只留1元和5角作為找零錢幣*)(* (*100*) WHILE xx=100 DO xx:=xx100。 Cha