Display LED charlieplexing_V03

unsigned long Tempo = 1;                  // Tempo segmenyo aceso
//          Variavel Hexa Segmento        Segmento
unsigned long SeqK0 = 0x1010C210;           // K0
unsigned long SeqK1 = 0x40400200;           // K1
unsigned long SeqK2 = 0x20000202;           // K2
unsigned long SeqK3 = 0x10100100;           // K3
unsigned long SeqA1 = 0x30100000;           // A1
unsigned long SeqB1 = 0x50100000;           // A2
unsigned long SeqC1 = 0x90800000;           // B1
unsigned long SeqD1 = 0x10000101;           // C1
unsigned long SeqE1 = 0x90100000;           // D1
unsigned long SeqF1 = 0x30200000;           // E1
unsigned long SeqG1 = 0x50400000;           // F1
unsigned long SeqA2 = 0x60200000;           // A2
unsigned long SeqB2 = 0xA0200000;           // B2
unsigned long SeqC2 = 0x20000101;           // C2
unsigned long SeqD2 = 0x20200200;           // D2
unsigned long SeqE2 = 0x20200100;           // E2
unsigned long SeqF2 = 0x60400000;           // F2
unsigned long SeqG2 = 0xA0800000;           // G2
unsigned long SeqK4 = 0xC0400000;           // K4
unsigned long SeqA3 = 0x80000101;           // A3
unsigned long SeqB3 = 0x40400100;           // B3
unsigned long SeqC3 = 0x80800100;           // C3
unsigned long SeqD3 = 0x10000202;           // D3
unsigned long SeqE3 = 0x40000202;           // E3
unsigned long SeqF3 = 0xC0800000;           // F3
unsigned long SeqG3 = 0x40000101;           // G3
unsigned long SeqA4 = 0x00000604;           // A4
unsigned long SeqB4 = 0x00000602;           // B4
unsigned long SeqC4 = 0x00000301;           // C4
unsigned long SeqD4 = 0x80400202;           // D4
unsigned long SeqE4 = 0x80800200;           // E4
unsigned long SeqF4 = 0x00000302;           // F4
unsigned long SeqG4 = 0x00000501;           // G4
unsigned long SeqK5 = 0x40000404;           // K5
unsigned long SeqK6 = 0x40400400;           // K6

//----------------------
void Digito(unsigned long Segmento)         // Separa 4 bytes
{
  DDRD = Segmento >> 24;                    // Primeiro  Dir reg Ports 0 a 7. 0 INPUT 1 OUTPUT
  PORTD = Segmento >> 16;;                  // Segundo Dados reg Ports 0 a 7. 0 LOW 1 HIGH
  DDRB = Segmento >> 8;;                    // Terceiro  Dir reg Ports 8 a 13. 0 INPUT 1 OUTPUT
  PORTB = Segmento;;                        // Quarto  Dados reg Ports 8 a 13. 0 0 LOW 1 HIGH
}
//----------------------
void setup()
{
  Serial.begin(115200);
}
//----------------------
void loop()
{
  // Acende segmento    Acende  1 2 3 4
  // Delay

//  Digito(SeqA1);
//  delay(Tempo);

  Digito(SeqB1);
  delay(Tempo);

  Digito(SeqC1);
  delay(Tempo);

//  Digito(SeqD1);
//  delay(Tempo);

//  Digito(SeqE1);
//  delay(Tempo);

//  Digito(SeqF1);
//  delay(Tempo);

//  Digito(SeqG1);
//  delay(Tempo);

  Digito(SeqA2);
  delay(Tempo);

  Digito(SeqB2);
  delay(Tempo);

//  Digito(SeqC2);
//  delay(Tempo);

  Digito(SeqD2);
  delay(Tempo);

  Digito(SeqE2);
  delay(Tempo);

//  Digito(SeqF2);
//  delay(Tempo);

  Digito(SeqG2);
  delay(Tempo);

//  Digito(SeqK4);
//  delay(Tempo);

  Digito(SeqA3);
  delay(Tempo);

  Digito(SeqB3);
  delay(Tempo);

  Digito(SeqC3);
  delay(Tempo);

  Digito(SeqD3);
  delay(Tempo);

//  Digito(SeqE3);
//  delay(Tempo);

//  Digito(SeqF3);
//  delay(Tempo);

  Digito(SeqG3);
  delay(Tempo);

//  Digito(SeqA4);
//  delay(Tempo);

  Digito(SeqB4);
  delay(Tempo);

  Digito(SeqC4);
  delay(Tempo);

//  Digito(SeqD4);
//  delay(Tempo);

//  Digito(SeqE4);
//  delay(Tempo);

  Digito(SeqF4);
  delay(Tempo);

  Digito(SeqG4);
  delay(Tempo);

//  Digito(SeqK5);
//  delay(Tempo);

//  Digito(SeqK6);
//  delay(Tempo);
}