Форум

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

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

В сети

Пользователей: 158
Из них просматривают:
Аналоги: 36. Даташиты: 25. Новости: 13. Остальное: 7. Партнёры: 1. Программы: 1. Производители: 1. Профиль пользователя: 3. Теги: 2. Торрент: 1. Форум: 68.
Участников: 2
Гостей: 156

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

Партнёры


Партнёры

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

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

Просмотр этой темы: 

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



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



Re: Нужна помощь в написание кода Bascom AVR
Администратор
Зарегистрирован:
07.08.2008 20:40
Из: Тирасполь
Сообщений: 7258
Не в сети
Как это не хочет? В первом сообщении же прикрепили? Смотрите на ограничения.
PS. а что собственно хочется? Переписать с С++ в Бейсик?



Re: Нужна помощь в написание кода Bascom AVR
Администратор
Зарегистрирован:
07.08.2008 20:40
Из: Тирасполь
Сообщений: 7258
Не в сети
Первое замечание: электроды нельзя запитывать постоянкой. Происходит электролиз, который разрушает электроды.
Промышленные датчики уровня делают кратковременные замеры с большими паузами и сменой полярности.



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



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
Не в сети
Так архив закрепить и не получилось .



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



Re: Нужна помощь в написание кода Bascom AVR
Администратор
Зарегистрирован:
07.08.2008 20:40
Из: Тирасполь
Сообщений: 7258
Не в сети
Ну скорее есть, но кому охота делать такую работу?
Если ты знаком, так сам переделай. Сделанное своими руками всегда лучше всего.



Поиск по форуму


Расширенный поиск

Разное

Интересно

Проблема координатного сверления корпусов при размещении в них плат решается путем сверления по шаблону. Шаблоном выступает сама плата с уже просверленными отверстиями.