مشاهدة النسخة كاملة : القيمة بإنشاء كائن مثال الخاصية (Font) 
 
modress 28-10-2012, 08:02 PM عند تخصيص قيم للخصائص  
لفت نظري في الملاحظات العبارة رقم 4 ص 78 
 
"القيمة بإنشاء كائن مثال الخاصية (Font)." 
 
حد يقدر يفسرها 
عندى تفسير ب 
المناقشة يمكن ان نصل لتفسير جيد 
وارجو المشاركة  
eng_adonia 28-10-2012, 11:04 PM كما تعرف أن ControlName.Property = value 
والقيمة هذه من الممكن أن تكون : 
قيمة مجردة مثل Label1.Text="Visual Basic" 
قيمة منطقية مثل Label1.visible= True 
قيمة من قائمة مثل Label1.ForeColor= Color.Red وهذه القيمة يتم اختيارها من قائمة الاستشعار الذكية 
القيمة بإنشاء كائن مثل Label1.Font= New Font("Arial",20) 
وفى الحالة الاخيرة لتعديل قيم الخاصية Font  من خلال إنشاء كائن من الفئة Font وهناك مشكلة حلها أبسط وهى أن الكائن المسند للخاصية Font لا يمكن تعديل قيمه فمعظم خصائص الفئة Font  للقراءة فقط لذلك علينا إسناد قيمة كائن جديد بالمعامل New  من خلال New Font("Arial",20)  
modress 29-10-2012, 07:11 AM كما تعرف أن ControlName.Property = value 
والقيمة هذه من الممكن أن تكون : 
قيمة مجردة مثل Label1.Text="Visual Basic" 
قيمة منطقية مثل Label1.visible= True 
قيمة من قائمة مثل Label1.ForeColor= Color.Red وهذه القيمة يتم اختيارها من قائمة الاستشعار الذكية 
القيمة بإنشاء كائن مثل Label1.Font= New Font("Arial",20) 
وفى الحالة الاخيرة لتعديل قيم الخاصية Font  من خلال إنشاء كائن من الفئة Font وهناك مشكلة حلها أبسط وهى أن الكائن المسند للخاصية Font لا يمكن تعديل قيمه فمعظم خصائص الفئة Font  للقراءة فقط لذلك علينا إسناد قيمة كائن جديد بالمعامل New  من خلال New Font("Arial",20) 
 
شكرا لحضرتك جزيلا 
1- كمان لو نظرنا لنوع (Type) الخاصية Font سوف نجد نوعه (Type) من الفئة أو التصنيف Font  
وعلشان نستفيد من هذا التصنيف لابد من عمل استنساخ نسخة منه باستخدام NEW. 
 
2- هذا الكائن الجديد حل محل الكائن المخزن بالخاصية Font  وده نتيجة عملية التخصيص. 
 
3- وذي ما حضرتك تفضلت بعض خصائص التصنيف Font للقراءة فقط  فكان لابد من استخدام Constructor بتاع التصنيف Font عندما عندما كتبنا (حجم الخط , "نوع الخط") الذي يستطيع التأثير في المتغير الخاص (Private Variable) بهذه الخصائص المعموله للقراءة فقط. 
 
النقاط السابقة معتمدة على OOP  
مدرس . كمبيوتر 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  باسلوب بسيط يعنى بالبلدى عشان نفهمه  
modress 29-10-2012, 06:55 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  باسلوب بسيط يعنى بالبلدى عشان نفهمه 
 
اتأخرت في الرد شوية عقبال لما بصيت في الفصل الثاني والأول 
الملحوظة الأولي 
علامة ال = 
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 
أتمنى أن اكون أفدت 
وشكرا  
مدرس . كمبيوتر 29-10-2012, 09:32 PM بالنسبة Select Case تستخدم لاختبار قيم متغير متوقع حالته 
مثل متغير به (Day) يوم من ايام الاسبوع احتمالاتهم 7 
متغير به وظيفة المعلم (JobTitle) احتمالاتهم 6 
مثال 
select Case JobTitle 
case "معلم مساعد" 
 
case "معلم" 
كود 
case "معلم أول" 
كود 
case "معلم أول أ" 
كود 
case "معلم خبير" 
كود 
case "معلم كبير" 
كود 
End Select 
أتمنى أن اكون أفدت 
وشكرا[/QUOTE] 
 
 
جزاكم الله خيرا وربنا يكرمك 
بس ياريت لو افهم ازاى اختار الامر المراد تنفيذه يعنى معلم او معلم اول او غيره  
modress 30-10-2012, 08:47 AM بالنسبة 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  
أحـمد قرنى 30-10-2012, 05:49 PM شكرا لحضراتكم 
وان كنت اود تأجيل مثل هذه المشاركات والاستفسارات أو على الاقل طرحها داخل قسم الكمبيوتر للترم الثانى 
 وطالما حضراتكم اطلعتوا على الفصل التانى ممكن تشاركونى اجابات هذه الاسئلة 
 
  
اسئلة صح وخطأ على الفصل التانى 
   
   
  1- تنتهى جملة If  بكلمات End If     (   ) 
2- يجب ان تنتهى جملة If بكلمات End If .  (  ) 
3- استعمال End If اختيارى مع جملة If .  (    )  
4- استخدام Else اختيارى فى جملة If .  (   )  
5- معامل المقارنة and  يجب ان تكون نواتج الشروط المستخدمة False لكى يكون هو False  . 
6- المعامل Or يتطلب ان يكون الشرطان ناتجهما True  لكى يكون الناتج النهائى True . 
 
سؤال آخر 
يتم استقبال مدخلات المستخدم من خلال العديد من الادوات منها Text Box .  
hassanalhawy 30-10-2012, 09:25 PM شكرا لحضراتكم 
وان كنت اود تأجيل مثل هذه المشاركات والاستفسارات أو على الاقل طرحها داخل قسم الكمبيوتر للترم الثانى 
 وطالما حضراتكم اطلعتوا على الفصل التانى ممكن تشاركونى اجابات هذه الاسئلة 
 
  
اسئلة صح وخطأ على الفصل التانى 
   
   
  1- تنتهى جملة if  بكلمات end if     (   ) 
2- يجب ان تنتهى جملة if بكلمات end if .  (  ) 
3- استعمال end if اختيارى مع جملة if .  (    )  
4- استخدام else اختيارى فى جملة if .  (   )  
5- معامل المقارنة and  يجب ان تكون نواتج الشروط المستخدمة false لكى يكون هو false  . 
6- المعامل or يتطلب ان يكون الشرطان ناتجهما true  لكى يكون الناتج النهائى true . 
 
سؤال آخر 
يتم استقبال مدخلات المستخدم من خلال العديد من الادوات منها text box . 
 
جميع الأسئلة صحيحة ماعدا  2 ، 5 ، 6  
hassanalhawy 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] 
واضح إن عندك أمل بالأرقام دى 
طلع نأبنا على شونه  
أحـمد قرنى 30-10-2012, 10:29 PM جميع الأسئلة صحيحة ماعدا  2 ، 5 ، 6 
 
 
طيب ممكن اعرف حضرتك جاوبت رقم 5 خطأ بناءاً على كلمة يجب ام بناءاً على كلمة معامل المقارنة  
aghazala 31-10-2012, 02:27 PM ارجو مذكرة للترم الثاني للصف الثالث الاعدادي باقصي سرعه منهج جديد  
hassanalhawy 01-11-2012, 01:38 PM طيب ممكن اعرف حضرتك جاوبت رقم 5 خطأ بناءاً على كلمة يجب ام بناءاً على كلمة معامل المقارنة 
 
 
عبارة يجب ان تكون نواتج وهى بصيغة الجمع بمعنى أن لكى يكون الناتج False يجب ان تكون نواتج كل الشروط Falseوهذا خطأ لأنه يكفى أن يكون شرط واحد فقط False حتى يكون الناتج False  
أحـمد قرنى 01-11-2012, 04:32 PM عبارة يجب ان تكون نواتج وهى بصيغة الجمع بمعنى أن لكى يكون الناتج False يجب ان تكون نواتج كل الشروط Falseوهذا خطأ لأنه يكفى أن يكون شرط واحد فقط False حتى يكون الناتج False 
 
 
 ليس هو ما اقصده فانا على علم بذلك 
انا اقصد And  يسمى معامل مقارنة ام معامل منطقى  
hassanalhawy 01-11-2012, 10:52 PM ليس هو ما اقصده فانا على علم بذلك 
انا اقصد And  يسمى معامل مقارنة ام معامل منطقى 
 
 
أنا فهمت قصدك 
And  هى معمل منطقى Logic  
وبالتالى يكون الخطأ نتج من التسمية الخاطئة للمعمل And 
وبالتالى العبارة خطأ  
محمودالحنبولي 17-11-2012, 10:05 AM جزاكم الله خيرا  
 |