XProfan

Español

Jörg
Sellmeyer

Nachdem Yo kapiert habe, daß el todo Steuerung no horizontal, pero vertikal funktioniert, war no mehr así schwer:
Como lo bajo älteren Profanversionen probablemente no se ejecuta, Yo auch el exe-Expediente angehängt.

Kompilieren Marca Separación

Proc PlayBassDrum

    Parámetros Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;36,0,0

ENDPROC

Proc PlaySnareDrum

    Parámetros Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;41,0,0

ENDPROC

Proc PlayHiHat

    Parámetros Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;43,0,0

ENDPROC

Título de la ventana "Little Drummer"
Cls
Selección aleatoria
Declarar Puls%
Puls% = 16
hier kommt ahora una einfacher Rock-Rhythmus con leichtem Shuffle-Feeling y eingestreuten zufälligen HiHat-Variationen
Imprimir "HiHat 1010101010101010"
Imprimir "Snare 1010101010101010"
Imprimir "Bass  1010101010101010"

Mientras que 1

    WhileLoop Puls%

        Localizar 5,&Loop + 5
        Imprimir " |"
        PlayHiHat(Val("%0" + Str$(Rnd(2)) + "00000" + Str$(Rnd(2)) + "00000" + Str$(Rnd(2)) + "00"),Puls% - &Loop)
        bischen Zufall reinbringen
        PlayHiHat((%1010101010101010),Puls% - &Loop)
        PlaySnareDrum(%0000100000001000,Puls% - &Loop)
        PlayBassDrum(%1000000010100000,Puls% - &Loop)
        Sleep 120 + Rnd(6) - 10
        bischen Human-Touch

        Select (&Loop Mod 4)

            bischen Shuffle-Feeling reinbringen

            CaseOf 2

            Sleep 60
            Sleep 120 + Rnd(20) - 10 bischen Human-Touch
            OtherWise
            Sleep 120 + Rnd(20) - 10

        EndSelect

    Wend

    Localizar 5,Puls% + 5
    Imprimir "  "

Wend