自动化应用软件实训课程设计

附录 程序代码

恒压供水系统中的命令语言 起动时：

\\\\本站点\\泵阀1=0; \\\\本站点\\泵阀2=0; \\\\本站点\\泵阀3=0; \\\\本站点\\泵阀4=0; \\\\本站点\\用户1=0; \\\\本站点\\用户2=0; \\\\本站点\\用户3=0; \\\\本站点\\用户4=0; \\\\本站点\\入水阀1=0; \\\\本站点\\水塔水位=0; \\\\本站点\\扬程1=0; \\\\本站点\\扬程2=0; \\\\本站点\\扬程3=0; \\\\本站点\\扬程4=0; \\\\本站点\\水压1=0; \\\\本站点\\水压2=0; \\\\本站点\\水压3=0; \\\\本站点\\水压4=0; \\\\本站点\\账号=\\\\\本站点\\密码=\

运行时： LONG A; LONG B; LONG C;

10

自动化应用软件实训课程设计

LONG D; LONG E;

if(\\\\本站点\\账号==\本站点\\密码==\{

if(\\\\本站点\\水塔水位<=90)\\\\本站点\\水塔水位=\\\\本站点\\水塔水位+10; if(\\\\本站点\\用户1==1)A=1; if(\\\\本站点\\用户1==0)A=0; if(\\\\本站点\\用户2==1)B=1; if(\\\\本站点\\用户2==0)B=0; if(\\\\本站点\\用户3==1)C=1; if(\\\\本站点\\用户3==0)C=0; if(\\\\本站点\\用户4==1)D=1; if(\\\\本站点\\用户4==0)D=0; E=A+B+C+D;

if(\\\\本站点\\水塔水位>=40) {

\\\\本站点\\入水阀1=1; } else {

\\\\本站点\\入水阀1=0; }

if(\\\\本站点\\入水阀1==0) {

\\\\本站点\\泵阀1=0; \\\\本站点\\泵阀2=0; \\\\本站点\\泵阀3=0; \\\\本站点\\泵阀4=0; } else

11

自动化应用软件实训课程设计

{

\\\\本站点\\泵阀1=1; \\\\本站点\\泵阀2=1; \\\\本站点\\泵阀3=1; \\\\本站点\\泵阀4=1; } if(E==0) {

\\\\本站点\\泵1=0; \\\\本站点\\泵2=0; \\\\本站点\\泵3=0; \\\\本站点\\泵4=0; \\\\本站点\\扬程1=0; \\\\本站点\\扬程2=0; \\\\本站点\\扬程3=0; \\\\本站点\\扬程4=0; \\\\本站点\\水压1=0; \\\\本站点\\水压2=0; \\\\本站点\\水压3=0; \\\\本站点\\水压4=0; } if(E==1) {

if(A==1 &&B==0 &&C==0 &&D==0) {

\\\\本站点\\泵1=1; \\\\本站点\\泵2=0; \\\\本站点\\泵3=0; \\\\本站点\\泵4=0; \\\\本站点\\扬程1=1;

12

自动化应用软件实训课程设计

\\\\本站点\\扬程2=0; \\\\本站点\\扬程3=0; \\\\本站点\\扬程4=0; \\\\本站点\\水压1=40; \\\\本站点\\水压2=0; \\\\本站点\\水压3=0; \\\\本站点\\水压4=0; }

if(A==0 &&B==1 &&C==0 &&D==0) {

\\\\本站点\\泵1=1; \\\\本站点\\泵2=1; \\\\本站点\\泵3=0; \\\\本站点\\泵4=0; \\\\本站点\\扬程1=2; \\\\本站点\\扬程2=1; \\\\本站点\\扬程3=0; \\\\本站点\\扬程4=0; \\\\本站点\\水压1=0; \\\\本站点\\水压2=40; \\\\本站点\\水压3=0; \\\\本站点\\水压4=0; }

if(A==0 &&B==0 &&C==1 &&D==0) {

\\\\本站点\\泵1=1; \\\\本站点\\泵2=1; \\\\本站点\\泵3=1; \\\\本站点\\泵4=0; \\\\本站点\\扬程1=1;

13

自动化应用软件实训课程设计

\\\\本站点\\扬程2=1; \\\\本站点\\扬程3=1; \\\\本站点\\扬程4=0; \\\\本站点\\水压1=0; \\\\本站点\\水压2=0; \\\\本站点\\水压3=40; \\\\本站点\\水压4=0; }

if(A==0 &&B==0 &&C==0 &&D==1) {

\\\\本站点\\泵1=1; \\\\本站点\\泵2=1; \\\\本站点\\泵3=1; \\\\本站点\\泵4=1; \\\\本站点\\扬程1=1; \\\\本站点\\扬程2=1; \\\\本站点\\扬程3=1; \\\\本站点\\扬程4=1; \\\\本站点\\水压1=0; \\\\本站点\\水压2=0; \\\\本站点\\水压3=0; \\\\本站点\\水压4=40; } } if(E==2) {

if(A==1 &&B==1 &&C==0 &&D==0) {

\\\\本站点\\泵1=1; \\\\本站点\\泵2=1;

14