#define M1 2
#define K1 3
#define H1 4
#define M2 5
#define K2 6
#define H2 7
#define M3 8
#define K3 9
#define H3 10
#define M4 11
#define K4 12
#define H4 13
const int segA = 16;
const int segB = 17;
const int segC = 20;
const int segD = 19;
const int segE = 18;
const int segF = 15;
const int segG = 14;
const int segA2 = 21;
const int segB2 = 22;
const int segC2 = 23;
const int segD2 = 24;
const int segE2 = 25;
const int segF2 = 26;
const int segG2 = 27;
const int segA3 = 28;
const int segB3 = 29;
const int segC3 = 30;
const int segD3 = 31;
const int segE3 = 32;
const int segF3 = 33;
const int segG3 = 34;
const int segA4 = 35;
const int segB4 = 36;
const int segC4 = 37;
const int segD4 = 38;
const int segE4 = 39;
const int segF4 = 40;
const int segG4 = 41;

void setup() {
  pinMode(M1, OUTPUT);
  pinMode(K1, OUTPUT);
  pinMode(H1, OUTPUT);
  pinMode(M2, OUTPUT);
  pinMode(K2, OUTPUT);
  pinMode(H2, OUTPUT);
  pinMode(M3, OUTPUT);
  pinMode(K3, OUTPUT);
  pinMode(H3, OUTPUT);
  pinMode(segA, OUTPUT);
  pinMode(segB, OUTPUT);
  pinMode(segC, OUTPUT);
  pinMode(segD, OUTPUT);
  pinMode(segE, OUTPUT);
  pinMode(segF, OUTPUT);
  pinMode(segG, OUTPUT);
  pinMode(segA2, OUTPUT);
  pinMode(segB2, OUTPUT);
  pinMode(segC2, OUTPUT);
  pinMode(segD2, OUTPUT);
  pinMode(segE2, OUTPUT);
  pinMode(segF2, OUTPUT);
  pinMode(segG2, OUTPUT);
  pinMode(segA3, OUTPUT);
  pinMode(segB3, OUTPUT);
  pinMode(segC3, OUTPUT);
  pinMode(segD3, OUTPUT);
  pinMode(segE3, OUTPUT);
  pinMode(segF3, OUTPUT);
  pinMode(segG3, OUTPUT);
  pinMode(segA4, OUTPUT);
  pinMode(segB4, OUTPUT);
  pinMode(segC4, OUTPUT);
  pinMode(segD4, OUTPUT);
  pinMode(segE4, OUTPUT);
  pinMode(segF4, OUTPUT);
  pinMode(segG4, OUTPUT);
}

void loop() {
  // 01 seg bawah
  digitalWrite(M1, 1);
  digitalWrite(M2, 1);
  digitalWrite(M4, 1);
  digitalWrite(M3, 0);
  digitalWrite(H3, 1);
  digitalWrite(segA2, 1); //7seg kiri mati
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 1);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);
  digitalWrite(segA3, 1); //7seg atas mati
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 1);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);
  digitalWrite(segA4, 1); //7seg kanan mati
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 1);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);
  digitalWrite(segA, 0); // 9
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 0);
  digitalWrite(segE, 1);
  digitalWrite(segF, 0);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 0); //8
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 0);
  digitalWrite(segE, 0);
  digitalWrite(segF, 0);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 0); //7
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);
  delay(500);
  digitalWrite(segA, 0); //6
  digitalWrite(segB, 1);
  digitalWrite(segC, 0);
  digitalWrite(segD, 0);
  digitalWrite(segE, 0);
  digitalWrite(segF, 0);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 0); //5
  digitalWrite(segB, 1);
  digitalWrite(segC, 0);
  digitalWrite(segD, 0);
  digitalWrite(segE, 1);
  digitalWrite(segF, 0);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 1); //4
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 0);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 0); //3
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 0);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 0); //2
  digitalWrite(segB, 0);
  digitalWrite(segC, 1);
  digitalWrite(segD, 0);
  digitalWrite(segE, 0);
  digitalWrite(segF, 1);
  digitalWrite(segG, 0);
  delay (500);
  digitalWrite(segA, 1); //1
  digitalWrite(segB, 0);
  digitalWrite(segC, 0);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);
  delay (500);
  digitalWrite(segA, 1); //7seg bawah mati
  digitalWrite(segB, 1);
  digitalWrite(segC, 1);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);

