KSP Code : Zaman sayacı (Genellikle Demo Sürümlerde Kullanılıyor)

[Derbeder]

on init 
	make_perfview
	set_ui_height_px(250)
	set_ui_color(22)
    message("Demo Projedir : Full dosya www.xxx.com sitesinden alabilirsiniz!")
    declare start
    
    declare ui_label labellad (1, 2)
	labellad -> text := "BYHSNK"
	labellad -> width := 624
	labellad -> height := 246	
	labellad -> text_alignment :=1
	labellad -> textpos_y := 20
	move_control_px(labellad, 5, 0)

	declare ui_label SOLOSTRINGS (1, 2)
	SOLOSTRINGS -> text := "Solo-Strings v2.0 (Demo Version)"
	SOLOSTRINGS -> width := 624
	SOLOSTRINGS -> height := 246	
	SOLOSTRINGS -> text_alignment :=1
	SOLOSTRINGS -> textpos_y := 35
	move_control_px(SOLOSTRINGS, 5, 0)

	declare ui_label full (1, 2)
	full -> text := "Full olarak almak isteyenler youtube kanalimda yorumlara yazarak belirtebilirsiniz?"
	full -> width := 624
	full -> height := 246	
	full -> text_alignment :=1
	full -> textpos_y := 50
	move_control_px(full, 5, 0)

	declare ui_label tanitim (1, 2)
	tanitim -> text := "Sesler tanitimin bir parcasi degildir - Scripti tanitmak amaclidir..."
	tanitim -> width := 624
	tanitim -> height := 246	
	tanitim -> text_alignment :=1
	tanitim -> textpos_y := 65
	move_control_px(tanitim, 5, 0)

	declare ui_label proje (1, 2)
	proje -> text := "Özel proje satisi yapmak isteyenler icinde yorumlara yazabilirsiniz.."
	proje -> width := 624
	proje -> height := 246	
	proje -> text_alignment :=1
	proje -> textpos_y := 180
	move_control_px(proje, 5, 0)

	declare ui_label labell (1, 2)
	labell -> text := "Demo Timeout"
	labell -> width := 624
	labell -> height := 246	
	labell -> text_alignment :=1
	labell -> textpos_y := 100
	move_control_px(labell, 5, 0)

	declare ui_slider $Test_saniyem(0, 59)
	Test_saniyem -> text :=""
	Test_saniyem -> width :=200
	Test_saniyem -> height :=50
	Test_saniyem -> pos_x :=216
	Test_saniyem -> pos_y :=95
	Test_saniyem -> picture :="timeout2"
	move_control_px(Test_saniyem,216, 95)

 
	declare ui_switch Instruments
	Instruments -> text := "Deneme"
	Instruments -> text_alignment :=1
	
   move_control(Instruments,0, 0)

	declare $direction_saniyem
	declare $tick_counter
	set_listener($NI_SIGNAL_TIMER_MS, 10000)
end on
on listener 
	if($NI_SIGNAL_TYPE = $NI_SIGNAL_TIMER_MS)
		if($direction_saniyem = 0)
			inc($tick_counter)
            start :=1
			else 
			dec($tick_counter)		
		end if
		$Test_saniyem := $tick_counter        
		if($tick_counter = 59)
		$direction_saniyem :=0
			if(start=1)
			move_control_px(Instruments,275, 155) 			
		    end if
		end if            
	end if
end on
on ui_control(Instruments)
Instruments := 0
move_control(labell,0,0)
move_control(Test_saniyem,0,0)
move_control(Instruments,0, 0)
end on