الستاذ المحترم / حسن الحاوي

[المهدي مصطفى السعيد]

بداية لا يسعني الا ان اشكرك وادعو الله دائما لك بالتوفيق والسداد شكرا على المذكرة وكذلك الاسئلة ويكفي انك ترفعها بتنسيق Word فلا انت تتاجر ولست انانيا وان كان حق من يفعل ذلك ان يفعل ذلك لأن هذا تعبه ومجهوده وليس مطلوبا ان يهديه للجميع دون عناء ولكنك تفعل ذلك فلك الشكر والتقدير ...ثم لي ملاحظة في الأسئلة حضرتك سالت هذه السؤال
هل الكود التالى صحيح : Dim y As String = 1000 وكانت الاجابة صحيحة وفعلا هي صحيحة لأنني جربتها في شكل برنامج وقمت بعملية جمع للمتغير y + مثلا 50 فكانت النتيجة 1050 وهذا معناه صحة كلام حضرتك .... ولكننا نعلم الأولاد بان المتغيرات من النوع String يجب وضع قيمها في امر التخصيص بين علامتي تنصيص ولن يتم اجراء عمليات حسابية عليها وكلام حضرتك ينسف كل ما قلناه ...فماذا نحن فاعلون لو ان احد واضعي الامتحانات قد وضعها في امتحان ما ...ولي ملاحظة أخرى في سؤال select case تبع التقديرات حضرتك اعتبرت ان 64.4 يطبع مقبول وهذا ليس صحيح حيث انها في منطقة الفجوة التي تركها سيادته ما بين 64 و 65 ...اشكرك جدا جدا وجزيت خيرا واعتذر عن الاطالة ...

[hassanalhawy]

شكراً جزيلاً أستاذ / مهدى ، على هذا الإطراء فلا شكر على واجب
وما قمت به قام به المئات بل والآلاف غيرى من قبل داخل هذا المنتدى العظيم وكل ما فعلته أنى سرت على دربهم
Dim y As String = 1000 هى فعلاً صحيحة وكل ما عليك أن تذكر الطلاب بالأمر
Dim y As Integer = TextBox1.Text وهى أنك يمكن أن تضع فيها قيمة حرفية هى "1000" والتى يتم إجراء عمليات حسابية عليها بالرغم من أنها حرفية بسبب إمكانية التحويل الضمنى
القيمة 64.4 فى السؤال الثالث ص 54
سوف يخرج القيمة مقبول . حيث هناك تعديل على الكود كما يلى

Dim deg As Single
deg = Me.TextBox1.Text
Select Case deg
      Case 85 To 100
        Me.Label2.Text = "ممتاز"
      Case 75 To 85
        Me.Label2.Text = "جيد جداً"
      Case 65 To 75
        Me.Label2.Text = "جيد"
      Case 50 To 65
        Me.Label2.Text = "مقبول"
      Case 0 To 50
        Me.Label2.Text = "ضعيف"
      Case Else
        Me.Label2.Text = "يرجى إدخال درجة بين صفر و 100"
End Select

[كريم عبده]

حسن الحاوى ... ألف شكر؟؟؟؟؟؟؟؟؟؟

[المهدي مصطفى السعيد]

المشاركة الأصلية كتبت بواسطة hass****hawy

شكراً جزيلاً أستاذ / مهدى ، على هذا الإطراء فلا شكر على واجب
وما قمت به قام به المئات بل والآلاف غيرى من قبل داخل هذا المنتدى العظيم وكل ما فعلته أنى سرت على دربهم
dim y as string = 1000 هى فعلاً صحيحة وكل ما عليك أن تذكر الطلاب بالأمر
dim y as integer = textbox1.text وهى أنك يمكن أن تضع فيها قيمة حرفية هى "1000" والتى يتم إجراء عمليات حسابية عليها بالرغم من أنها حرفية بسبب إمكانية التحويل الضمنى
القيمة 64.4 فى السؤال الثالث ص 54
سوف يخرج القيمة مقبول . حيث هناك تعديل على الكود كما يلى

dim deg as single
deg = me.textbox1.text
select case deg
      case 85 to 100
        me.label2.text = "ممتاز"
      case 75 to 85
        me.label2.text = "جيد جداً"
      case 65 to 75
        me.label2.text = "جيد"
      case 50 to 65
        me.label2.text = "مقبول"
      case 0 to 50
        me.label2.text = "ضعيف"
      case else
        me.label2.text = "يرجى إدخال درجة بين صفر و 100"
end select

أشكرك جدا استاذ حسن ...ومن خلال متابعتي وضح لي أكثر فأكثر ما اكدت عليه سابقا هو انك انسان محترم ...ثم اشكر لك ردك الطيب ثم بخصوص السؤال الثالث ص 54 ممكن جدا لكن لي سؤال ماذا لو كانت القيمة 65 بالطبع ستكون النتيجة جيد حيث انها ظهرت في الاحتمال الأسبق في حين ان حضرتك في الحالة الموجوده بعدها وهي حالة مقبول اعتبرت بدايتها ايضا 65 ....ممكن لكن ما رأيك لو كان التعديل بتغير قيمة النهاية لتصبح 74.9 و 64.9 وهكذا ...اشكرك جدا جدا ..

[الشنوانى]

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