Перейти к содержанию

Не Могу Понять Логику Работы Моей Прошивки


Рекомендуемые сообщения

Всем привет. Написал вот такое в basicom avr.

Должно выполняться следующее:

1. При запуске светодиод должен моргать Wtime/100 раз

2. Выполняться рабочий цикл

2.1 Включаем реле

2.2 Ждем 80 мс

2.3 Выключаем реле

3 При нажатии кнопки (int0)

3.1 Проверяем значение wtime, устанавливаем в 100, если больше 600

3.2 Прибавляем 100 к wtime

3.3 Моргаем Wtime/100 раз светодиодом

3.4 Возвращаемся к рабочему циклу

Wtime должен записываться в EEPROM

Укажите на мои ошибки, пожалуйста. Первый раз использую прерывания. Второй раз пишу прошивку :)

$regfile = "attiny13a.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 8
$framesize = 16

Config Pinb.3 = Output									  'RELAY
Config Pinb.2 = Output									  'LED
Pinb.2 = 0
Pinb.3 = 0
' Кнопка, подключенная к GND на вывод INT0
On Int0 Button
Enable Interrupts
Enable Int0

Dim Wtime As Integer									    ' Время задержки в миллисекундах. Может быть от 100 до 700
Dim A As Integer

$eeprom
$data
Readeeprom Wtime

' Тут я хочу показать режим с помощью вспышек светодиода
For A = 0 To Wtime Step 100
  Pinb.2 = 0
  Waitms 100
  Pinb.2 = 1
  Waitms 50
  Next A

' Проверяем значение wtime
If Wtime < 100 Or Wtime > 600 Then
  Wtime = 100
  Writeeeprom Wtime
End If

' Рабочий цикл. Щелкаем релешкой
Cycle:
  Pinb.3 = 1											   ' Реле включено 80 мс
  Waitms 80
  Pinb.3 = 0											   ' Реле выключено %wtime% мс
  Waitms Wtime
Goto Cycle
' Кнопкой увеличиваем wtime и отображаем режим
Button:
  Wtime = Wtime + 100
  If Wtime > 600 Then
  Wtime = 100
  End If
  Writeeeprom Wtime
  For A = 0 To Wtime Step 100
  Pinb.2 = 1
  Waitms 50
  Pinb.2 = 0
  Waitms 50
  Next A
Return

Как оно работает:

1. При запуске сразу начинается рабочий цикл. Wtime не вижу с помощью светодиода

2. При нажатии кнопки wtime меняется, но светодиод гаснет далеко не всегда, количество вспышек не всегда соответствует wtime

3. При перезапуске Wtime = 100

Думаю, с eeprom неправильно работаю

Ссылка на комментарий
Поделиться на другие сайты

Не настроено прерывание - нет строчки Config int0 = Falling. Но дело не в этом.

Думаю, с eeprom неправильно работаю

Правильно думаете. В строке Readeeprom Wtime не указан адрес переменной. Есть другой способ работы с EEPROM:

$regfile = "attiny13a.dat"
$crystal = 4800000
$hwstack = 32
$swstack = 8
$framesize = 16

Config Portb.3 = Output									 'RELAY
Config Portb.2 = Output									 'LED
Pinb.2 = 0
Pinb.3 = 0

Config Int0 = Falling
On Int0 Button
Enable Interrupts
Enable Int0

Dim Wtime_eep As Eram Integer
Dim Wtime As Integer
Dim A As Integer

Wtime = Wtime_eep

For A = 0 To Wtime Step 100
        Portb.2 = 1
	 Waitms 100
        Portb.2 = 0
	 Waitms 50
Next A

If Wtime < 100 Or Wtime > 600 Then
Wtime = 100
Wtime_eep = Wtime
End If

Cycle:
Portb.3 = 1
Waitms 80
Portb.3 = 0
Waitms Wtime
Goto Cycle

Button:
Wtime = Wtime + 100
If Wtime > 600 Then
	 Wtime = 100
End If
Wtime_eep = Wtime
For A = 0 To Wtime Step 100
        Portb.2 = 1
	 Waitms 50
        Portb.2 = 0
	 Waitms 50
Next A
Return

Изменено пользователем u33
Ссылка на комментарий
Поделиться на другие сайты

Сравнительное тестирование аккумуляторов EVE Energy и Samsung типоразмера 18650

Инженеры КОМПЭЛ провели сравнительное тестирование аккумуляторов EVE и Samsung популярного для бытовых и индустриальных применений типоразмера 18650. 

Для теста были выбраны аккумуляторы литий-никельмарганцевой системы: по два образца одного наименования каждого производителя – и протестированы на двух значениях тока разряда: 0,5 А и 2,5 А. Испытания проводились в нормальных условиях на электронной нагрузке EBD-USB от ZKEtech, а зарядка осуществлялась от лабораторного источника питания в режиме CC+CV в соответствии с рекомендациями в даташите на определенную модель. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Новый аккумулятор EVE серии PLM для GSM-трекеров, работающих в жёстких условиях (до -40°С)

Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре. 

Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств. Подробнее параметры и результаты тестов новой серии PLM по ссылке.

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Спасибо, фьюзы выставил (SUT0, CKSEL1), только все равно что-то не так. При запуске светодиод моргает несколько раз, но иногда не выключается.

Waitms по-прежнему работает около секунды вместо мс. Waits работает нормально.

