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

[iiiytn1k]

у меня есть одна треснутая, в принципе могу разобрать
Нечетные 3-9-5-7-1
Четные 8-2-6-0-4

[woody_mc]

спасибо.
оказывается в даташите их расположение как раз в той последовательности и идет
http://www.istok2.com/data/1738/

[alr5000]

декатрон ОГ-3

неудачный выбор для розжига надо минимум 450в (для ОГ4 хватает 350), светит тускло фиолетовым.

Уже отменил покупку, буду искать ОГ-4

[woody_mc]

может тоже поиграться с ОГ-4?
по 100 рублёв в Питере продают
https://www.avito.ru/sankt-peterburg/au ... _660267311

с эффектом "проваливающейся" цифры на ИН-4 не очень красиво получается шаг между цифрами разный (от 2 до 9).

[art100]

.... поздравляю с 9-ти летием ветки "Часы на газоразрядных индикаторах"

Как я удачно сюда зашел.
А я 1-ый раз делаю.
Вот сегодня проверил при комнатной температуре точность от ds1307 ведруине цепочках импульсных преобразователей за 6-суток.

Погрешность пока не вижу.
Почему ее не любят?
Может не любят потому, что готовить не умеют?
Поживем увидим.
В даташите жудастей не увидел

Спойлер

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

DS1307
64 x 8 Serial Real-Time Clock
Real-time clock (RTC) counts seconds,
minutes, hours, date of the month, month, day
of the week, and year with leap-year
compensation valid up to 2100

  56-byte, battery-back ed, nonvolatile (NV)
RAM for data storage

  Two-wire serial interface

  Programmable squarewave output signal

  Automatic power-fail detect and switch
circuitry

  Consumes less than 500nA in battery backup
mode with oscillator running

  Optional industrial temperature range:
-40°C to +85°C

  Available in 8-pin DIP or SOIC

  Underwriters Laboratory (UL) recognized

Спасибо всем за массу с-ишно кода. Разбираеющего на разряды строчки hhmmss. Пока на клаве натыкал.

Спойлер

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

  // Get the high and low order values for hours,min,seconds. 
//  sprintf(time_string, "%02d", now.hour());
clock.getTime();
int hh=clock.hour; 
int mm=clock.minute; 
int ss=clock.second; 
Serial.print(hh);Serial.print(mm);Serial.println(ss);delay(1000);
// int HourLower = hh % 10;
// int HourUpper = hh - HourLower;
// int MinsLower = mm % 10;
// int MinsUpper = mm - MinsLower; 
 int Sec_Lower = ss % 10;
 int Sec_Upper = ss - Sec_Lower;
Serial.print(Sec_Upper);Serial.print(";");Serial.print(Sec_Lower);Serial.println(";");

// int HourLower = hh % 10;
// int HourUpper = hh - HourLower;
// int MinsLower = mm % 10;
// int MinsUpper = mm - MinsLower; 
// int Sec_Lower = ss % 10;
// int Sec_Upper = ss - Sec_Lower;


  
  int HourLower = hours % 10;
  int HourUpper = hours - HourLower;
  int MinsLower = minutes % 10;
  int MinsUpper = minutes - MinsLower;
//  int Sec_Lower = seconds % 10;
//  int Sec_Upper = seconds - Sec_Lower;
  if( Sec_Upper >= 10 ) Sec_Upper = Sec_Upper / 10;
  if( MinsUpper >= 10 ) MinsUpper = MinsUpper / 10;
  if( HourUpper >= 10 ) HourUpper = HourUpper / 10;

Ладно проехали. Как обычно на жестком диске поиском что-нибудь очередное ранее писанное найду.
Такс что я там еще хочу прикрутить.
О придумал чего хочу.

Вопрос:
1.Нужен код плавно гасящий плавно зажигающий цифру?

Или пивка для расслабления отдыха лучше сегодня пойдет?
Всех добрых людей с праздичком.

Спойлер

P.S.
Как обычно на собственном диске код найден. Но это точно не я fading затухания писал.


Всех с праздничком. Пойду Пит пЫво с Ядерным огурцОм и сЫрком Российским

[Dark_Rider]

А что там их уметь готовить? 3231-первая же собранная схема на них-разница за 3 месяца-2 секунды составила.
1307-сколько не пытался...постоянные траблы. Причем и брал куски схем рекомендованных, по барабану все это.
Да, 3231 дороже, но оно стабильнее выходит.
Многие вообще отказываются от RTc и делают на разных синхронизациях-кто через вай-фай и сервера точного времени, кто через ГПС, поле деятельности непаханное.
Так что я в конечном итоге для себя выводы сделал.
Кто хочет взрывать себе мозги-ради святого кота, велкам.

[art100]

А что там их уметь готовить?
3231-первая же ...
1307-сколько не пытался......
вай-фай и сервера точного времени
...ГПС...
я ... выводы сделал...

Так наставь на путь истинный душеньку заблудшую
даллас 3231 с баталеркой и да будет счастье
у меня первая 1307 же
не месяц конечно
конечно после того как отсчитывал от момента старта математически ломая мозг деля да умножая
чип с баталеркой тыц
и где проблемы бывают не понял
щас еще хлебну пЫвка
и скажу согласны

[woody_mc]

плавность можно сделать ШИМом, если у тебя на 595 собрано, то можно ШИМ прикрутить к OE на 595.

вот так выглядит прокрутка цифр сверху-вниз
https://scontent.cdninstagram.com/hphotos-xtp1/t50.2886-16/10949241_532401956935336_1148861847_n.mp4

[art100]

плавность можно сделать ШИМом, если у тебя на 595 собрано, то можно ШИМ прикрутить к OE на 595.

вот так выглядит прокрутка цифр сверху-вниз
https://scontent.cdninstagram.com/hphotos-xtp1/t50.2886-16/10949241_532401956935336_1148861847_n.mp4

Упс. Какя интеренсня непонятная хрень. Если мне не изменяет память из цифровой тематики 595 это что-то из мультиплексоров демультиплектосоров говоря человечим языкам
когда железных ног нехватает
я кодом программирую регистры которые дают рулить доп железными выходами
или в контексте текущего

недогананяю

каким тут широтно импульным преобразованием в аналог пахнет?

Схему + код для понимания ШИМ-а тут можно посмотреть?

Схему вашу на видео не понимаю не представляю.
Понимаю только 11 ключей.
P.S.
Кажется начинаю догадываться
11 ключей <- корпуса 74hc595 <- трясти 5-ю ножками
а где тут ШИМ-Аналог

ничего не понимаю

короче схему
покажите

P.S. что там происходит если OE шим-ом накачивать?
Схему + код для понимания?

[woody_mc]

у меня ШИМа в данной схеме нет, но сделать его можно.

595 - это 74HC595 - сдвиговый регистр + защелка. рулится он 3 пинами Data, Clock и Latch (можно задействовать для отдельного ШИМ OE, а можно и по 3 сделать программно).

в моем случае это 2 сдвиговых регистра, по 8 выходов с каждой. 10 цифр + точка (запятая), оставшиеся 5 выходов можно задействовать для 5 разрядов для динамической индикации.
преимущество использования 595 - дешево и используются 3(4) пина контроллера. т.е. часы с RTC можно легко собрать на ATtiny2313 например.

динамическую яркость можно на чем угодно сделать:

видео мое

[art100]

у меня ШИМа в данной схеме нет... 74HC595 - сдвиговый регистр + защелка...можно ...ШИМ OE...
видео ...

только что код нашел причесал
об этой теме?

Спойлер

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

#define F_CPU 12000000
#include <util/delay.h>
#include <avr/io.h>

// ANIMATE 0 - no animation
// ANIMATE 1 - fade rotate
// ANIMATE 2 - change sd1 and sd2
#define ANIMATE 1

// Show slowly how frame is drawn
//#define DEMO

void  inline SendByteHorizontal(uint8_t byte);
void  inline SendByteVertical(uint8_t byte);
void  inline OutVert();
void  inline OutHoriz();
void  inline OutOff();
void  inline OutOn();

// 254 - line start
// 255 - screen end
/*
static uint8_t sd1[]={
   254,  4, 10, 12,  6,  2, 10,  9,  1,
   254,  0,  8,  8,  4,  8,  4,  1,  5,
   254,  7,  3,  1,  8, 15,  0, 12, 15,
   254,  2,  1, 11,  1, 14,  7,  6,  9,
   254,  3, 14, 12, 14,  2,  8,  8,  4,
   254,  4,  9,  2,  1,  0, 15,  1,  8,
   254,  2, 15,  6,  6, 12,  5, 14,  6,
   254, 13, 12,  7,  9, 13,  7,  1,  4, 255
};
static uint8_t sd1[]={
   254,  1,  3,  1,  3,  1,  3,  1,  3,
   254,  3,  1,  3,  1,  3,  1,  3,  1,
   254,  1,  3,  1,  3,  1,  3,  1,  3,
   254,  3,  1,  3,  1,  3,  1,  3,  1,
   254,  1,  3,  1,  3,  1,  3,  1,  3,
   254,  3,  1,  3,  1,  3,  1,  3,  1,
   254,  1,  3,  1,  3,  1,  3,  1,  3,
   254,  3,  1,  3,  1,  3,  1,  3,  1,   255
};
*/
/*
static uint8_t sd1[]={
   254,  0,  1,  2,  3,  4,  5,  6,  7,
   254,  0,  1,  2,  3,  4,  5,  6,  7,
   254,  0,  0,  0,  0,  0,  0,  0,  0,
   254,  8,  9, 10, 11, 12, 13, 14, 15,
   254,  8,  9, 10, 11, 12, 13, 14, 15,
   254,  0,  0,  0,  0,  0,  0,  0,  0,
   254,  0,  0,  0,  0,  0,  0,  0,  0,
   254,  5,  6,  7,  8,  9, 10, 11, 12,   255
};
static uint8_t sd1[]={
   254,  0,  0,  0,  0,  0,  0,  0,  0,
   254,  0,  0, 10, 15, 10,  0,  0,  0,
   254, 13,  0, 15, 15, 15,  0,  0,  0,
   254,  0, 15,  0, 15,  0,  0, 15,  0,
   254,  0,  0, 15, 15, 15, 15,  0,  0,
   254,  0,  0,  0, 15,  0,  0,  0,  0,
   254,  0,  0, 15,  0, 15,  0,  0,  0,
   254,  0,  0, 15,  0, 15,  0,  0,  0,   255
};
*/
static uint8_t sd1[]={
   254,  1,  3,  5,  7,  9, 11, 13, 15,
   254,  3,  5,  7,  9, 11, 13, 15, 13,
   254,  5,  7,  9, 11, 13, 15, 13, 11,
   254,  7,  9, 11, 13, 15, 13, 11,  9,
   254,  9, 11, 13, 15, 13, 11,  9,  7,
   254, 11, 13, 15, 13, 11,  9,  7,  5,
   254, 13, 15, 13, 11,  9,  7,  5,  3,
   254, 15, 13, 11,  9,  7,  5,  3,  1,   255
};
static uint8_t sd2[]={
   254,  0,  0,  0,  0,  0,  0,  0,  0,   
   254,  0,  0,  0,  0,  0,  0,  0,  0,
   254,  0,  0, 10, 15, 10,  0,  0,  0,
   254,  0, 13, 15, 15, 15,  0,  0,  0,
   254,  0, 15,  0, 15,  0, 13,  0,  0,
   254,  0,  0, 15, 15, 15, 15,  0,  0,
   254,  0,  0,  0, 15,  0,  0,  0,  0,
   254,  0, 12, 15,  0, 15, 12,  0,  0,   255
};

//======
int main (){
   DDRD=0xff;
   uint8_t b=0b11001101;
   uint8_t c=0;
   #ifdef DEMO
   uint16_t i=0;
   #endif
   unsigned int k=1;
   uint8_t t;
   uint8_t l;
   uint8_t r;
   uint8_t *p;

   OutOn();
   SendByteVertical(0);
   SendByteHorizontal(0);
   OutVert();
   OutHoriz();
   _delay_ms(1000);

    while (1) {
      // simple frame change animation (maybe used as double buffer in the future)
      if(ANIMATE & 2){   if(c>100) p=sd1;   else p=sd2;   }
      else {         p=sd1;      }
      
      // main output loop
      t=*p;
      l=0;
      k=1;
      while(t!=255){
         OutOff();         
         if(t==254){   
            if(l)k<<=1;
            p++;
            t=*p;
            l++;
            b=0b10000000;
            SendByteVertical(~k);
            OutVert();
         }
         SendByteHorizontal(b);
         OutHoriz();   
         t&=0b00001111;
         #ifdef DEMO
         for(i=0;i<10000;i++){
         #endif
         for(r=0;r<15;r++){
            if (t>r){   OutOn();   }
            else {      OutOff();   }
         }
         #ifdef DEMO
         }
         #endif
         p++;
         t=*p;
         b>>=1;
      }

      // animation 
      if (!c && (ANIMATE & 1)){
         p=sd1;
         t=*p;
         while(t!=255){
            if (t!=254){
               if (t&0b10000000){
                  t&=0b01111111;
                  t--;
                  if (t<2){   t&=0b01111111;   }
                  else {      t|=0b10000000;   }
               }
               else {
                  t++;
                  if (t>14){   t|=0b10000000;   }
               }
               *p=t;
            }
            p++;
            t=*p;
         } 
      }

      c++;
      if (ANIMATE==1){   if (c>20)c=0;      }
   }
   
}
//======
void inline SendByteHorizontal(uint8_t byte){
   uint8_t mask=0b00000001;
   while (mask){
      PORTD &= (~(1<<PIND3));
      if (mask & byte){   PORTD |=(1<<PIND1);      }
      else {         PORTD &= (~(1<<PIND1));      }
      PORTD  |= (1<<PIND3);
      mask<<=1;   }
}
//----------
void inline SendByteVertical(uint8_t byte){
   uint8_t mask=0b10000000;
   while (mask){
      PORTD &= (~(1<<PIND3));
      if (mask & byte){   PORTD |=(1<<PIND1);      }
      else {         PORTD &= (~(1<<PIND1));      }
      PORTD  |= (1<<PIND3);
      mask>>=1;   }
}
//----------
void inline OutHoriz(){   PORTD &= (~(1<<PIND2)); PORTD  |= (1<<PIND2); }
//----------
void inline OutVert(){   PORTD &= (~(1<<PIND4));   PORTD  |= (1<<PIND4); }
//----------
void inline OutOn()  {   PORTD &=(~(1<<PIND6));}
//----------
void inline OutOff() {   PORTD |= (1<<PIND6);}
//----------

