Bascom На Avr, Нужна Помощь.

[Gerceg]

Всем привет, вроде бы правильная ветка, надеюсь на этот раз не перенесут в "грязный" отдел)

собственно есть программа на Bascom, нашел в интернете, нужно немного переделать, а именно поправить чтобы программа могла сохранять число 13 символов, я так понимаю, понятие счетчик тут не подойдёт? так как перезапись eeprom только в 100 тысяч ограничено.... кто что думает:

$regfile = "attiny2313.dat"
Config Lcd = 16 * 2
Config Pind.5 = Input
Config Pind.4 = Input
Pind.4 = 1
Dim Tick As Bit
Dim Count As Long
Tick = 1
Cls
Cursor Off
Lcd "    CАeїАёє"
Lowerline
Lcd "   їaєїoі V1.0"
Wait 2
$eeprom
Countdata:
Data 17%
$data
Readeeprom Count , Countdata
Cls
Lcd "CАeїАёє:"
Do
Locate 2 , 1
Lcd Count
If Pind.4 = 0 Then
Locate 2 , 1
Lcd "(CІpoc cАeїАёєa)"
Wait 1
Locate 2 , 1
Lcd "						   "
Count = 0
Writeeeprom Count , Countdata
End If
If Pind.5 = 0 Then
If Tick = 0 Then
Count = Count + 1
Writeeeprom Count , Countdata
Tick = 1
End If
Else
Tick = 0
End If
Loop
End

ссылка на перво источник: http://cxem.net/mc/mc112.php

Кто что думает, думаю выполнять в железе или нет... надо для начала в программе убедиться, что да, всё хорошо, сработается...

[Реклама]

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

[u33]

перезапись eeprom только в 100 тысяч ограничено

Ну и незачем при каждом нажатии кнопки записывать Count в EEPROM, а сделать при отключении питания.

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

[Реклама]

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

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

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

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

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

[Гость]

верно вам сказали: пишите при отключении птания

датчик зависит от задач

вот у меня было так сделано: (с гальванической развязкой, контроль 24 вольта)

для иного напряжениея - иной стабилитрон и резисторы R3/R6 надо подобрать

если не надо опторазвязки - можно просто делитель напряжения двумя резисторами сделать (например, их выбрать так, чтобы на выходе было 65% от питающего и подать на вход IntX. Как пропало - падает на входе МК, срабатывает прерывание и сохраняет

[Реклама]

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

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

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

[Gerceg]

Т.е. я наюираю любое число, в пределах LCD, получается вешаю на ещё одну ногу "датчик" реагирующий на отключение питани, который среагирует и выполнит свою функцию(подаст) импульс?

я сейчас на работе попробую дома переделать немного программу и схему,, главное слово "попробую" )))

Кстати, упростить можно? я в плане не на выключение питания, так как я планировал поместить аккумулятор, а на отдельную кнопку? которая и создаст необходимый импульс? и вызовет сохранение eeprom?

[u33]

Число будет не "в пределах LCD", а в пределах размера переменной типа Long. А запись в еепром по нажатию кнопки - конечно проще, только если не забывать сохранять перед отключением питания.

[Gerceg]

$regfile = "attiny2313.dat"

Config Lcd = 16 * 2
Config Pind.5 = Input
Config Pind.4 = Input
Pind.4 = 1

Dim Tick As Bit
Dim Count As Long
Tick = 1

Cls
Cursor Off
Lcd "     Счетчик"
Lowerline
Lcd "   Версия V1.0"
Wait 2

$eeprom
Countdata:
Data 17%
$data

Readeeprom Count , Countdata

Cls
Lcd "Счетчик:"

Do
Locate 2 , 1
Lcd Count

If Pind.4 = 0 Then
Locate 2 , 1
Lcd "(Сброс счетчика)"
Wait 1
Locate 2 , 1
Lcd "                "
Count = 0
Writeeeprom Count , Countdata
End If

If Pind.5 = 0 Then
If Tick = 0 Then
Count = Count + 1
Tick = 1
End If
Else
Tick = 0
End If




If Pind.3 = 0 Then
Locate 2 , 1
Lcd "(Сохранение)"
If Tick = 0 Then
Writeeeprom Count , Countdata
Tick = 1
End If
Else
Tick = 0
End If





Loop
End

только появился)

так кто что думает,

подскажите где можно набросать программу чтобы можно визуально посмотреть что происходит на LCD?? т.е. эмуляция по железу...