3.1 Project 13.1.1 Definisi Masalah

Q = m.c.TKalor adalah energi panas yang dimiliki oleh suatu zat. Umumnya untuk menghitung kalor yang dimiliki oleh suatu zat yaitu dengan mengukur suhu zat tersebut. Satuan kalor adalah kalori atau joule dengan konversi 1 kalori = 4,2joule. Kalor dibagi menjadi 2 yaitu kalor laten dan kalor sensibel. Kalor laten adalah kalor yang digunakan untuk merubah fase pada zat tersebut, sedangkan kalor sensibel adalah kalor yang digunakan untuk menaikkan suhu zat tersebut. Pada Project ini kalor yang dihitung adalah kalor sensibel dengan rumus :

Keterangan : m = Massa (Kg) C = Kalor Jenis (J/Kg0)T = Perubahan Suhu (K)Manfaat program ini adalah mempermudah dan mempercepat menghitung nilai kalor sensibel apabila telah diketahui m,c,T1 dan T2 suatu zat.3.1.2 AlgoritmaBatasan : Inputan harus angka Angka harus positif Koma tidak boleh lebih dari 1

1. Mulai2. -Nilai c air = 4180- Nilai c Raksa = 140- Nilai c Alkohol = 2400 3. Apakah air?-jika iya maka lanjut ke langkah 4-jika tidak maka lanjut ke langkah 54. Air c = 41805. Apakah raksa?-jika iya maka lanjut ke langkah 6-jika tidak maka lanjut ke langkah 76. Raksa c = 1407. Alkohol c = 24008. Input nilai m9. Apakah inputan merupakan angka ?- jika iya maka lanjut ke langkah 10- jika tidak maka lanjut ke langkah 810. Apakah inputan merupakan bilangan positif?- jika iya maka lanjut ke langkah 11- jika tidak maka lanjut ke langkah 811. Apakah inputan mengandung , lebih dari satu ?- jika iya maka lanjut ke langkah 12- jika tidak maka lanjut ke langkah 812. Apakah inputan mengandung koma di depan ?- jika iya maka lanjut ke langkah 13- jika tidak maka lanjut ke langkah 813. intput nilai T1 14. Apakah inputan merupakan angka ?- jika iya maka lanjut ke langkah 15- jika tidak maka lanjut ke langkah 1315. Apakah inputan merupakan bilangan positif?- jika iya maka lanjut ke langkah 16- jika tidak maka lanjut ke langkah 1316. Apakah inputan mengandung , lebih dari satu ?- jika iya maka lanjut ke langkah 17- jika tidak maka lanjut ke langkah 1317. Apakah inputan mengandung koma di depan ?- jika iya maka lanjut ke langkah 18- jika tidak maka lanjut ke langkah 1318. intput nilai T2 19. Apakah inputan merupakan angka ?- jika iya maka lanjut ke langkah 20- jika tidak maka lanjut ke langkah 1820. Apakah inputan merupakan bilangan positif?- jika iya maka lanjut ke langkah 21- jika tidak maka lanjut ke langkah 1821. Apakah inputan mengandung , lebih dari satu ?- jika iya maka lanjut ke langkah 22- jika tidak maka lanjut ke langkah 1822. Apakah inputan mengandung koma di depan ?- jika iya maka lanjut ke langkah 23- jika tidak maka lanjut ke langkah 1823. Hitung T = T2-T124. Hasil T25. Hitung Q = m.c. T26. Apakah ingin menghitung lagi?- jika iya maka lanjut ke langkah 3- jika tidak maka lanjut ke langkah 2727. Selesai

3.1.3 Flowchart

