lol_lmao Posted April 10, 2009 Share Posted April 10, 2009 #include <GUIConstantsEx.au3>#include <ProgressConstants.au3>#include <WindowsConstants.au3>$gui = GUICreate("Bos Alan Gösterici", 627, 443, 192, 124)$path1 = "C:\"$path2 = "D:\"$path3 = "E:\"$spacefree1 = DriveSpaceFree($path1)$totalspace1 = DriveSpaceTotal($path1)$spacefree2 = DriveSpaceFree($path2)$totalspace2 = DriveSpaceTotal($path2)$spacefree3 = DriveSpaceFree($path3)$totalspace3 = DriveSpaceTotal($path3)$com1 = ($spacefree1/$totalspace1)*100$com2 = ($spacefree2/$totalspace2)*100$com3 = ($spacefree3/$totalspace3)*100$prog1 = GUICtrlCreateProgress(152, 32, 190, 17)$prog2 = GUICtrlCreateProgress(160, 80, 198, 17)$prog3 = GUICtrlCreateProgress(160, 128, 198, 17)$Label1 = GUICtrlCreateLabel("C Sürücü Bos Alan:", 24, 32, 114, 17)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")$Label2 = GUICtrlCreateLabel("D Sürücü Bos Alan:", 24, 80, 115, 17)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")$Label3 = GUICtrlCreateLabel("E Sürücüsü Bos Alan:", 24, 128, 127, 17)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")$show1 = GUICtrlSetData($prog1,$com1)$show2 = GUICtrlSetData($prog2,$com2)$show3 = GUICtrlSetData($prog3,$com3)GUISetState(@SW_SHOW)While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitchWEnd[/CODE]Progreslerin yaninda bos alanin rakamsal degerini de nasil gösterebilirim.Simdiden tesekkurler Link to comment Share on other sites More sharing options...
lol_lmao Posted April 10, 2009 Author Share Posted April 10, 2009 ya nasıl editlcem daha anca bu kadar iste :S Link to comment Share on other sites More sharing options...
morning Posted April 10, 2009 Share Posted April 10, 2009 E label oluşturursun text bölümüne $com1,$com2,$com3 olarak değer verirsin.Örnek: $Labelx = GUICtrlCreateLabel($com1, 24, 128, 127, 17)[/CODE] gibi.Yüzde de olsun dersen, AutoIt'te 2 değişkeni birleştirmek için & karakteri kullanılır.Onun örneği: [CODE]$Labelx = GUICtrlCreateLabel("%" & $com1, 24, 128, 127, 17)[/CODE] Link to comment Share on other sites More sharing options...
MostWanted Posted April 10, 2009 Share Posted April 10, 2009 Yalnız öyle çok küsüratla çıkar ortaya şöyle yaparsa daha iyi olur diye düşünüyorum.. $sonuc = StringLeft($com3, 4)$Labelx = GUICtrlCreateLabel("%" & $sonuc, 24, 128, 127, 17)[/CODE] Saygılarımla..[/font][/b] Link to comment Share on other sites More sharing options...
morning Posted April 11, 2009 Share Posted April 11, 2009 Yalnız öyle çok küsüratla çıkar ortaya şöyle yaparsa daha iyi olur diye düşünüyorum.. $sonuc = StringLeft($com3, 4) $Labelx = GUICtrlCreateLabel("%" & $sonuc, 24, 128, 127, 17)[/CODE] Saygılarımla..[/font][/b] Aslında burda StringLeft yerine Int daha uygun bence,tamsayıya çeviriyor çünkü. [CODE]$Labelx = GUICtrlCreateLabel("%" & Int($com3), 24, 128, 127, 17)[/CODE] Ekstradan değişken oluşturmaya da gerek yok. Link to comment Share on other sites More sharing options...
MostWanted Posted April 11, 2009 Share Posted April 11, 2009 Aslında burda StringLeft yerine Int daha uygun bence,tamsayıya çeviriyor çünkü. $Labelx = GUICtrlCreateLabel("%" & Int($com3), 24, 128, 127, 17)[/CODE] Ekstradan değişken oluşturmaya da gerek yok. [b][font=arial] [CODE]$Labelx = GUICtrlCreateLabel("%" &StringLeft($com3, 4) , 24, 128, 127, 17)[/CODE] Ekstradan değişken oluşturulmamış hali İstesen de istemesende bunu yapacksın senin yaptığında değişkeni bir satırda yazdın ben sadece 2 satırda yazdım. String left komutunu kullanmam belki virgülden sonrasını da göstermek ister diye düşündüm.Aslında AMS olsaydı çok daha kaliteli çözümlerim olurdu ama Autoit in fonksiyonlarını yavaş yavaş öğreniyorum [/font][/b] Link to comment Share on other sites More sharing options...
lol_lmao Posted April 11, 2009 Author Share Posted April 11, 2009 İlginiz için ikinize de cok tesekkür ederim. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.