منتديات رحيل لكل العرب - الكود تحويل درجة الحرارة

منتديات رحيل لكل العرب (https://r7il.com/vb/)

- قسم تطوير المواقع ومحركات البحث والسيو Seo والووردبريس WordPress (https://r7il.com/vb/f20/)

- - الكود تحويل درجة الحرارة (https://r7il.com/vb/t3589/)

الفارس

06-04-2019 08:42 PM

الكود تحويل درجة الحرارة

الكود تحويل درجة الحرارة

كود:

 كود

Prompt = "إدخل درجة حرارة فهرنهايتية."

Do

FTemp = InputBox(Prompt, "الدرجة الفهرنهايتية إلى مئوية")

If FTemp <> "" Then

Celsius = Int((FTemp + 40) * 5 / 9 - 40)

MsgBox (Celsius), , "درجة حرارة في مئوية"

End If

Loop While FTemp <> ""

End

الساعة الآن 08:48 AM

Security team