+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=13732)
مشروع حاسب ضروري - منى 555 - 06-11-15
مشروع حاسب وودي اسلمه يوم الاحد هو عن الوزن المثالي بس عندي مشكلة الكود
.. BMI بحيث يدخل المستخدم وزنه وطوله ثم يتم حساب
ولحساب bmi= الوزن بالكيلو غرام / ( الطول بالمتر )2 فإن كانت كتلة الجسم
أقل من 20
فإن الوزن ناقص والشخص ضعيف
20-25
20-25
فإن الوزن طبيعي
26-30
فإن هناك زيادة في الوزن
31-35
بدانه درجة اولى
36-40
بدانه درجة ثانيه
أكثر من 40
بدانه شديدة
بس كذا ارجوا المساعدة في الكود
بحيث اني رسمت 4 تيكست بوكس و 1 بوتون
وشكرا جزيلا للي راح يساعدني
26-30
فإن هناك زيادة في الوزن
31-35
بدانه درجة اولى
36-40
بدانه درجة ثانيه
أكثر من 40
بدانه شديدة
بس كذا ارجوا المساعدة في الكود
بحيث اني رسمت 4 تيكست بوكس و 1 بوتون
وشكرا جزيلا للي راح يساعدني
RE: مشروع حاسب ضروري - أبو عمر - 06-11-15
PHP كود :
TextBox3.Text=Val(TextBox1.text)/ (val(TextBox2.text)*2)
Select Case TextBox3.Text
Case 0 to 20
TextBox4.Text="نحفيف جداً "
Case 21 to 25
TextBox4.text="طبيعي"
Case 26 to 30
TextBox4.text="زيادة في الوز"
case 31 to 35
TextBox4.text="بدانة درجة أولى"
Case 36 to 40
TextBox4.text="بدانة درجة ثانية"
Case >41
TextBox4.text="بدانةشديدة"
end select
RE: مشروع حاسب ضروري - منى 555 - 07-11-15
شكرا لك <3