Tekil Mesaj gösterimi
Alt 02-12-2021, 22:28   #1
Derbeder - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: Jan 2017
Mesajlar: 387
Beğendikleri:
Beğeni Puanı:
Tecrübe Puanı: 10
klavyeciler
Türkiyenin En Büyük, Müzisyen Paylaşım Forumu Ritim Set Ses Sampleler Korg Türkiye Yamaha Ketron Roland Gem Md Karaoke altyapı Korg Ritim Set Yamaha Pack


Standart Ksp ahdsr (istek üzerine)

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

Kod:
{ 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_PAR_HELP,"ATTACK")
set_control_par_str(get_ui_id($slider1),$CONTROL_PAR_HELP,"HOLD")
set_control_par_str(get_ui_id($slider2),$CONTROL_PAR_HELP,"DECAY")
set_control_par_str(get_ui_id($slider3),$CONTROL_PAR_HELP,"SUSTAIN")
set_control_par_str(get_ui_id($slider4),$CONTROL_PAR_HELP,"RELEASE")
set_control_par_str(get_ui_id($slider5),$CONTROL_PAR_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

Konu Derbeder tarafından (02-12-2021 Saat 22:31 ) değiştirilmiştir.
Derbeder isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla