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 

 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)