Konversi Suhu Kiwiiwew

Private Sub CmdHapus_Click()
 TxtReamur = ""
 TxtFarenheit = ""
 TxtKelvin = ""

End Sub

Private Sub CmdHitung_Click()
Dim C, R, F, K As Integer
C = TxtCelcius
R = (4 / 5) * C
F = (9 / 5) * C + 32
K = C + 273
TxtReamur = R
TxtFarenheit = F
TxtKelvin = K
End Sub

Private Sub CmdKeluar_Click()
 DoCmd.Save
 DoCmd.Close
End Sub