+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعدة مشروع عن الوزن المثالي (/showthread.php?tid=2563)
ارجو المساعدة مشروع عن الوزن المثالي - Rodi001 - 14-04-14
- السلام عليكم ورحمة الله وبركاته .
لاهنتوا , انا عندي مشروع عن الوزن المثالي .
وسويت برنامج عن قياس الوزن
فانا عندي مشكلة ومو عارفة كيف ")
احتاج الكود للحساب , وكمان مو عارفة كيف يطلع لي النتيجة ف فورم ثاني
مع النصيحة .
والقاعدة هي = الطول /100 = يضرب الناتج في نفسه × الوزن
يعني مثلاً شخص وزنه 90 كيلوغرام وطوله 188 سم
188 نقسمها على 100= 1.88
1.88 ضرب نفسها 1.88 =3.53
الان نقسم الوزن 90 على 3.53=25.49
اتمنى تكونون فاهمين علي اتمنى تساعدوني لاني لازم اخلص البرنامج قبل يوم الخميس
!
RE: ارجو المساعدة ") . - حريف برمجة - 14-04-14
وعليكم السلام ورحمة الله وبركاته
عملت لك مثال مثل ماطلبتي على اصدار 2010 ،،، اذا ما اشتغل هذا الكود تبعه
ضعي تكست بوكس 1 للوزن
تكست بوكس 2 للطول
تكست بوكس 3 للنتيجة
تكست بوكس 4 للنصيحة
بنفس ترتيب والمسميات السابقة
هذا الكود يوضع في زر كوماند بوتن :
يجب عليك تعديل النصيحة مثل ماتريدين انا وضعت امثلة من عندي .
كود :
Dim result As Decimal = Val(TextBox2.Text / 100)
result = Format(result, "0.00")
result = Val(result) * Val(result)
result = Format(result, "0.00")
result = Val(TextBox1.Text / Val(result))
result = Format(result, "0.00")
TextBox3.Text = result
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'خاص بالنتيجة
If TextBox3.Text > 15 And TextBox3.Text < 20 Then TextBox4.Text = "وزنك مثالي"
If TextBox3.Text > 20 And TextBox3.Text < 25 Then TextBox4.Text = "وزنك زائد"
If TextBox3.Text > 25 And TextBox3.Text < 30 Then TextBox4.Text = "وزنك زائد شوي"
If TextBox3.Text > 30 And TextBox3.Text < 35 Then TextBox4.Text = "وزنك زائد شويتين"
If TextBox3.Text > 35 And TextBox3.Text < 40 Then TextBox4.Text = "وزنك زائد ثلاث شويات"
If TextBox3.Text > 40 And TextBox3.Text < 45 Then TextBox4.Text = "وزنك زائد جدا"RE: ارجو المساعدة ") . - Rodi001 - 14-04-14
اول شيء يعطيك العافية ")
ثاني شيء مم البرنامج انا احاول اخليه يكون بهالشكل ,
http://store2.up-00.com/2014-04/139747166921.png ..
ويناسب مع تصاميمي .
وماضبطت الاكواد معاها ")
RE: ارجو المساعدة ") . - Rodi001 - 14-04-14
& في الفيجوال بيسك .
RE: ارجو المساعدة ") . - Rodi001 - 14-04-14
وهاذي النصيحة ")
أقل من 20 وزنك أقل من الطبيعي .
20 – 25 الوزن المناسب .
25 – 30 وزن فوق الحد الطبيعي .
30 - 39 علامة الخطر بالنسبة للشخص البدين .
أكثر من 40 السمنة المفرطة و ما يصاحبها من مشاكل .
RE: ارجو المساعدة مشروع عن الوزن المثالي - Rodi001 - 14-04-14
رجعت كتبت الاكواد وزينتها بس طلعت لي مشكلة :
اذا شغلت البرنامج وحسبت الوزن والطول , يطلع نحف مرضي
خصوصاً اني غيرت القيم وزدتها ونفس الحكاية يطلع معاي نحف مرضي
http://store2.up-00.com/2014-04/139749146871.jpg
هاذي صورة الكود
والمساله الحسابية غيرتها ,
RE: ارجو المساعدة مشروع عن الوزن المثالي - Sniper.ps - 14-04-14
السلام عليكم ورحمة الله وبركاته
تفضل المثال أخي الكريم
وفقك الله
RE: ارجو المساعدة مشروع عن الوزن المثالي - مها القويفلي - 13-02-19
اااه احتاج احتاج برمجه لحساب الوزن والطول