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