Français
Source/ Codesnippets

Abspielen Befehl Dur Harm Musik Tonleitern

 

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
 
16.07.2007  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.682 Views

Untitledvor 0 min.
H.Brill31.08.2024
Frank16.04.2021
Werner Warweg10.12.2014
Julian Schmidt08.07.2011
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie