Полностью с вами согласен )) Своими руками всегда лучше если бы не одно но .Я совсем не знаток и делаю это основываясь на примерах которые нахожу в интернете и прекрасно понимаю что возможно есть варианты кода более верные .По этому и пытаюсь найти помощь . Но в сложившихся обстоятельствах действительно придётся самому набивать себе шишки ))

Не ужели нет здесь никого кто разбирается в Bascom AVR ?

Так архив закрепить и не получилось .

$regfile = "attiny13a.dat" ' Используемый контроллер ( внутренняя библиотека для компилятора)
$crystal = 1000000 ' Частота работы контроллера (уменьшаем частоту ,чтоб уменьшить потребление ) про фьюзы не забываем..
$hwstack = 32 ' Размер аппаратного стека
$swstack = 8 ' Размер программного стека
$framesize = 16 ' Размер области используемой для преобразований



''''Иннициализирум (объявляем) подпрограммы с которыми будем работать '''''''''
Declare Sub Launch
Declare Sub Stopping
Declare Sub Led


''''' Настройка портов '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Pinb.3 = Input : Upp Alias Pinb.3 ' Подключен Верхний датчик 2 нога.
Config Pinb.4 = Input : Lov Alias Pinb.4 ' Подключён Нижний датчик 3 нога
Config Portb.2 = Output : Led Green Alias Portb.2 ' Подключен Сигнальный светодиод 7 нога.
Config Portb.1 = Output : Valve Alias Portb.1 ' Подключена Электромагнитный клапан 6 нога
Config Portb.0 = Output : Pump Alias Portb.0 ' Подключёна Насос 5 нога
Pinb.3 = 1
Pinb.4 = 1

''''' Основная программа ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do ' Бесконечный цикл(начало)

Disable Interrupts 'Отключаем все прерывания ,чтоб не мешались под ногами...
If Upp = 0 And Lov = 0 Then Stopping 'Если ножки 2 и 3 подключена к массе Система останавливается
If Upp = 1 And Lov = 1 Then Launch 'Если ножки 2 и 3 неподключена к масе Система запускается
If Upp = 1 And Lov = 0 Then Led 'Если ножки 2 замкнут на массу а 3 неподключена к масе включается световая индикация

Loop 'Бесконечный цикл(конец конструкции цикла Do без условий...)

Return ' Возвращаемся в главный цикл т.е. на Do 'Бесконечный цикл(начало)
End ' Закончить программу (остановиться).




''''' Подпрограмма Запуска системы '''''''''''''''''''''''''''''''''''''
Sub Launch
Waitms 50 'Пауза 50 мс ( для исключения дребезга датчиков)
Pump = 1 'Включается Насос
Wait 5 'Задержка 5 с...
Valve = 1 'Открытие Клапан
End Sub


''''' Подпрограмма Остановки системы '''''''''''''''''''''''''''''''''''''
Sub Stopping
Waitms 50 'Пауза 50 мс (для исключения дребезга датчиков)
Valve = 0 'Закрытие Клапан
Wait 5 'Пауза 5 с
Pump = 0 'Выключение Насос
End Sub


''''' Подпрограмма Световой индикации '''''''''''''''''''''''''''''''''''''
Sub Led
Waitms 50 'Пауза 50 мс (для исключения дребезга датчиков)
Led Green = 1 'Включается светодиод
Waitms 300 'Пауза 300 мс
Led Green = 0 'Выключется светодиод
Waitms 250 'Пауза 250 мс
End Sub

Return ' Возвращаемся в главный цикл т.е. на Do 'Бесконечный цикл(начало)

End ' Закончить программу (остановиться).

Да хочется переписать потому что мне придётся ещё вносить изменения в код по необходимости ,а мне в Bascom мне проще сделать потому что в остальных средах вообще не разбираюсь. Что касается датчика , так там будет другой типа СУМ-1М. Там просто мембрана и концевик. А что касается того что не могу архив загрузить так самому не понятно

Не хочет архив грузится на сайт

Я попытался сам написать код в Bascom AVR Провёл некоторые изменения в схеме .Это контроллер уровня жидкости На макетной плате всё работает .Посмотрите пожалуйста код , возможно необходимы изменения .За раннее благодарю

Есть код написанный в Atrmel Studio который нужно переделать в Bascom AVR. За раннее благодарен.

Прикреплённый файл:

---

Attiny13_pompa.zip Размер: 59.69 KB; Просмотры: 141

  Schematic_Kontroler_Pomps_2021-01-13_17-45-08_page-0001.jpg (669.25 KB)

И если есть ещё варианты на подобие первой фотки тоже возьму

На первой фотке мне подходит .Сколько стоит , где и когда можно забрать ?