Kontakt KSP Scripting


Geri git   KLAVYECİLER - KORG-YAMAHA-ROLAND > Müzik Programlar > Müzik Program Forumlar > Kontakt KSP Scripting

klavyeciler
Yeni Konu aç Cevapla
 
Seçenekler Stil
Alt 06-12-2019, 12:00   #1
Derbeder - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: Jan 2017
Mesajlar: 385
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 Scripting (Sublime ) - Audio Spectrum (Animation)

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.
Derbeder isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla
Cevapla

Tag Ekle
animation, audio, ksp, scripting, spectrum, sublime

Seçenekler
Stil

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı

Gitmek istediğiniz klasörü seçiniz

Benzer Konular
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

Ritim, Set, Ses, Sampler, korg, korg türkiye, yamaha, ketron roland, gem, md, karaoke, alt yapı, korg ritim set, yamaha pack, ritim set, pa800set, pa3xset,pa4xset,pa700set,pa1000set.pa600set, a3000,set indir, Ritim, Set, Ses, Sampler, korg, korg türkiye, yamaha, ketron roland, gem, md, karaoke, alt yapı, korg ritim set, yamaha pack, ritim set, pa800set, pa3xset,pa4xset,pa700set,pa1000set.pa600set, a3000,set indir, Ritim, Set, Ses, Sampler, korg, korg türkiye, yamaha, ketron roland, gem, md, karaoke, alt yapı, korg ritim set, yamaha pack, ritim set, pa800set, pa3xset,pa4xset,pa700set,pa1000set.pa600set, a3000,set indir,
Şu Anki Saat: 12:04


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Site Optimizasyon Alani
Ritim, Set, Ses, Sampler, korg, korg türkiye, yamaha, ketron roland, gem, md, karaoke, alt yapı, korg ritim set, yamaha pack, ritim set, pa800set, pa3xset,pa4xset,pa700set,pa1000set.pa600set, a3000,set indir, Ritim, Set, Ses, Sampler, korg, korg türkiye, yamaha, ketron roland, gem, md, karaoke, alt yapı, korg ritim set, yamaha pack, ritim set, pa800set, pa3xset,pa4xset,pa700set,pa1000set.pa600set, a3000,set indir,
www.klavyeciler.com