Program Menghitung Nilai Air Kalorimeter (Na)

Buatlah rancangan form seperti gambar dibawah ini :

Design Template Tampilan Program

Masukkan code program berikut pada masing-masing button :

Script untuk tombol hitung :

Private Sub Hitung_Click()

Map = Text3.Text-Text2.Text

Text7.text = Map

Ma = Text2.Text-Text1.Text

Text8.Text = Ma

Na = Text7.Text * Text10.Text * (Text4.Text - Text6.Text) / (Text6.Text - Text5.Text) - (Text8.Text * Text10.Text)

Text9.Text = Format(Round(CDbl(Na),2))

End Sub

Script untuk tombol Hapus

Private Sub Hapus_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

End Sub

Script untuk tombol Keluar

Private Sub Keluar_Click()

Unload Me

End Sub

Tampilan ketika program dijalankan