XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Musik: Tonleitern mit einem Befehl abspielen: Dur und (harmonisches) Moll
PRFellow-Vorlage
Autor: Thomas Hölzer
Tonleitern mit einem Befehl abspielen:
Dur und (harmonisches) Moll
Parameter:
1: Name des Grundtons $; 2: Länge %, 3: Punktierung %, 4: Höhe %
 $O+

Proc Dur

    Parameters start$,l%,p%,h%
    Declare t%,i%
    start$=Upper$(start$)
    Case start$=C: t%=1
    Case start$=C#: t%=2
    Case start$=Db: t%=2
    Case start$=D: t%=3
    Case start$=D#: t%=4
    Case start$=Eb: t%=4
    Case start$=E: t%=5
    Case start$=F: t%=6
    Case start$=F#: t%=7
    Case start$=Gb: t%=7
    Case start$=G: t%=8
    Case start$=G#: t%=9
    Case start$=Ab: t%=9
    Case start$=A: t%=10
    Case start$=A#: t%=11
    Case start$=Hb: t%=11
    Case start$=B: t%=11
    Case start$=H: t%=12
    t%= t% + 12 * h%
    i%=1
    Play t%+i%,l%,p%

    While (i% < 13)

        If (i%=5) Or (i%=9) Or (i%=12)

            Inc i%

        Else

            Add i%,2

        EndIf

        Play t%+i%,l%,p%

    Wend

EndProc

Proc Moll

    Parameters start$,l%,p%,h%
    Declare t%,i%
    start$=Upper$(start$)
    Case start$=C: t%=1
    Case start$=C#: t%=2
    Case start$=Db: t%=2
    Case start$=D: t%=3
    Case start$=D#: t%=4
    Case start$=Eb: t%=4
    Case start$=E: t%=5
    Case start$=F: t%=6
    Case start$=F#: t%=7
    Case start$=Gb: t%=7
    Case start$=G: t%=8
    Case start$=G#: t%=9
    Case start$=Ab: t%=9
    Case start$=A: t%=10
    Case start$=A#: t%=11
    Case start$=Hb: t%=11
    Case start$=B: t%=11
    Case start$=H: t%=12
    t%= t% + 12 * h%
    i%=1
    Play t%+i%,l%,p%

    While (i% < 12)

        If (i%=3) Or (i%=8)

            Inc i%

        Else

            Add i%,2

        EndIf

        Play t%+i%,l%,p%

    Wend

EndProc

Beispiel
Cls
WindowTitle Add$(GetText$(%hwnd),  -  Powered by PRFellow)
Dur C,4,0,5
Moll C,4,0,5