Допилил под себя прошивку польских часов на ИВ-18. В прошивке реализовано: 1. Мигание разряда устанавливаемой величины (часы, минуты, день, месяц, год, день недели) 2. Работа двух датчиков DS18B20, при обрыве датчика выводится надпись "Err"; 3. Переделана относительно исходника индикация даты (теперь отображается еще и день недели); 4. Затухание экрана при смене показаний время- дата-температура1-температура2; 5. При нажатии на кнопку 2 вне режима установки происходит обнуление секунд (для точной настройки времени); 6. Теперь не сбивается дата если во время режима установки изменить только время (присутствовало в исходнике). В архиве схема, плата, модель в протеусе и прошивка.
Великим программистам не пинать (пару недель как начал вникать в bascom ) P.S: понял что памяти меги 8 маловато для всяких будильников, регулировок яркости и прочего. Друзья нашли "кладовочку" с ИВ-18 надо будет смастырить часы на меге16 или 32 в smd исполнении.
Допилил под себя прошивку польских часов на ИВ-18.
а время индикации даты и температуры не меняли ? есть такая возможность (самый лучший вариант вынести его в ячейки памяти - про прошивке поправил, как хочешь) или сделать 2 минуты время, 10 сек дату, 10 сек температуру.
dimon-ru-80 писал(а):
2. Работа двух датчиков DS18B20, при обрыве датчика выводится надпись "Err";
лучше вывести 1 раз, а потом просто ничего не показывать.
Допилил под себя прошивку польских часов на ИВ-18.
а время индикации даты и температуры не меняли ? есть такая возможность (самый лучший вариант вынести его в ячейки памяти - про прошивке поправил, как хочешь) или сделать 2 минуты время, 10 сек дату, 10 сек температуру.
dimon-ru-80 писал(а):
2. Работа двух датчиков DS18B20, при обрыве датчика выводится надпись "Err";
лучше вывести 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
Качественное и безопасное устройство, работающее от аккумулятора, должно учитывать его физические и химические свойства, профили заряда и разряда, их изменение во времени и под влиянием различных условий, таких как температура и ток нагрузки. Мы расскажем о литий-ионных аккумуляторных батареях EVE и нескольких решениях от различных китайских компаний, рекомендуемых для разработок приложений с использованием этих АКБ. Представленные в статье китайские аналоги помогут заменить продукцию западных брендов с оптимизацией цены без потери качества.
dimon-ru-80 спасибо! как раз собираюсь делать часы на ИВ-18, также имеется небольшой складик индикаторов питание накала оставил как у поляка, постоянка? я думаю питать переменкой, сейчас в раздумьях, как сделать просто и надежно.
Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре.
Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств.
dimon-ru-80 спасибо! как раз собираюсь делать часы на ИВ-18, также имеется небольшой складик индикаторов питание накала оставил как у поляка, постоянка? я думаю питать переменкой, сейчас в раздумьях, как сделать просто и надежно.
Я оставил как в схеме постоянкой от кренки, единственное что между минусом и накалом поставил резюк около 20 ом чтобы убрать засвет на крайнем справа регистре. Пробовал от переменки через резюк ещё хуже становились засветы. Если от переменки , то её надо отвязывать от постоянки (отдельная обмотка транса со средней точкой или отдельный преобразователь). У меня сейчас практически (если не вглядываться) не видно разной яркости свечения между первым и последним регистрами. Я/ сейчас больше присматриваюсь к всяким там ice tube clock на меге 16 или 32 для следующей поделки. см. вложение. Только вместо макса поставить uln-ки и еще добавить пару сдвиговых регистров для экономии i/o меги. И собрать это всё как можно в меньшем габарите.
Заголовок сообщения: Re: Часы на люминесцентных индикаторах.
Добавлено: Вт янв 06, 2015 11:55:26
Держит паяльник хвостом
Карма: 15
Рейтинг сообщений: 328
Зарегистрирован: Пн мар 25, 2013 03:20:47 Сообщений: 947 Откуда: Tallinn
Рейтинг сообщения:0
voyna писал(а):
я думаю питать переменкой, сейчас в раздумьях, как сделать просто и надежно.
Рассмотрите LM9022 (рис.9 в даташите). Я пробовал, вполне работает. Амплитуду переменки можно подобрать как гасящими резисторами, так и напряжением питания (2-5.5в). Покупал на алиекспресс. пысы. Я думаю, что аналог LM9022 можно собрать на, например, LM358 плюс ключи на выходах.
я думаю питать переменкой, сейчас в раздумьях, как сделать просто и надежно.
Рассмотрите LM9022 (рис.9 в даташите). Я пробовал, вполне работает. Амплитуду переменки можно подобрать как гасящими резисторами, так и напряжением питания (2-5.5в). Покупал на алиекспресс. пысы. Я думаю, что аналог LM9022 можно собрать на, например, LM358 плюс ключи на выходах.
Понравилась схемка где то на форуме попадалась с драйвером шагового двигателя флопика- там и питание накала и высокое реализовано. Надо флопики старые порасковырять
А у кого какая частота динамической индикации на ив-18? (ну или на других ВЛИ). я так понимаю если у меня тактовая частота проца 8мГц, прерывание по переполнению таймера0 с предделителем 64 и количество регистров 8. то частота будет 8000000/64/256тиков/8индикаторов =61гЦ. Вроде бы пишут что нормальная частота для динамической индикации, но у меня при такой частоте мерцают регистры. нормально работают если частоту выставить где то 300гЦ (т.е начинать тикать с 204 до 256) тогда и засвет минимальный. Вычитал что если слишком большая частота, то будет засвет соседних регистров.....
Я думаю, что аналог LM9022 можно собрать на, например, LM358 плюс ключи на выходах.
да это оно! я как раз рассматриваю варианты /ИЛИ/ LM9022 /ИЛИ/ LM358 плюс ключи... первую только на Али можно найти, второй вариант буду на днях делать. схемы с трансами на кольцах что-то у меня не "пошли" как нужно, но я над ними работаю...
ПС. если у кого есть ссылки на <<схемка с драйвером шагового двигателя флопика>> пожалуйста, буду благодарен, спасибо!
Допилил под себя прошивку польских часов на ИВ-18.
на выходные попробую "прошиться" вашей прошивкой, погляжу ваши нововведения.
dimon-ru-80 писал(а):
Я оставил как в схеме постоянкой от кренки,
я выкладывал фотки и даже платки варианта повышалки на 34063 (+35 вольт). это здорово снимает необходимость иметь блок питания на переменке - в свое время, нашел только один от старого модема.
плохо, что заленился в тот раз сделать еще импульсник и на 5 вольт - греется он ощутимо. так вот, если на дросселе (гантель, мелкие чашки) сделать дополнительную обмотку от преобразователь 5 вольт - можно получить переменку для накала...
недавно смотрел схемы калькулятора МК-61, там очень аккуратно устроен преобразователь для ВЛИ (транс + три транзистора), можно "перелицевать" под современные детали и получить сразу накал и высокое и напругу для LDO стабилизатора 5В. потом поэкспериментирую на досуге.
для уменьшения засветки (у меня правда индикатор другой - от кассового аппарата) народ рекомендовал диод в цепи накала ставить не со стороны +5 а со стороны земли - таким образом будет дополнительное смещение при открытом транзисторе UNL. сам правда не пробовал..
dimon-ru-80 писал(а):
Я сейчас больше присматриваюсь к всяким там ice tube clock на меге 16 или 32 для следующей поделки.
а чем они лучше схемы на меге8 ? вам не хватает функционала ? приведенная схема очень элегантна из за используемого драйвера - всего 3 корпуса IC на изделие. правда сам драйвер дороже 6-8$ да и купить/достать его нужно.
если его заменить на регистры и ключи...будет таже оригинальная поляцкая поделка..
p.s. очень интересная узкая плата в архиве - нет такой отрисованной в лаяуте? если дипы ключей (или вообще все IC) заменить на планар...можно сделать совсем узкую..
Допилил под себя прошивку польских часов на ИВ-18.
на выходные попробую "прошиться" вашей прошивкой, погляжу ваши нововведения.
dimon-ru-80 писал(а):
Я оставил как в схеме постоянкой от кренки,
я выкладывал фотки и даже платки варианта повышалки на 34063 (+35 вольт). это здорово снимает необходимость иметь блок питания на переменке - в свое время, нашел только один от старого модема.
плохо, что заленился в тот раз сделать еще импульсник и на 5 вольт - греется он ощутимо. так вот, если на дросселе (гантель, мелкие чашки) сделать дополнительную обмотку от преобразователь 5 вольт - можно получить переменку для накала...
недавно смотрел схемы калькулятора МК-61, там очень аккуратно устроен преобразователь для ВЛИ (транс + три транзистора), можно "перелицевать" под современные детали и получить сразу накал и высокое и напругу для LDO стабилизатора 5В. потом поэкспериментирую на досуге.
для уменьшения засветки (у меня правда индикатор другой - от кассового аппарата) народ рекомендовал диод в цепи накала ставить не со стороны +5 а со стороны земли - таким образом будет дополнительное смещение при открытом транзисторе UNL. сам правда не пробовал..
dimon-ru-80 писал(а):
Я сейчас больше присматриваюсь к всяким там ice tube clock на меге 16 или 32 для следующей поделки.
а чем они лучше схемы на меге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
вспомнил, что меня еще бесило в этих часах - мигающие пробелы меду цифрами. при наличии секунд на индикаторе смотрятся глупо (сугубо мое мнение).
dimon-ru-80 писал(а):
время индикации даты и температуры менял. Можно в исходнике под себя поправить '************* Счетчик экранов ************************ .. .. Czas_data_temp = 0 Ekran_const = 400 - продолжительность отображения времени Gasit = 0
в исходнике эти цифры задаются в чем (секунды, десятые доли секунд)?
вспомнил, что меня еще бесило в этих часах - мигающие пробелы меду цифрами. при наличии секунд на индикаторе смотрятся глупо (сугубо мое мнение).
dimon-ru-80 писал(а):
время индикации даты и температуры менял. Можно в исходнике под себя поправить '************* Счетчик экранов ************************ .. .. Czas_data_temp = 0 Ekran_const = 400 - продолжительность отображения времени Gasit = 0
в исходнике эти цифры задаются в чем (секунды, десятые доли секунд)?
Единицы в исходнике меняются с каждым циклом на 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
какое-то новогоднее несчастье... разобрал уже десяток флопиков разных моделей, и ни в одном нету LB1838 ну хоть керамических резонаторов 4М трех-выводных на выдергиваю.
какое-то новогоднее несчастье... разобрал уже десяток флопиков разных моделей, и ни в одном нету LB1838 ну хоть керамических резонаторов 4М трех-выводных на выдергиваю.
То же самое - 2 штуки вскрыл и ничего там проц какой то на управление шаговым стоит...
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 31
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения