Private Sub CmdHapus_Click()TxtCelcius = ""TxtFahranheit = ""TxtKelvin = ""TxtReamur = ""End SubPrivate Sub CmdHitung_Click()Dim C, R, F, K As IntegerC = TxtCelciusR = (4 / 5 * C)F = (9 / 5 * C) + 32K = (C + 273)TxtReamur = RTxtFahranheit = FTxtKelvin = KEnd SubPrivate Sub CmdKeluar_Click()DoCmd.SaveDoCmd.Close
End ...
