XPSE

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

la hâte Du la fois un Beispiel?

E.T.

So quoi ??

...
 {$pushkeyword dt}'comme Bsp. pour qui neuen Datums-Funktionen
 {$NoErr}'pour'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

qui neuen Midibefehle de X3.

windowtitle "MIDI TO MUSIC CONVERTER"
style de fenêtre $1A
window 1024,768
declare m$[]
var a$=loadfile$("MIDI-Dossier auswählen","MIDI-Dateien|*.MID")
cas findfirst$(a$)=»:end
m$[] = midi("Read", a$)
imprimer
imprimer sizeof(m$[]),"Spur(en) geschrieben"
imprimer
imprimer "Taste drücken, à eingelesenen Music-Cordes avec MUSIC abzuspielen ..."
waitinput
m$[0] = "*"+m$[0]
assign #1,"midiread.txt"
rewrite #1

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

    imprimer #1, m$[&loop]

endwhile

close #1
music m$[]

tandis que %playing and  (%umessage <> 16)

    cas iskey(27): process("kill", &hMusic, 0)
    cas iskey(83): midi("outshort", $B9, 7, 0)
    cas 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

plus:

declare thema$,melo1$,melo2$,mecho$,akrd1$,akrd2$,akrd3$,akrd4$,ebass$,drums$
windowtitle "Ludwig van Beethoven - Rondo a Capriccio Op. 129 (qui Wut sur den verlorenen Groschen)"
style de fenêtre 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

tandis que %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. pour qui neuen Datums-Funktionen

jupp quelque chose comme reicht aus, musst dans deinen Code entier dessus insérer (process kennt XPSE aussi pas weil seulement ab X2)

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

salut

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, ...}

allez aussi[/OFFTOPIC]