Например TDA7294

Форум РадиоКот • Просмотр темы - BASCOM AVR в вопросах и ответах
Форум РадиоКот
Здесь можно немножко помяукать :)



Текущее время: Чт июн 20, 2019 07:49:47

Часовой пояс: UTC + 3 часа [ Летнее время ]


ПРЯМО СЕЙЧАС:



Начать новую тему Ответить на тему  [ Сообщений: 5809 ]     ... , , , , 291
Автор Сообщение
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Пт июн 07, 2019 06:51:13 
Прорезались зубы

Карма: 1
Рейтинг сообщений: 3
Зарегистрирован: Ср май 26, 2010 21:40:47
Сообщений: 220
Рейтинг сообщения: 0
raf65, логично.
Только вот файл *.bas с программой, которую я писал.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Пт июн 07, 2019 07:06:13 
Встал на лапы
Аватар пользователя

Зарегистрирован: Вс сен 27, 2009 21:49:06
Сообщений: 85
Откуда: Советск
Рейтинг сообщения: 0
raf65, логично.
Только вот файл *.bas с программой, которую я писал.

да, это файл написанный в программе, никак не восстановить, можно где нибудь поискать (может он нсть) файл расширением *.bak


Вернуться наверх
 
JLCPCB, всего $2 за 10 ПП любого цвета!

Более 600 000 заказчиков по всему миру! Более 10 000 заказов в день!

Скидка до $20 на доставку для первого заказа:https://jlcpcb.com/quote

Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Пт июн 07, 2019 11:51:24 
Нашел транзистор. Понюхал.

Карма: 1
Рейтинг сообщений: 30
Зарегистрирован: Вс дек 28, 2014 22:54:05
Сообщений: 190
Рейтинг сообщения: 0
Или попробовать с помощью Unerase поискать в харде

_________________
Я всё-всё узнAю и стану профессором.


Вернуться наверх
 
PCBWay - всего $5 за 10 печатных плат, первый заказ для новых клиентов БЕСПЛАТЕН

Сборка печатных плат от $88 + БЕСПЛАТНАЯ доставка по всему миру + трафарет

Онлайн просмотровщик Gerber-файлов от PCBWay
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вт июн 11, 2019 22:19:14 
Родился

Зарегистрирован: Вт сен 29, 2015 17:36:57
Сообщений: 8
Рейтинг сообщения: 0
Здравствуйте. Имеется программа светодиодной "мигалки" с разными режимами работы. Режимы переключаются с помощью одной кнопки поочередно. Хочу добавить еще одну кнопку и пару светодиодов, которая управляет ими, с другими эффектами, но не понимаю как заставить все работать одновременно. Т.е. например первой кнопкой я включил режим мигалки с половинной яркостью(мигание + яркость регулируется с помощью ШИМ), а второй кнопкой включил режим постоянного свечения с половинной яркостью(постоянно + яркость регулируется с помощью ШИМ).

Код:
$map
$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

'--- Конфигурация входов и выходов контроллера --------------------------------
Ddrb = &B00001011                                                                                     'Конфигурация порта В. Считать с права на лево (PORTB.7...PORTB.1,PORTB.0), 0 - вход, 1 - выход
Set Portb.4                                                                                           'Включить внутренний подтягивающий резистор
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8    'Активируем и настраиваем ШИМ
 '--- Инициализация PCINT0 _______
Pcmsk0 = &B00010000                                         'Активирует обработку прерывания PORTB.4
Enable Pcint0 : On Pcint0 Buttonon
Enable Interrupts                                           'Разрешаем прерывания
'--- Обзываем всякие переменные -----------------------------------------------
D1 Alias OCR1A                                              'Диоды фары
D2 Alias Portb.3                                            'Индикаторный диод
Button1 Alias Pinb.4                                        'Переменная для кнопки
Dim I As Byte                                               'Универсальная переменная (0-255)
Dim Y As Byte                                               'Универсальная переменная для прерывания
Dim K As Bit                                                'Флаг отключения
Dim Ledmode As Byte                                         'Переменная для режимов
'--- Подпрограмма сна ---
Main_sleep:
Reset D1
Ledmode = 0
'--- Ждем отпускания кнопки ---
Bitwait Button1 , Set
Waitus 20
'--- Засыпаем ---
Powerdown
'--- Ждем нажатия на кнопку ---
K = 0
'--- Основная программа ---
Main:
Do
Select Case Ledmode
Case 0 : Gosub M0
Case 1 : Gosub M1
Case 2 : Gosub M2
Case 3 : Gosub M3
Case Else : Ledmode = 0
End Select
'--- Переход в спящий режим --------------------------------------
If K = 1 Then
Reset D1
Goto Main_sleep
End If
Loop

Buttonon:
If Button1 = 0 Then
   Set D2
   D1 = 0
   Y = 100
   Incr Ledmode
   Do
      If Button1 = 1 Then
      Reset D2
         Exit Do
      End If
      Waitms 10
      Incr Y
      If Y = 0 Then
         K = 1
         Reset D2
      End If
   Loop Until Y = 0
Else
  Reset D2
End If
Return
End
'--- Режимы ---
M0:            'Мигалка / Половина яркости
D1 = 128
Waitms 300
D1 = 0
Waitms 300
Return

M1:            'Постоянный / Полная яркость
D1 = 255
Return

M2:            'Постоянный / Половина яркости
D1 = 128
Return

M3:            'Мигалка / Полная яркость
D1 = 255
Waitms 300
D1 = 0
Waitms 300
Return


Последний раз редактировалось XPT Вт июн 11, 2019 22:34:46, всего редактировалось 1 раз.

Вернуться наверх
 
Приглашаем на вебинар «Создание беспроводных устройств на системах-на-кристалле семейства SimpleLink компании TI»

Компания Компэл, совместно с Texas Instruments приглашают 26 июня принять участие в вебинаре, где инженер по применению беспроводных технологий компании TI расскажет, как на новых беспроводных системах можно реализовать несколько полезнейших в повседневной жизни функций для ваших устройств.
С развитием элементной базы TI становится возможной реализация более удобных, функциональных и безопасных систем, недоступных ранее.
Вебинар проводит инженер по применению беспроводных технологий в TI Мари Хернес(будет дублированный перевод).
Подробнее>>
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вт июн 11, 2019 22:25:39 
Прорезались зубы

Карма: 1
Рейтинг сообщений: 3
Зарегистрирован: Ср май 26, 2010 21:40:47
Сообщений: 220
Рейтинг сообщения: 0
При вычислениях некоторые переменные меняют свои значения, хотя с ними в этот момент операции не производятся. Почему? Нехватка оперативной памяти или наложение переменных друг на друга?


Вернуться наверх
 
Старт складской программы по Wi-Fi/Bluetooth-чипам ESP8266 и ESP32 от Espressif

На склад КОМПЭЛ поступили чипы, модули и отладочные платы от компании Espressif Systems на базе ESP8266 и ESP32. Стоимость всех изделий данной линейки - в 2-3 раза ниже ближайших аналогов, чипы занимают минимальное место на плате, энергоэффективны и универсальны в применении.
Продукция компании популярна как среди инженеров-любителей, так и в среде разработчиков-профессионалов, которые уже смогли по достоинству оценить её качество.
Подробнее...
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Чт июн 13, 2019 10:54:00 
Прорезались зубы

Карма: 1
Рейтинг сообщений: 3
Зарегистрирован: Ср май 26, 2010 21:40:47
Сообщений: 220
Рейтинг сообщения: 0
Вроде бы решил вопрос (агрессивным способом):
Каждую переменную принудительно пришил к конкретной ячейке в оперативной памяти. Т.к. переменных очень много (~500), то для удобного ориентирования для себя сделал таблицу в Excel с названием переменной + адрес ячейки памяти.

В определенный момент возникла заминка:
Прикреплял переменные к ячейкам начиная с адреса &H60, но в определенный момент какого-то лешего некоторые переменные начинали менять свои значения. Самое поразительное - в симуляторе все прекрасно отрабатывает в SRAM, на практике же значения меняются. Попробовал изменить начальный адрес записи переменных в SRAM на &H200 (вместо &H60) и все заработало как надо. Странно?!

PS: МК ATMega32A


Вернуться наверх
 


Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Чт июн 13, 2019 19:02:40 
Опытный кот
Аватар пользователя

Карма: 13
Рейтинг сообщений: 42
Зарегистрирован: Ср авг 26, 2009 09:24:50
Сообщений: 792
Откуда: 1300км от Пупа
Рейтинг сообщения: 0
так вариантов много, начиная от кривой программы ($hwstack $swstack $framesize ,не верная размерность переменной), до битого, китайского камня. Вообще, протеус в помощь, там всё можно отследить по шагам.

_________________
Все делают ошибки, только мудрецы - новые, а дураки - старые.


Вернуться наверх
 


Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Чт июн 13, 2019 19:10:26 
Прорезались зубы

Карма: 1
Рейтинг сообщений: 3
Зарегистрирован: Ср май 26, 2010 21:40:47
Сообщений: 220
Рейтинг сообщения: 0
kip96, с $hwstack $swstack $framesize все впорядке. Камень вроде оригинал (от популярного Российского поставщика). Вот насчет размерности переменной возникли сомнения, еще один случай: есть переменные в массиве, например dim Arr(2) as string * 3 и вроде массив в памяти должен занимать 8 байт, но переменная на 9 байте, идущая после массива, меняла свои значения. После смещения на 1 байт все наладилось.


Вернуться наверх
 
Prist.ru предлагает скидку всем частным лицам при покупке приборов АКИП, GW Instek, APPA (кроме осциллографов АКИП-4115/1А, GDS-71102)!

Интересные новинки уже на складе:

Осциллограф АКИП-4126Е

Многоканальные источники питания серии GPP

Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Чт июн 13, 2019 21:16:26 
Опытный кот
Аватар пользователя

Карма: 13
Рейтинг сообщений: 42
Зарегистрирован: Ср авг 26, 2009 09:24:50
Сообщений: 792
Откуда: 1300км от Пупа
Рейтинг сообщения: 0
Ну так может переменной присвоили три символа, вот и вылез.
Вообще, у меня тоже возникает интерес контролировать всё жёстко, но это дело личное. Потом резервируешь стек, переменную по больше, с запасом, и всё нормально.

_________________
Все делают ошибки, только мудрецы - новые, а дураки - старые.


Вернуться наверх
 
Купить электронные компоненты в LCSC

Отправка со склада через 4 часа после заказа!
900 000 пользователей, 3000+ заказов в день!
Зарегистрируйтесь сегодня и получите скидку 8 долларов на первый заказ!
Показать сообщения за:  Сортировать по:  Вернуться наверх
Начать новую тему Ответить на тему  [ Сообщений: 5809 ]     ... , , , , 291

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
Extended by Karma MOD © 2007—2012 m157y
Extended by Topic Tags MOD © 2012 m157y