пятница, 14 марта 2014 г.

Светодиодное пианино

Самое простое пианино, которое воспроизводит заданную мелодию:
диоды - ноты от ДО до СИ

# Определить DO 7 / / высокая / низкая
# Определить RE 8 / / высокая / низкая
# Определить MI 9 / / ~
# Определить FA 10 / / ~
# Определить SO 11 / / ~
# Определить LA 12 / / высокая / низкая
# Определить С.И. 13 / / высокая / низкая
внутр пол = 1000;
внутр Chet = 500;

недействительными установки () {            
  для (внутр х = 7; х == 13; х + +) {
  pinMode (х, ВЫХОД);
  }
}


недействительными петля () {
  analogWrite (MI, 0);
  digitalWrite (Л.А., HIGH);
  задержка (POL);

  digitalWrite (Л.А., LOW);
  analogWrite (FA, 255);
  задержка (Chet);

  analogWrite (FA, 0);
  digitalWrite (Л.А., HIGH);
  задержка (Chet);

  digitalWrite (Л.А., LOW);
  analogWrite (SO, 255);
  задержка (Chet);

  analogWrite (SO, 0);
  analogWrite (FA, 255);
  задержка (Chet);

  analogWrite (FA, 0);
  analogWrite (ИМ, 255);
  задержка (POL);

  analogWrite (MI, 0);
  digitalWrite (Л.А., HIGH);
  задержка (Chet);

  digitalWrite (Л.А., LOW);
  digitalWrite (Л.А., HIGH);
  задержка (Chet);

  digitalWrite (Л.А., 0);
  analogWrite (FA, 255);
  задержка (Chet);

  analogWrite (FA, 0);
  digitalWrite (Л.А., HIGH);
  задержка (Chet);

  digitalWrite (Л.А., LOW);
  analogWrite (SO, HIGH);
  задержка (Chet);

  analogWrite (SO, LOW);
  analogWrite (FA, 255);
  задержка (Chet);

  analogWrite (FA, 0);
  analogWrite (ИМ, 255);
  задержка (POL);

}