يعطيكم العافيه جميعا ..
حابه اسوي برنامج على الفيجول بيسك من خلاله بئدر احسب المساحه المتبقيه من المساحه الكليه ..
المطلوب :
1. أكون ئادره احدد القيمه الكليه
2. واكون ئادره احدد القيمه المستخدمه
3. بعدها يئوم البرنامج بحساب القيمه المتبقيه وحابه يكون الشكل متل شكل drive الموجود
في الويندوز ..
متل الصوره يلي موجوده بالمرفقات
يعني ما بهمني يكون البرنامج يحسب ارقام فقط ..
في هذا الرابط قائمة الاقراص في لست
http://support.microsoft.com/kb/291573
و هذا كود عند الضغط على اللست1
كود :
Private Sub List1_Click()
i = List1.ListIndex
Text1.Text = List1.List(i)
End Sub
و هذا كود الحساب عدله
كود :
Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeDiskspace As Currency, pqwTot As Currency, pqwFree As Currency) As Long
Private Sub Form_Load()
Dim FreeDiskspace As Currency, Tot As Currency, Free As Currency
SHGetDiskFreeSpace text1.text, FreeDiskspace, Tot, Free
MsgBox "Free Disk space is: " + Format$(FreeDiskspace * 10000, "###,###,###,##0") + vbCrLf + _
"Total Disk space: " + Format$(Tot * 10000, "###,###,###,##0") + vbCrLf + _
"Free space: " + Format$(Free * 10000, "###,###,###,##0") + vbCrLf + _
"Used Space: " + Format$(Tot * 10000 - Free * 10000, "###,###,###,##0")
End Sub
و هذا كود التحويل الى ميغا /كيلو/غيغا بدلا عن البايت حيث ال TxtPath هو تكست بوكس و ال TxtPath هو اسمه
كود :
Private Sub CmdFileSize_Click()
Dim LonSize As Long
Dim StrSize As String
LonSize = FileLen(TxtPath)
If LonSize >= (1024 ^ 3) Then
StrSize = Str(Format(LonSize / (1024 ^ 3), "###0.00")) & " GB"
ElseIf LonSize >= (1024 ^ 2) Then
StrSize = Str(Format(LonSize / (1024 ^ 2), "###0.00")) & " MB"
ElseIf LonSize >= 1024 Then
StrSize = Str(Format(LonSize / 1024, "###0.00")) & " KB"
ElseIf LonSize >= 0 Then
StrSize = Str(LonSize) & " B"
End If
MsgBox StrSize
End Sub
بقي الرسم ها ضع عدة ليبل فارغة ملتصقة ببعضها مثلا 10 او 20 او 25 أو .......................... 100 و احسب النسبة المئوية للمساحة المستخدمة و اضربها في 10 في حال قررت استخدام 10 ليبل تعطيك عدد الليبل الذي سوف يتغير لون خلفيتها طبعا العدد يجب ان يكون صحيحا
يعطيك العافيه asto
اذا بتئد تسوي على الفيجول بيسك ويكون جاهز بكون ممنونه ^_^
شكرا ...
تفضلي المثال حيث وضعت 3 لبيل فقط
للتعديل اجعليهم اكثر و عدلي qq و ما بعده ضمن كوماند 2
شكرا جزيلا ي asto على مجهودك الرائع ^_^