منتدى شنواى



 
الرئيسيةمجلة شنواىاليوميةمكتبة الصورس .و .جبحـثالمجموعاتالتسجيلدخول

شاطر | 
 

 مذكرة الحاسب الالى الاول الثانوى

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


الساعة الآن بتوقيت شنواى :
انثى
عدد المساهمات : 313
نقاط : 855
تاريخ التسجيل : 16/04/2013

مُساهمةموضوع: مذكرة الحاسب الالى الاول الثانوى   الإثنين 29 أبريل 2013 - 14:42

مذكرة الحاسب الالى الاول الثانوى
Public Class Form1
Private Sub Button1_Click4
Dim EN As Single
Dim t As String
EN = Val(TextBox1.Text)
t = ""
If EN > 100 Or EN < 0 Then

Exit Sub
End If
If EN >= 90 Then t = " ز!"# "
If EN >= 75 And EN < 90 Then t = " "
If EN >= 65 And EN < 75 Then t = "
If EN >= 50 And EN < 65 Then t = " ل&'( "
If EN < 50 Then t = ")$*"
Label3.Text = t
End Sub
----------------------------------------------------------------
Private Sub Button2_Click
End
End Sub
----------------------------------------------------------------
End Class





) نكتب الكود التالي +$" Button1_Click = في الحدث
Dim EN As Single
Dim t As String
String ونوعه t والأخر Single ونوعه EN يقوم بتعريف متغيرين وهم
EN = Val(TextBox1.Text)
Val بعد تحويلها إلى قيمة عددية باستخدام الدالة EN في المتغير TextBox1.Text نقوم بوضع قيمة
t = ""
t نقوم بوضع قيمة صفرية في المتغير
If EN > 100 Or EN < 0 Then
اكبر من ١٠٠ أو اصغر من صفر إذن EN ١ ) إذا كانت قيمة
" ٢) اظهر رسالة تقول"ادخل الدرجة بين 0 و 100
Exit Sub
٣) ثم قم بإنهاء الكود
End If
٤) نهاية الجملة الشرطية
٤ للتاكد من ان القيمة صحيحة : * الجملة الشرطية من ١
( ٩ )
If EN >= 90 Then t =
كلمة " ممتاز " . t اكبر من أو تساوي ٩٠ ضع في المتغير الحرفي EN إذا كانت قيمة المتغير
If EN >= 75 And EN < 90 Then t = " "
كلمة " جيد جدُا " . t اكبر من أو تساوي ٧٥ و أقل من ٩٠ ضع في المتغير الحرفي EN إذا كانت قيمة المتغير
If EN >= 65 And EN < 75 Then t =
كلمة " جيد " . t اكبر من أو تساوي ٦٥ و أقل من ٧٥ ضع في المتغير الحرفي EN إذا كانت قيمة المتغير
If EN >= 50 And EN < 65 Then t = " ل&'( "
كلمة " مقبول " . t اكبر من أو تساوي ٥٠ و أقل من ٦٥ ضع في المتغير الحرفي EN إذا كانت قيمة المتغير
If EN < 50 Then t = ")$*"
كلمة " ضعيف " . t أقل من ٥٠ ضع في المتغير الحرفي EN إذا كانت قيمة المتغير
Label3.Text = t
Label3.Text في t نقوم بوضع قيمة المتغير
----------------------------------------------------------------
وج ) نكتب الكود التالي - زر ا   ) Button2_Click = في الحدث
End
نقوم بالخروج من البرنامج
----------------------------------------
الرجوع الى أعلى الصفحة اذهب الى الأسفل
جومانة
عضو vip
عضو vip


الساعة الآن بتوقيت شنواى :
انثى
عدد المساهمات : 2649
نقاط : 2810
تاريخ التسجيل : 02/11/2009

مُساهمةموضوع: رد: مذكرة الحاسب الالى الاول الثانوى   الإثنين 16 ديسمبر 2013 - 18:57

الله يـع’ـــطــيك الع’ــاأإأفــيه ..
.. بنتظـأإأإأر ج’ـــديــــدك الممـــيز ..
.. تقــبل م’ـــروري ..
الرجوع الى أعلى الصفحة اذهب الى الأسفل
sayedabdaal
عضو جديد
عضو جديد


الساعة الآن بتوقيت شنواى :
ذكر
عدد المساهمات : 6
نقاط : 6
تاريخ التسجيل : 20/07/2013
العمر : 63

مُساهمةموضوع: رد: مذكرة الحاسب الالى الاول الثانوى   السبت 12 أبريل 2014 - 16:57

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


الساعة الآن بتوقيت شنواى :
ذكر
عدد المساهمات : 6
نقاط : 6
تاريخ التسجيل : 20/07/2013
العمر : 63

مُساهمةموضوع: رد: مذكرة الحاسب الالى الاول الثانوى   السبت 12 أبريل 2014 - 17:00

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


الساعة الآن بتوقيت شنواى :
انثى
عدد المساهمات : 4
نقاط : 4
تاريخ التسجيل : 20/04/2013
العمر : 53

مُساهمةموضوع: رد: مذكرة الحاسب الالى الاول الثانوى   الخميس 5 مارس 2015 - 10:49

جيد
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
مذكرة الحاسب الالى الاول الثانوى
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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