Ссылка на комментарий
Поделиться на другие сайты

Литиевые батарейки и аккумуляторы от мирового лидера  EVE в Компэл

Компания Компэл, официальный дистрибьютор EVE Energy, бренда №1 по производству химических источников тока (ХИТ) в мире, предлагает продукцию EVE как со склада, так и под заказ. Компания EVE широко известна в странах Европы, Америки и Юго-Восточной Азии уже более 20 лет. Недавно EVE была объявлена поставщиком новых аккумуляторных элементов круглого формата для электрических моделей «нового класса» компании BMW.

Продукция EVE предназначена для самого широкого спектра применений – от бытового до промышленного. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Скопируйте еще раз исходик из второго поста. Я поправил - все PINB.x поменял на PORTB.x , так как регистр PIN обеспечивает только возможность чтения.

Ссылка на комментарий
Поделиться на другие сайты

$regfile = "attiny13a.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 8
$framesize = 16
'$sim
Dim A As Byte
Dim Pressed As Byte
Pressed = 0
Declare Sub Delayms(byval Milliseconds As Integer)
Declare Sub Delays(byval Seconds As Byte)
Declare Sub Show(byval Wmode As Byte)
Declare Sub Kick
Config Int0 = Falling
On Int0 Button
Enable Interrupts
Enable Int0

Dim Wtime_eep As Eram Byte
Dim Wtime As Byte

Wtime = Wtime_eep

Config Portb.3 = Output									 'RELAY
Config Portb.2 = Output									 'LED
Reset Portb.3
Reset Portb.2

If Wtime < 1 Or Wtime > 6 Then
  Wtime = 1
  Wtime_eep = Wtime
End If
Show Wtime
Do
  Kick
  Delays 3
Loop
Sub Delayms(byval Milliseconds As Integer)
  For A = Milliseconds To 1 Step -1
   Waitms 1
  Next A
End Sub

Sub Delays(byval Seconds As Byte)
  For A = Seconds To 1 Step -1
   Wait 1
  Next A
End Sub
Sub Kick
   Set Portb.3
   Delayms 400
   Reset Portb.3
End Sub
Sub Show(byval Wmode As Byte)
   For A = Wmode To 1 Step -1
   Set Portb.2
   Delayms 100
   Reset Portb.2
   Next A
End Sub

Button:
  If Pressed = 0 Then
  Pressed = 1
  Else
  Wtime = Wtime + 1
  If Wtime > 6 Then
	 Wtime = 1
  End If
  Wtime_eep = Wtime
  End If
  Show Wtime
Return

End

Вот вторая версия. Еще вопрос. Где можно посмотреть как правильно сделать int0 на плате?

Ссылка на комментарий
Поделиться на другие сайты

Заработало, но я нашел плату с 6 реле и сборкой транзисторов, подключил к Arduino и там написал программу.

Теперь на моей шестерке 6 режимов стеклоочистителей и возможность подключения 5 нагрузок. Буду думать что подключать :)

Спасибо за помощь!

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.

Гость
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
  • Сообщения

    • скачай новый архив. там есть важные изменения в комповой программе, по сравнению с той, что я отправлял в личке. исправлены недоделки и добавлены проверки на некорректные действия.
    • Здесь все индивидуально, точного ответа нет. Тип фоторезиста, качество фотошаблона, расстояние и время засветки, длина волны св.диодов, "полоскание" в химии ... Надо все пробовать самому, ручками, опыт придет со временем, ничего сложного там нет. На форуме есть ветка, почитайте.
    • Привет.  Хочу попробовать поработать с фоторезистом. Есть пару десятков ультрафиолетовых светодиодов, общей мощностью 4 вата. Хватит ли этой мощности для обработки платок размером 10 на 10 см или надо искать что-то дополнительно? 
    • Чтобы меньше было излучения, нужно мотать тороидальную. Возможно для повышения добротности по омическому сопротивлению лучше этот ТОР мотать в пару слоев. Если ее намотать на шило, то она вряд ли будет вообще работать как катушка.   Индуктивность прямо пропорциональна площади сечения, которая в свою очередь прямо пропорциональна квадрату диаметра. К тому же индуктивность в обратной пропорции с длиной намотки.
    • Я в ходе отладки выяснил, что сбоит в функции:  void w25qWritingByUSB(uint32_t dpagenum, uint8_t *bufByUSB) При чем поведение очень странное. Отладочные сообщения даже не выводятся в начале функции. В ходе экспериментов понял что связано это с объявлением массивов и решил объявить большие буферы которые на 4КБ и 0.25КБ: uint8_t current_sector_buf[4096]; uint8_t buf[256]; глобально. В оригинале, буферы объявлялись локально в функции. После изменения буквально двух строчек кода, все заработало. Также, в оригинальном проекте было сильно напутано из функциями. Я решил функции выкинуть из main.c и вставить в w25q.c Эти функции: void w25qEraseSector(uint16_t sector) void w25qWritingByUSB(uint32_t dpagenum, uint8_t *bufByUSB) Поиск данной проблемы реально отобрало кучу времени. На будущее буду знать что и такое бывает...
    • есть готовый  драйвер BTS7960 до 43А (долговременно до 10) с шим и все, что нужно и стоит недорого. И не надо изобретать  велосипед. Даже с учетом завышения параметров  уж 5А свободно.
×
×
  • Создать...