Español
Fuente/ Codesnippets

Abspielen Befehl Dur Harm Musik Tonleitern

 

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
 
16.07.2007  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

3.685 Views

Untitledvor 0 min.
H.Brill31.08.2024
Frank16.04.2021
Werner Warweg10.12.2014
Julian Schmidt08.07.2011
Más...

Themeninformationen

Dieses Thema ha 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie