تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة مشروع عن الوزن المثالي
#1
- السلام عليكم ورحمة الله وبركاته .


لاهنتوا , انا عندي مشروع عن الوزن المثالي .

وسويت برنامج عن قياس الوزن

فانا عندي مشكلة ومو عارفة كيف ")

احتاج الكود للحساب , وكمان مو عارفة كيف يطلع لي النتيجة ف فورم ثاني
مع النصيحة .

والقاعدة هي = الطول /100 = يضرب الناتج في نفسه × الوزن

يعني مثلاً شخص وزنه 90 كيلوغرام وطوله 188 سم
188 نقسمها على 100= 1.88
1.88 ضرب نفسها 1.88 =3.53
الان نقسم الوزن 90 على 3.53=25.49


اتمنى تكونون فاهمين علي اتمنى تساعدوني لاني لازم اخلص البرنامج قبل يوم الخميس Sad!
الرد
تم الشكر بواسطة: اسامه الهرماوي
#2
وعليكم السلام ورحمة الله وبركاته

عملت لك مثال مثل ماطلبتي على اصدار 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 = "وزنك زائد جدا"


الملفات المرفقة
.rar   Rodi001.rar (الحجم : 79.14 ك ب / التحميلات : 163)
الرد
تم الشكر بواسطة: Rodi001
#3
اول شيء يعطيك العافية ")

ثاني شيء مم البرنامج انا احاول اخليه يكون بهالشكل ,

http://store2.up-00.com/2014-04/139747166921.png ..

ويناسب مع تصاميمي .

وماضبطت الاكواد معاها ")
الرد
تم الشكر بواسطة:
#4
& في الفيجوال بيسك .
الرد
تم الشكر بواسطة:
#5
وهاذي النصيحة ")

أقل من 20 وزنك أقل من الطبيعي .
20 – 25 الوزن المناسب .
25 – 30 وزن فوق الحد الطبيعي .
30 - 39 علامة الخطر بالنسبة للشخص البدين .
أكثر من 40 السمنة المفرطة و ما يصاحبها من مشاكل .
الرد
تم الشكر بواسطة:
#6
رجعت كتبت الاكواد وزينتها بس طلعت لي مشكلة :

اذا شغلت البرنامج وحسبت الوزن والطول , يطلع نحف مرضي
خصوصاً اني غيرت القيم وزدتها ونفس الحكاية يطلع معاي نحف مرضي

http://store2.up-00.com/2014-04/139749146871.jpg

هاذي صورة الكود

والمساله الحسابية غيرتها ,
الرد
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

تفضل المثال أخي الكريم

وفقك الله


الملفات المرفقة
.rar   Perfect Mass Calculator.rar (الحجم : 63.18 ك ب / التحميلات : 200)
الرد
تم الشكر بواسطة: Sajad , Rodi001
#8
اااه احتاج احتاج برمجه لحساب الوزن والطول
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود بحث المشكله لم تنحل ارجو المساعده mostafa12 4 141 17-10-19, 02:10 PM
آخر رد: mostafa12
Exclamation ارجو المساعده على زهران 2 85 08-10-19, 11:12 PM
آخر رد: على زهران
  [ تمّ الحل ] : الوزن المثالي عبد العزيز البسكري 9 244 03-10-19, 09:00 PM
آخر رد: asemshahen5
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 7 158 02-10-19, 10:21 PM
آخر رد: asemshahen5
  [VB.NET] تحديث مشروع فيجوال بيسيك بعد توزيعه على المستخدمين عبر الانترنت khairallah 1 95 01-10-19, 11:30 PM
آخر رد: asemshahen5
  [VB.NET] ارسال رسائل sms من خلال مشروع فيجوال بيسك بلغة لvb.net khairallah 2 182 30-09-19, 10:26 AM
آخر رد: mostafa12
  [سؤال] ارجو المساعده فى خطأ فى الجمله الشرطيه على زهران 4 143 16-09-19, 11:57 PM
آخر رد: يونس علي
Tongue [VB.NET] محتاج كود تغير الاي بي أو مشروع aldery 5 194 11-09-19, 04:02 AM
آخر رد: transavia
Tongue [VB.NET] ارجو المساعده في طباعه تقرير كريستال ريبورت؟؟!!!! elnfsyamstwya 5 172 06-09-19, 03:52 AM
آخر رد: elnfsyamstwya
  مشكلة غريبة مع كود تقسيم النص ارجو المساعدة dametucorazon 2 132 05-09-19, 07:24 PM
آخر رد: dametucorazon

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


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