Das Forum zur C-Control-1

Achtung! Für dieses Forum muß unbedingt Javascript (Active Scripting) im Browser aktiviert werden.
Hingegen kann und sollte Java aus Sicherheitsgründen immer deaktiviert bleiben.

Das Open-Control-Projekt - Die Alternative zur C-Control-I

Ü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: