Помогите разобраться с 7-сегментным индикатором на TM1637

Yamazaki

Уважаемые коты, здравствуйте.
Пытаюсь подключить к микронтроллеру (atmega16) микросхему TM1637 по программному I2C
Среда разработки - micropascal (Си не владею, щито поделать)
Используется штатная библиотека software i2c
За основу взял код из даташита:

Код:

void SmgDisplay(void) // Write display register   
{      
unsigned char i;   
  I2CStart();  
  I2CWrByte(0x40); //40H address is automatically incremented by 1 mode, 44H fixed address mode 
  I2Cask();  
  I2CStop();  
  I2CStart();  
  I2CWrByte(0xc0);  // Set the first address  
  I2Cask();  
  for(i=0;i<6;i++)  // Addresses from Canada, do not always write address  
{  
  I2CWrByte(0xff);  // Send data  
  I2Cask();  
}  
  I2CStop();  
  I2CStart();    
  I2CWrByte(0x8f); // Open display, maximum brightness  
  I2Cask();    
  I2CStop();   
}

В примере все команды i2c сделаны отдельными процедурами, в то время как я пользуюсь встроенной библиотекой

[/url]
как видите, в ней есть все те же команды, кроме I2Cask
вот так она сделана в примере:

Код:

void I2Cask (void) // 1637 Answer  
{ 
clk = 0;  
Delay_us (5); // After the falling edge of the eighth clock delay 5us, 
ACK signals the beginning of judgment  
while (dio);  
    clk = 1;  
Delay_us (2);  
    clk = 0;  
}

Без команды I2Cask на данный момент ничего не работает, индикатор молчит

Код:

procedure disp_write();
begin
    SREG_I_bit:=0;  //запретить прерывания
    Soft_I2C_Init();
    Soft_I2C_Start();
    Soft_I2C_Write(%01000000);
    Soft_I2C_Stop();
    
    Soft_I2C_Start();
    Soft_I2C_Write(%11000000); 
    Soft_I2C_Write(249);
    Soft_I2C_Write(164);
    Soft_I2C_Write(176);
    Soft_I2C_Write(153);
    Soft_I2C_Write(146);
    Soft_I2C_Write(130);
    Soft_I2C_Stop();
    
    Soft_I2C_Start();
    Soft_I2C_Write(%10001111); 
    Soft_I2C_Stop();

    Soft_I2C_Write(%10001111); //разрешить прерывания
 
end;

Вопрос получается такой: объясните на пальцах, что делает процедура I2Cask, чтобы я смог воспроизвести её в паскале и наконец заставить работать эту щайтан-машину на полную катушку. Буду очень рад вашим добрым советам!

Реклама

OKF

А разве TM1637 с i2c работает? По моему там своё, попроще.

Реклама

Yamazaki

Протокол i2C-подобный, но упрощен.

Код:

Microprocessor data  realize  the  communication  with  TM1637  by  means  of  two–wire  bus  interface  (Note:  The 
communication method is not equal to 12C bus protocol totally because there is no slave address).

>>Протокол не в точности соответствует I2C, поскольку у микросхемы нет slave адреса.

Добавлено after 4 hours 20 minutes 50 seconds:
Re: Помогите разобраться с 7-сегментным индикатором на TM1637

Код:

void I2Cask (void) // 1637 Answer  
{ 
clk = 0;  
Delay_us (5); // After the falling edge of the eighth clock delay 5us, 
ACK signals the beginning of judgment  
while (dio);  
    clk = 1;  
Delay_us (2);  
    clk = 0;  
}

Вот эта строчка что означает?

Код:

while (dio);

Цикл какой-то?

OKF

Дядя, вы меня пугаете!(
О чём можно говорить дальше!

Реклама

Эиком - электронные компоненты и радиодетали

Yamazaki

OKF писал(а):

Дядя, вы меня пугаете!(
О чём можно говорить дальше!

Уважаемый, я же описал ситуацию: пример на С, я пишу на паскале.
Если бы я знал язык, сам бы разобрался, не стал никого отвлекать.

Реклама

Jack_A

А что, в Паскале нет оператора while ? Вроде с утра был. А логика процедуры проста, как грабли.

clk := 0;
Delay_us (5);
while not(dio=0) do ;
clk = 1;
Delay_us (2);
clk := 0;

0 -> clk ; задержка 5мкс; пока dio не = 0, крутить пустой цикл; 1 -> сlk; задержка 2мкс ; 0 -> clk ;

dio меняется во внешнем окружении, скорее всего - в прерывании.

Реклама

Z_A

У этого индикатора ещё и порядок бит обратный... (по сравнению с I2C)
Поэтому он ничего не показал.

dosikus

Jack_A писал(а):

dio меняется во внешнем окружении, скорее всего - в прерывании.

Это скорей всего пин SDA...

Помогите разобраться с 7-сегментным индикатором на TM1637

Кто сейчас на форуме