andreypav
Китайцы молодцы. У них, что было вчера, это уже прошлое.)))

Yuriy.pv
Знаю, что Вы любитель приводной техники. Понравился драйвер L6390. Второй вход инверсный. Не надо использовать ШИМ второго порта, и мертвое время задается RC. На пульсации не падок. Два компаратора. Защитный, и для контроля тока.

Yuriy.pv
Спасибо. Но как то заметил, что WDT считает по своему. В основном использую для Pover Down. Время к тактухе не привязано.

Yuriy.pv

По даташиту очень красиво. Ни как не могут сойтись Lout с Hout. Об синхронизации не думал. Здесь может накладка пройти(если очень точно). Тогда да. Нужно точно привязаться к тикам, плюс тики при переносе чезезь озу.

Yuriy.pv
Как Вы решаете вопрос с зарядкой аккума?
У мну чисто по напряжению.  Использую автомобильный. При 14.3 отключается, 12.3 заряд. Аккум дохлый для испытаний. Но на час автономки хватает. Движка 220 Вт. Но нагрузки нет. Крутит наждачный круг. 50Вт не больше при работе. Это чисто испытания. Реальную нагрузку цеплял, примерно так же. С зарядкой не понимаю. Когда (дохлый) аккум заряжается за минуту. Начинается безконечное вкл/выкл зарядки.
Какие решения есть?

Отредактировано rom-i (2019-06-30 15:58:15)

Для пользователей UART не обязательно SIM800L. Есть условия. С этой проблемой столкнулся, и ESP8266. Получаешь зависание при ожидании ответа. SIM800 не нуждается в комманде перенос строки Chr(10).  В модуле прошито окончание по Ener Chr(13), и перенос строки просто игнор. Для модуля ESP8266 необходимое условие Chr(10). Это все делает Баском без Вашего участия. В конце передачи данных добавляет Enter Chr(13), и перенос строки(возврат каретки) Chr(10). Для модуля ESP8266 это необходимое условие. Если брать прием по методу Александра, то получите лишний Chr(10). Вам достанется для следующей строки приема. Если смотреть внимательно то Александр не пользуется голой коммандой Print(которая автоматом добавит два символа). Для выхода в процессе наладки, и помех у Баскома есть спецовая комманда(условие), выйти из прерывания приема по UART  $timeout = 1000. Точно в помошнике не указано. Только, что это не время точно. И не количество символов. Но если число будет маленьким, не всю строку получите.
По этому реалный код получается таким.

'======Если пришло ========================================
Reads:
  $timeout = 10000
  Принятый_символ = Udr
   If Принятый_символ <> 10 Then
     If Принятый_символ <> 13 Then Буфер_приема = Буфер_приема + Chr(принятый_символ)
   Else
     Stroka = Буфер_приема
     Буфер_приема = ""
   End If
Return

По пререносу строки берем значение, и игнорим Chr(13) Enter.

Отредактировано rom-i (2019-07-07 14:32:46)

Nord
Неуж то действительно так непонятно.  Литературным талантом не владею.
Баском при передаче по UART автоматом добавляет Chr(13), и Chr(10) при использовании комманды Print. Александр передает без символа перенос строки Chr(10). Если по каким причинам этот символ не был принят, то МК повиснет на прерывании по приему. Но это в моей части кода. Если заканчивать забирать из буфера на символе ентер Chr(13), то в нем останется Chr(10). Он достанется следующей строке. По крайней мере у мну так произходило. Для этого желательно прописывать $timeout = число.

Доброго времени суток!
Столкнулся с вопросом. Понадобилось вкл\откл условия выполнения программы. 
Config Portc.1 = Input
Vikl Alias Pinc.1
Дальше.
If Vikl = 0 Then
  Waitms 30
  Toggle Flag
  Waitms 100
End If
Где  Dim Flag As Bit
Принимаю данные с другого МК.

'======Если пришло по USART==============================================================
Reads:
  $timeout = 10000
  Принятый_символ = Udr
   If Принятый_символ <> 10 Then
     If Принятый_символ <> 13 Then Буфер_приема = Буфер_приема + Chr(принятый_символ)       '
   Else
     Flag_rx = 1
     Stroka = Буфер_приема
     Буфер_приема = ""
   End If
Return

Это все отлично работает.
Дальше пока не прописал  вкл\откл тоже все было четко.

Awake:
  If Flag_rx = 1 Then
     Temper1 = Left(stroka , 4) : Temper2 = Mid(stroka , 5 , 3) : Crcrx = Right(stroka , 7)
     Crc = Temper1 + Temper2
     Temp1 = Val(temper1) : Temp2 = Val(temper2)
     Flag_rx = 0
  End If

  If Temp1 > Temperatura And Zero = 1 Then Gosub Обнуление  'Если шаги

  If Crc = Crcrx And Flag = 0 Then
     Положение = Temp1 * Делитель_word                      'Грубо 800 * 3,5 = 2800 шагов. Где 800 это 80,0 градуса Цельсия
     Положение = Положение / 10
     Положение = Редуктор - Положение                       'Инвертируем показания мин. температура  заслонка открыта
     If Положение > Редуктор Then Положение = 0             'Нет отрицательным величинам более 80,0
     Chim = Положение / 10
  End If

     Угол = Положение / 30                                  '2750 Это 90 Градусов для Индикации
     Gosub Indikator

     If Chim > 255 Then Chim = 255
     If Chim < 50 Then Chim = 0

  If Flag = 0 Then
     If Шаги < Положение Then Gosub Plus
     If Шаги > Положение Then Gosub Minus
     Ocr1a = Chim
    Else
     Ocr1a = 0
     Gosub Обнуление
  End If

Если Flag = 1, то есть отключено. То при очередном приеме по UART, именно при выполнении этой части кода

  If Flag_rx = 1 And Flag = 0 Then
     Temper1 = Left(stroka , 4) : Temper2 = Mid(stroka , 5 , 3) : Crcrx = Right(stroka , 7)
     Crc = Temper1 + Temper2
     Temp1 = Val(temper1) : Temp2 = Val(temper2)
     Flag_rx = 0
  End If

переменная Flag  сбрасывается на 0.
В начале думал из-за пульсаций работы шагового движка. С отключенным драйвером ШД тож самое. Накидал схему в Протеус. Точьно нет ни каких помех. Действительно при приеме UART всегда Flag = 0.
Почему? Чему этот бит мешает?
Если делать так

  If Flag_rx = 1 And Flag = 0 Then
     Temper1 = Left(stroka , 4) : Temper2 = Mid(stroka , 5 , 3) : Crcrx = Right(stroka , 7)
     Crc = Temper1 + Temper2
     Temp1 = Val(temper1) : Temp2 = Val(temper2)
     Flag_rx = 0
  End If

все работает. Но не принимаю температуру. Помог еще один подход. Не использовать контрольную сумму в обработке строки. Просто выбросил переменную Crc.

Awake:
  If Flag_rx = 1 Then
     Temper1 = Left(stroka , 4) : Temper2 = Mid(stroka , 5 , 3)
     Temp1 = Val(temper1) : Temp2 = Val(temper2)
     Flag_rx = 0
  End If

  If Temp1 > Temperatura And Zero = 1 Then Gosub Обнуление  'Если шаги

  If Flag = 0 Then                                                           'Переменные не работают при отк.
     Положение = Temp1 * Делитель_word                      'Грубо 800 * 3,5 = 2800 шагов. Где 800 это 80,0 градуса Цельсия
     Положение = Положение / 10
     Положение = Редуктор - Положение                       'Инвертируем показания мин. температура  заслонка открыта
     If Положение > Редуктор Then Положение = 0             'Нет отрицательным величинам более 80,0
     Chim = Положение / 10
  End If

     Угол = Положение / 30                                  '2750 Это 90 Градусов для Индикации
     Gosub Indikator

     If Chim > 255 Then Chim = 255
     If Chim < 50 Then Chim = 0

  If Flag = 0 Then
     If Шаги < Положение Then Gosub Plus
     If Шаги > Положение Then Gosub Minus
     Ocr1a = Chim
    Else
     Ocr1a = 0
     Gosub Обнуление
  End If

Где накладка?

Отредактировано rom-i (2019-07-20 23:51:57)

Nord
Обнуление. Движка крутьться пока не сработает датчик. Использую порт для него.
Config Portc.3 = Input
Zero Alias Pinc.3

'****** Вращение вправо открытие ********************************************
Plus:
  Reset Portb.2
   Do
  Reset Portd.2
  Reset Portd.3
   Waitus 1000
  Set Portd.3
   Waitus 1000
  Incr Шаги                                                 'Увеличиваем переменную счета сделанных шагов
   Loop Until Шаги = Положение                              'Выходим из подпрограммы если количество сделанных шагов равня заданным
  Set Portb.2
Return
'****** Вращение влево закрытие ******
Minus:
 If Zero = 1 Then
  Reset Portb.2
   Do
  Set Portd.2
  Reset Portd.3
   Waitus 1000
  Set Portd.3
   Waitus 1000
  Decr Шаги
   Loop Until Шаги = Положение
  Set Portb.2
 End If
Return
'****** Выход в ноль ******
Обнуление:
 If Zero = 1 Then
  Reset Portb.2
   Do
  Set Portd.2
  Reset Portd.3
   Waitus 1000
  Set Portd.3
   Waitus 1000
   Loop Until Zero = 0
  Set Portb.2
 End If
  Шаги = 0
  Положение = 0
Return

Отредактировано rom-i (2019-07-21 00:58:40)

Пытался писать не Toggle. Делать триггер с помощью еще одной переменной. Результат один, в один.

Nord
В начале Flag был Разрешение. Думал программе русский не понравился.  .
Думаю проблема скрыта в четности памяти. Иначе как етот бит прогамма вышвыривает.
Не пробовал Flag сделать байтом. Но если ни кто ответа не даст, сделаю.)))

Отредактировано rom-i (2019-07-21 01:48:01)