Jump to content

Autotit-disk Bos Alan Gösterici?degeri Gösterme


lol_lmao

Recommended Posts

#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

EndSwitch
WEnd[/CODE]

Progreslerin yaninda bos alanin rakamsal degerini de nasil gösterebilirim.Simdiden tesekkurler :D

Link to comment
Share on other sites

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

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

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

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

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...