Dieses Projekt hilft Ihnen einen großen Auftritt zu erstellen. Es erkennt Sie zu Fuß in und spielt eine Lied Eingang. Mit Ihrem Lieblings Starwars Lied für Sie in den Raum gehen. Sie müssen auch die Ton-Bibliothek finden Sie unter installieren:
http://Rogue-Code.googlecode.com/files/Arduino-Library-Tone.zip
Hilfe bei der Installation von Bibliotheken finden Sie auf:
http://Code.Google.com/p/Rogue-Code/Wiki/InstallingArduinoLibraries
Komponenten benötigt:
1 x Lautsprecher
1 X Arduino
1 x Brot Board
1 x IR Empfänger
1 x 470 Ohm Widerstand
1 x 220 oder 100 Ohm Widerstand
Drähte
Komponenten sind abrufbar unter http://egrobotics.com/store/
Dieses Projekt verwendet und Arduino-Board und IR-Nachrüstsatz
www.EGRobotics.com
Der Code:
Alle Songs sind heraus kommentiert vor dem Hochladen wählen Sie das Lied, indem Sie entfernen möchten,
die "/ /" davor. Finden Sie mehr Töne bei http://code.google.com/p/roguecode/wiki/ToneLibraryDocumentation
#include
Ton tone1;
#define OCTAVE_OFFSET 0
Int fest [] = {0,
NOTE_C4, NOTE_CS4, NOTE_D4, NOTE_DS4, NOTE_E4, NOTE_F4, NOTE_FS4, NOTE_G4,
NOTE_GS4, NOTE_A4, NOTE_AS4, NOTE_B4, NOTE_C5, NOTE_CS5, NOTE_D5, NOTE_DS5, NOTE_E5, NOTE_F5, NOTE_FS5, NOTE_G5,
NOTE_GS5, NOTE_A5, NOTE_AS5, NOTE_B5,
NOTE_C6, NOTE_CS6, NOTE_D6, NOTE_DS6, NOTE_E6, NOTE_F6, NOTE_FS6, NOTE_G6,
NOTE_GS6, NOTE_A6, NOTE_AS6, NOTE_B6,
NOTE_C7, NOTE_CS7, NOTE_D7, NOTE_DS7, NOTE_E7, NOTE_F7, NOTE_FS7, NOTE_G7,
NOTE_GS7, NOTE_A7, NOTE_AS7, NOTE_B7
};
Char * Lied = "Die"
Simpsons:d=4,o=5,b=160:c.6,E6,f#6,8a6,g.6,E6,C6,8a,8f#,8f#,8f#,2G,8P,8P,8f#,8f#,8f#,8G,a#.,8c6,8
C6, 8c 6, c6 ";
Char * Lied =
"Indiana: d = 4, o = 5, b = 250:e, 8P, 8f, 8 g, 8 p, 1 c 6, 8 p., d, 8P, 8e, 1f, p., g, 8P, 8a, 8 b, 8 p, 1f6, p, a, 8 b, 2 c 6, 2w6, 8P, 2e
6,e,8P,8f,8G,8P,1c6,p,D6,8P,8e6,1F.6,g,8P,8G,e.6,8P,D6,8P,8G,e.6,8P,D6,8P,8G,f.6,8P,E6,8P,8d6,2c6 ";
Char * Lied =
"TakeOnMe:d = 4, o = 4, b = 160:8f #5, 8f #5, 8f #5, 8 d 5, 8 p, 8 b, 8 p, 8e5, 8P, 8e5, 8P, 8e5, 8 g #5, 8 g #5, 8a5, 8b5, 8a
5, 8a5, 8a5, 8e5, 8P, 8D 5, 8p, 8f #5, 8p, 8f #5, 8p, 8f #5, 8e5, 8e5, 8f #5, 8e5, 8f #5, 8f #5, 8f #5, 8d 5, 8P, 8 b, 8p, 8e5, 8
p, 8e5, 8P, 8e5, 8g #5, 8g #5, 8a5, 8b5, 8a5, 8a5, 8a5, 8e5, 8P, 8D 5, 8p, 8f #5, 8p, 8f #5, 8p, 8f #5, 8e5, 8e5 ";
Char * Lied =
"Entertainer:d=4,o=5,b=140:8d,8d#,8e,c6,8e,c6,8e,2c.6,8c6,8d6,8d#6,8e6,8c6,8d6,e6,8b,d6,2c6,p,8
d,8D#,8E,C6,8E,C6,8E,2C.6,8P,8a,8G,8f#,8a,8c6,E6,8d6,8c6,8a,2D6 ";
Char * Lied =
"Muppets:d = 4, o = 5, b = 250:c6, c6, a, b, 8a, b, g, p, c6, c6, a, 8 b, 8a, 8 p, g, p, e, e, g, f, 8e, f, 8 c 6, 8 c, 8D, e, 8e, 8e, 8 p, 8
e, g, 2P, c6, c6, a, b, 8a, b, g, p, c6, c6, 8 a, b, a, g, p, e, e, g, f, 8e, f, 8 c 6, 8 c, 8D, e, 8e, d, 8 d, c ";
Char * Lied =
"Xfiles:d = 4, o = 5, b = 125:e, b, a, b, d6, 2 b., 1 p, e, b, a, b, e6, 2 b., 1 p, g6, f #6, e6, d6, e6, 2 b. 1 p, g6, f #6, e6, d6, f #6,2
b., 1 p, e, b, a, b, d6, 2 b., 1 p, e, b, a, b, e6, 2 b., 1 p, e6, 2 b. ";"
Char * Lied =
"Looney: d = 4, o = 5, b = 140:32 p, c6, 8f6, 8e6, 8 6D, 8 c 6, a., 8 c 6, 8f6, 8e6, 8D 6, 8-d #6,e.6,8e6,8e6,8c6,8d6,8c6
8e6, 8 c 6, 8 d 6, 8a, 8 c 6, 8 g, 8a #, 8a, 8f ";
Char * Lied =
"20thCenFox:d = 16, o = 5, b = 140:b, 8 p, b, b, 2 b, p, c6, 32 p, b, 32 p, c6, 32 p, b, 32 p, c6, 32 p, b, 8 p, b, b, b, 32 p, b, 32
p, b, 32p, b, 32p, b, 32p, b, 32p, b, 32p, g#, 32p, a, 32p, b, 8p, b, b, 2 b, 4P, 8e, 8 g #, 8 b, 1 c# 6, 8f #, 8a, 8 c# 6, 1e6, 8a, 8c
#6, 8e6, 1e6, 8 b, 8 g #, 8a, 2 b ";
Char * Lied =
"Bond: d = 4, o = 5, b = 80:32 p, 16 c# 6, 32d #6, 32d #6, 16 d #6, 8D #6, 16 c# 6, 16 c# 6, 16 c# 6, 16 c# 6, 32e6, 32e6, 16
E6, 8e6, 16d 16d 16d #6, 16 c# 6 #6 #6 32d #6, 32d #6, 16d #6, 8D #6, 16 c# 6 #6, 16 c# 6, 16 c# 6, 32e6, 32e6, 1-16c
6e6,8e6,16d#6,16d6,16C#6,16C#7,c.7,16G#6,16f#6,g#.6 ";
Char * Lied =
"MASH:d = 8, o = 5, b = 140:4a, 4 g, f#, g, p, f#, p, g, p, f#, p, 2e., p, f#, e, 4f #, e, f#, p, e, p, 4 d, p, f#, 4e, d, e, p, d, p, e, p, d
, p, 2 c#., p, d, c#, 4D, c#, d, p, e, p, 4f #, p, a, p, 4 b, a, b, p, a, p, b, p, (2a), 4p, a, b, a, 4 b, a, b, p, (2a), a, 4f #, a,b,p,d6,p,4e.6, d
6, b, p, a, p, 2 b ";
Char * Lied =
"StarWars:d = 4, o = 5, b = 45:32 p, 32f #, 32f #, 32f #, 8 b., 8f #.6, 32e6, 32d #6, 32 c# 6,8b.6,16f #.6, 32e6, 32d #6,3
2C#6,8B.6,16f#.6,32e6,32D#6,32e6,8C#.6,32F#,32F#,32F#,8B.,8f#.6,32e6,32D#6,32C#6,8B.6,16f#.6,3
2e6,32D#6,32C#6,8B.6,16f#.6,32e6,32D#6,32e6,8C#6 ";
Char * Lied =
"GoodBad:d = 4, o = 5, b = 56:32 p, 32a #, 32d #6 32a #, 32d #6, 8a #., 16f #., 16 g #., d#, 32a #, 32d #6, 32a #, 32d #6
8a #., 16f #., 16 g #., c# 6, 32a #, 32d #6, 32a #, 32d #6, 8a #., 16f #., 32f. 32d #., c#, 32a #, 32d #6 32a #, 32d #6, 8a #.,
16 g #., d# ";"
Char * Lied =
"TopGun:d = 4, o = 4, b = 31,32 p 16 c#, 16 g #, 16 g #, 32f #, 32f, 32f #, 32f, 16 d # 16 d#, 32 c#, 32d #, 16f, 32d #, 32f, 16f #, 32f, 32 c#, 16f, d#, 16 c#, 16 g #, 16 g #, 32f #, 32f, 32f #, 32f, 16 d#, 16 d#, 32 c#, 32d #, 16f, 32d #, 32f, 16f #, 3
2F, 32 c# g# ";"
Char * Lied = "ATeam:d = 8, o = 5, b = 125:4 d #6, a#, 2d #6, 16p, g#, 4a #, 4 d#., p, 16 g, 16a #, d #6, a#, f6, 2d #6, 16p, c#.6, 6-16 c, 16a #
, g #., 2a #";"
Char * Lied =
"Flinstones:d = 4, o = 5, b = 40:32 p, 16f6, 16a #, 16a #6, 32 g 6, 16f6, 16a #., 16f6, 32d #6, 32 d 6, 32 d 6, 32d #6, 32f
6, 16a, 16c 6, d6, 16f6, 16a # #., 16a #6, 32g 6, 16f6, 16a #., 32f6, 32f6, 32d #6, 32d 6, 32d 6, 32d #6, 32f6, 16a # 16
C6,a#,16a6,16d.6,16A#6,32a6,32a6,32g6,32F#6,32a6,8g6,16g6,16C.6,32a6,32a6,32g6,32g6,32f6,32E
6, 32g 6, 8f6, 16f6, 16a #., 16a #6, 32g 6, 16f6, 16a #., 16f6, 32d #6, 32d 6, 32d 6, 32d #6, 32f6, 16a #, 16c.6,32d6, 3
2D#6,32f6,16A#,16C.6,32d6,32D#6,32f6,16A#6,16c7,8a#.6 ";
Char * Lied =
"Jeopardy: d = 4, o = 6, b = 125:c, f, c, f5, c, f, 2 c, c, f, c, f, a., 8 g, 8f, 8e, 8 d, 8 c#, c, f, c, f5, c, f, 2 c, f., 8 d, c, a #5, a5, g5, f5,
p,d#,g#,d#,g#5,d#,g#,2D#,d#,g#,d#,g#,c.7,8a#,8G#,8G,8f,8E,d#,g#,d#,g#5,d#,g#,2D#,g#.,8f,d#,c#,c,p,
# 5 p, g #.5, d#, g# ";"
Char * Lied =
"Gadget: d = 16, o = 5, b = 50:32d # 32f, 32f #, 32 g #, #, f#, a, f g #, f#, 32d #, 32f, 32f #, 32 g #, #, d #6, 4-d 6, 32d #, 3
2F, 32f # 32 g #, #, f#, a, f, g #, f#, 8 d# ";"
Char * Lied =
"Smurfs:d = 32, o = 5, b = 200:4 c# 6, 16p, 4f #6, p, 16 c# 6, p, 8D #6, p, 8 b, p, 4 g #, 16p, 4 c# 6, p, 16a #, p, 8f #, p, 8a #, p,
4 g #, 4P, g#, p, ein #, p, b, p, c6, p, 4 c# 6, 16p, 4f #6, p, 16 c# 6, p, 8D #6, p, 8 b, p, 4 g #, 16p, 4 c# 6, p, 16a #, p, 8 b, p, 8f, p, 4f
#";
Char * Lied =
"MahnaMahna:d = 16, o = 6, b = 125:c#, c., b5, 8a #.5, 8f., 4 g #, #, g., 4 d#, 8P, c#, c, b5, 8a #.5, 8f., g#., 8a #., 4 g, 8
p, c#, c, b5, 8a #.5, 8f. 4 g #, f, g, 8 d#., f, g., 8 d#., f, 8g, 8 d #., f, 8g, d #, 8c, #5, 8 d #., 8 d #., 4 d#, 8 d#. ";"
Char * Lied =
"LeisureSuit:d=16,o=6,b=56:f.5,f#.5,g.5,g#5,32a#5,f5,g#.5,a#.5,32f5,g#5,32a#5,g#5,8c#.,a#5,32c#,
A5, eine.5 # c#., 32a5, #5, 32 c#, d#, 8e, c#., f. f., f., f., f, 32e, d#, 8D, eine.5 # e, 32f, e, 32f, c#, d#., c# ";"
Char * Lied =
"MissionImp:d = 16, o = 6, b = 95:32d, 32d #, 32d, 32d #, 32d, 32d #, 32d, 32d # 32d, 32d, 32d # 32e, 32f, 32f #, 32
g, g, 8P, g, 8P, a#, p, c7, p, g, 8P, g, 8P, f, p, f#, p, g, 8p, g, 8P, a#, p, c7, p, g, 8P, g, 8P, f, p, f#, p, ein #, g, 2d, 32p #, g, 2 c#, 3
2 p, a#, g, 2 c, #5, 8 k, 2 s, 32 p, #5, g5, 2f #, 32 p, #5, g5, 2f, 32 p, #5, g5, 2e, d#, 8D ";
#define IRsensorPin 6
#define IRledPin 5
#define D13ledPin 13
void IR38Write() {}
für (Int ich = 0; ich < = 384; i ++) {}
DigitalWrite (IRledPin, hohe);
delayMicroseconds(13);
DigitalWrite (IRledPin, LOW);
delayMicroseconds(13);
}
}
void setup(void)
{
Serial.Begin(9600);
tone1.Begin(3);
PinMode (IRledPin, OUTPUT);
DigitalWrite (IRledPin, LOW);
PinMode (D13ledPin, OUTPUT); DigitalWrite (D13ledPin, LOW);
}
#define isdigit(n) (n > = '0' & & n < = "9")
void Play_rtttl(char *p)
{
Default_dur Byte = 4;
Byte Default_oct = 6;
Int Bpm = 63;
Int Num;
lange Wholenote;
langer Dauer;
Byte zur Kenntnis;
Byte-Skala;
während (* p! = ':') p ++; Namen zu ignorieren
p ++; überspringen ":"
Standarddauer bekommen
Wenn (* p == hatte ")
{
p ++; p ++; überspringen "d ="
NUM = 0;
while(isdigit(*p))
{
NUM = (Num * 10) + (* p ++ - '0');
}
Wenn (Num > 0) Default_dur = Num;
p ++; Komma zu überspringen
}
Serial.Print ("Ddur:"); Serial.println (Default_dur, 10);
Standard-Oktave zu bekommen
Wenn (* p == ' o ')
{
p ++; p ++; überspringen "o ="
NUM = * p ++ - '0';
Wenn (Num > = 3 & & Num < = 7) Default_oct = Num;
p ++; Komma zu überspringen
}
Serial.Print ("Schüler:"); Serial.println (Default_oct, 10);
BPM zu bekommen
Wenn (* p == 'b')
{
p ++; p ++; überspringen "b ="
NUM = 0;
while(isdigit(*p))
{Num = (Num * 10) + (* p ++ - '0');
}
BPM = Num;
p ++; Doppelpunkt überspringen
}
Serial.Print ("Bpm:"); Serial.println (Bpm, 10);
BPM drückt in der Regel die Anzahl der Viertelnoten pro minute
Wholenote = (60 * 1000L / Bpm) * 4; Dies ist die Zeit für ganze Note (in Millisekunden)
Serial.Print ("Wn:"); Serial.println (Wholenote, 10);
jetzt beginnen Hinweis Schleife
while(*p)
{
Zunächst holen Sie Notendauer, falls vorhanden
NUM = 0;
while(isdigit(*p))
{
NUM = (Num * 10) + (* p ++ - '0');
}
If(Num) Dauer = Wholenote / Num;
andere Dauer = Wholenote / Default_dur; Wir müssen überprüfen, ob wir eine punktierte Note nach
jetzt bekommen Sie die note
Hinweis = 0;
Switch(*p)
{
Fall "c":
Hinweis = 1;
zu brechen;
Fall würde ":
Hinweis = 3;
zu brechen;
Fall "e":
Hinweis = 5;
zu brechen;
Fall "f":
Hinweis = 6;
zu brechen;
Fall 'g':
Hinweis = 8;
zu brechen;
Fall "a":
Hinweis = 10;
zu brechen;
Fall 'b':
Hinweis = 12; zu brechen;
Fall 'p':
Standard:
Hinweis = 0;
}
p ++;
jetzt optional '#' scharfe
Wenn (* p == '#')
{
Hinweis ++;
p ++;
}
jetzt optional '.' punktierte Note
Wenn (* p == ".")
{
Dauer += Dauer/2;
p ++;
}
If(isdigit(*p))
{
Skala = * p - '0';
p ++;
}
anderes
{
Skala = Default_oct;
}
Skala += OCTAVE_OFFSET;
Wenn (* p == ',')
p ++; Komma für die nächste Note überspringen (oder wir können am Ende)
jetzt spielt die note
If(Note)
{
Serial.Print ("spielen:");
Serial.Print (Skala, 10); Serial.Print(' ');
Serial.Print (Anmerkung 10); Serial.Print ("(");
Serial.Print (Notizen [(scale-4) * 12 + Hinweis], 10);
Serial.Print(")");
Serial.println (Dauer, 10);
tone1.Play (Notizen [(scale-4) * 12 + Hinweis]);
Delay(Duration);
tone1.Stop();
}
anderes
{Serial.print ("anhalten:");
Serial.println (Dauer, 10);
Delay(Duration);
}
}
}
void loop(void)
{
IR38Write();
Wenn (digitalRead(IRsensorPin)==HIGH) {}
DigitalWrite (D13ledPin, hohe);
play_rtttl(Song);
Delay(1000);
}
Else {}
DigitalWrite (D13ledPin, LOW);
}
Delay(100);
}
Das Video:
Gehen Sie zu für mehr Spaß Projekte!
