بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته وبعد
بعد التحية , ارجوا المساعدة في هذا البرنامج الصغير يطلب فيه ادخال درجة حرارة في text1 ومن خلال liset اختار فهرنهايت وهو c او k او f وذلك بالضغط على ال command تظهر لي النتيجة في ال text2
وشكراً
=========================
انا كتبت الكود بها الشكل الا ان النتيجة لم تتغير مع المتغيرات الاخرى f و k ...
وكانت النتيجة في جميع الحالات واحدة ....
أرجو منكم المساعدة وجزاكم الله خير
==================
Dim C As Integer
Dim F As Integer
Dim K As Integer
End Sub
Private Sub Command_Click()
If List1 = C Then
Text2 = (5 / 9) * Text1 - 32
End If
If List1 = K Then
Text2 = 273 + Text1
End If
If List1 = F Then
Text2 = (9 / 5) * Text1 + 32
End If
End Sub
