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

[Илья Плотников 0]

Всем привет. Написал вот такое в 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 неправильно работаю

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[u33]

Не настроено прерывание - нет строчки 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

Изменено 6 ноября, 2013 пользователем u33

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[Илья Плотников 0]

Пишу Waitms 100, а реальная задержка около секунды.. Не пойму почему

[Реклама]

Выбираем схему BMS для корректной работы литий-железофосфатных (LiFePO4) аккумуляторов

 Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ, также как и для других, очень важен контроль процесса заряда и разряда, а специализированных микросхем для этого вида аккумуляторов не так много. Инженеры КОМПЭЛ подготовили список имеющихся микросхем и возможных решений от разных производителей. Подробнее>>

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

[u33]

Скорее всего запрограммирован фьюз CLKDIV8.

[Илья Плотников 0]

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

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

[u33]

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

[Илья Плотников 0]

$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 на плате?

[Илья Плотников 0]

Скорее всего, eeprom не пишется или не читается. Кроме прошивки еще что-то нужно делать с чипом? Фьюз eesave = 1

[Илья Плотников 0]

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

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

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