بوابة الثانوية العامة المصرية - الستاذ المحترم / حسن الحاوي

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- المنتدى االأكاديمى للمعلمين (https://www.thanwya.com/vb/forumdisplay.php?f=22)

- - الستاذ المحترم / حسن الحاوي (https://www.thanwya.com/vb/showthread.php?t=509774)

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

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

شكراً جزيلاً أستاذ / مهدى ، على هذا الإطراء فلا شكر على واجب
وما قمت به قام به المئات بل والآلاف غيرى من قبل داخل هذا المنتدى العظيم وكل ما فعلته أنى سرت على دربهم
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 (المشاركة 5201893)

شكراً جزيلاً أستاذ / مهدى ، على هذا الإطراء فلا شكر على واجب
وما قمت به قام به المئات بل والآلاف غيرى من قبل داخل هذا المنتدى العظيم وكل ما فعلته أنى سرت على دربهم
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 وهكذا ...اشكرك جدا جدا ..

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