XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Musik: Tonleitern avec einem Befehl abspielen: Dur et (harmonisches) Moll
PRFellow-Présentation
Autor: Thomas Bois
Tonleitern avec einem Befehl abspielen:
Dur et (harmonisches) Moll
paramètre:
1: nom des Grundtons $; 2: Longueur %, 3: Punktierung %, 4: Hauteur %
 $O+

Proc Dur

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

    Tandis que (i% < 13)

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

            Inc i%

        D'autre

            Ajouter i%,2

        EndIf

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

    Wend

ENDPROC

Proc Moll

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

    Tandis que (i% < 12)

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

            Inc i%

        D'autre

            Ajouter i%,2

        EndIf

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

    Wend

ENDPROC

Beispiel
Cls
Titre de la fenêtre Ajouter$(GetText $(%hwnd),  -  Powered by PRFellow)
Dur C,4,0,5
Moll C,4,0,5