А по ИН-кам можно поподробней?
Код?

[woody_mc]

Схему + код для понимания?

схему лень рисовать. все делаю из головы т.к. тут ничего сложного нет.
пример включения http://www.elcojacobs.com/using-shiftpwm-to-control-rgb-leds-with-arduino/
пример ШИМ http://www.tr3sdland.com/2011/11/tutorial-arduino-0003-entrada-analogica-y-salida-pwm/

я пока ШИМом не дергал неонки, но если Вам теории мало и хотите практики - могу для Вас набросать кусок кода (программного ШИМ, т.к. он более понятен).
аппаратный ШИМ описан в даташите на контроллер

об этой теме?

тут несколько сложнее, этот код для анимации LED матрицы.

у меня сделано проще: 1 скан на динамическую индикацию = 800 Гц (100 Гц на индикатор) и второй скан на 16 градаций яркости = 16*800=12.8 кГц (это в том тестовом проекте, уровень градации яркости можно увеличить). все сделано на прерывании одного таймера (период не помню, но либо 13кГц, либо что-то близкое).

[iiiytn1k]

Не газоразряд, но...
Нашел сегодня вот такую коробочку:

Внутри новенькие ИВ-16, целых 22штуки (на фото один отсутствует):

И этикетка/паспорт:


Давно мечтал посмотреть/потрогать накальные индикаторы и вот мечта сбылась
Крупным планом. Интересно, что на подложке есть места для установки дополнительного сегмента:

Зажигаем. Нити светятся более-менее ровно, я думал будет гораздо хуже:

Выдержка покороче:


Часы из таких индикаторов будут, мягко говоря, не очень - слишком мелкие, а куда еще их девать я не знаю

[BlackAlex]

в корпусе приделать линзу как в телевизоре КВН

[woddy]

может тоже поиграться с ОГ-4?
по 100 рублёв в Питере продают

недорого очень, конечно бери.
я б/у по 50р брал из какого-то оборудования типа атс...

Нашел сегодня вот такую коробочку:
Внутри новенькие ИВ-16, целых 22штуки
Часы из таких индикаторов будут, мягко говоря, не очень - слишком мелкие, а куда еще их девать я не знаю

как ин-16 по размеру. интересные индикаторы, мне нравятся. и плавное разгорание сегментов красиво

[Iggis]

iiiytn1k На накальниках часы делались и в этой теме выкладывались когда-то, поищите. Насколько я помню, были проекты на Ив13 и на Ив9, а ваши по размеру как Ив9, только запятых нету. И кстати по размеру они как Ин16, на таких мелких лампочках часы тоже интересно выглядят.
Если сделаете на них проект, яп повторил, у меня коробка Ив9 есть

woddy А как поживают ваши накальники?

[alr5000]

Поделитесь кто-нибудь схемкой индикатора активности HDD на декатроне ОГ-4, типа этого проекта

Заранее спасибо!

[woddy]

woddy А как поживают ваши накальники?

пока лежат... оставлять из без корпуса не хочу, как придумаю красивый корпус - так будет... а то ив-9 постояли у меня пол года без корпуса на столе и переехали в ящик. для ив13 не хочу такой же судьбы.
на каникулах думаю ин-18 закончу, красивая классика будет. уже второй месяц на столе лежат, с того момента как выяснилось, что мой преобразователь не тянет их и начал и 1771 разбираться...

[Enceladus]

Ура! Наконец закончил часики и вроде как отладил прошивку. По крайней мере багов не видно) Кстати вопрос, у меня сейчас против отравления катодов стоит пробежка по разрядам 3 раза со временем включения цифры в 100 мс каждые 3 мин. Не нужно ли сделать чаще? Лампы ин-18, очень жалко если испортятся...

[woody_mc]

против отравления катодов

а где можно об этом почитать? это имеется ввиду эмиссия?