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


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: Musik mit der Open-Micro Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Carsten - 13.02.2006 15:57)
 Als Antwort auf Musik mit der Open-Micro von Dietmar - 13.02.2006 9:04
Carsten nutzt:  CC1-M-Unit V1.2/2.0
das "alles" Gute ist nicht exakt ausgearbeitet ( C5, L8 / C5, L8 ) - ein schwerwiegender Fehler, ansonsten eine lustige Idee :-)

Viel Glück und viel Segen!
Grüße Carsten


>
> ' Das Lied 'Zum Geburtstag viel Glueck', bzw. 'Happy Birthday To You' ueber
> ' einen Piezo-Schallwandler abspielen.
>
> ' Erstellt in OCBASIC 0.8 fuer die Open-Micro und Open-Mini 1.0
>
> ' Speicherplatzbedarf: 106 Byte im Programmspeicher und 1 Byte im RAM
>
>
> 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 fuenften 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 L4 15  'Viertelnote
> DEFINE L8  8  'Achtelnote
> DEFINE L12 6
> DEFINE L16 4  'Sechzehntel Note
> DEFINE PAU 4  'Pause
>
>
> WHILE TRUE
>
>   FOR i=0 TO 48 STEP 2
>  
>     BEEP LOOKTAB(lied,i), LOOKTAB(lied,i+1), beeper
>     PAUSE PAU
>    
>   NEXT i
>
>   PAUSE 100
>
> WEND
>
>
> TABLE lied BYTE
>
>   G4, L12              'Zum Geburtstag viel Glueck'
>   G4, L16
>   A4, L4
>   G4, L4
>   C5, L4
>   B4, L2
>
>   G4, L12              'Zum Geburtstag viel Glueck'
>   G4, L16
>   A4, L4
>   G4, L4
>   D5, L4
>   C5, L2
>
>   G4, L12              'Zum Geburtstag alles Gute'
>   G4, L16
>   G5, L4
>   E5, L4
>   C5, L4
>   B4, L4
>   A4, L4
>
>   F5, L12              'Zum Geburtstag viel Glueck'
>   F5, L16
>   E5, L4
>   C5, L4
>   D5, L4
>   C5, L2
>  
> END TABLE
>

 Antwort schreiben

Bisherige Antworten:

Re: Musik mit der Open-Micro (von Dietmar - 13.02.2006 21:49)