Каким терминалом можно отправить очередью две строки 
+CCLK: "00/01/04,21:49:51+02"<\r><\n>
<\r><\n>
OK<\r><\n>  ?

Достал СИМ900.

Для примера:
Terminal v1.9b - снимаете "галочки" CR=CR+LF и +CR

Я так на Nextion отправляю, т.к. он не понимает строки, которые НЕ оканчиваются на &HFF-&HFF-&HFF...

Задержки в сим900 вроде бы нет, мне нужно с имитировать ответ от модуля.

 
Насколько я в теме понимаю это не команда, это ответ модуля.
Все команды начинаются с префикса АТ.

Я не ясно написал. Это ответ , я его терминалом отправляю атмеге128 этим я имитирую ответ от сим900. Если вначале присутствует <CR><LF> то атмега128 не успевает корректно принять ответ.

Строка есть , только в место положенного <\r><\n>+CCLK: "00/01/04,21:49:51+02"<\r><\n> принимается примерно <\r><\n>+CK: "00/01/04,21:49:51+02"<\r><\n> ,  в таком слючае нужно что бы флаг не уходил пропустить первые <\r><\n> а определять конец строки и перевод коретки по <\r><\n> которые приходят в конце а те что приходят в начале <\r><\n> - нужно игнорировать , пройти мимо (додать к строке ).

Отредактировано olegkaras (2019-03-28 13:55:49)

olegkaras
Все верно, ты выхватил 2 посылки,  если в буфере пусто не ставь флаг обработки.

Отредактировано Yuriy.pv (2019-03-28 17:21:35)

ну на примере этого кода можно так..

Принятые_данные_usart:
'-------------------------------------------------------------------------------

    Принятый_код_символа_usart = Udr0                 ' Забираем содержимое аппаратного буфера USART

    If Принятый_код_символа_usart <> 13 Then        ' Проверяем, не является ли этот символ "Enter"
        Буфер_приема_usart_str = Буфер_приема_usart_str + Chr(принятый_код_символа_usart)       ' Если нет, то добавляем его в буфер принятого по USART сообщения
        Incr Счетчик_принятых_символов                   ' Считаем количество принятых символов
      Else                                                                  ' Иначе выключаем приём и ставим метку, что приём закончен (принято всё сообщение), можно что-то делать с принятым
        if   Incr Счетчик_принятых_символов > 2 then
             Disable Urxc                                               ' Выключаем приём, пока не обработаем принятое сообщение
             Счетчик_принятых_символов = 0              ' Сбрасываем счётчик символов, готовим к следующему приёму
             Флаг_есть_принятое_сообщ_usart = 1       ' Если символ оказался "Enter", тогда флаг устанавливаем в 1. "Enter"- конец сообщения
        End If
  End If

'-------------------------------------------------------------------------------
  Return

Отредактировано Yuriy.pv (2019-03-28 17:24:13)

Вот в примере от sasha_1973 есть такие строки , как их подкорректировать ?
!cpi R17 , 13                                           'Если приняли ""конец строки" "
!BREQ Exit_input_data_usart
!cpi R17 , 10                                           'Если приняли "перевод каретки"
!Breq Copy_bufer_usart                                  'Input_sumbol

Я пробовал заменить на
!cpi R17 , 13                                           'Если приняли ""конец строки" "
    If Подхват_13 = 1 Then
    !BREQ Exit_input_data_usart
    Подхват_13 = 0
    Else
    !BREQ Perehod_13
    End If
    !cpi R17 , 10              'Если приняли "перевод каретки"
    If Подхват_10 = 1 Then
    !Breq Copy_bufer_usart                                  'Input_sumbol
    Подхват_10 = 0
    Else                                   
    !BREQ Perehod_10
    End If

  Perehod_13:
  Подхват_13 = 1
  Return

  Perehod_10:
  Подхват_10 = 1
  Return
Вообще перестало работать.

Исследование USART Вот этот пример , посмотрите пожалуйста , и подскажите как правильно , это я от без знания смешиваю асм с васиком.

Нужно способ из поста №5 где  все разложено без Ассемблера применить к посту №14 по ссылке где все на Ассемблере 

Вот упрямый человечище.
Пишу подробно, без ASM.

CONFIG SUBMODE = NEW
Конфигурируем порт:
Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config SERIALIN = BUFFERED , size = 50      'Размер выбирается такой, как нужно. Для примера 50, но не более 255

Подпрограмма приёма строки:
Sub Modemdata
   StrRS = ""
   While _RS_HEAD_PTR0 <> _RS_TAIL_PTR0                   'Проверка кольцевого буфера. Цикл будет работать пока не совпадут указатели начала и конца буфера, что означает полную выборку из него.
      Rs = Inkey()
      If Asc(Rs) > 32 Then                              'Отсекаем ненужные символы
         StrRS = StrRS + Rs                           'Формируем строку
      End If
      Waitms 10
   Wend
End Sub

Определяем переменные:
Dim StrRS As String * 50                                    'Сама строка с длиной равной объёму буфера
Dim RS As String * 1                                        'Переменная для чтения символа из буфера
Dim FlagStr As Byte

Сама программа чтения:
Main:

    FlagStr = Ischarwaiting()                       'Если пришёл ответ от модуля
        If FlagStr = 1 Then
            ModemData
        End If
    CLEAR SERIALIN                                   'На всякий случай чистим буфер
     
   (Здесь разбираем команду на запчасти)

CONFIG POWERMODE = IDLE                                  'Уснём
GoTo Main
Stop

Куда ещё проще?

Отредактировано sva-don (2019-03-30 09:41:47)

 
У меня баском ругается на строки Call ModemData и Sub Modemdata .

Замените:
Call ModemData на Gosub ModemData
Sub Modemdata на Modemdata:
End Sub на Return

Или, как Yuriy.pv сказал...