XProfan

Français

Jörg
Sellmeyer

après que je kapiert habe, qui qui ganze Contrôle pas horizontal, mais vertikal funktioniert, était es pas plus so schwer:
là es sous älteren Profanversionen wohl pas fonctionne, habe je aussi qui exe-Dossier angehängt.

Kompilieren Marque Séparation

Proc PlayBassDrum

    Paramètres Rhythmus&,bit%
    Cas Test peu(Rhythmus&,bit%):play 0;0;0;36,0,0

ENDPROC

Proc PlaySnareDrum

    Paramètres Rhythmus&,bit%
    Cas Test peu(Rhythmus&,bit%):play 0;0;0;41,0,0

ENDPROC

Proc PlayHiHat

    Paramètres Rhythmus&,bit%
    Cas Test peu(Rhythmus&,bit%):play 0;0;0;43,0,0

ENDPROC

Titre de la fenêtre "Little Drummer"
Cls
Randomiser
Déclarer Puls%
Puls% = 16
ici venez maintenant un einfacher jupe-Rhythmus avec leichtem Shuffle-Feeling et eingestreuten zufälligen HiHat-Variationen
Imprimer "HiHat 1010101010101010"
Imprimer "Snare 1010101010101010"
Imprimer "Bass  1010101010101010"

Tandis que 1

    WhileLoop Puls%

        Localiser 5,&Boucle + 5
        Imprimer " |"
        PlayHiHat(Val("%0" + Str$(Tour(2)) + "00000" + Str$(Tour(2)) + "00000" + Str$(Tour(2)) + "00"),Puls% - &Boucle)
        un peu Zufall reinbringen
        PlayHiHat((%1010101010101010),Puls% - &Boucle)
        PlaySnareDrum(%0000100000001000,Puls% - &Boucle)
        PlayBassDrum(%1000000010100000,Puls% - &Boucle)
        Sleep 120 + Tour(6) - 10
        un peu Human-Touch

        Select (&Boucle Mod 4)

            un peu Shuffle-Feeling reinbringen

            CaseOf 2

            Sleep 60
            Sleep 120 + Tour(20) - 10 un peu Human-Touch
            OtherWise
            Sleep 120 + Tour(20) - 10

        EndSelect

    Wend

    Localiser 5,Puls% + 5
    Imprimer "  "

Wend