Форум

Радиолюбительский форум.

Если у Вас возникли вопросы, задавайте их на форуме.

В сети

Пользователей: 64
Из них просматривают:
Аналоги: 19. Даташиты: 11. Инструкции: 4. Новости: 7. Опросы: 1. Остальное: 6. Производители: 3. Профиль пользователя: 3. Расчёты: 1. Теги: 1. Форум: 8.
Участников: 2
Гостей: 62

Google , Яндекс , далее...
Рекорд 2375 человек онлайн установлен 26.12.2015.

Партнёры


Партнёры

Новые объявления

В настоящее время нет объявлений.

1 2 3 4


Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Полностью с вами согласен )) Своими руками всегда лучше если бы не одно но .Я совсем не знаток и делаю это основываясь на примерах которые нахожу в интернете и прекрасно понимаю что возможно есть варианты кода более верные .По этому и пытаюсь найти помощь . Но в сложившихся обстоятельствах действительно придётся самому набивать себе шишки ))



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Не ужели нет здесь никого кто разбирается в Bascom AVR ?



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Так архив закрепить и не получилось .



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
$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 ' Закончить программу (остановиться).



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Да хочется переписать потому что мне придётся ещё вносить изменения в код по необходимости ,а мне в Bascom мне проще сделать потому что в остальных средах вообще не разбираюсь. Что касается датчика , так там будет другой типа СУМ-1М. Там просто мембрана и концевик. А что касается того что не могу архив загрузить так самому не понятно



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Не хочет архив грузится на сайт



Re: Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Я попытался сам написать код в Bascom AVR Провёл некоторые изменения в схеме .Это контроллер уровня жидкости На макетной плате всё работает .Посмотрите пожалуйста код , возможно необходимы изменения .За раннее благодарю



Нужна помощь в написание кода Bascom AVR
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
Есть код написанный в Atrmel Studio который нужно переделать в Bascom AVR. За раннее благодарен.

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


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

jpg  Schematic_Kontroler_Pomps_2021-01-13_17-45-08_page-0001.jpg (669.25 KB)
11737_647ef03e3d815.jpg 2436X1723 px


Отредактировано пользователем Vic29 06.06.2023 11:37:29


Re: Куплю ползунковые резистор с ходом 20мм в Тирасполе
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
И если есть ещё варианты на подобие первой фотки тоже возьму



Re: Куплю ползунковые резистор с ходом 20мм в Тирасполе
Сотрудник
Зарегистрирован:
01.05.2019 17:27
Из: Слободзея
Сообщений: 38
Не в сети
На первой фотке мне подходит .Сколько стоит , где и когда можно забрать ?








Разное

Интересно

Чтобы защитить стержень от обгорания, его нужно обмазать тонким слоем смеси силикатного клея и сухой минеральной краски (окись железа, цинка и магния).