PROGRAM PLC_PRG
VAR
oport : OpenPort;
onoff : BOOL :=TRUE;
cfgen : BOOL;
srsen : BOOL;
ssend : BOOL; (*команда на отправку смс*)
stat : BYTE;
Handle : WORD :=0;
cfg1 : FB_SMS_CFG;
srs1 : FB_SMS_SR;
textSms : STRING(160) := 'Set alarm'; (*текст отправляемого смс*)
numeSMS : STRING(20) := '7950*****80'; (*номер куда отправлять, целиком, с семеркой и без +*)
newSMS :STRING (160); (*это для входящей смски*)
i: INT;
END_VAR
VAR
CASE stat OF
0:
oport.Enable:=onoff;
oport.DeviceNumber:=Handle;
oport();
IF oport.OUT THEN stat:=1;cfgen:=TRUE;
ELSE RETURN; END_IF;
1:
cfg1(Enable:= cfgen,PortBaudrate:='9600');
IF cfg1.Done THEN
IF cfg1.ErrCode = 0 THEN
stat:=2;cfgen:=FALSE;srsen:=TRUE;
END_IF;
END_IF;
2:
srs1.Enable :=srsen;
srs1.Handle :=Handle;
srs1.CsdClose :=TRUE;
srs1.CheckNum :=FALSE;
srs1.CheckNumList :='';
srs1.SendSms :=ssend;
srs1.SendSmsText :=textSms;
srs1.SendSmsNum :=numeSMS;
srs1();
newSMS := srs1.NewInSmsText;
ELSE;
END_CASE
IF srs1.SmsSend THEN
ssend:=FALSE;
END_IF
(*далее идут какие-то действия, которые определяют текст и номер смс а также дают команду на отправку*)