XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Musik: Tonleitern con una Befehl abspielen: Dur y (harmonisches) Moll
PRFellow-Presentación
Autor: Thomas Hölzer
Tonleitern con una Befehl abspielen:
Dur y (harmonisches) Moll
Parámetro:
1: Name des Grundtons $; 2: Longitud %, 3: Punktierung %, 4: Höhe %
 $O+

Proc Dur

    Parámetros start$,l%,p%,h%
    Declarar 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%

    Mientras que (i% < 13)

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

            Inc i%

        Más

            Add i%,2

        EndIf

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

    Wend

ENDPROC

Proc Moll

    Parámetros start$,l%,p%,h%
    Declarar 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%

    Mientras que (i% < 12)

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

            Inc i%

        Más

            Add i%,2

        EndIf

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

    Wend

ENDPROC

Ejemplo
Cls
Título de la ventana Add$(GetText $(%hwnd),  -  Powered by PRFellow)
Dur C,4,0,5
Moll C,4,0,5