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

المشاركة الأصلية كتبت بواسطة 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 وهكذا ...اشكرك جدا جدا ..