Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Demoprogramm: Lied "Stille Nacht", bzw. "Silent Night" Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 22.12.2020 22:22)

Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station

' =========================================================================== ' Demoprogramm: Lied "Stille Nacht" über Piezo-Schallwandler abspielen ' In OCBASIC 1.12a_e1 für Open-Macro von Dietmar Harlos am 22. Dezember 2020 ' =========================================================================== ' Speicherplatzbedarf: 150 Byte im Programmspeicher und 1 Byte im RAM ' An dieser Stelle möchte ich mich bei Norbert Klein und bei Dirk von "das ' |_ Team" für ihre Unterstützung bedanken. ' --- Definitionen ---------------------------------------------------------- DEFINE beeper PORT[6]       'an diesem Port liegt ein Piezo-Schallwandler DEFINE i BYTE               'Index DEFINE C4 61  '262 Hz        Noten der vierten Oktave DEFINE D4 57  '294 Hz DEFINE E4 54  '330 Hz DEFINE F4 52  '349 Hz DEFINE G4 49  '392 Hz DEFINE A4 46  '440 Hz DEFINE B4 43  '494 Hz DEFINE C5 42  '523 Hz        Noten der fünften Oktave DEFINE D5 39  '587 Hz DEFINE E5 37  '659 Hz DEFINE F5 36  '698 Hz DEFINE G5 34  '784 Hz DEFINE A5 32  '880 Hz DEFINE B5 30  '988 Hz DEFINE L1 60  'Ganze Note    Zeitdauer der Noten DEFINE L2 30  'Halbe Note DEFINE L3 20  'Drittelnote DEFINE L4 15  'Viertelnote DEFINE L6 10  'Sechstelnote DEFINE L8  8  'Achtelnote DEFINE L12 5  'Zwölftel Note DEFINE L16 4  'Sechzehntel Note DEFINE PAU 4  'Pause ' --- Hauptprogramm --------------------------------------------------------- WHILE TRUE   FOR i=0 TO 96 STEP 2     BEEP LOOKTABBYTE(lied,i), LOOKTABBYTE(lied,i+1), beeper     PAUSE PAU   NEXT i   PAUSE 100 WEND ' --- Tabellen -------------------------------------------------------------- ' Noten für "Silent Night" nach: ' http://tomaszdziurko.com/2014/12/merry-christmas-in-java/ TABLE lied BYTE   G4, L2                    'First line   A4, L6   G4, L2   E4, L1   G4, L2   A4, L6   G4, L2   E4, L1   D5, L2   D5, L4   B4, L2   B4, L4   C5, L2   C5, L4   G4, L1   A4, L2   A4, L4   C5, L2                    'Second line   B4, L6   A4, L3   G4, L2   A4, L6   G4, L3   E4, L2   E4, L4   A4, L2   A4, L4   C5, L2   B4, L6   A4, L3   G4, L2   A4, L6   G4, L3   E4, L2   E4, L4   D5, L2   D5, L4   F5, L2                    'Third line   D5, L8   B4, L4   C5, L1   E5, L1   C5, L4   G4, L4   E4, L4   G4, L2   F4, L8   D4, L3   C4, L1 END TABLE ' --- Programmende --------------------------------------------------------- Passender Link: Offizielle Infosite zu den OM-Mikrocontrollern Meine Homepage: http://ccintern.dharlos.de

Antwort schreiben

Bisherige Antworten:

Re: Demoprogramm: Lied "Stille Nacht", bzw. "Silent Night" (von Norbert Klein - 23.12.2020 22:13)