// 02 segment kiri
  digitalWrite(H3, 0);
  digitalWrite(K3, 1);
  delay (300); 
  digitalWrite(K3, 0);
  delay (300);
  digitalWrite(K3, 1);
  delay (300); 
  digitalWrite(K3, 0);
  delay (300);
  digitalWrite(M3, 1);
  digitalWrite(M4, 0);
  digitalWrite(H4, 1);
  digitalWrite(segA, 1); //7seg bawah mati
  digitalWrite(segB, 1);
  digitalWrite(segC, 1);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);
  digitalWrite(segA3, 1); //7seg atas mati
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 1);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);
  digitalWrite(segA4, 1); //7seg kanan mati
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 1);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);
  digitalWrite(segA2, 0); // 9
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 0);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 0); //8
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 0);
  digitalWrite(segF2, 0);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 0); //7
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);
  delay(500);
  digitalWrite(segA2, 0); //6
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 0);
  digitalWrite(segF2, 0);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 0); //5
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 0);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 1); //4
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 0);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 0); //3
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 0); //2
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 1);
  digitalWrite(segD2, 0);
  digitalWrite(segE2, 0);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 0);
  delay (500);
  digitalWrite(segA2, 1); //1
  digitalWrite(segB2, 0);
  digitalWrite(segC2, 0);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);
  delay (500);
  digitalWrite(segA2, 1); //7seg kiri mati
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 1);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);

//03 segment atas
  digitalWrite(H4, 0);
  digitalWrite(K4, 1);
  delay (300); 
  digitalWrite(K4, 0);
  delay (300);
  digitalWrite(K4, 1);
  delay (300); 
  digitalWrite(K4, 0);
  delay (300);
  digitalWrite(M4, 1);
  digitalWrite(M1, 0);
  digitalWrite(H1, 1);
  digitalWrite(segA, 1); //7seg bawah mati
  digitalWrite(segB, 1);
  digitalWrite(segC, 1);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);
  digitalWrite(segA2, 1); //7seg kiri mati
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 1);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);
  digitalWrite(segA4, 1); //7seg kanan mati
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 1);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);
  digitalWrite(segA3, 0); // 9
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 0);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 0); //8
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 0);
  digitalWrite(segF3, 0);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 0); //7
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);
  delay(500);
  digitalWrite(segA3, 0); //6
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 0);
  digitalWrite(segF3, 0);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 0); //5
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 0);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 1); //4
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 0);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 0); //3
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 0); //2
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 1);
  digitalWrite(segD3, 0);
  digitalWrite(segE3, 0);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 0);
  delay (500);
  digitalWrite(segA3, 1); //1
  digitalWrite(segB3, 0);
  digitalWrite(segC3, 0);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);
  delay (500);
  digitalWrite(segA3, 1); //7seg atas mati
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 1);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);

  //04 segment kanan
  digitalWrite(H1, 0);
  digitalWrite(K1, 1);
  delay (300); 
  digitalWrite(K1, 0);
  delay (300);
  digitalWrite(K1, 1);
  delay (300); 
  digitalWrite(K1, 0);
  delay (300);
  digitalWrite(M1, 1);
  digitalWrite(M2, 0);
  digitalWrite(H2, 1);
  digitalWrite(segA, 1); //7seg bawah mati
  digitalWrite(segB, 1);
  digitalWrite(segC, 1);
  digitalWrite(segD, 1);
  digitalWrite(segE, 1);
  digitalWrite(segF, 1);
  digitalWrite(segG, 1);
  digitalWrite(segA2, 1); //7seg kiri mati
  digitalWrite(segB2, 1);
  digitalWrite(segC2, 1);
  digitalWrite(segD2, 1);
  digitalWrite(segE2, 1);
  digitalWrite(segF2, 1);
  digitalWrite(segG2, 1);
  digitalWrite(segA3, 1); //7seg atas mati
  digitalWrite(segB3, 1);
  digitalWrite(segC3, 1);
  digitalWrite(segD3, 1);
  digitalWrite(segE3, 1);
  digitalWrite(segF3, 1);
  digitalWrite(segG3, 1);
  digitalWrite(segA4, 0); // 9
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 0);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 0); //8
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 0);
  digitalWrite(segF4, 0);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 0); //7
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);
  delay(500);
  digitalWrite(segA4, 0); //6
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 0);
  digitalWrite(segF4, 0);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 0); //5
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 0);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 1); //4
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 0);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 0); //3
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 0); //2
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 1);
  digitalWrite(segD4, 0);
  digitalWrite(segE4, 0);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 0);
  delay (500);
  digitalWrite(segA4, 1); //1
  digitalWrite(segB4, 0);
  digitalWrite(segC4, 0);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);
  delay (500);
  digitalWrite(segA4, 1); //7seg kanan mati
  digitalWrite(segB4, 1);
  digitalWrite(segC4, 1);
  digitalWrite(segD4, 1);
  digitalWrite(segE4, 1);
  digitalWrite(segF4, 1);
  digitalWrite(segG4, 1);

  digitalWrite(H2, 0);
  digitalWrite(K2, 1);
  delay (300); 
  digitalWrite(K2, 0);
  delay (300);
  digitalWrite(K2, 1);
  delay (300); 
  digitalWrite(K2, 0);
  delay (300);
  
}