XPSE

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Hast Du mal ein Beispiel?

E.T.

So was ??

...
 {$pushkeyword dt}'als Bsp. für die neuen Datums-Funktionen
 {$NoErr}'für's extreme
...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

funkheld

Die neuen Midibefehle von X3.

windowtitle "MIDI TO MUSIC CONVERTER"
windowstyle $1A
window 1024,768
declare m$[]
var a$=loadfile$("MIDI-Datei auswählen","MIDI-Dateien|*.MID")
case findfirst$(a$)="":end
m$[] = midi("Read", a$)
print
print sizeof(m$[]),"Spur(en) geschrieben"
print
print "Taste drücken, um die eingelesenen Music-Strings mit MUSIC abzuspielen ..."
waitinput
m$[0] = "*"+m$[0]
assign #1,"midiread.txt"
rewrite #1

whileloop 0, sizeof(m$[])-1

    print #1, m$[&loop]

endwhile

close #1
music m$[]

while %playing and  (%umessage <> 16)

    case iskey(27): process("kill", &hMusic, 0)
    case iskey(83): midi("outshort", $B9, 7, 0)
    case iskey(76): midi("outshort", $B9, 7, 100)
    sleep 10
    usebrush 1,rnd(255)*257
    ellipse rnd(1024),rnd(768)-rnd(1024),rnd(768)

endwhile

end

weiter:

declare thema$,melo1$,melo2$,mecho$,akrd1$,akrd2$,akrd3$,akrd4$,ebass$,drums$
windowtitle "Ludwig van Beethoven - Rondo a Capriccio Op. 129 (Die Wut über den verlorenen Groschen)"
windowstyle 26
cls
thema$="L8 B4 MS >DDGG MN B4       L16 [2 >DCDC MS <A8 P8 MN] <      " + \
"L8 B4 MS >DDGG MN B4       L16    >DCDC MS <A8 MN ABG4P4 L16 " + \
"BAGF#EF#GA L8 MS BB MN >E4 L16 [2 ED#ED# MS <B8 P8 MN >] <   " + \
"BAGF#EF#GA L8 MS BB MN >E4 L32 [12 C#] L16 <B>C# L4 D<D      "
melo1$="T160 K0 I63 V100 R20  O5    [2 "+thema$+"]"
melo2$="K1 I88 V110 R90  O5    [2 "+thema$+"]"
mecho$="K2 I81 V69  R110 O5 P7 [2 "+thema$+"]"
akrd1$="K3 I28 V100 R110 O3 L8 MN [2 [30G]                  FF   [8E] < [8B] > [8E] < AAAA > DDDD      ]" + \
"V90 D  V80 D  V70 D  V60 D  V50 D  V40 D  V30 D  V20 D  V10 D"
akrd2$="K4 I1  V63  R10  O5 L8 ML [2 [8B] > [8C] < [8B] > CCCC < BBBB   [8G]   [8E]   [8G]   EEEE [4F#]]" + \
"V54 F# V48 F# V42 F# V36 F# V30 F# V24 F# V18 F# V12 F# V6  F#"
akrd3$="K5 I50 V72  R50  O6 L8 ML [2 D1     D1     D1     D2     DP4. < B1     A1     B1     G2   A2   ]"
akrd4$="K6 I1  V81  R100 O6 L8 ML [2 P1     [8F#]  P1     [4F#]  GP4.   P1   < [8B]   P1     AAAA P2   ]"
ebass$="K7 I63 V63  R100 O2 L8  [2 GPP>G<GPPPGPP>F#<GPPPGPP>G<GPPPGPP>F#<GPFPEPP>E<EPPPBPPEBPPPEPP>E<EPPP>DPPD<GPPP]"
drums$="K9 I25 V110 R40  O3 L16 [4 CF#A#F# DF#A#F# [2 [2 CF#A#F# DF#A#F#] CF#A#F# DF# DF#] CF#A#F#DDDD] > C#"
music "*"+melo1$,melo2$,mecho$,akrd1$,akrd2$,akrd3$,akrd4$,ebass$,drums$
settimer 10

while %playing

    waitinput
    usebrush 1,rnd(16000000)
    ellipse rnd(640),rnd(480)-rnd(640),rnd(480)

endwhile

killtimer

Gruss

Georg
Teles

E.T. (08.02.2016)

{$pushkeyword dt} 'als Bsp. für die neuen Datums-Funktionen

jupp sowas reicht aus, musst in deinen Code ganz oben einfügen (process kennt XPSE auch nicht weil erst ab X2)

 {$pushkeyword midi}
 {$pushkeyword process}
...

Servus

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

[OFFTOPIC]

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

 {$pushkeyword midi, process, ...}

geht auch[/OFFTOPIC]