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