Tekil Mesaj gösterimi
Alt 10-01-2020, 11:35   #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 Knob Value Control

Sublime Text programını indirerek ve Sublime Ksp rar dosyasını indirdikten sonra gerekli ayarları yaptıktan sonra bu kodu oraya atın ctrl+c ve f5 diyerek kontakt ksp bölümüne yapıştır

Kod:
on init 
	make_perfview
	set_ui_height(2)
	set_ui_color(25)
	set_control_par_str(INST_ICON_ID, CONTROL_PAR_PICTURE, "icon")
    
  
	declare ui_slider knob(0, 100)
	knob -> text :=""
	knob -> width :=64
	knob -> height :=64
	knob -> pos_x :=80
	knob -> pos_y :=20
	knob -> picture :="knob-count"
	knob -> mouse_behaviour := -2500
	make_persistent(knob)

	declare ui_label knobname(1, 1)
	knobname -> text := "Volume"
	knobname -> width := 80
	knobname -> height := 20
	knobname -> pos_x := 70
	knobname -> pos_y := 5
	knobname -> picture := ""
	knobname -> text_alignment :=1
	{knobname -> hide := HIDE_PART_BG}
	make_persistent(knobname)

	declare ui_slider knob2(0, 100)
	knob2 -> text :=""
	knob2 -> width :=64
	knob2 -> height :=64
	knob2 -> pos_x :=160
	knob2 -> pos_y :=20
	knob2 -> picture :="knob-count"
	knob2 -> mouse_behaviour := -2500

	declare ui_label knobname2(1, 1)
	knobname2 -> text := knob2
	knobname2 -> width := 80
	knobname2 -> height := 20
	knobname2 -> pos_x := 150
	knobname2 -> pos_y := 5
	knobname2 -> picture := ""
	knobname2 -> text_alignment :=1
	{knobname2 -> hide := HIDE_PART_BG}

	declare ui_slider knob3(0, 3)
	knob3 -> text :=""
	knob3 -> width :=64
	knob3 -> height :=64
	knob3 -> pos_x :=240
	knob3 -> pos_y :=20
	knob3 -> picture :="knob-count"
	knob3 -> mouse_behaviour := -1000

	declare ui_label knobname3(1, 1)
	knobname3 -> text := knob3
	knobname3 -> width := 80
	knobname3 -> height := 20
	knobname3 -> pos_x := 230
	knobname3 -> pos_y := 5
	knobname3 -> picture := ""
	knobname3 -> text_alignment :=1
	{knobname3 -> hide := HIDE_PART_BG}

	select knob2
	    case 0
	        knobname2 -> text := "Off"
	    case 1 to 99
	        knobname2 -> text := "Volume"
	    case 100
	        knobname2 -> text := "End"
	end select

	select knob3
	    case 0
	        knobname3 -> text := "Mono"
	    case 1
	        knobname3 -> text := "Poly"
	    case 2
	    	knobname3 -> text := "Portamento"
	    case 3
	        knobname3 -> text := "Legato"
	end select

end on
on ui_control(knob)
	knobname -> text := knob
	wait(1500000)
	inc(knobname)
	knobname -> text := "Volume"
end on

on ui_control(knob2)
	select knob2
	    case 0
	        knobname2 -> text := "Off"
	    case 1 to 99
	        knobname2 -> text := knob2
	    case 100
	        knobname2 -> text := "End"
	end select
	wait(1500000)
	inc(knobname2)
	knobname2 -> text := "Volume"
end on

on ui_control(knob3)
	select knob3
	    case 0
	        knobname3 -> text := "Mono"
	    case 1
	        knobname3 -> text := "Poly"
	    case 2
	    	knobname3 -> text := "Portamento"
	    case 3
	        knobname3 -> text := "Legato"
	end select
end on

Konu Derbeder tarafından (13-03-2020 Saat 17:44 ) değiştirilmiştir.
Derbeder isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla