إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...

انضم الينا
استراحات زايد الصفحة الرئيسية

         :: شركة تنظيف مكيفات بالدمام (آخر رد :العنود جابر)       :: شركة تركيب كاميرات مراقبة بينبع (آخر رد :rwnaa_1)       :: المنصات عبر الإنترنت من التقنيات المبتكرة (آخر رد :اسماعيل رضا)       :: برامج الحفظ عبر الإنترنت المرونة (آخر رد :اسماعيل رضا)       :: تطبيق كليك كاش click cash (آخر رد :جاسم الماهر)       :: متجر ساكورا للهدايا: تمتع بتجربة تسوق استثنائية (آخر رد :نادية معلم)       :: التداول والأسهم: دليل شامل لعالم الاستثمار (آخر رد :محمد العوضي)       :: برامج الرشاقة السعيدة (آخر رد :دارين الدوسري)       :: التسجيل في الضمان المطور: خطوة بسيطة نحو مستقبل آمن (آخر رد :مصطفيي)       :: دراسة جدوى حناء: استثمار مربح في عالم الزراعة (آخر رد :مصطفيي)      

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 11-23-2019, 05:50 PM
عضو ماسي
بيانات محروم.كوم
 رقم العضوية : 503
 تاريخ التسجيل : Dec 2007
الجنس : female
علم الدوله :
 المشاركات : 2,100,613
عدد الـنقاط :3341
 تقييم المستوى : 2139

<div>



السلام عليكم جميعا

لوسمحتم في هذا المثال نجد مستوى الفئة حسب الدرجة التي تبدأ من درجة 50 وتنتهي بدرجة 100 حيث توزع الفئات
( صفر الى 50) ==> الفئة Fail
(50 الى 59) ==> الفئة Weak
(60 الى 69) ==> الفئة Satisfactory
(70 الى 79) ==> الفئة Good
(80 الى 89) ==> الفئة Very Good
(90 الى 100) ==> الفئة Excellent


Private Sub Command1_Click()
Dim m As Integer
m = Val(Text1.Text)

If m < 50 Then
Label1.Caption = "FAIL"

ElseIf m < 59 Then
Label1.Caption = "WEAK"

ElseIf m < 69 Then
Label1.Caption = "Satisfactory"

ElseIf m < 79 Then
Label1.Caption = "GOOD"

ElseIf m < 89 Then
Label1.Caption = "V-Good"

ElseIf m < 100 Then
Label1.Caption = "EXCELLENT"
End If
End Sub


https://ibb.co/8KC2jfL

والسؤال ماهي الطريقة او الصيغة لعدم وضع قيمة او القيمة قبل الصفر وفوق 100 غير مقبولة او لاتدخل مجل القيم المسموح بها





__DEFINE_LIKE_SHARE__
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة


المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
[ شنط ] افضل انواع شنط السفر 2019,احدث شنط السفر 2019,ارخص اسعار شنط السفر 2019 بوابة الصين العربية بيع و شراء و عروض التجارية 15 11-24-2019 07:38 AM
خدمة خاصة لاعضاء مكشات بدون تكاليف اضافية فقط القيمة الفعلية + قيمة الشحن محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 10-25-2015 10:11 AM
دعاء السفر - اذكار السفر - دعاء الرجوع من السفر - دعاء ركوب السيارة او وسيلة السفر محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 04-12-2012 05:20 PM
نسيج | توبلي | #bahrain وضع باقة ورد من قبل الشيعة لأخوانهم السنة على محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 03-22-2012 01:40 PM
نسيج | توبلي | #bahrain وضع باقة ورد من قبل الشيعة لأخوانهم السنة على محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 03-22-2012 01:20 PM


الساعة الآن 02:57 AM


Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.5.2 TranZ By Almuhajir

RSS RSS 2.0 XML MAP HTML