Knob Value Control

[Derbeder]

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

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