|
||||||
| أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
|
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
|
|
#1
29-10-2012, 12:51 PM
|
|||
|
|||
اكرر اسفى لوجود مثل هذه الاستفسارات الخاصة بالترم التانى داخل قسم الفصل الاول بس الواحد بيحضر للمنهج فى الفترة الاجازة دى وعايز استفهم عن بعض الحاجات فارجو عدم حذف او نقل الموضوع
الملحوظة الاولى Degree == TextBox1.Text الناتج True اذا كانت قيمة الخاصية Text تساوى محتوى المتغير Degree ويكون False اذا حدث العكس . مش فاهم ما هو لازم يكون True لانى انا اصلا ساويت محتوى Degree بالخاصية Text ولا هو يقصد انى اخصص قيمة للمتغير Degree وبعد كدة قيمة للخاصية Text ثم اقوم بمساواتهم ببعض واشوف الناتج True ام False ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــ الملحوظة التانية الفصل التانى ً 42 استخدام الدالة isnumeric تم استخدام هذه الجملة داخل الكود If Isnumeric (Me.TextBox1.Text ) Then Degree = Me.TextBox1.text هل المقصود بالجملة الاولى ان يكون محتوى صندوق الكتابة رقمى ولو لم يكن رقمى ازاى هيتجاهل كل هذه الجمل ويذهب للجمل التالية وتفسير هذه الجمل ("ادخل عدد Msgbox ( " Mr.TextBox1.Focus Me.TextBox1.Text = " " الجملة الاولى بيطلب ادخال رقم هل فى الجملة الثالتة بيطلب انى افرغ محتوى صندوق الكتابة بعد ذلك الملحوظة الاهم اسئلة الكتاب المدرسى على الفصل التانى السؤال الخامس رقم 3 ورقم 4 اتحدى وجود شرح لهم فى المنهج الجديد داخل الفصل التانى هما مرتبطين بالفصل الاول وكمان مفيش عليهم شرح ده بيبقى استنتاج معلم هل جت سهو منهم واين الحديث عن معامل الربط & داخل المنهج الجديد ورجاء خاص لو اى زميل يتفضل بشرح التفرع باستخدام Select ... Case باسلوب بسيط يعنى بالبلدى عشان نفهمه |
|
#2
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 أتمنى أن اكون أفدت وشكرا |
|
#3
29-10-2012, 09:32 PM
|
|||
|
|||
|
بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته
مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7 متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6 مثال select Case JobTitle case "معلم مساعد" case "معلم" كود case "معلم أول" كود case "معلم أول أ" كود case "معلم خبير" كود case "معلم كبير" كود End Select أتمنى أن اكون أفدت وشكرا[/QUOTE] جزاكم الله خيرا وربنا يكرمك بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره |
|
#4
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 |
|
#5
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. الساعة الآن 01:30 AM.
