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

مذكرة الحاسب الالى الاول الثانوى
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
نقوم بالخروج من البرنامج
----------------------------------------

الله يـع’ـــطــيك الع’ــاأإأفــيه ..
.. بنتظـأإأإأر ج’ـــديــــدك الممـــيز ..
.. تقــبل م’ـــروري ..

مشكورين علس هذه الاعمال القيمة والممتازة

للاسف قمت بالرد مرتين ولم اعثر علي مكان التحميل

جيد

ازاى احمل المذكره من الموقع

رائع

» مذكرة العلياء فى الحاسب الالى للصف الثالث الاعدادى الفصل الدراسى الثانى - ملزمة العلياء فى الحاسب الالى لثالثة اعدادى الترم الثانى
» مذكرة الحاسب الآلى الاول الثانوى ترم ثانى
» تحميل مذكرة الأول فى الحاسب الآلى الصف الاول الثانوى رابط مباشر
» تحميل مذكرة المنهاج فى النصوص الصف الاول الثانوى الترم الاول
» تحميل مذكرة الأول فى القراءة الصف الاول الثانوى الترم الاول