На видео не полный функционал ? Тогда жду продолжения ...

Допилил под себя прошивку польских часов на ИВ-18.
В прошивке реализовано:
1. Мигание разряда устанавливаемой величины (часы, минуты, день, месяц, год, день недели)
2. Работа двух датчиков DS18B20, при обрыве датчика выводится надпись "Err";
3. Переделана относительно исходника индикация даты (теперь отображается еще и день недели);
4. Затухание экрана при смене показаний время- дата-температура1-температура2;
5. При нажатии на кнопку 2 вне режима установки происходит обнуление секунд (для точной настройки времени);
6. Теперь не сбивается дата если во время режима установки изменить только время (присутствовало в исходнике).
В архиве схема, плата, модель в протеусе и прошивка.

Великим программистам не пинать (пару недель как начал вникать в bascom )
P.S: понял что памяти меги 8 маловато для всяких будильников, регулировок яркости и прочего. Друзья нашли "кладовочку" с ИВ-18 надо будет смастырить часы на меге16 или 32 в smd исполнении.

а время индикации даты и температуры не меняли ? есть такая возможность (самый лучший вариант вынести его в ячейки памяти - про прошивке поправил, как хочешь)
или сделать 2 минуты время, 10 сек дату, 10 сек температуру.


лучше вывести 1 раз, а потом просто ничего не показывать.

есть возможность подправить с учетом пожеланий ?

время индикации даты и температуры менял. Можно в исходнике под себя поправить
'************* Счетчик экранов ************************
Sub Licz_ekran
Incr Ekran
If Ekran = Ekran_const Then
Ekran = 0

Gasit = 1
Waitms 150
Incr Ktory_ekran
End If

If Ktory_ekran = 7 Then Ktory_ekran = 0
Select Case Ktory_ekran
Case 0:
Call Disable_interrupts
Portd = &B111111111
Portb = &B11111111
Gosub Ds_read_1
Ktory_ekran = 1
Case 1:
Czas_data_temp = 0
Ekran_const = 400 - продолжительность отображения времени
Gasit = 0
Case 2:
Call Disable_interrupts
Portd = &B111111111
Portb = &B11111111
Gosub Ds_read_2
Ktory_ekran = 3
Case 3:
Czas_data_temp = 1
Ekran_const = 255- продолжительность отображения даты
Gasit = 0
Case 4:
Call Disable_interrupts
Portd = &B111111111
Portb = &B11111111
Gosub Ds_read_3
Ktory_ekran = 5
Case 5:
Portd = &B111111111
Portb = &B11111111
If Fl_err1 = 0 Then Czas_data_temp = 2 Else Czas_data_temp = 4
Ekran_const = 80- продолжительность отображения температура 1
Gasit = 0
Case 6:
Portd = &B111111111
Portb = &B11111111
If Fl_err2 = 0 Then Czas_data_temp = 3 Else Czas_data_temp = 4
Ekran_const = 80- продолжительность отображения температура 2
Gasit = 0

End Select


Во вложении исходник

Выбираем индустриальные и медицинские источники питания MEAN WELL в открытом исполнении

Использование модульных источников питания открытого типа широко распространено в современных устройствах. Присущие им компактность, гибкость в интеграции и высокая эффективность делают их отличным решением для систем промышленной автоматизации, телекоммуникационного оборудования, медицинской техники, устройств «умного дома» и прочих приложений. Рассмотрим подробнее характеристики и особенности трех самых популярных вариантов AC/DC-преобразователей MW открытого типа, подходящих для применения в промышленных устройствах - серий EPS, EPP и RPS представленных на Meanwell.market.

Подробнее>>

dimon-ru-80 спасибо!
как раз собираюсь делать часы на ИВ-18, также имеется небольшой складик индикаторов
питание накала оставил как у поляка, постоянка?
я думаю питать переменкой, сейчас в раздумьях, как сделать просто и надежно.

Я оставил как в схеме постоянкой от кренки, единственное что между минусом и накалом поставил резюк около 20 ом чтобы убрать засвет на крайнем справа регистре. Пробовал от переменки через резюк ещё хуже становились засветы. Если от переменки , то её надо отвязывать от постоянки (отдельная обмотка транса со средней точкой или отдельный преобразователь). У меня сейчас практически (если не вглядываться) не видно разной яркости свечения между первым и последним регистрами.
Я/ сейчас больше присматриваюсь к всяким там ice tube clock на меге 16 или 32 для следующей поделки. см. вложение. Только вместо макса поставить uln-ки и еще добавить пару сдвиговых регистров для экономии i/o меги. И собрать это всё как можно в меньшем габарите.

Рассмотрите LM9022 (рис.9 в даташите). Я пробовал, вполне работает. Амплитуду переменки можно подобрать как гасящими резисторами, так и напряжением питания (2-5.5в).
Покупал на алиекспресс.
пысы. Я думаю, что аналог LM9022 можно собрать на, например, LM358 плюс ключи на выходах.

Понравилась схемка где то на форуме попадалась с драйвером шагового двигателя флопика- там и питание накала и высокое реализовано. Надо флопики старые порасковырять

А у кого какая частота динамической индикации на ив-18? (ну или на других ВЛИ). я так понимаю если у меня тактовая частота проца 8мГц, прерывание по переполнению таймера0 с предделителем 64 и количество регистров 8. то частота будет 8000000/64/256тиков/8индикаторов =61гЦ. Вроде бы пишут что нормальная частота для динамической индикации, но у меня при такой частоте мерцают регистры. нормально работают если частоту выставить где то 300гЦ (т.е начинать тикать с 204 до 256) тогда и засвет минимальный. Вычитал что если слишком большая частота, то будет засвет соседних регистров.....

кажись Микротеч так делал

да это оно!
я как раз рассматриваю варианты /ИЛИ/ LM9022 /ИЛИ/ LM358 плюс ключи...
первую только на Али можно найти, второй вариант буду на днях делать.
схемы с трансами на кольцах что-то у меня не "пошли" как нужно, но я над ними работаю...

ПС. если у кого есть ссылки на <<схемка с драйвером шагового двигателя флопика>>
пожалуйста, буду благодарен, спасибо!

были бы вы с рф, я бы помог вам с лм9022...

Во вложении

на выходные попробую "прошиться" вашей прошивкой, погляжу ваши нововведения.


я выкладывал фотки и даже платки варианта повышалки на 34063 (+35 вольт).
это здорово снимает необходимость иметь блок питания на переменке - в свое время, нашел только один от старого модема.

плохо, что заленился в тот раз сделать еще импульсник и на 5 вольт - греется он ощутимо. так вот, если на дросселе (гантель, мелкие чашки) сделать дополнительную обмотку от преобразователь 5 вольт - можно получить переменку для накала...

недавно смотрел схемы калькулятора МК-61, там очень аккуратно устроен преобразователь для ВЛИ (транс + три транзистора), можно "перелицевать" под современные детали и получить сразу накал и высокое и напругу для LDO стабилизатора 5В. потом поэкспериментирую на досуге.

для уменьшения засветки (у меня правда индикатор другой - от кассового аппарата) народ рекомендовал диод в цепи накала ставить не со стороны +5 а со стороны земли - таким образом будет дополнительное смещение при открытом транзисторе UNL. сам правда не пробовал..


а чем они лучше схемы на меге8 ? вам не хватает функционала ?
приведенная схема очень элегантна из за используемого драйвера - всего 3 корпуса IC на изделие. правда сам драйвер дороже 6-8$ да и купить/достать его нужно.

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

p.s.
очень интересная узкая плата в архиве - нет такой отрисованной в лаяуте?
если дипы ключей (или вообще все IC) заменить на планар...можно сделать совсем узкую..

Плата в архиве нарисована в масштабе 1:1 делал прям с неё ЛУТом. У меги 8 мне не хватает памяти. (Новичек в программировании, код занимает 99 % памяти а ещё хотелось бы будильник впилить и прочие плюшки). Следующие часы попробую развести плату в SMD а сдвиговые регистры использовать для экономии i/o меги. Питание лампы надо попробовать организовать как у микротеха на микре от флопика- понравилась тем что схема без индуктивностей. Не пойму как в мегу 8 впихивают кучу функционала? Возможно пишут прошивки не в Bascom и тем самым код сокращают?
Если интересно вот ссылка на видео с работой моих часов https://www.youtube.com/watch?v=l5Zu2pT ... o-rDYrfMLQ

вспомнил, что меня еще бесило в этих часах - мигающие пробелы меду цифрами.
при наличии секунд на индикаторе смотрятся глупо (сугубо мое мнение).


в исходнике эти цифры задаются в чем (секунды, десятые доли секунд)?

Единицы в исходнике меняются с каждым циклом на 1 можете подсчитать время выполнения одного цикла и будет вам значение Я подбирал экспериментальным путем 400 - это примерно 8 секунд.
"мигающие пробелы " можно убрать в исходнике:

Спойлер

If Czas_data_temp = 0 Then
Portd = &B111111111
Incr Ktorywysw
If Ktorywysw = 8 Then
Ktorywysw = 0
End If

Select Case Ktorywysw
Case 0:
Portd = Lookup(sekundyjed , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111101
Case 1:
Portd = Lookup(sekundydzies , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111110
Case 2:
If Sekundyjed = 0 Or Sekundyjed = 2 Or Sekundyjed = 4 Or Sekundyjed = 6 Or Sekundyjed = 8 And Gasit = 0 Then
Portd = &B110111111 'Kreski
Portb = &B11111011
Else
Portd = &B111111111 ' "мигающие пробелы "
End If
Case 3:
Portd = Lookup(minutyjed , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11110111
Case 4:
Portd = Lookup(minutydzies , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11101111
Case 5:
If Sekundyjed = 0 Or Sekundyjed = 2 Or Sekundyjed = 4 Or Sekundyjed = 6 Or Sekundyjed = 8 And Gasit = 0 Then
Portd = &B110111111 ' "мигающие пробелы "
Portb = &B11011111
Else
Portd = &B111111111
End If
Case 6:
Portd = Lookup(godzinyjed , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B10111111
Case 7:
If Godzinydzies = 0 Then
Portd = &B11111111
Else
Portd = Lookup(godzinydzies , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B01111111
End If
End Select

End If

Чтоб их вообще не было надо так:

Спойлер

If Czas_data_temp = 0 Then
Portd = &B111111111
Incr Ktorywysw
If Ktorywysw = 6 Then
Ktorywysw = 0
End If

Select Case Ktorywysw
Case 0:
Portd = Lookup(sekundyjed , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111101
Case 1:
Portd = Lookup(sekundydzies , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111110

Case 2:
Portd = Lookup(minutyjed , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11110111
Case 3:
Portd = Lookup(minutydzies , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11101111
Case 4:
Portd = Lookup(godzinyjed , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B10111111
Case 5:
If Godzinydzies = 0 Then
Portd = &B11111111
Else
Portd = Lookup(godzinydzies , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B01111111
End If
End Select

End If

Чтоб постоянно были нужно так:

Спойлер

If Czas_data_temp = 0 Then
Portd = &B111111111
Incr Ktorywysw
If Ktorywysw = 8 Then
Ktorywysw = 0
End If

Select Case Ktorywysw
Case 0:
Portd = Lookup(sekundyjed , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111101
Case 1:
Portd = Lookup(sekundydzies , Tabela)
If Gasit = 1 Then Portb = &B11111111 Else Portb = &B11111110
Case 2:
Portd = &B110111111
Portb = &B11111011
Case 3:
Portd = Lookup(minutyjed , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11110111
Case 4:
Portd = Lookup(minutydzies , Tabela)
If Ust_min = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B11101111
Case 5:
Portd = &B110111111
Portb = &B11011111
Case 6:
Portd = Lookup(godzinyjed , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B10111111
Case 7:
If Godzinydzies = 0 Then
Portd = &B11111111
Else
Portd = Lookup(godzinydzies , Tabela)
If Ust_ch = 1 And Timer1 > 35000 Or Gasit = 1 Then Portb = &B11111111 Else Portb = &B01111111
End If
End Select

End If

какое-то новогоднее несчастье... разобрал уже десяток флопиков разных моделей,
и ни в одном нету LB1838
ну хоть керамических резонаторов 4М трех-выводных на выдергиваю.

можете еще поискать для разборки таксометры "Евро Такс EL" там тоже такие стоят

То же самое - 2 штуки вскрыл и ничего там проц какой то на управление шаговым стоит...