Mencari Kalor

Option Compare Database


Private Sub CmdHapusLebur_Click()
TxtMassaLebur = ""
TxtKalorLebur = ""
TxtQL = ""
End Sub

Private Sub CmdHapusUap_Click()
TxtMassaUap = ""
TxtKalorUap = ""
TxtQU = ""
End Sub

Private Sub CmdHitungLebur_Click()
Dim ML, Kl, QL As Integer
ML = Val(TxtMassaLebur)
Kl = Val(TxtKalorLebur)
QL = ML * Kl
TxtQL = QL

End Sub

Private Sub CmdHitungUap_Click()
Dim MU, KU, QU As Integer
MU = (TxtMassaUap)
KU = (TxtKalorUap)
QU = MU * KU
TxtQU = QU
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Close

End Sub

Private Sub OptKalorLebur_GotFocus()
FraKalorLebur.Visible = True
TxtMassaLebur.Visible = True
TxtKalorLebur.Visible = True
TxtQL.Visible = True
CmdHitungLebur.Visible = True
CmdHapusLebur.Visible = True
FraKalorUap.Visible = False
TxtMassaUap.Visible = False
TxtKalorUap.Visible = False
TxtQU.Visible = False
CmdHitungUap.Visible = False
CmdHapusUap.Visible = False
End Sub

Private Sub OptKalorUap_GotFocus()
FraKalorUap.Visible = True
TxtMassaUap.Visible = True
TxtKalorUap.Visible = True
TxtQU.Visible = True
CmdHitungUap.Visible = True
CmdHapusUap.Visible = True
FraKalorLebur.Visible = False
TxtMassaLebur.Visible = False
TxtKalorLebur.Visible = False
TxtQL.Visible = False
CmdHitungLebur.Visible = False
CmdHapusLebur.Visible = False

End Sub