Ksp ahdsr (istek üzerine)

[Derbeder]

BİRİSİ AHDSR İSTEMİŞ BENDE UFAK KODLAMA İLE GÖSTERMEYE ÇALIŞTIM , BU ÖRNEĞİ SEVE SEVE KULLANABİLİRSİNİZ, HİÇBİR SIKINTI ÇIKARMAZ!

PNG : 64X64 PARÇA SAYISI 100'DÜR



{ BYHSNK CODE : AHDSR }
on init
set_ui_height_px(100)
declare %slider[6]
declare ui_slider $slider0(0, 1000000)
make_persistent($slider0)
%slider[0] := get_ui_id($slider0)
declare ui_slider $slider1(0, 1000000)
make_persistent($slider1)
%slider[1] := get_ui_id($slider1)
declare ui_slider $slider2(0, 1000000)
make_persistent($slider2)
%slider[2] := get_ui_id($slider2)
declare ui_slider $slider3(0, 1000000)
make_persistent($slider3)
%slider[3] := get_ui_id($slider3)
declare ui_slider $slider4(0, 1000000)
make_persistent($slider4)
%slider[4] := get_ui_id($slider4)
declare ui_slider $slider5(0, 1000000)
make_persistent($slider5)
%slider[5] := get_ui_id($slider5)
set_control_par_str(get_ui_id($slider0),$CONTROL_P AR_HELP,"ATTACK")
set_control_par_str(get_ui_id($slider1),$CONTROL_P AR_HELP,"HOLD")
set_control_par_str(get_ui_id($slider2),$CONTROL_P AR_HELP,"DECAY")
set_control_par_str(get_ui_id($slider3),$CONTROL_P AR_HELP,"SUSTAIN")
set_control_par_str(get_ui_id($slider4),$CONTROL_P AR_HELP,"RELEASE")
set_control_par_str(get_ui_id($slider5),$CONTROL_P AR_HELP,"VOLUME")
declare $i
$i := $i
while ($i<6)
set_control_par(%slider[$i],$CONTROL_PAR_POS_X,90+(40*$i*2))
set_control_par(%slider[$i],$CONTROL_PAR_POS_Y,15)
set_control_par(%slider[$i],$CONTROL_PAR_DEFAULT_VALUE,0)
set_control_par_str(%slider[$i],$CONTROL_PAR_PICTURE,"slider_ahdsr")
set_control_par(%slider[$i],$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
inc($i)
end while
end on
on ui_control($slider0)
_set_engine_par($ENGINE_PAR_ATTACK,$slider0,0,0,0)
inc($slider0)
end on
on ui_control($slider1)
_set_engine_par($ENGINE_PAR_HOLD,$slider1,0,0,0)
inc($slider1)
end on
on ui_control($slider2)
_set_engine_par($ENGINE_PAR_DECAY,$slider2,0,0,0)
inc($slider2)
end on
on ui_control($slider3)
_set_engine_par($ENGINE_PAR_SUSTAIN,$slider3,0,0,0 )
inc($slider3)
end on
on ui_control($slider4)
_set_engine_par($ENGINE_PAR_RELEASE,$slider4,0,0,0 )
inc($slider4)
end on
on ui_control($slider5)
_set_engine_par($ENGINE_PAR_VOLUME,$slider5,0,0,0)
inc($slider5)
end on