تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
للمبتدئين فقط..كيفية عمل برنامج صغير (عداد لحساب الذاكرة المستخدمة بالجهاز)
#1
كاتب الموضوع : egyption-coder

عداد شبيه بذلك الموجود فى الويندوز الفيستا الذى يقوم بحساب الذاكرة المستغلة فى الجهاز
-------------------------------------------------------------------------
ومن الممكن ان نستغل الموضوع لنتعلم كيف نقوم بعمل PIE CHART اعنى ذلك الرسم البيانى
الموجود فى معظم انواع التقارير الذى يتكون من دائرة مقسمة الى قطاعات كل قطاع يمثل بيان من بيانات الداتا بيز
-------------------------------------------------------------------------
اولا سنحتاج الى فورم و نجعل خلفيتها الصورة الموجودة بالمرفقات
نجعل حجم الفورم 132؛140 حتى يتناسب مع الصورة
-------
ثانيا نضيف تايمر للفورم
-------
ثالثا نضيف ليبل ليكون التايمر الديجيتال
-------
فى حدث الفورم لود نضع الكود التالى


كود :
[SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] Form1_Load([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2][color=#0000ff]MyBase[/color][/SIZE][SIZE=2].Load[/SIZE]
[SIZE=2]Timer1.Start()[/SIZE]
[SIZE=2]'لكى نبدأ تشغيل التايمر مع بدء البرنامج[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE]
-----------
فى حدث التايمر تك نضيف الكود الاتى

كود :
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] perfFreeMemory [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] PerformanceCounter([/SIZE][SIZE=2][color=#800000]"Memory"[/color][/SIZE][SIZE=2], _[/SIZE]
[SIZE=2][color=#800000]"Available MBytes"[/color][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]'عرف متغير كعداد للذاكرة المتوفرة[/SIZE]
[SIZE=2]Label1.Text = perfFreeMemory.NextValue [/SIZE]
[SIZE=2][color=#008000]'---------------------نجعل نص اليبل يساوى القيمة التالية للمتغير[/color][/SIZE]
[SIZE=2][color=#008000]'---------------------نضيف المتغيرات الأتية[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] graph [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Drawing.Graphics'متغير من النوع جرافيك لرسم العداد[/SIZE]
[SIZE=2]graph = [/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].CreateGraphics'هذا لكى نتمكن من الرسم على الفورم[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] brush [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Drawing.SolidBrush'متغير من النوع سوليد براش(نوع من اربع انواع متوفرة من الفرش)[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] rect [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Rectangle'مستطيل لنضع الدائرة فى حدوده[/SIZE]
[SIZE=2]brush = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] System.Drawing.SolidBrush(Color.Green)'نحدد لون اساسى للفرشاة[/SIZE]
[SIZE=2][color=#008000]'--------------------------------------[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Angles [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] ArrayList'ارى ليست لنضع بها زاوية القطاع الذى يحدد الذاكرة[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] ang [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Single[/color][/SIZE]
[SIZE=2]Angles.Capacity = 2'لن نحتاج اكثر من هذا هنا[/SIZE]
[SIZE=2]Angles.Add(0)'ساشرح الفكرة لاحقا ان شاء الله[/SIZE]

[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] late [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer'متغيرلحساب الذاكرة المتبقية[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] latetotal [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer'لحساب اجمالى الذاكرة المتوفرة[/color][/SIZE]
[SIZE=2]late = perfFreeMemory.NextValue[/SIZE]
[SIZE=2]latetotal = [/SIZE][SIZE=2][color=#0000ff]My[/color][/SIZE][SIZE=2].Computer.Info.TotalPhysicalMemory \ 1000000'نقسم على 1000000 لكى نجعلها بالميجا بدلا من البايت[/SIZE]
[SIZE=2]ang = (late * 360 \ latetotal)'اذا كان اجمالى زوايا الدائرة يساوى 360 فنحن نجعل اجمالى الذاكرة = 360 و بالمقص نعرف الزاوية المطلوبة للذاكرة المتوفرة[/SIZE]

[SIZE=2]Angles.Add(ang)'نضيف الزاوية الجديدة الى المصفوفة[/SIZE]


[SIZE=2][color=#008000]'-------------------------------------------------------------------------------------------[/color][/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] colors() [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Color = {Color.Aquamarine, Color.Red, Color.Chocolate, Color.Bisque, Color.Blue, Color.Chartreuse, Color.DarkCyan, Color.Coral, Color.Cornsilk, Color.Firebrick, Color.OliveDrab, Color.LawnGreen, Color.SandyBrown, Color.MidnightBlue}'لن نحتاج الى كل هذه الألوان و السبب انى اخذت الكود كوبى من برنامج اخر و لكن ان اردنا انصنع باى شارت فسنحتاج الى كل هذه الأوان و اكثر[/SIZE]

[SIZE=2]rect = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Rectangle(11, 9, 75, 75)'المستطيل او المربع اولا احداثيات المربع ثم الطول و العرض[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] angle [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE]
[SIZE=2][color=#008000]'-----------------------------------------------------------------------------------------[/color][/SIZE]
[SIZE=2][color=#0000ff]For[/color][/SIZE][SIZE=2] angle = 1 [/SIZE][SIZE=2][color=#0000ff]To[/color][/SIZE][SIZE=2] Angles.Count - 1' هذا اللوب لا تظهر فائدته الا اذا زدنا من عدد الزوايا و عدد القطاعات بالدائرة حيث تطرح كل زاوية من التى قبلها لنعرف زاوية القطاع الحالى و يكون هذا مفيدا فى الرسم البيانى[/SIZE]
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] clr [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE]
[SIZE=2]clr = clr + 1[/SIZE]
[SIZE=2][color=#0000ff]If[/color][/SIZE][SIZE=2] clr > colors.GetUpperBound(0) - 1 [/SIZE][SIZE=2][color=#0000ff]Then[/color][/SIZE]
[SIZE=2]clr = 0[/SIZE]
[SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]If[/color][/SIZE]
[SIZE=2]brush.Color = colors(clr)[/SIZE]
[SIZE=2]graph.DrawPie(System.Drawing.Pens.Blue, rect, Angles(angle - 1), Angles(angle) - Angles(angle - 1))'ده علشان نرسم الحدود الخارجية للقطاعات اولا نحدد القلم و لونه ثم المربع الخارجى او الحدود الخارجية للدائرة ثم زاوية القطاع[/SIZE]
[SIZE=2]graph.FillPie(brush, rect, Angles(angle - 1), Angles(angle) - Angles(angle - 1))'هنا لملئ لون القطاع الفرشاة ثم الحدود ثم الزاوية[/SIZE]
[SIZE=2][color=#0000ff]Next[/color][/SIZE]
[SIZE=2][color=#008000]'------------------------------------------------------------------------------------------[/color][/SIZE]
[SIZE=2]graph.DrawEllipse(Pens.Blue, rect)'هنا لرسم الحدود الخارجية للدائرة القلم ثم الحدود الخارجية[/SIZE]
[SIZE=2]graph.DrawEllipse(Pens.Blue, rect)[/SIZE]
و ان شاء الله استكمل الشرح مع شرح عمل الرسم البيانى


الملفات المرفقة
.rar   addad.rar (الحجم : 10.7 ك ب / التحميلات : 69)
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تشغيل برنامج او باتش من خلال كود الفي بي -- الطريقه الاولي RaggiTech 1 2,661 20-12-20, 01:06 AM
آخر رد: سعود
  شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) سعود 5 8,085 04-09-19, 04:32 AM
آخر رد: سعود
  شرح كيفية صنع محرر html واستخدامه كـ dll سعود 6 5,981 26-08-13, 09:21 PM
آخر رد: Sajad
  برنامج تسير المخزون mansourim 4 6,273 14-08-13, 07:40 PM
آخر رد: محمد عبد المنصف
  برنامج انتى فايروس أبوحارث 3 4,329 02-08-13, 10:40 AM
آخر رد: AHMED HUSSIEN
  [ مساعدة ] برنامج للبحث في ملفات الxml بقايا إنسان 0 2,200 05-05-13, 05:59 AM
آخر رد: بقايا إنسان
  كيفية عمل صورة - مدورة - Rouded PictureBox ! RaggiTech 0 2,889 17-10-12, 09:55 PM
آخر رد: RaggiTech
  كيفية عمل String عشوائي ! RaggiTech 0 2,684 17-10-12, 09:54 PM
آخر رد: RaggiTech
  هدية لكل مبرمج-برنامج محادثة متكامل عبر شبكة محلية ( Waeel Chat) للمؤسسات والشركات RaggiTech 0 6,374 17-10-12, 09:37 PM
آخر رد: RaggiTech
  (لعبة الذاكرة Memory Game) لتفهم التعامل مع مصفوفة الادوات RaggiTech 0 2,716 17-10-12, 09:05 PM
آخر رد: RaggiTech

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


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