Elektronische Projekte: Wie Musik auf einem BASIC Stamp zum Programm

Mit Ihrer BASIC Stamp-Prozessor, PBASIC Befehle und ein Piezo-Lautsprecher, können Sie Ihre Elektronik Projekte zum Singen bringen. Hier ist ein Beispielprogramm, das zwei Songs auf einem Piezo-Lautsprecher spielt: "Mary had a little lamb" und das alles Gute zum Geburtstag Lied. Die formeris gespielt, wenn Sie die Sie SW2 drücken latterwhen drücken SW1-.

Um den Code zu vereinfachen, die die Noten erzeugt, definiert das Programm mehrere Konstanten, die die Frequenz für jede der Noten erforderlich durch die Songs repräsentieren. Zum Beispiel kann die Konstante NoteC6 die Frequenz in Hz des C in der sechsten Oktave einer Klaviertastatur ist 1046.

Die Konstanten überspannen zwei volle Oktaven, die viel Reichweite ist für die Songs gespielt werden. Beide Songs sind in der Tonart C gespielt, so dass keine Wohnungen oder spitze Gegenstände sind erforderlich.

Das Programm setzt auch Konstanten für die Dauer einer Viertelnote, halbe Note, und ganze Note auf. Die Konstanten machen es einfach, eine bestimmte Tonhöhe für eine bestimmte Dauer in eine angeben FREQOUT Befehl.

Somit wird eine Melodie spielen einfach eine Frage des Schreibens einer Sequenz von FREQOUT Befehle, die richtigen Noten für die richtige Dauer in der richtigen Reihenfolge zu spielen. Das ist genau das, was die Subroutinen beschriftet Maria und Geburtstag machen.

'Song-Programm' Doug Lowe '15. Juli 2011' 'Dieses Programm spielt eine von zwei Songs auf dem Piezo-Lautsprecher "auf Pin 0' Wenn SW1 auf 14 Stift gedrückt wird, wird das Programm spielt "Mary had a little lamb." "Wenn SW2 auf Stift 10 gedrückt wird, wird das Programm spielt" Good Morning to All. " '{$ STAMP BS2} {$ PBASIC 2.5} SW1PIN 14SW2PIN 10Speaker PIN 0NoteC6 CON 1046NoteD6 CON 1175NoteE6 CON 1318NoteF6 CON 1370NoteG6 CON 1568NoteA6 CON 1760NoteB6 CON 1975NoteC7 CON 2093NoteD7 CON 2349NoteE7 CON 2637NoteF7 CON 2794NoteG7 CON 3136NoteA7 CON 3520NoteB7 CON 3951NoteC8 CON 4186Whole CON 1000Half CON 500Quarter CON 250DOIF SW1 = 1 THENGOSUB MaryENDIFIF SW2 = 1 THENGOSUB MorningENDIFLOOPMary: FREQOUT Lautsprecher, Viertel, NoteE7 'Mar-FREQOUT Lautsprecher, Viertel, NoteD7' yFREQOUT Lautsprecher, Viertel, NoteC7 'HadFREQOUT Lautsprecher, Viertel, NoteD7' aFREQOUT Lautsprecher, Viertel, NoteE7 'Lit-FREQOUT Lautsprecher, Viertel, NoteE7' tleFREQOUT Lautsprecher , Viertel, NoteE7 'LambPAUSE QuarterFREQOUT Lautsprecher, Viertel, NoteD7' Lit-FREQOUT Lautsprecher, Viertel, NoteD7 'tleFREQOUT Lautsprecher, Viertel, NoteD7' LambPAUSE QuarterFREQOUT Lautsprecher, Viertel, NoteE7 'Lit-FREQOUT Lautsprecher, Viertel, NoteG7' tleFREQOUT Lautsprecher, Quarter , NoteG7 'LambPAUSE QuarterFREQOUT Lautsprecher, Viertel, NoteE7' Mar-FREQOUT Lautsprecher, Viertel, NoteD7 'yFREQOUT Lautsprecher, Viertel, NoteC7' HadFREQOUT Lautsprecher, Viertel, NoteD7 'aFREQOUT Lautsprecher, Viertel, NoteE7' Lit-FREQOUT Lautsprecher, Viertel, NoteE7 ' tleFREQOUT Lautsprecher, Viertel, NoteE7 'LambFREQOUT Lautsprecher, Viertel, NoteE7' ItsFREQOUT Lautsprecher, Viertel, NoteD7 'FleeceFREQOUT Lautsprecher, Viertel, NoteD7' WasFREQOUT Lautsprecher, Viertel, NoteE7 'WhiteFREQOUT Lautsprecher, Viertel, NoteD7' AsFREQOUT Lautsprecher, Viertel, NoteC7 'SnowPAUSE HalfRETURNMorning: FREQOUT Lautsprecher, Hälfte, NoteC7 'GoodFREQOUT Lautsprecher, Hälfte, NoteD7' Morn-FREQOUT Lautsprecher, Hälfte, NoteC7 'ingFREQOUT Lautsprecher, Hälfte, NoteF7' ToFREQOUT Lautsprecher, Komplett, NoteE7 'YouFREQOUT Lautsprecher, Hälfte, NoteC7' GoodFREQOUT Lautsprecher, Halb , NoteD7 'Morn-FREQOUT Lautsprecher, Hälfte, NoteC7' ingFREQOUT Lautsprecher, Hälfte, NoteG7 'ToFREQOUT Lautsprecher, Komplett, NoteF7' YouFREQOUT Lautsprecher, Hälfte, NoteC7 'GoodFREQOUT Lautsprecher, Hälfte, NoteC8' Morn-FREQOUT Lautsprecher, Hälfte, NoteA7 'ingFREQOUT Lautsprecher, Hälfte, NoteF7 'DearFREQOUT Lautsprecher, Hälfte, NoteE7' Child-FREQOUT Lautsprecher, Komplett, NoteD7 'renFREQOUT Lautsprecher, Hälfte, NoteB7' GoodFREQOUT Lautsprecher, Hälfte, NoteA7 'Morn-FREQOUT Lautsprecher, Hälfte, NoteF7' ingFREQOUT Lautsprecher, Hälfte, NoteG7 'ToFREQOUT Lautsprecher, Komplett, NoteF7' AllRETURN