XProfan

Italia

Jörg
Sellmeyer

Nachdem ich kapiert habe, daß die ganze Steuerung nicht horizontal, sondern vertikal funktioniert, war es nicht mehr so schwer:
Da es unter älteren Profanversionen wohl nicht corre, habe ich auch die exe-File angehängt.

Kompilieren Markieren Separieren

Proc PlayBassDrum

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;36,0,0

EndProc

Proc PlaySnareDrum

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;41,0,0

EndProc

Proc PlayHiHat

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;43,0,0

EndProc

WindowTitle "Little Drummer"
Cls
Randomize
Declare Puls%
Puls% = 16
hier kommt jetzt ein einfacher Rock-Rhythmus mit leichtem Shuffle-Feeling und eingestreuten zufälligen HiHat-Variationen
Print "HiHat 1010101010101010"
Print "Snare 1010101010101010"
Print "Bass  1010101010101010"

While 1

    WhileLoop Puls%

        Locate 5,&Loop + 5
        Print " |"
        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

    Locate 5,Puls% + 5
    Print "  "

Wend