欧姆龙ST语言

157BSTSTPASCALPASCAL•••••****(**)(*(**)*)CASECOLOROF1:NofRed:=NofRed+1;2:NofBlue:=NofBlue+1;ELSENofOther:=NofOther+1;ENDCASE;IFNofRed100ORNofBlue100THENSTOP:=TRUEENDIF;䇁হ˄՟བˈCASE˅⫼ব䞣੠ᮍ⿟ᓣㄝ䜡㕂ᮍ⿟ᓣ˖⫼䖤ㅫヺ੠᪡԰᭄䜡㕂ⱘ˄*ব䞣COLORؐЎĂĂ*˅˄*1˖䗦๲ব䞣NofRed--1*˅˄*2˖䗦๲ব䞣Nofblue--1*˅˄*᮶ϡᰃ1гϡᰃ2˖䗦๲ব䞣Nofother--1*˅˄*ᔧNofRed៪Nofblue໻Ѣ100*˅˄*ᇚTRUE䌟ؐѢব䞣STOP*˅䇁হ˄՟བˈIF˅⫼ব䞣੠ᮍ⿟ᓣㄝ䜡㕂⊼䞞˖䜡㕂೼⊼䞞ৢ˄*⊼䞞ࠡ੠*˅158STB••AND,CASE,DO,ELSE,FOR,IT,NOT,OF,OR,REPEAT,THEN,TO,UNTIL,WHILE,XOR,TRUE,FALSE,ELSIF,BY,EXIT,RETURN=,=,,:=,..,&,(*,*)16#2#8#•IFA0THENX=10;ELSEX:=0;END_IF;••[!],[[#],[$],[%],[&],[,[(],,[)],[-],[=],[^],[~],[\],[|],[@],[,[[],[{],[;],[+],[:],[*],[]],[}],[,],[],[.],[],[/],[?]•09•••121216#16#C8#8#142#2#1100•159STBANDORXORYANDZYANDZCX-ProgrammerSTSTCX-Programmer••••Tools-OptionsAppearanceSTFont8;**(**)A:=B;IF,THEN,ELSIF,ELSE,END_IFIF(_1)THEN(1);ELSIF(_2)THEN(2);ELSE(3);END_IF;CASE,ELSE,END_CASECASE()OF1:(1);2:(2);3:(3);ELSE(4);END_CASE;FOR,TO,BY,DO,END_FORFOR():=()TO()BY()DO();END_FOR;WHILE,DO,END_WHILEWHILE()DO();END_WHILE;REPEAT,UNTIL,END_REPEATREPEAT();UNTIL()END_REPEAT;EXITEXIT;160STBINTINTA=3B=2A/B*2A/B11.5A/B*2=2RETURNRETURN;FUNCTIONBLOCK==...11112-62**REAL,LREAL3NOTBOOL,WORD,DWORD,LWORD4*INT,DINT,UINT,UDINT,ULINT,REAL,LREAL5/INT,DINT,LINT,UINT,UDINT,ULINT,REAL,LREAL5+INT,DINT,LINT,UINT,UDINT,ULINT,REAL,LREAL6-INT,DINT,LINT,UINT,UDINT,ULINT,REAL,LREAL6,,=,=BOOL,INT,DINT,LINT,UINT,UDINT,ULINT,WORD,DWORD,LWORD,REAL,LREAL7=BOOL,INT,DINT,LINT,UINT,UDINT,ULINT,WORD,DWORD,LWORD,REAL,LREAL8BOOL,INT,DINT,LINT,UINT,UDINT,ULINT,WORD,DWORD,LWORD,REAL,LREAL8AND&BOOL,WORD,DWORD,LWORD9ANDANDBOOL,WORD,DWORD,LWORD9ORXORBOOL,WORD,DWORD,LWORD10ORORBOOL,WORD,DWORD,LWORD11(EXPT)_TO_()161STBABSINT,DINT,LINT,UINT,UDINT,ULINT,REAL,LREALINT,DINT,LINT,UINT,UDINT,ULINT,REAL,LREALa:=ABS(b)*ab*SQRTREAL,LREALREAL,LREALa:=SQRT(b)*ab*LNREAL,LREALREAL,LREALLOGea:=LN(b)*ab*LOGREAL,LREALREAL,LREALLOG10a:=LOG(b)*ab*EXPREAL,LREALREAL,LREALea:=EXP(b)*ab*SINREAL,LREALREAL,LREALa:=SIN(b)*ab*COSREAL,LREALREAL,LREALa:=COS(b)*ab*TANREAL,LREALREAL,LREALa:=TAN(b)*ab*ASINREAL,LREALREAL,LREALa:=ASIN(b)*ab*ACOSREAL,LREALREAL,LREALa:=ACOS(b)*ab*ATANREAL,LREALREAL,LREALa:=ATAN(b)*ab*EXPTREAL,LREALINT,DINT,LINT,UINT,UDINT,ULINTREAL,LREAL*bca*162STB_TO_()REAL_TO_INT(C)CREALINT==:=(:)(=):=1X+1AA:=X+1;2BAA:=B;BOOLINTDINTLINTUINTUDINTULINTWORDDWORDLWORDREALLREALBOOLINTDINTLINTUINTUDINTULINTWORDDWORDLWORDREALLREAL163STB310AA:=10;IFIF,THEN,(ELSE),END_IFELSEIFTHEN_1;ELSE_2;END_IF;IF=,_1=,_2•IFEND_IF•IF(A10)1(ON)=0(OFF)=•_1_2IFCASEFORWHILEREPEATᴵӊ䫭䇃ℷ⹂㸼䖒ᓣ1㸼䖒ᓣ2164STBIF_1THENIF_2THEN_1;ELSE_2:END_IF;END_IF;ELSETHEN•_1_2(;)•ELSEELSE1A010XA00XIFA0THENX:=10;ELSEX:=0;END_IF;2A0B110X20YA0B1XY0ᴵӊ1ᴵӊ2䫭䇃ℷ⹂䫭䇃ℷ⹂㸼䖒ᓣ1㸼䖒ᓣ1ᴵӊ䫭䇃ℷ⹂㸼䖒ᓣ165STBIFA0ANDB1THENX:=10;Y:=20;ELSEX:=0;Y:=0;END_IF;3BOOLA=1(ON)10XA=0(OFF)0XIFATHENX:=10;ELSEX:=0;END_IF;IFIF,THEN,ELSIF,(ELSE)ELSEIF_1THEN_1;ELSIF_2THEN_2;ELSIF_3THEN_3;...ELSIF_nTHEN_n;ELSE_m;END_IF;IFᴵӊ1ᴵӊ2ᴵӊ3䫭䇃䫭䇃䫭䇃ℷ⹂ℷ⹂ℷ⹂㸼䖒ᓣ1㸼䖒ᓣ2㸼䖒ᓣ3㸼䖒ᓣm166STB1=11=2=22=3=3n=nm•IFEND_IF•_IF(A10)1ON0OFF_IFCASEFORWHILEREPEAT_(;)ELSEELSE1A010XA0B=11XA0B=22X0XIFA0THENX:=10;ELSIFB=1THENX:=1;ELSIFB=2THENX:=2;ELSEX:=0;END_IF;CASECASECASEOF_1:_1;_2:_2;..._n:_n;ELSE_m;END_CASE;167STBCASE_n_n_n_m•CASEEND_CASEtinteger_equationINTDINTLINTUINTUDINTULINT•_IFCASEFORWHILEREPEAT•_(;)•INTDINTLINTUINTUDINTULINT•OR_n(..)1A11XA22XA33X9YCASEAOF1:X:=1;2:X:=2;3:X:=3;ELSEY:=0;END_CASE;ᰃᰃᰃ৺৺৺㸼䖒ᓣm㸼䖒ᓣn㸼䖒ᓣ2㸼䖒ᓣ1Ϣ䗝Ёⱘؐ1ᰃ৺Ⳍৠ?Ϣ䗝Ёⱘؐ2ᰃ৺Ⳍৠ?Ϣ䗝Ёⱘؐnᰃ৺Ⳍৠ?168STB2A11XA252XA6103XA111215204X9YCASEAOF1:X:=1;2,5:X:=2;6..10:X:=3;11,12,15..20:X:=4;ELSEY:=0;END_CASE;FORFOR,TO,(BY),DO,END_FORBYFOR:=TOBYDO;END_FOR;FORFOR䗁ҷব䞣߱ྟℷ⹂䫭䇃㸼䖒ᓣ㒧ᴳ䗁ҷ䗁ҷব䞣+䗦๲ؐ䗁ҷব䞣ı᳔㒜ؐ169STB112(1)(2)••FOREND_FOR•INTDINTLINTUINTUDINTULINT•+1aTRUEFORi:=0TO100DOarray[i]:=0;END_FOR;IFi=101THENa:=TRUE;ELSEa:=FALSE;END_IF;•FORFORi:=0TO100BY1DOarray[i]:=0;i:=i+5;END_FOR;•_IFCASEFORWHILEREPEAT•_(;)•BYBY1•INTDINTLINTUINTUDINTULINT1n=0~505SP[n]100FORn:=0TO50BY5DOSP[n]:=100;END_FOR;170STB2DATA[n]DATA[1]DATA[50]SUMFORn:=0TO50BY1DOSUM:=SUM+DATA[n];END_FOR;3DATA[n]DATA[1]DATA[50]MAXMINDATA[n]01000MAX:=0;MIN:=1000;FORn:=1TO50BY1DOIFDATA[n]MAXTHENMAX:=DATA[n];ENDIF;IFDATA[n]MINTHENMIN:=DATA[n];ENDIF;END_FOR;WHILEWHILE,DO,END_WHILEWHILEDO;END_WHILE;WHILEI䗁ҷᴵӊ㸼䖒ᓣ䫭䇃ℷ⹂㒧ᴳ171STB•WHILEEND_WHILE••IFCASEFORWHILEREPEAT•(;)•110007AA:=0;WHILEA=1000DOA:=A+7;END_WHILE;2X3000XDATA[1]X2DATA[2]n:=1’WHILEX3000DOX:=X*2;DATA[n]:=X;n:=n+1;END_WHIE;REPEATREPEAT,UNTIL,END_REPEATREPEAT;UNTILEND_REPEAT㸼䖒ᓣ䫭䇃䗁ҷℷ⹂㒧ᴳᴵӊ172STBREPEAT•REPEATEND_REPEAT••IFCASEFORWHILEREPEAT•(;)•1110TOTALA:=1;TOTAL:=0;REPEATTOTAL:=TOTAL+A;A:=A+1;UNTILA10END_REPEAT;EXITFORWHILEREPEATIFEXITIFFOR(WHILE,REPEAT)...IFTHENEXIT;END_IF;...END_FOR(WHILE,REPEAT);EXITIFFORWHILEREPEATEXIT173STB(1)(2)n=1501nDATA[n]DATA[n]100FORn:=1;TO50BY1DODATA[n]:=DATA[n]+n;IFDATA[n]100THENEXIT;END_IF;END_FOR;RETURNRETURNRETURN;RETURN1.A=,...,=,...==2.B=,...,=,...174STBSTST1.2.Calcu_executeCalcu_execute(A:=B,C=D);BACD1FB1•ST1•ST2•1/2Calcu_executeFUNCTIONBLOCKFUNCTIONBLOCKFBFB1ᅲ՟_FB1FB1(ST)FB2(ST)⿟ᑣ՟ᄤ˖ᅲ՟BFB2(...,...);FB2˄ẃ㑻˅