برای تبدیل دما باید از فرمول زیر استفاده کرد:

 9 / 5 * c + 32

۱.برای ایجاد تکس باکس در  پنجره فرم روی ان دوبار کلیک کرده و این دستور را بنویسید:

 ()Private Sub Form_Load

 ""=Text1.Text 

End Sub

----------------------------------

 ۲.بعد از ایجاد تکس باکس باید دکمه روج را که کد End است بنویسیم که به صورت زیر آمده است:

()Private Sub cmdExit_Click
End
End Sub

----------------------------------


۳.کد اصلی رو باید در دکمه(Run) بنویسیم به این صورت که در پایین آمده است:

()Private Sub cmdRun_Click
Dim a As Single
a = InputBox("ENTER A NUMBER")
Dim f As Single
f = 9 / 5 * c + 32
Text1.Text = f
End Sub

----------------------------------------------

برای دانلود کلیک کنید:

http://s3.picofile.com/file/7660877204/tabdile_dama.exe.html