Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Demoprogramm: Lied "Stille Nacht", bzw. "Silent Night" Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Norbert Klein - 23.12.2020 22:13)
 Als Antwort auf Demoprogramm: Lied "Stille Nacht", bzw. "Silent Night" von Dietmar - 22.12.2020 22:22
Norbert Klein nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi
> ' ===========================================================================
> ' 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 ---------------------------------------------------------


Hallo Dietmar!
Das Lied klingt zwar von CD etwas klangvoller, aber für Dein Programm mit Piezo ist es ein nettes Gimmick. Vielen Dank.
Freundliche Grüße und allen frohe Festtage
Norbert

 Antwort schreiben

Bisherige Antworten: