[سؤال] عمل برنامج لحساب المساحه المتبقيه - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : [سؤال] عمل برنامج لحساب المساحه المتبقيه (/showthread.php?tid=2412) |
عمل برنامج لحساب المساحه المتبقيه - mera - 30-03-14 يعطيكم العافيه جميعا .. حابه اسوي برنامج على الفيجول بيسك من خلاله بئدر احسب المساحه المتبقيه من المساحه الكليه .. المطلوب : 1. أكون ئادره احدد القيمه الكليه 2. واكون ئادره احدد القيمه المستخدمه 3. بعدها يئوم البرنامج بحساب القيمه المتبقيه وحابه يكون الشكل متل شكل drive الموجود في الويندوز .. متل الصوره يلي موجوده بالمرفقات يعني ما بهمني يكون البرنامج يحسب ارقام فقط .. RE: عمل برنامج لحساب المساحه المتبقيه - asto - 31-03-14 في هذا الرابط قائمة الاقراص في لست http://support.microsoft.com/kb/291573 و هذا كود عند الضغط على اللست1 كود : Private Sub List1_Click() كود : Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeDiskspace As Currency, pqwTot As Currency, pqwFree As Currency) As Long و هذا كود التحويل الى ميغا /كيلو/غيغا بدلا عن البايت حيث ال TxtPath هو تكست بوكس و ال TxtPath هو اسمه كود : Private Sub CmdFileSize_Click() RE: عمل برنامج لحساب المساحه المتبقيه - asto - 31-03-14 بقي الرسم ها ضع عدة ليبل فارغة ملتصقة ببعضها مثلا 10 او 20 او 25 أو .......................... 100 و احسب النسبة المئوية للمساحة المستخدمة و اضربها في 10 في حال قررت استخدام 10 ليبل تعطيك عدد الليبل الذي سوف يتغير لون خلفيتها طبعا العدد يجب ان يكون صحيحا RE: عمل برنامج لحساب المساحه المتبقيه - mera - 01-04-14 يعطيك العافيه asto اذا بتئد تسوي على الفيجول بيسك ويكون جاهز بكون ممنونه ^_^ شكرا ... RE: عمل برنامج لحساب المساحه المتبقيه - asto - 01-04-14 تفضلي المثال حيث وضعت 3 لبيل فقط للتعديل اجعليهم اكثر و عدلي qq و ما بعده ضمن كوماند 2 RE: عمل برنامج لحساب المساحه المتبقيه - mera - 03-04-14 شكرا جزيلا ي asto على مجهودك الرائع ^_^ |