Вид для печати
cipsend срабатывает раз в секунду получает > и отсылает сообщение, переключается в следующий шаг case и начинает ждать send ok. Как только send ok приходит, снова case идет в шаг с cipsend. Чтения из порта происходит постоянно. Максимальный цикл программы 8 млсек
ну я и говорю, ниже кейса идет запись в порт, не увидел там, какого нибудь семафора, который бы не забивал каждые 8мс порт строчкой 'AT+CIPSEND$R$N'
если переместите присвоение строки как показано ниже, побыстрее сработает модем с ответом
Цитата:
170: strWR:='AT+CIPSTART="TCP","46.202.226.243","2323"$ R$N';
IF (find(modemAns,'$R$NCONNECT FAIL$R$N') > 0) THEN
count :=190; // cipclose
ELSIF find(modemAns,'$R$NCONNECT OK$R$N') > 0 THEN // if result of find > 0 this string is in, if "0", no need string in
count :=180; // transparant
strWR := 'AT+CIPSEND$R$N';
modemAns:='';
ELSIF (find(modemAns,'$R$NOK$R$N') > 0) THEN
modemAns:='';
wait := TRUE; cc:=0;
ELSIF (find(modemAns,'$R$NERROR$R$N') > 0) THEN
// count :=12; // AT+CIPSTATUS
END_IF
180:
IF (find(modemAns,'>') > 0) THEN
count := 188;
END_IF
188: