Geri git   KLAVYECÝLER - KORG-YAMAHA-ROLAND > Müzik Programlar > Müzik Program Forumlar > Kontakt KSP Scripting
Sayfaya güncelle Ksp Scripting (Sublime ) - Vertical Scrollbar
Kayıt ol Yardım Ajanda Forumlarý Okundu Kabul Et

Yeni Konu aç Cevapla
 
Seçenekler Stil
Alt 06-12-2019, 12:01   #1
Derbeder
Derbeder - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: Jan 2017
Mesajlar: 431
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 Scriptings (Sublime) Vertical Scrollbar
Bu videoda vertical srcollbar yapýyoruz, enstruman buttonlarýn dizilimini yaparak tam 33 enstruman butonu oluþturmuþ oluyoruz, 33 ideal olduðu düþünerek o sayýda býraktým.

Kod:
{***********************************************
Vertical Scrollbar v1.0
Author: BYHSNK
Written by: Fatih Korkmaz 
*************************************************}
on init 
    message("")
    set_ui_height_px(350)
    make_perfview
    set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"icon")
    set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"st")
    set_ui_color(9)
    set_script_title("SliderEnstruman")
    declare const BTN_SAYISI := 33    
    declare const PADDING := 16  
    declare const BTN_POS_X := 310
    declare const BTN_POS_Y := 140
    declare const MARGIN_POS_Y := 100
    declare const BTN_WIDTH := 235
    declare const BTN_HEIGHT := 18
    declare const MAX_Y := 49
    

    declare const ICON_SAYISI := 33    
    declare const ICON_POS_X := 565
    declare const ICON_POS_Y := 140    
    declare const ICON_WIDTH := 18
    declare const ICON_HEIGHT := 18   


    declare const $SCROLL_WIDTH := 16 
    declare const $SCROLL_HEIGHT := 240    

    
    declare  const scrollbar := 0
    declare  const scrollpadding := -15
    declare paddingautoscroll
    paddingautoscroll := 12 {21 den sonra 1.2.3}

    declare %Sayidegeri[33]
    declare %BTN_ids[BTN_SAYISI]
    declare %icon_ids[ICON_SAYISI]        
    declare $i        
    declare position

    declare %ids [4]
    declare ui_switch glides
    glides -> text := "None"
    glides -> width := 101
    glides -> height := 20
    glides -> pos_x := 310
    glides -> pos_y := 27
    glides -> picture := ""
    glides -> textpos_y := 2
    glides -> text_alignment := 1

    declare ui_switch byhsnk
    byhsnk -> text := "None"
    byhsnk -> width := 100
    byhsnk -> height := 20
    byhsnk -> pos_x := 409
    byhsnk -> pos_y := 27
    byhsnk -> picture := ""
    byhsnk -> textpos_y := 2
    byhsnk -> text_alignment := 1

    declare ui_switch legato
    legato -> text := "None"
    legato -> width := 102
    legato -> height := 20
    legato -> pos_x := 508
    legato -> pos_y := 27
    legato -> picture := ""
    legato -> textpos_y := 2
    legato -> text_alignment := 1 

    %ids [0] := get_ui_id (glides)
    %ids [1] := get_ui_id (byhsnk)
    %ids [2] := get_ui_id (legato) 


   
   declare ui_label msj(1, 2) 
    msj -> text :="" 
    msj -> width :=298 
    msj -> height :=50 
    msj -> pos_x := 310
    msj -> pos_y := 279
    msj -> picture :="nsj"  

    declare ui_slider scroll(scrollbar+scrollpadding*paddingautoscroll, 160)    
    scroll -> pos_x := 585
    scroll -> pos_y := 60
    scroll -> width := $SCROLL_WIDTH
    scroll -> height := $SCROLL_HEIGHT
    scroll -> mouse_behaviour := -750
    scroll -> picture :="slider1"         
    scroll := 160

    declare_button(0)
    declare_button(1)
    declare_button(2)
    declare_button(3)
    declare_button(4)
    declare_button(5)
    declare_button(6)    
    declare_button(7)   
    declare_button(8)   
    declare_button(9)
    declare_button(10)
    declare_button(11) 
    declare_button(12)
    declare_button(13)
    declare_button(14)
    declare_button(15)
    declare_button(16)
    declare_button(17)
    declare_button(18)
    declare_button(19)
    declare_button(20)
    declare_button(21)
    declare_button(22)
    declare_button(23)
    declare_button(24)
    declare_button(25)
    declare_button(26)
    declare_button(27)
    declare_button(28)
    declare_button(29)
    declare_button(30)
    declare_button(31)
    declare_button(32)
     
    declare ui_label Max(1, 2)
    Max -> text :=""
    Max -> width := 255
    Max -> height := 219
    Max -> pos_x := BTN_POS_X
    Max -> pos_y := 48
    Max -> picture :="scrollbg"


    {
    declare ui_label Komapencere(1, 2)
    Komapencere -> text :=""
    Komapencere -> width := 285
    Komapencere -> height := 85
    Komapencere -> pos_x := 25
    Komapencere -> pos_y := 48
    Komapencere -> picture :="koma"
   
    declare ui_label Komapencere2(1, 2)
    Komapencere2 -> text :=""
    Komapencere2 -> width := 285
    Komapencere2 -> height := 85
    Komapencere2 -> pos_x := 24
    Komapencere2 -> pos_y := 245
    Komapencere2 -> picture :="komaayar"}

      for i := 0 to num_elements(%BTN_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %BTN_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %BTN_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %BTN_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
       for i := 0 to num_elements(%icon_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %icon_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %icon_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %icon_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
       for i := 0 to num_elements(%Sayidegeri) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %Sayidegeri[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %Sayidegeri[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %Sayidegeri[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
    declare ui_label textname(1, 1) 
    textname -> text :="" 
    textname -> width :=280 
    textname -> height :=18 
    textname -> pos_x := BTN_POS_X
    textname -> pos_y := 259
    textname -> picture :="textnamem"    

    declare ui_label bilgi(1, 2) 
    bilgi -> text :="" 
    bilgi -> width :=610 
    bilgi -> height :=23 
    bilgi -> pos_x := 5
    bilgi -> pos_y := 0
    bilgi -> text_alignment := 1
    bilgi -> picture :="" 

    declare ui_button toggle
    toggle -> text := ""
    toggle -> width := 18
    toggle -> height := 18
    toggle -> pos_x := 590
    toggle -> pos_y := 259
    toggle -> picture :="toggles"
end on
     

    
    scroll_button_control(0,VL, Violin,Feyyaz Kurt,feyyaz)
    scroll_button_control(1,NY, Ney,Ahmet Kaya,ahmet)
    scroll_button_control(2,PN,YamahaGrand Piano,Egemen Piyanist,Albumkapakpng)
    scroll_button_control(3,CLR,Moss Klarnet,Hayrettin Piyanist Korg Pa900,Albumkapakpng)
    scroll_button_control(4,ZRN,Zurna SL,Bergamali Sedat Haci Piyanist - KorgPa800,Albumkapakpng)
    scroll_button_control(5,LD,Lead,Piyanist Haci Dayi,Albumkapakpng)
    scroll_button_control(6,FLT,Flute,Piyanist Orhan,Albumkapakpng)    
    scroll_button_control(7,OUD,Ud,Merve Canlý Pro.Studio,Albumkapakpng)   
    scroll_button_control(8,ZRVS,Zervas Lead,Delikli piyanist,Albumkapakpng)   
    scroll_button_control(9,ACC,Accordion,Piyanist ibocan,Albumkapakpng)
    scroll_button_control(10,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(11,--,Empty,Aciklama,Albumkapakpng) 
    scroll_button_control(12,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(13,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(14,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(15,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(16,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(17,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(18,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(19,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(20,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(21,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(22,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(23,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(24,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(25,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(26,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(27,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(28,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(29,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(30,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(31,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(32,--,Empty,Aciklama,Albumkapakpng)

    
macro declare_button(#idx#{,#Kensismi#,#Baslik#,#iconAlbumkapakpng#})

declare ui_label Sayi_#idx#(1, 1)
declare ui_button button_#idx#
declare ui_switch icon_#idx#

%Sayidegeri[#idx#] := get_ui_id(Sayi_#idx#)
Sayi_#idx# -> text := "#idx#"
Sayi_#idx# -> width := 18
Sayi_#idx# -> height := 18
Sayi_#idx# -> pos_x := 311
Sayi_#idx# -> pos_y := 140
Sayi_#idx# -> picture := ""


%BTN_ids[#idx#] := get_ui_id(button_#idx#)
button_#idx# -> text :="#Baslik#"
button_#idx# -> width := BTN_WIDTH
button_#idx# -> height := BTN_HEIGHT  
button_#idx# -> pos_x  := 335 
button_#idx# -> picture  := "scrollbtn"


%icon_ids[#idx#] := get_ui_id(icon_#idx#)
icon_#idx# -> text := ""
icon_#idx# -> width := ICON_WIDTH
icon_#idx# -> height := ICON_HEIGHT  
icon_#idx# -> pos_x  := ICON_POS_X 
icon_#idx# -> picture  := "#iconAlbumkapakpng#"


end macro

macro scroll_button_control(#idx#,#Kensismi#,#Baslik#,#mesaj#,#reklam#)
    on ui_control(button_#idx#)
    button_scroll(get_ui_id(button_#idx#))
    textname -> text := "#idx# : " & "#Kensismi# : " & "#Baslik#"
    bilgi -> text := "#idx# : " & "#Baslik#" &"  (#mesaj#)" 
    msj -> picture := "nsj" 
    icon_#idx#:=0   
    end on
    on ui_control(icon_#idx#)
    icon_scroll(get_ui_id(icon_#idx#))
    msj -> picture := "#reklam#"
    bilgi -> text := ""     
    end on        
end macro

function button_scroll(scroll_id)
 if(toggle=0)    
 declare y 
 for y := 0 to num_elements(%BTN_ids) -1
    if(%BTN_ids[y] # scroll_id)
       %BTN_ids[y] -> value := 0
       end if      
 end for
end if
end function
function icon_scroll(icon_id)     
 declare y 
 for y := 0 to num_elements(%icon_ids) -1
    if(%icon_ids[y] # icon_id)
       %icon_ids[y] -> value := 0
       end if      
 end for
end function

on ui_control(scroll)    
    for i := 0 to num_elements(%BTN_ids) - 1
     
        position := scroll - MARGIN_POS_Y + PADDING * i
        %BTN_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %BTN_ids[i] -> hide := HIDE_WHOLE_CONTROL            
        else 
            %BTN_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
    end for
    for i := 0 to num_elements(%icon_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %icon_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %icon_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %icon_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
      for i := 0 to num_elements(%Sayidegeri) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %Sayidegeri[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %Sayidegeri[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %Sayidegeri[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
end on


function switch_sfx_effect(switch_id)
    declare $i      
    for $i := 0 to num_elements (%ids) -1
        if (%ids[$i] # switch_id)
           %ids[$i] -> VALUE := 0           
        end if        
    end for  
    
end function

on ui_control(glides)
switch_sfx_effect(get_ui_id(glides))
end on 
on ui_control(byhsnk)
switch_sfx_effect(get_ui_id(byhsnk))
end on 
on ui_control(legato)
switch_sfx_effect(get_ui_id(legato))
end on

Türkiyenin En Büyük, Müzisyen Paylaþým Forumu

Konu Derbeder tarafından (08-02-2025 Saat 20:50 ) değiştirilmiştir.
Derbeder isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla
Alt 04-07-2023, 12:03   #2
Derbeder
Derbeder - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: Jan 2017
Mesajlar: 431
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 Cevap: Ksp Scriptings (Sublime) Vertical Scrollbar
konu güncellendi
Derbeder isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla
Alt 15-08-2023, 11:33   #3
karimpa800
karimpa800 - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: Oct 2017
Mesajlar: 72
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 Re: Ksp Scriptings (Sublime) Vertical Scrollbar
Alıntı:
Derbeder´isimli üyeden Alıntı Mesajı göster
image dosyasý picture : https://www.dosyaupload.com/77ky

Bu videoda vertical srcollbar yapýyoruz, enstruman buttonlarýn dizilimini yaparak tam 33 enstruman butonu oluþturmuþ oluyoruz, 33 ideal olduðu düþünerek o sayýda býraktým.

ui sýnýrlamalarý olduðu için belki bilmiyorsunuzdur, bende daha önce bilmiyordum.

Mesela kontakt 5de 255 di herhalde, ui slider 256 olunca devam etmedi, aklýma gelmiþken söyleyeyim dedim diðerlei için net sayý bilmiyorum onlarda bu civardadýr diye düþünüyorum..

Size tavsiyem sublime ksp kullanarak kodlayýn, hem daha kolay hemde uzun kodlar yazmak gerekmiyor..


Kod:
{***********************************************
Vertical Scrollbar v1.0
Author: BYHSNK
Written by: Fatih Korkmaz 
*************************************************}
on init 
    message("")
    set_ui_height_px(350)
    make_perfview
    set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"icon")
    set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"st")
    set_ui_color(9)
    set_script_title("SliderEnstruman")
    declare const BTN_SAYISI := 33    
    declare const PADDING := 16  
    declare const BTN_POS_X := 310
    declare const BTN_POS_Y := 140
    declare const MARGIN_POS_Y := 100
    declare const BTN_WIDTH := 235
    declare const BTN_HEIGHT := 18
    declare const MAX_Y := 49
    

    declare const ICON_SAYISI := 33    
    declare const ICON_POS_X := 565
    declare const ICON_POS_Y := 140    
    declare const ICON_WIDTH := 18
    declare const ICON_HEIGHT := 18   


    declare const $SCROLL_WIDTH := 16 
    declare const $SCROLL_HEIGHT := 240    

    
    declare  const scrollbar := 0
    declare  const scrollpadding := -15
    declare paddingautoscroll
    paddingautoscroll := 12 {21 den sonra 1.2.3}

    declare %Sayidegeri[33]
    declare %BTN_ids[BTN_SAYISI]
    declare %icon_ids[ICON_SAYISI]        
    declare $i        
    declare position

    declare %ids [4]
    declare ui_switch glides
    glides -> text := "None"
    glides -> width := 101
    glides -> height := 20
    glides -> pos_x := 310
    glides -> pos_y := 27
    glides -> picture := ""
    glides -> textpos_y := 2
    glides -> text_alignment := 1

    declare ui_switch byhsnk
    byhsnk -> text := "None"
    byhsnk -> width := 100
    byhsnk -> height := 20
    byhsnk -> pos_x := 409
    byhsnk -> pos_y := 27
    byhsnk -> picture := ""
    byhsnk -> textpos_y := 2
    byhsnk -> text_alignment := 1

    declare ui_switch legato
    legato -> text := "None"
    legato -> width := 102
    legato -> height := 20
    legato -> pos_x := 508
    legato -> pos_y := 27
    legato -> picture := ""
    legato -> textpos_y := 2
    legato -> text_alignment := 1 

    %ids [0] := get_ui_id (glides)
    %ids [1] := get_ui_id (byhsnk)
    %ids [2] := get_ui_id (legato) 


   
   declare ui_label msj(1, 2) 
    msj -> text :="" 
    msj -> width :=298 
    msj -> height :=50 
    msj -> pos_x := 310
    msj -> pos_y := 279
    msj -> picture :="nsj"  

    declare ui_slider scroll(scrollbar+scrollpadding*paddingautoscroll, 160)    
    scroll -> pos_x := 585
    scroll -> pos_y := 60
    scroll -> width := $SCROLL_WIDTH
    scroll -> height := $SCROLL_HEIGHT
    scroll -> mouse_behaviour := -750
    scroll -> picture :="slider1"         
    scroll := 160

    declare_button(0)
    declare_button(1)
    declare_button(2)
    declare_button(3)
    declare_button(4)
    declare_button(5)
    declare_button(6)    
    declare_button(7)   
    declare_button(8)   
    declare_button(9)
    declare_button(10)
    declare_button(11) 
    declare_button(12)
    declare_button(13)
    declare_button(14)
    declare_button(15)
    declare_button(16)
    declare_button(17)
    declare_button(18)
    declare_button(19)
    declare_button(20)
    declare_button(21)
    declare_button(22)
    declare_button(23)
    declare_button(24)
    declare_button(25)
    declare_button(26)
    declare_button(27)
    declare_button(28)
    declare_button(29)
    declare_button(30)
    declare_button(31)
    declare_button(32)
     
    declare ui_label Max(1, 2)
    Max -> text :=""
    Max -> width := 255
    Max -> height := 219
    Max -> pos_x := BTN_POS_X
    Max -> pos_y := 48
    Max -> picture :="scrollbg"


    {
    declare ui_label Komapencere(1, 2)
    Komapencere -> text :=""
    Komapencere -> width := 285
    Komapencere -> height := 85
    Komapencere -> pos_x := 25
    Komapencere -> pos_y := 48
    Komapencere -> picture :="koma"
   
    declare ui_label Komapencere2(1, 2)
    Komapencere2 -> text :=""
    Komapencere2 -> width := 285
    Komapencere2 -> height := 85
    Komapencere2 -> pos_x := 24
    Komapencere2 -> pos_y := 245
    Komapencere2 -> picture :="komaayar"}

      for i := 0 to num_elements(%BTN_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %BTN_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %BTN_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %BTN_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
       for i := 0 to num_elements(%icon_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %icon_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %icon_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %icon_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
       for i := 0 to num_elements(%Sayidegeri) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %Sayidegeri[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %Sayidegeri[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %Sayidegeri[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
    declare ui_label textname(1, 1) 
    textname -> text :="" 
    textname -> width :=280 
    textname -> height :=18 
    textname -> pos_x := BTN_POS_X
    textname -> pos_y := 259
    textname -> picture :="textnamem"    

    declare ui_label bilgi(1, 2) 
    bilgi -> text :="" 
    bilgi -> width :=610 
    bilgi -> height :=23 
    bilgi -> pos_x := 5
    bilgi -> pos_y := 0
    bilgi -> text_alignment := 1
    bilgi -> picture :="" 

    declare ui_button toggle
    toggle -> text := ""
    toggle -> width := 18
    toggle -> height := 18
    toggle -> pos_x := 590
    toggle -> pos_y := 259
    toggle -> picture :="toggles"
end on
     

    
    scroll_button_control(0,VL, Violin,Feyyaz Kurt,feyyaz)
    scroll_button_control(1,NY, Ney,Ahmet Kaya,ahmet)
    scroll_button_control(2,PN,YamahaGrand Piano,Egemen Piyanist,Albumkapakpng)
    scroll_button_control(3,CLR,Moss Klarnet,Hayrettin Piyanist Korg Pa900,Albumkapakpng)
    scroll_button_control(4,ZRN,Zurna SL,Bergamali Sedat Haci Piyanist - KorgPa800,Albumkapakpng)
    scroll_button_control(5,LD,Lead,Piyanist Haci Dayi,Albumkapakpng)
    scroll_button_control(6,FLT,Flute,Piyanist Orhan,Albumkapakpng)    
    scroll_button_control(7,OUD,Ud,Merve Canlý Pro.Studio,Albumkapakpng)   
    scroll_button_control(8,ZRVS,Zervas Lead,Delikli piyanist,Albumkapakpng)   
    scroll_button_control(9,ACC,Accordion,Piyanist ibocan,Albumkapakpng)
    scroll_button_control(10,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(11,--,Empty,Aciklama,Albumkapakpng) 
    scroll_button_control(12,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(13,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(14,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(15,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(16,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(17,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(18,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(19,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(20,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(21,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(22,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(23,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(24,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(25,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(26,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(27,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(28,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(29,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(30,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(31,--,Empty,Aciklama,Albumkapakpng)
    scroll_button_control(32,--,Empty,Aciklama,Albumkapakpng)

    
macro declare_button(#idx#{,#Kensismi#,#Baslik#,#iconAlbumkapakpng#})

declare ui_label Sayi_#idx#(1, 1)
declare ui_button button_#idx#
declare ui_switch icon_#idx#

%Sayidegeri[#idx#] := get_ui_id(Sayi_#idx#)
Sayi_#idx# -> text := "#idx#"
Sayi_#idx# -> width := 18
Sayi_#idx# -> height := 18
Sayi_#idx# -> pos_x := 311
Sayi_#idx# -> pos_y := 140
Sayi_#idx# -> picture := ""


%BTN_ids[#idx#] := get_ui_id(button_#idx#)
button_#idx# -> text :="#Baslik#"
button_#idx# -> width := BTN_WIDTH
button_#idx# -> height := BTN_HEIGHT  
button_#idx# -> pos_x  := 335 
button_#idx# -> picture  := "scrollbtn"


%icon_ids[#idx#] := get_ui_id(icon_#idx#)
icon_#idx# -> text := ""
icon_#idx# -> width := ICON_WIDTH
icon_#idx# -> height := ICON_HEIGHT  
icon_#idx# -> pos_x  := ICON_POS_X 
icon_#idx# -> picture  := "#iconAlbumkapakpng#"


end macro

macro scroll_button_control(#idx#,#Kensismi#,#Baslik#,#mesaj#,#reklam#)
    on ui_control(button_#idx#)
    button_scroll(get_ui_id(button_#idx#))
    textname -> text := "#idx# : " & "#Kensismi# : " & "#Baslik#"
    bilgi -> text := "#idx# : " & "#Baslik#" &"  (#mesaj#)" 
    msj -> picture := "nsj" 
    icon_#idx#:=0   
    end on
    on ui_control(icon_#idx#)
    icon_scroll(get_ui_id(icon_#idx#))
    msj -> picture := "#reklam#"
    bilgi -> text := ""     
    end on        
end macro

function button_scroll(scroll_id)
 if(toggle=0)    
 declare y 
 for y := 0 to num_elements(%BTN_ids) -1
    if(%BTN_ids[y] # scroll_id)
       %BTN_ids[y] -> value := 0
       end if      
 end for
end if
end function
function icon_scroll(icon_id)     
 declare y 
 for y := 0 to num_elements(%icon_ids) -1
    if(%icon_ids[y] # icon_id)
       %icon_ids[y] -> value := 0
       end if      
 end for
end function

on ui_control(scroll)    
    for i := 0 to num_elements(%BTN_ids) - 1
     
        position := scroll - MARGIN_POS_Y + PADDING * i
        %BTN_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %BTN_ids[i] -> hide := HIDE_WHOLE_CONTROL            
        else 
            %BTN_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
    end for
    for i := 0 to num_elements(%icon_ids) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %icon_ids[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %icon_ids[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %icon_ids[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
      for i := 0 to num_elements(%Sayidegeri) - 1     
        position := scroll - MARGIN_POS_Y + PADDING  * i
        %Sayidegeri[i] -> pos_y := position        
        if(position < MAX_Y or position > $SCROLL_HEIGHT )
            %Sayidegeri[i] -> hide := HIDE_WHOLE_CONTROL           
        else 
            %Sayidegeri[i] -> hide := HIDE_PART_NOTHING
        end if
        inc(position)
      end for
end on


function switch_sfx_effect(switch_id)
    declare $i      
    for $i := 0 to num_elements (%ids) -1
        if (%ids[$i] # switch_id)
           %ids[$i] -> VALUE := 0           
        end if        
    end for  
    
end function

on ui_control(glides)
switch_sfx_effect(get_ui_id(glides))
end on 
on ui_control(byhsnk)
switch_sfx_effect(get_ui_id(byhsnk))
end on 
on ui_control(legato)
switch_sfx_effect(get_ui_id(legato))
end on
Thank you brothers
karimpa800 isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla
Cevapla

Tag Ekle
ksp, scripting, scrollbar, sublime, vertical

« önceki Konu | sonraki Konu »
Seçenekler
Stil
Normal Normal

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 (Sublime ) - Audio Spectrum (Animation) Derbeder Kontakt KSP Scripting 0 06-12-2019 12:00
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

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: 14:55

İletişim - KLAVYECÝLER.COM - Arşiv - Kullanım sözleşmesi - Yukarı git

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2026, 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