Часы на газоразрядных индикаторах

[КАШАК]

Доброго дня
Народ, может у кого-то совершенно случайно есть 2-3 ИН-8, которые вам не жалко продать? У меня в часах разбилась лампа, а в городе больше нет ИН-8

[Egorka]

а в городе больше нет ИН-8

А какой город из 3-х?

[dimon-ru-80]

Добрый день уважаемые жильцы форума. Вот собрал себе часы atmega8 и ИВ-18 (проект от поляков). Но к сожалению в программировании пока не силён. Может кто допиливал прошивку под себя выложите пожалуйста. Не устраивает слишком быстрая смена показаний время-дата-температура.

[Dark_Rider]

ну исходники если есть, несложно переделать думаю.

[dimon-ru-80]

Исходники есть, только язык программирования выучить осталось (в планах его изучение). Во вложении исходник. Если не сложно изменить чтобы время показывало не 3 секунды а хотя бы секунд 5-10. И почему то при работе часов немного подсвечена крайняя справа цифра (у поляков на видео также.)

[Dark_Rider]

вложения не вижу

[dimon-ru-80]

вложения не вижу

Вложил, не обратил внимания что bas запрещен модератором.

[RoboC]

Добрый день уважаемые жильцы форума. Вот собрал себе часы atmega8 и ИВ-18 (проект от поляков). Но к сожалению в программировании пока не силён. Может кто допиливал прошивку под себя выложите пожалуйста. Не устраивает слишком быстрая смена показаний время-дата-температура.

Увеличил в 3 раза..вроде от компилировалось в баскоме . И Вам в эту ветку .

[dimon-ru-80]

Сейчас шивону проверю
Время действительно увеличилось, только во всех показаниях "ВРЕМЯ" "ДАТА" "ТЕМПЕРАТУРА". А хотелось бы Время секунд 10 а остальное по 3 секунды. И исходник наверно не тот сейчас поищу другой качал у поляков. У них сейчас сайт на регламентных работах.
А вообще жадный поляк последнюю версию (которую хочется изменить) исходника не выложил. только hex. Есть его исходник первый на 1 датчик температуры. Последняя версия отличается тем, что в настройках настраиваемый параметр мигает (часы, минуты, день, месяц, год и.т.д) и добавлен второй датчик температуры (первый сидит на PC0(ADC0) контроллера, второй на PC1(ADC1)).
Вложил исходник 1-й . Может в него добавить опрос второго датчика по аналогии с первым, включить мигание цифр во время настройки. И изменить время показа данных. Время - 10 секунд; дата, темп1 и темп2 - по 3 сек. Если не затруднит.

[КАШАК]

А какой город из 3-х?

Нынче в Таганроге обитаю

[Умка]

Нынче в Таганроге обитаю

Имеются. Новые, в коробках.
Если нужно, в ЛС всё обговорим.

[RoboC]

dimon-ru-80, легче вам освоить Бейсик и сделать все самому, чем найти того кто это будет делать . Язык не сложный совсем, если сравнивать с языком рекурсий, например, ПРОЛОГ .

Во вложении исходник. Если не сложно изменить чтобы время показывало не 3 секунды а хотя бы секунд 5-10. И почему то при работе часов немного подсвечена крайняя справа цифра (у поляков на видео также.)

Это я могу сделать, мне не сложно. Только определитесь точнее в каком исходнике это сделать.

[dimon-ru-80]

В последнем что я выложил. Язык учить буду однозначно, много всяких проектов на atmega интересных

[RoboC]

Пробуйте.

[dimon-ru-80]

Работает так как надо Спасибо. Тут на форуме есть какая нибудь кнопка с "+" ??? А второй датчик сам добавлю когда в коде разберусь.

[RoboC]

Измененный исходник.

Спойлер

Ekran_const = ХХХ - время свечения

компилятор - bascom avr 2.0.7.5, в инете найти не проблема.

Код: Выделить всё

Sub Licz_ekran
Incr Ekran
If Ekran = Ekran_const Then
   Ekran = 0
Incr Ktory_ekran
End If

If Ktory_ekran = 6 Then Ktory_ekran = 0
Select Case Ktory_ekran
      Case 0:
         Call Disable_interrupts
         Portd = &B111111111                                'Zgaszony
         Portb = &B11111111
         Gosub Ds_read_1
         Ktory_ekran = 1
      Case 1:
         Ekran_const = 900
         Czas_data_temp = 0
      Case 2:
         Call Disable_interrupts
         Portd = &B111111111                                'Zgaszony
         Portb = &B11111111
         Gosub Ds_read_2
         Ktory_ekran = 3
      Case 3:
         Czas_data_temp = 1
         Ekran_const = 255
      Case 4:
         Call Disable_interrupts
         Portd = &B111111111                                'Zgaszony
         Portb = &B11111111
         Gosub Ds_read_3
         Ktory_ekran = 5
      Case 5:
         Czas_data_temp = 2
         Ekran_const = 255

   End Select

End Sub

Удачи в освоении .

[Dark_Rider]

Бейсик на чешском, такой забавный)

[akl]

Удалил.

[BlackAlex]

Сегодня на КОТЕ выскочило. Не из местных ли? Судя по фото, вполне достойно. Давно пора и россиянам отметиться.

да этот паст индикатор давно засвечивался, и тут тоже. И делать стали получше. Вот только цены.....

[Умка]

Подскажите, кто в курсе, что это за микросхема и схема включения.
Нашёл на работе, стояла на угловом аллюминиевом радиаторе в БП.