Konversi Suhu ala Sang Bocah

Private Sub CmdHapus_Click()
TxtCelcius = ""
TxtFahranheit = ""
TxtKelvin = ""
TxtReamur = ""
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
TxtFahranheit = F
TxtKelvin = K
End Sub

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

Read More