منتدى باعرام

منتدى خاص يجمع بين التعارف واخذ المعرفة
 
الرئيسيةالبوابةالتسجيلدخول

ترحب ادارة المنتدى بجميع الاعضاء المشاركين في المنتدى

وتتمنى لهم الحصول على كل مايتمنونه وكل مايلبي طلباتهم

                                (إدارة المنتدى )

تصويت
مارايك في المنتدى
 ممتاز
 جيد جداً
 متوسط
استعرض النتائج
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» وظيفة شاغرة في شركة في مجال الاجهزة الكهربائية بمكة المكرمة
الإثنين أغسطس 12, 2013 9:47 pm من طرف 

» مشاري العرادة (انشودة صلى عليك الله ياسيد الاكوان)
الأربعاء فبراير 13, 2013 9:31 am من طرف 

» يارفيقي ( رائعة مشاري العراده و أحمد الهاجري
الأربعاء فبراير 13, 2013 9:16 am من طرف 

» اهداء الى كل صديقين متحابين في الله
الأربعاء فبراير 13, 2013 9:02 am من طرف 

»  الآن من هنا النتائج النصفية لمدارس مديرية حريضة
الإثنين فبراير 11, 2013 2:15 am من طرف سليمان الأهدل

» نظام إدارة الحسابات الخيرية
الخميس ديسمبر 20, 2012 10:15 pm من طرف سليمان الأهدل

» مبرمج تحت الطلب
الخميس ديسمبر 20, 2012 10:07 pm من طرف سليمان الأهدل

» قصيدة جديدة بعنوان عشق حريضه
الخميس نوفمبر 22, 2012 12:29 am من طرف الشاعر محمد سعيد باعرام

» جديد هاني دعكيك و ماجد التريمي ابو حسان
الجمعة أكتوبر 12, 2012 8:42 pm من طرف الشاعر هاني دعكيك

شات المنتدى
للدخول الى المحادثة الفورية انقر هنا
او انقر هنا
لمشاهدة اي مكان بالعالم
لمشاهدة اي مكان في العالم انقر هنا
تصفح القرآن الكريم
تصفح القرآن الكريم بكل سهولة ويسر من هنا


منتدى باعرام يرحب بك وهذه الرسالة تفيد أنك غير مسجل .

و يسعدنا كثيرا انضمامك لنا ...

للتسجيل اضغط هـنـا

دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر

شاطر | 
 

 برنامج لمعرفة النتیجة

اذهب الى الأسفل 
كاتب الموضوعرسالة
سليمان الأهدل

avatar

عدد المساهمات : 31
نقاط : 85
تاريخ التسجيل : 21/03/2012
العمر : 39

مُساهمةموضوع: برنامج لمعرفة النتیجة    الثلاثاء مارس 27, 2012 11:57 pm

برنامج لمعرفة النتیجة . افتح مشروع جديد قیاسي ثم ضع علیه مايلي :
وقم بمسح كل ما Command زر أمر 1 ، Label أداة عنوان 1 ، Text صندوق نص 1
: Form_Load تحويه أداة العنوان وصندوق النص. ضع الكود الآتي في الحدث
Private Sub Form_Load()
Command1.Enabled = False
End Sub
: Text1_Change والكود الآتي بالحدث
Private Sub Text1_Change()
Command1.Enabled = True
If Val(Text1) = 0 Then Command1.Enabled = False: Label1 = ""
End Sub
: Text1_Keypress(KeyAscii As Integer) والكود الآتي في الحدث
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
KeyAscii = 0
End If
End Sub
والكود الآتي للزر :
Private Sub Command1_Click()
If Val(Text1) > 0 And Val(Text1) <= 25 Then
Label "ضعیف" = 1
ElseIf Val(Text1) > 25 And Val(Text1) <= 50 Then
Label "جید" = 1
ElseIf Val(Text1) > 50 And Val(Text1) <= 75 Then
Label "وسط" = 1
ElseIf Val(Text1) > 75 And Val(Text1) <= 100 Then
Label "ممتاز" = 1
ElseIf Val(Text1) > 100 Then
Label1 = " "لا تدخل رقما أعلى من ١٠٠
End If
End Sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://www.facebook.com/suliman.alahdal




نقاط : 0
تاريخ التسجيل : 01/01/1970

مُساهمةموضوع: رد برنامج لمعرفة النتيجة   الأربعاء مارس 28, 2012 1:54 am

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

avatar

عدد المساهمات : 31
نقاط : 85
تاريخ التسجيل : 21/03/2012
العمر : 39

مُساهمةموضوع: رد: برنامج لمعرفة النتیجة    الأربعاء مارس 28, 2012 2:25 am

إإذا تسنت لي الفرصة انشاء الله أقوم بشرح بعض البرامج
و رفع مشارع جاهزة مفتوحة المصدر , يمكن التعديل عليها و التعلم منها
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://www.facebook.com/suliman.alahdal
 
برنامج لمعرفة النتیجة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى باعرام :: منتديات باعرام :: منتدى البرمجة-
انتقل الى: