|
||||||
| أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
|
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
|
|
#1
29-10-2012, 06:55 PM
|
|||
|
|||
اقتباس:
الملحوظة الأولي علامة ال = 1- تستخدم كعلامة تخصيص بمعنى قيمة الجزء الأيمن يخزن في متغير او ثابت أو خاصية الجزء الإيسر مثل "name ="nada 2- تستخدم كعلامة مقارنة أي أحد مفردات الشرط مثل كمثال If Degree = TextBox1.Text Then في هذة الحالة لا يخصص قيمة الخاصية Text للمتغير Degree وانما يختبر تساوى قيمة كل منهما الملحوظة الثانية If Isnumeric (Me.TextBox1.Text ) Then عبارة عن اختبار هل القيمة الحالية للخاصية Text تنفع تبقى رقمية في حالة True ينفذ ما يلي Then في خالة False ينفذ ما يلي End IF ("ادخل عدد") Msgbox رسالة تطلب ادخال عدد Me.TextBox1.Focus وهذا يعني وضع مؤشر الكتابة داخل مربع الكتابة (اي تنشيطه او التركيز) Me.TextBox1.Text = " " يعني افراغ الخاصية Text من أي نصوص بها السطر الثاني والثالث ينشط ويفضي استعداد لتلقي رقم جديد الملحوظة الأهم السؤال 3 والسؤال 4 ما هم الا عملية تخصيص يتخللها ربط نصوص ببعض وربط النصوص موجود له شرح في ص 13 إجابة 3 "Youssif Ahmed" إجابة 4 Axb=63 بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7 متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6 مثال select Case JobTitle case "معلم مساعد" case "معلم" كود case "معلم أول" كود case "معلم أول أ" كود case "معلم خبير" كود case "معلم كبير" كود End Select أتمنى أن اكون أفدت وشكرا |
|
#2
29-10-2012, 09:32 PM
|
|||
|
|||
بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته
مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7 متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6 مثال select Case JobTitle case "معلم مساعد" case "معلم" كود case "معلم أول" كود case "معلم أول أ" كود case "معلم خبير" كود case "معلم كبير" كود End Select أتمنى أن اكون أفدت وشكرا[/QUOTE] جزاكم الله خيرا وربنا يكرمك بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره |
|
#3
30-10-2012, 08:47 AM
|
|||
|
|||
|
اقتباس:
جزاكم الله خيرا وربنا يكرمك بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره [/QUOTE] جرب الكود ده واعمل كومبو وحط فيه وظائف المعلم Dim JobTitle As String Dim Salary As Single JobTitle = Me.ComboBox1.SelectedItem Select Case JobTitle Case "معلم مساعد" Salary = 3000 Case "معلم" Salary = 3500 Case "معلم أول" Salary = 3000 Case "معلم أول أ" Salary = 4000 Case "معلم خبير" Salary = 4500 Case "معلم كبير" End Select Me.Label1.Text = "الراتب " & Salary |
|
#4
30-10-2012, 09:28 PM
|
||||
|
||||
|
اقتباس:
Dim JobTitle As String Dim Salary As Single JobTitle = Me.ComboBox1.SelectedItem Select Case JobTitle Case "معلم مساعد" Salary = 3000 Case "معلم" Salary = 3500 Case "معلم أول" Salary = 3000 Case "معلم أول أ" Salary = 4000 Case "معلم خبير" Salary = 4500 Case "معلم كبير" End Select Me.Label1.Text = "الراتب " & Salary [/QUOTE] واضح إن عندك أمل بالأرقام دى طلع نأبنا على شونه |
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
العرض المتطور
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 07:06 AM.
