 |
|
|
||||||
| حاسبكو التعليم المطور ونظام المقررات هذا القسم مخصص لكل ما يتعلق بالتعليم المطور ونظام المقررات |
 |
|
|
أدوات الموضوع | انواع عرض الموضوع |
09-11-2014, 12:03 AM
|
#1 | ||||||||
|
المشرفه على حاسبكو المتنوع
 
|
برنامج 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 |
||||||||
|
|
«
الموضوع السابق
|
الموضوع التالي
»
| يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف) | |
العرض العادي
|
|
الساعة الآن 01:46 AM.
