|
برنامج nsb
مساء الخير
ابي كود لحساب كتلة الجسم في برنامج nsb انا جربته وماتطلع النتيجه صحيحه معي ؟؟ ممكن تستكشفوا معي موقع الخطأ Dim w,t,k Function Button4_onclick() w=CInt(TextBox10.value) t=CInt(TextBox11.value) k=CInt(w/(t*t)) TextBox12.value=k If k<20 Then MsgBox "نحيف " End If If k>=20 & k<=25 Then MsgBox " وزن طبيعي" End If If k > 25 And k<= 30 Then MsgBox "وزن زائد" End If If k > 30 Then MsgBox " سمنة مفرطة" End If End Function Function Button5_onclick() TextBox8.value="" TextBox9.value="" TextBox10.value="" TextBox11.value="" TextBox12.value="" End Function |
| الساعة الآن 04:51 PM. |
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