القيمة بإنشاء كائن مثال الخاصية (Font)

[modress]

المشاركة الأصلية كتبت بواسطة مدرس . كمبيوتر

بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته
مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7
متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6
مثال
select Case JobTitle
case "معلم مساعد"

case "معلم"
كود
case "معلم أول"
كود
case "معلم أول أ"
كود
case "معلم خبير"
كود
case "معلم كبير"
كود
End Select
أتمنى أن اكون أفدت
وشكرا

جزاكم الله خيرا وربنا يكرمك
بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره [/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

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة modress

جزاكم الله خيرا وربنا يكرمك
بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره

جرب الكود ده واعمل كومبو وحط فيه وظائف المعلم
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]
واضح إن عندك أمل بالأرقام دى
طلع نأبنا على شونه