3.1.4 Listing ProgramPublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x As String x = MsgBox("Apakah menggunakan air?", vbInformation + vbYesNo, "kalor Jenis") If x = vbYes Then Me.Show() TextBox1.Text = "4200" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "AIR" Else x = MsgBox("Apakah menggunakan raksa?", vbInformation + vbYesNo, "kalor Jenis") If x = vbYes Then Me.Show() TextBox1.Text = "140" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "RAKSA" ElseIf x = vbNo Then Me.Show() TextBox1.Text = "2400" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "Alkohol" End If End If End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If TextBox2.Text = "," Then TextBox2.Text = "" MsgBox("Koma Tidak Boleh Didepan", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox2.Text = "-" Then TextBox2.Text = "" MsgBox("Angka harus positif", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox2.Text.Contains(",,") Then TextBox2.Text = "" MsgBox("Koma tidak boleh lebih dari satu", vbInformation + vbOKOnly, "Perhatian") End If If Val(TextBox2.Text) > 999 Then TextBox2.Text = "" MsgBox("Tidak boleh lebih dari 3 digit", vbInformation + vbOKOnly, "Perhatian") End If If TextBox2.Text = "01" Then TextBox2.Text = "1" End If If TextBox2.Text = "02" Then TextBox2.Text = "2" End If If TextBox2.Text = "03" Then TextBox2.Text = "3" End If If TextBox2.Text = "04" Then TextBox2.Text = "4" End If If TextBox2.Text = "05" Then TextBox2.Text = "5" End If If TextBox2.Text = "06" Then TextBox2.Text = "6" End If If TextBox2.Text = "07" Then TextBox2.Text = "7" End If If TextBox2.Text = "08" Then TextBox2.Text = "8" End If If TextBox2.Text = "09" Then TextBox2.Text = "9" End If If TextBox2.Text = "00" Then TextBox2.Text = "0" End If

If TextBox2.Text = "" Or "0" Then TextBox1.Enabled = False TextBox3.Enabled = False TextBox2.Enabled = True TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Else Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False TextBox2.Enabled = True TextBox4.Enabled = False TextBox3.Enabled = True TextBox1.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False End If End SubPrivate Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged If TextBox3.Text = "," Then TextBox3.Text = "" MsgBox("Koma Tidak Boleh Didepan", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox3.Text = "-" Then TextBox3.Text = "" MsgBox("Angka harus positif", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox3.Text.Contains(",,") Then TextBox3.Text = "" MsgBox("Koma tidak boleh lebih dari satu", vbInformation + vbOKOnly, "Perhatian") End If If Val(TextBox3.Text) > 999 Then TextBox3.Text = "" MsgBox("Tidak boleh lebih dari 3 digit", vbInformation + vbOKOnly, "Perhatian") End If If TextBox3.Text = "01" Then TextBox3.Text = "1" End If If TextBox3.Text = "02" Then TextBox3.Text = "2" End If If TextBox3.Text = "03" Then TextBox3.Text = "3" End If If TextBox3.Text = "04" Then TextBox3.Text = "4" End If If TextBox3.Text = "05" Then TextBox3.Text = "5" End If If TextBox3.Text = "06" Then TextBox3.Text = "6" End If If TextBox3.Text = "07" Then TextBox3.Text = "7" End If If TextBox3.Text = "08" Then TextBox3.Text = "8" End If If TextBox3.Text = "09" Then TextBox3.Text = "9" End If If TextBox3.Text = "00" Then TextBox3.Text = "0" End If

If TextBox3.Text = "" Or "0" Then TextBox1.Enabled = False TextBox2.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Else Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False TextBox2.Enabled = False TextBox4.Enabled = True TextBox5.Enabled = False TextBox6.Enabled = False End If End SubPrivate Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged If TextBox4.Text = "," Then TextBox4.Text = "" MsgBox("Koma Tidak Boleh Didepan", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox4.Text = "-" Then TextBox4.Text = "" MsgBox("Angka harus positif", MsgBoxStyle.OkOnly, "perhatian") End If If TextBox4.Text.Contains(",,") Then TextBox4.Text = "" MsgBox("Koma tidak boleh lebih dari satu", vbInformation + vbOKOnly, "Perhatian") End If If Val(TextBox4.Text) > 999 Then TextBox4.Text = "" MsgBox("Tidak boleh lebih dari 3 digit", vbInformation + vbOKOnly, "Perhatian") End If If TextBox4.Text = "01" Then TextBox4.Text = "1" End If If TextBox4.Text = "02" Then TextBox4.Text = "2" End If If TextBox4.Text = "03" Then TextBox4.Text = "3" End If If TextBox4.Text = "04" Then TextBox4.Text = "4" End If If TextBox4.Text = "05" Then TextBox4.Text = "5" End If If TextBox4.Text = "06" Then TextBox4.Text = "6" End If If TextBox4.Text = "07" Then TextBox4.Text = "7" End If If TextBox4.Text = "08" Then TextBox4.Text = "8" End If If TextBox4.Text = "09" Then TextBox4.Text = "9" End If If TextBox4.Text = "00" Then TextBox4.Text = "0" End If

If TextBox4.Text = "" Or "0" Then TextBox1.Enabled = False TextBox3.Enabled = False TextBox2.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Else Button1.Enabled = True Button2.Enabled = False Button3.Enabled = False TextBox2.Enabled = False TextBox3.Enabled = False TextBox1.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False End If End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox5.Text = Val(TextBox4.Text) - Val(TextBox3.Text) If TextBox5.Text = "" Or "0" Then TextBox1.Enabled = False TextBox3.Enabled = False TextBox2.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Else Button1.Enabled = False Button2.Enabled = True Button3.Enabled = False TextBox2.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox1.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False End If End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox6.Text = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox5.Text) If TextBox6.Text = "" Or "0" Then TextBox1.Enabled = False TextBox3.Enabled = False TextBox2.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Else Button1.Enabled = False Button2.Enabled = False Button3.Enabled = True TextBox2.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox1.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim y As String y = MsgBox("Apakah ingin hitung ulang?", vbInformation + vbYesNo, "Perhatian") If y = vbNo Then Me.Close() ElseIf y = vbYes Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" Dim x As Integer x = MsgBox("Apakah menggunakan air?", vbInformation + vbYesNo, "kalor Jenis") If x = vbYes Then Me.Show() TextBox1.Text = "4200" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "AIR" Else x = MsgBox("Apakah menggunakan raksa?", vbInformation + vbYesNo, "kalor Jenis") If x = vbYes Then Me.Show() TextBox1.Text = "140" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "RAKSA"

ElseIf x = vbNo Then Me.Show() TextBox1.Text = "2400" TextBox2.Enabled = True TextBox2.Text = "" TextBox1.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Label13.Text = "ALKOHOL" End If End If End If End Sub3.1.5 Cara Penggunaan Program1. Buka Program,maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan awal programSumber : dokumen pribadi2. Tersedia 3 macam nilai kalor jenis yaitu air,raksa,dan alkohol secara berurutan. Klik Yes apabila ingin menggunakan kalor jenis air. Apabila tidak ingin menggunakan kalor jenis air,maka klik No, maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan setelah klik no pada tampilan awalSumber : dokumen pribadi3. Klik Yes apabila ingin menggunakan kalor jenis raksa. Apabila tidak ingin menggunakan kalor jenis raksa,maka klik No,dan secara otomatis anda akan memilih menggunakan alkohol. Maka akan muncul form perhitungan sebagai berikut :

Gambar x.x.x : tampilan setelah klik no pada message box raksaSumber : dokumen pribadi4. Pada form ini, anda harus menginputkan massa zat terlebih dahulu. Inputan tidak boleh mengandung huruf,tanda baca selain koma,koma di depan,koma lebih dari satu,dan lebih dari 3 digit.5.Apabila anda menginputkan huruf,maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan apabila anda menginputkan huruf atau tanda baca selain komaSumber : dokumen pribadi6. Apabila anda menginputkan koma di depan,maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan apabila anda menginputkan koma di depanSumber : dokumen pribadi7. Apabila anda menginputkan koma lebih dari satu,maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan apabila anda menginputkan koma lebih dari 1Sumber : dokumen pribadi8. Apabila anda menginputkan angka lebih dari tiga digit,maka akan keluar message box sebagai berikut :

Gambar x.x.x : tampilan apabila anda menginputkan angka lebih dari tiga digit.Sumber : dokumen pribadi9. Apabila inputan memenuhi syarat,maka text box suhu awal sudah aktif atau bisa diisi. Syarat inputan sama seperti textbox massa yaitu inputan tidak boleh mengandung huruf,tanda baca selain koma,koma di depan,koma lebih dari satu,dan lebih dari 3 digit.

Gambar x.x.x : tampilan apabila inputan massa sudah memenuhi syarat.Sumber : dokumen pribadi10.Input nilai suhu awal,makabtextbox massa akan terkunci,dan apabila inputan sudah memenuhi syarat maka textbox suhu akhir akan aktif seperti gambar berikut :

Gambar x.x.x : tampilan apabila inputan suhu awal sudah memenuhi syarat.Sumber : dokumen pribadi10. Input nilai suhu akhir. Apabila telah memenuhi syarat maka button hitung perubahan suhu akan aktif seperti gambar berikut :

Gambar x.x.x : tampilan apabila inputan suhu akhir sudah memenuhi syarat.Sumber : dokumen pribadi11.Klik button hitung Perubahan suhu,maka akan muncul nilai perubahan suhu pada textbox perubahan suhu,dan button Hitung kalor akan aktif seperti gambar berikut :

Gambar x.x.x : tampilan apabila button hitung perubahan suhu diklik.Sumber : dokumen pribadi12. Selanjutnya klik hitung kalor dan akan tampil hasil di textbox kalor sebagai berikut :

Gambar x.x.x : tampilan apabila button hitung kalor diklik.Sumber : dokumen pribadi13. Selanjutnya hanya button ulangiyang aktif, setelah diklik akan muncul tmessage box sebagai berikut :

Gambar x.x.x : tampilan apabila button ulangi diklik.Sumber : dokumen pribadi14.Selanjutnya anda bisa meng-klik no untuk keluar dari program,dan klik yes apabilan ingin mulai dari awal. Apabila anda meng-klik yes,maka anda akan menjumpai tampilan awal lagi.