تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عمل برنامج لحساب المساحه المتبقيه
#1
يعطيكم العافيه جميعا ..

حابه اسوي برنامج على الفيجول بيسك من خلاله بئدر احسب المساحه المتبقيه من المساحه الكليه ..

المطلوب :
1. أكون ئادره احدد القيمه الكليه
2. واكون ئادره احدد القيمه المستخدمه
3. بعدها يئوم البرنامج بحساب القيمه المتبقيه وحابه يكون الشكل متل شكل drive الموجود
في الويندوز ..

متل الصوره يلي موجوده بالمرفقات

يعني ما بهمني يكون البرنامج يحسب ارقام فقط ..

الرد }}}}
تم الشكر بواسطة:
#2
في هذا الرابط قائمة الاقراص في لست

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
الرد }}}}
تم الشكر بواسطة:
#3
بقي الرسم ها ضع عدة ليبل فارغة ملتصقة ببعضها مثلا 10 او 20 او 25 أو .......................... 100 و احسب النسبة المئوية للمساحة المستخدمة و اضربها في 10 في حال قررت استخدام 10 ليبل تعطيك عدد الليبل الذي سوف يتغير لون خلفيتها طبعا العدد يجب ان يكون صحيحا
الرد }}}}
تم الشكر بواسطة: mera
#4
يعطيك العافيه asto

اذا بتئد تسوي على الفيجول بيسك ويكون جاهز بكون ممنونه ^_^

شكرا ...
الرد }}}}
تم الشكر بواسطة:
#5
تفضلي المثال حيث وضعت 3 لبيل فقط

للتعديل اجعليهم اكثر و عدلي qq و ما بعده ضمن كوماند 2


الملفات المرفقة
.rar   مجلد جديد (3).rar (الحجم : 2.56 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة: mera
#6
شكرا جزيلا ي asto على مجهودك الرائع ^_^
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 54 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] احتاج مساعده في برنامج موعد الحضور والانصراف mera 6 307 30-11-16, 10:59 PM
آخر رد: فاطمة غ
  برنامج فجوال ستوديو 6 اسلام الكبابى 5 139 05-11-16, 11:10 PM
آخر رد: اسلام الكبابى
  برنامج القسمة المطولة احمداحمداحمد6 1 79 30-10-16, 01:22 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 86 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف يمكن إدراج مسار الصورة في التكس بوكس في برنامج المرفق ؟؟ Microformt 1 131 01-10-16, 06:25 PM
آخر رد: Amir_alzubidy
  مساعدة فى عمل برنامج بسيط hithemlion 23 607 27-09-16, 05:22 PM
آخر رد: Amir_alzubidy
  [vb6.0] طلب تعديل على برنامج iisys 21 584 23-09-16, 03:03 PM
آخر رد: iisys
  اريد برنامج لتعلم الحروف الانجليزية عبدالله الجذيلات 0 110 04-08-16, 03:01 PM
آخر رد: عبدالله الجذيلات
  [vb6.0] كيف ثم انشاء هدا برنامج ثم اضافة شكل khalidweb 7 264 18-06-16, 04:04 PM
آخر رد: khalidweb

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم