XProfan

whileloop 23,38

    byte mim#,&loop=$90  NOP

endwhil

whilenot (%umessage=16) or (%scankey=27)  Bis Alt-F4 oder ESC

    readmidiin  MIDI-Nachricht lesen
    a&=&(0)

    if a& >= 0  Gibt es eine?

        Ja, Ist es ein NoteOff oder NoteOn? (Man beachte, dass
        das 4. Bit in dieser If-Abfrage ausmaskiert ist und daher
        beide Nachrichten gleichzeitig abgefragt werden :))

        if (a& & $E0) = $80

            Ja, Notenwert und Lautstärke berechnen
            note% = (a& >> 8) & 127
            vel% = (a& >> 16) & 127
            Bei NoteOff gibts allerdings keine Lautstärke
            casenot a& & $10: vel% = 0
            Log
            LOCATE 8,2
            print "Die Taste",note$[note%],"(";note%;") wurde",

            if vel%

                print" gedrückt "

                while ??????bis taste losgelassen wird

                    balken(9,&loop) , grafische darstellung der notenlänge also ein balken wird gemalt
                    schlafe (10)         ,nur um die geschwindigkeit zu verringern

                endwhile

            else

                print "losgelassen."

            endif

        endif

    endif

endwhile

while readmidiin() & $7F0060 bis taste losgelassen wirdre>

 $I Interface.inc
declare a$,a&,note%,vel%,note$[127],laenge&,wonote%
windowstyle 31
Window 1,1-1100,800
SetTrueColor 0

Proc Notenbezeichnung

    Array mit Notenbezeichnungen
    a$="C-C#D-D#E-F-F#G-G#A-A#H-"

    whileloop 0,127

        note$[&loop]=mid$(a$,(&loop mod 12)*2+1,2);str$(&loop12)

    endwhile

endproc

Proc Schlafe

    Parameters N&
    Declare Ende%
    SetTimer N&
    Clear Ende%

    WhileNot Ende%

        WaitInput
        Case %wmTimer:Ende% = 1

    EndWhile

    KillTimer

EndProc

Proc Notenlinien

    parameters zz%                  zz=zeile
    declare z%
    let z%=(zz%*120)-40                  abstand der zeilen - 40 ist zum ausrichten
    UsePen 0,1,@RGB(0,0,0)
    line 50,(10+z%)-1000,(10+z%)
    line 50,(20+z%)-1000,(20+z%)
    line 50,(30+z%)-1000,(30+z%)
    line 50,(40+z%)-1000,(40+z%)
    line 50,(50+z%)-1000,(50+z%)
    --------------------
    line 50,(10+z%)-50,(50+z%)     senkrechter Strich
    line 1000,(10+z%)-1000,(50+z%) Senkrechter hinterer Strich

endproc

proc posnote

    parameters eing$

    if left$(eing$,1)="C"

        wonote%=7

    elseif  left$(eing$,1)="D"

        wonote%=6

    elseif  left$(eing$,1)="E"

        wonote%=5

    elseif  left$(eing$,1)="F"

        wonote%=4

    elseif  left$(eing$,1)="G"

        wonote%=3

    elseif  left$(eing$,1)="A"

        wonote%=2

    elseif  left$(eing$,1)="H"

        wonote%=1

    endif

    let wonote%=wonote%-(((val(mid$(eing$,3,1)))-3)*7)+15 rem -3 ist die Oktave/*7 =sieben töne höher /+15 nur zum ausrichten
    endproc
    Proc balken
    Parameters Wert%, dauer&
    declare w%
    let w%=wert%*5
    UsePen 0,2,@RGB(31,0,0)
    UseBrush 1,@RGB(0,0,0)
    Ellipse (70+dauer&),(62+w%) - (83+dauer&),(70+w%)
    endproc
    notenlinien(1)
    notenlinien(2)
    openmidiin 0 mein USB Midieingang
    openmidiout 1 mein Midiausgang
    laenge&=0
    wonote%=0
    Notenbezeichnung
    whilenot (%umessage=16) or (%scankey=27)  Bis Alt-F4 oder ESC
    readmidiin  MIDI-Nachricht lesen
    a&=&(0)
    if a& >= 0  Gibt es eine?
    Ja, Ist es ein NoteOff oder NoteOn? (Man beachte, dass
    das 4. Bit in dieser If-Abfrage ausmaskiert ist und daher
    beide Nachrichten gleichzeitig abgefragt werden :))
    if (a& & $E0) = $80
    Ja, Notenwert und Lautstärke berechnen
    note% = (a& >> 8) & 127
    vel% = (a& >> 16) & 127
    Bei NoteOff gibts allerdings keine Lautstärke
    casenot a& & $10: vel% = 0
    Log
    LOCATE 18,5
    print "Die Taste",note$[note%],"(";note%;") wurde",
    if vel%
    posnote(note$[note%])
    playmidiout a& & $7F7F90
    print " gedrückt    "
    while readmidiin() & $7F0060
    inc laenge&
    balken(wonote%,laenge&)
    chlafe (1)
    endwhile
    else
    print "losgelassen."
    endif
    endif
    ass=s1>endif
    endwhile
    closemidiin
    closemidiout