Добавлено (21.12.2009, 09:43)
---------------------------------------------
Посмотри ещё здесь - http://bascomavr.3bb.ru/viewtopic.php?id=238

Добавлено (21.12.2009, 22:39)
---------------------------------------------
Пробовал резисторы к катодам цеплять (у меня индикатор с О.А.), 470Ом - много, (я от трёх вольт запитую) а 27Ом - разници практически никакой.
буду в личку Pashe стучать, о результатах отпишу здесь и. В коментариях, если найдём решение тоже напишу, чтоб у желаюших повторить вопросов меньше было....

вот что попробуй

Pulse:
Incr X
Portb = &H00 ' гасим все цифры

delay' waitms 100 ' сюда вставляем задержку

Portd = Bn(cifri(x)) ' выдаем цифру в порт
Y = X - 1

delay' waitms 100 ' сюда вставляем задержку, какая-то из них должно помочь

Set Portb.y
If X = 4 Then X = 0
If Dotx = 0 Then Reset Portd.2 Else Set Portd.2
Return

отпишись решилась ли проблема. Мои часы собраны точно по схеме без всяких резисторов ( я конечно понимаю что в теории они нужны, но на практике все работает на одном сопротивлении 200 Ом 5В, по закону ома устройство просто не может брать больше 25 мА при таком сопротивлении) Если проблема решилась - обязательно отпишись на форуме где поднимал вопрос.

Если не поможет - тупо поставь задержки между всеми ВСЕМИ командами, милисекунд по 100-300. И потихонечку смотри где грабли. Меня заинтересовала твоя идея сдвига цифр и сравнения их с Data. Если доведешь такой алгоритм до ума, то с удовольствием хотелось бы посмотреть код... ну и если не жалко то поделится им с другими форумчанами.

для удобства работы можешь дописать после (Чтоб минуты не скакали)

Temp = _hour * 100
Temp = Temp + _min

Temp = 1200

Когда горят все 00:00 проблема остается?

и еще, просматривая код меня заинтересовало - будут ли работать кнопки без строки "Config Portc = Input". Т.к. поидее правильно Config Pinc = Input. Подозреваю что эта строка не нужна вообще.. Наверное все заложено в команду Debounce.

Pasha с http://bascomavr.3bb.ru/

ВСЕХ С НАСТУПАЮЩИМ НОВЫМ ГОДОМ!!!!!!

Добавлено (29.12.2009, 02:28)
---------------------------------------------
Сегодня переделал программу полностью. Если незатруднит модераторов добавте её в статью, Всё работает без всякого послесвечения, и прочих недостатков.
Единственное, немного спешат, но думаю это от кварца, надо кандёры шунтирующие подобрать

[/code]
$regfile = "m8def.dat" ' Работаем с ATmega8
$crystal = 8000000 'Работаем на частоте 8 мГц
Config Portb = Output
Config Portd = Output 'Назначаем порты на вход и выход
Config Portc = Input '‘
Set Portc.5 '‘Поддтягиваем вход Portc.5 и Portc.4 резисторами к Vcc
Set Portc.4
Dim X As Byte , Y As Byte , Cifri(4) As Byte , Cifra As Byte , Tochka As Byte , I As Byte , Dig(5) As Byte , Chislo(10) As Byte '‘рабочие переменные

Config Clock = Soft '‘Включаем софтовые часы
_sec = 0 : _min = 0 : _hour = 0 '‘Вводим время с которого будет производиться отчёт времени
Config Timer0 = Timer , Prescale = 8 '‘Включаем таймер0, применяем делитель на 8
Config Timer1 = Counter , Edge = Falling , Prescale = 1 '‘Включаем таймер1, назначаем его работу по спаду от кварца 32768 Гц, делитель на 1
On Timer0 Pulse '‘При срабатывании таймера0, переходим на вклатку Pulse
Enable Interrupts '‘Разрешаем все прерывания
Enable Timer0 '‘Разрешаем прерывания таймера0
Config Debounce = 20 '‘Ставим задержку при нажатии на кнопки в 20 м.Сек.

Restore Dta
For I = 1 To 4
Read Dig(i)
Next

Restore Dta2
For I = 0 To 9
Read Chislo(i)
Next

Do '‘Основной цикл
Debounce Pinc.4 , 0 , Minuti , Sub '‘
Debounce Pinc.5 , 0 , Chasi , Sub '‘Проверяем на нажатие кнопок, если кнопка нажата переходим на соответствуюшую вкладку
Tochka = _sec Mod 2

Cifri(1) = _hour / 10 '‘Разбиваем двузначное число часов на два однозначных (21 / 10 = 2)
Cifri(2) = Cifri(1) * 10 '‘2 * 10 = 20 сохраняем результат в переменную Cifri(2)
Cifri(2) = _hour - Cifri(2) '’21 – 20 = 1 'сохраняем вновь полученный результат, в итоге переменная Cifri(2) равняется 1
Cifri(3) = _min / 10 '‘Проделываем тоже самое с минутами (56 / 10 = 5)
Cifri(4) = Cifri(3) * 10 '‘5 * 10 = 50
Cifri(4) = _min - Cifri(4) '’56 – 50 = 6

Loop '‘Конец основного цикла

Pulse:
Portd = &HFF '‘Гасим индикатор
Incr X '‘Увеличиваем переменную Х на еденицу (была 0, стала 1)
Portb = Dig(x)
Cifra = Cifri(x)
If X > 4 Then X = 0 '‘Последняя проверка, если Х больше 4, обнуляем его
Portd = Chislo(cifra)
If Portb.2 = 1 And Tochka = 0 Then Set Portd.2 Else Reset Portd.2
Return '‘ Возврашаемся

Minuti: '‘При нажатии кнопки «минуты» обнуляем секунды и увеличиваем переменную _min на 1
Incr _min
_sec = 00
If _min = 60 Then _min = 00
Return '‘Возврашаемся

Chasi: '‘Тоже, что с минутами
Incr _hour
_sec = 00
If _hour > 23 Then _hour = 00
Return

Dta:
Data &H8 , &H4 , &H2 , &H1
Dta2:
Data &H10 , &H73 , &H48 , &H41 , &H23 , &H81 , &H80 , &H53 , &H00 , &H1
[code]

Добавлено (30.12.2009, 01:40)
---------------------------------------------
Тут в прерывании по минимуму операций. Может из за этого часы спешат? хотя в теории должны отставать)))

Добавлено (24.02.2010, 13:55)
---------------------------------------------
Короче сам дапетрил. Нельзя переменную два раза использовать.

а еще лучше заменить алгоритм вычисления на Cifri(1) = _min Mod 10 : Cifri(2) = _min / 10 : Cifri(3) = _hour Mod 10 : Cifri(4) = _hour / 10
Юзайте вторую прошивку. там послесвечения не должно быть!