|
||||||
| أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
|
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
|
|
#1
29-10-2012, 09:32 PM
|
|||
|
|||
بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته
مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7 متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6 مثال select Case JobTitle case "معلم مساعد" case "معلم" كود case "معلم أول" كود case "معلم أول أ" كود case "معلم خبير" كود case "معلم كبير" كود End Select أتمنى أن اكون أفدت وشكرا[/QUOTE] جزاكم الله خيرا وربنا يكرمك بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره |
|
#2
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 |
|
#3
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. الساعة الآن 06:57 AM.
