![]() |
#1 |
![]() 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 ![]() image dosyası Picture : https://www.dosyaupload.com/77ky
Kod:
on init make_perfview set_ui_height_px(150) set_ui_color(90009970) declare BTN_WIDTH := 20 declare BTN_HEIGHT := 20 declare const BTN_NUMBER := 5 declare SPECTRUM_FRAMES := 30 declare SPECTRUM_WIDTH := 130 declare SPECTRUM_HEIGHT := 40 declare SPECTRUM_POS_X := 150 declare SPECTRUM_POS_Y := 50 declare %btn_id[BTN_NUMBER] declare Spectrumsprite declare_button(0,A1b,128,49,BTN_WIDTH,BTN_HEIGHT) declare_button(1,A2b,128,70,BTN_WIDTH,BTN_HEIGHT) declare_button(2,B1b,270,49,BTN_WIDTH,BTN_HEIGHT) declare_button(3,B2b,270,70,BTN_WIDTH,BTN_HEIGHT) declare_button(4,audi,149,91,130,20) declare ui_slider slider(0,SPECTRUM_FRAMES) slider -> text := "" slider -> width := SPECTRUM_WIDTH slider -> height := SPECTRUM_HEIGHT slider -> pos_y := SPECTRUM_POS_Y slider -> pos_x := SPECTRUM_POS_X slider -> picture := "meter" end on on_ui_control_button(0,MeterA1) on_ui_control_button(1,MeterA2) on_ui_control_button(2,MeterB1) on_ui_control_button(3,MeterB2) on_ui_control_button(4,meter) macro declare_button(#idx#,#picture#,#posx#,#posy#,#x#,#y#) declare ui_switch $bt_#idx# %btn_id[#idx#] := get_ui_id($bt_#idx#) $bt_#idx# -> width := #x# $bt_#idx# -> height := #y# $bt_#idx# -> picture := "#picture#" $bt_#idx# -> text := "" $bt_#idx# -> pos_x := #posx# $bt_#idx# -> pos_y := #posy# Spectrumsprite := get_ui_id($bt_#idx#) make_persistent($bt_#idx#) read_persistent_var($bt_#idx#) end macro macro on_ui_control_button(#idx#,#spectrumresim#) on ui_control($bt_#idx#) switch_spectrum(get_ui_id($bt_#idx#)) slider -> picture := "#spectrumresim#" end on end macro function switch_spectrum(spectrum_id) declare $i for $i := 0 to num_elements (%btn_id) -1 if (%btn_id[$i] # spectrum_id) %btn_id[$i] -> VALUE := 0 end if end for end function on note slider := $EVENT_VELOCITY end on on release if(search(%KEY_DOWN,1)=-1) while(slider>0) slider:=slider-1 inc(Spectrumsprite) wait(85000) end while end if end on Türkiyenin En Büyük, Müzisyen Paylaşım Forumu Konu Derbeder tarafından (13-03-2020 Saat 18:08 ) değiştirilmiştir. |
|
![]() |
![]() |
![]() |
Tag Ekle |
animation, audio, ksp, scripting, spectrum, sublime |
|
|
![]() |
||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Ksp Scripting - Key Color | Derbeder | Kontakt KSP Scripting | 0 | 29-11-2019 11:21 |
Ksp Scripting - Text Effects | Derbeder | Kontakt KSP Scripting | 0 | 29-11-2019 11:20 |
AnyMP4 Audio Converter | yönetim | Müzik Programlar | 5 | 07-11-2019 13:37 |
DeejaySystem DJ Audio | yönetim | Müzik Programlar | 2 | 18-03-2019 17:52 |