#bangunruang

[imamramadhanns]

UTS Bahasa Pemrograman Visual

Aplikasi Bangun Ruang

004121121067 - Imam Ramadhan

Secara umum bentuk dari bangun ruang adalah 3 dimensi yang mempunyai isi atau volume berbeda dengan bangun datar yang hanya 2 dimensi, Aplikasi ini dibuat untuk menghitung luas permukan, volume, keliling, dll secara otomatis . 

Berikut Screenshootnya :

Public Class BangunRuang     Dim classRumusBangunRuang As classBangunRuang     Private Sub BangunRuang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         labelA.Hide()         labelB.Hide()         labelC.Hide()         labelTitle.Hide()         txt1.Hide()         txt2.Hide()         txt3.Hide()     End Sub     Private Sub comboSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles comboSelect.Click         Dim rumusKubus() As String = {"Luas Permukaan", "Luas Salah Satu Sisi", "Keliling", "Volume"}         Dim rumusBalok() As String = {"Luas Permukaan", "Keliling", "Volume"}         Dim rumusnya() As String = {"Luas", "Volume"}         If kubusSelect.Checked = True Then             comboSelect.Items.Clear()             For kbs As Integer = 0 To 3                 comboSelect.Items.Add(rumusKubus(kbs))             Next         ElseIf balokSelect.Checked = True Then             comboSelect.Items.Clear()             For blk As Integer = 0 To 2                 comboSelect.Items.Add(rumusBalok(blk))             Next         ElseIf bolaSelect.Checked = True Or tabungSelect.Checked = True Or kerucutSelect.Checked = True Or limasSelect.Checked = True Then             comboSelect.Items.Clear()             Dim rmsnya As Integer             While rmsnya <= 1                 comboSelect.Items.Add(rumusnya(rmsnya))                 rmsnya = rmsnya + 1             End While         End If     End Sub     Private Sub comboSelect_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboSelect.SelectedIndexChanged         If kubusSelect.Checked = True Then             component1()             labelA.Text = "Rusuk"             labelTitle.Show()             labelB.Hide()             txt2.Hide()             labelC.Hide()             txt3.Hide()         ElseIf balokSelect.Checked = True Then             componentAll()             labelA.Text = "Panjang"             labelB.Text = "Lebar"             labelC.Text = "Tinggi"             labelTitle.Show()         End If     End Sub     Private Sub kubusSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kubusSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruangkubus.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub balokSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles balokSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruangbalok.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub bolaSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bolaSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruangbola.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub tabungSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabungSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruangtabung.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub kerucutSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kerucutSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruangkerucut.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub limasSelect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limasSelect.CheckedChanged         pict.Image = Image.FromFile("d:\tugasuts\bangun-ruanglimas.jpg")         pict.SizeMode = PictureBoxSizeMode.StretchImage     End Sub     Private Sub hitungRumus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitungRumus.Click         Dim hasil As Double         classRumusBangunRuang = New classBangunRuang()         If kubusSelect.Checked = True Then             Select Case comboSelect.Text                 Case "Volume"                     hasil = classRumusBangunRuang.kubusVolume(txt1.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()                 Case "Luas Permukaan"                     hasil = classRumusBangunRuang.kubusLuasPermukaan(txt1.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()                 Case "Luas Salah Satu Sisi"                     hasil = classRumusBangunRuang.kubusLuasSisi(txt1.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()                 Case "Keliling"                     hasil = classRumusBangunRuang.kubusKeliling(txt1.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()             End Select         End If         If balokSelect.Checked = True Then             Select Case comboSelect.Text                 Case "Volume"                     hasil = classRumusBangunRuang.balokVolume(txt1.Text, txt2.Text, txt3.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()                 Case "Luas Permukaan"                     hasil = classRumusBangunRuang.balokLuasPermukaan(txt1.Text, txt2.Text, txt3.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()                 Case "Keliling"                     hasil = classRumusBangunRuang.balokKeliling(txt1.Text, txt2.Text, txt3.Text)                     labelHasil.Text = "Hasilnya adalah " + hasil.ToString()             End Select         End If     End Sub     Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click         clear()     End Sub     Sub component1()         labelA.Show()         txt1.Show()     End Sub     Sub componentAll()         labelA.Show()         txt1.Show()         labelB.Show()         txt2.Show()         labelC.Show()         txt3.Show()     End Sub     Sub clear()         txt1.Text = ""         txt2.Text = ""         txt3.Text = ""         labelHasil.Text = ""     End Sub End Class

Sourcode Classnya :

Public Class classBangunRuang     Public Function kubusVolume(ByVal rusuk As Integer)         Dim hasilRumus As Integer         hasilRumus = rusuk * rusuk * rusuk         Return hasilRumus     End Function     Public Function kubusLuasPermukaan(ByVal rusuk As Integer)         Dim hasilLuasPermukaan As Integer         hasilLuasPermukaan = 6 * rusuk * rusuk         Return hasilLuasPermukaan     End Function     Public Function kubusKeliling(ByVal rusuk As Integer)         Dim hasilRumus As Integer         hasilRumus = 12 * rusuk         Return hasilRumus     End Function     Public Function kubusLuasSisi(ByVal rusuk As Integer)         Dim hasilRumus As Integer         hasilRumus = rusuk * rusuk         Return hasilRumus     End Function     Public Function balokVolume(ByVal panjang As Integer, ByVal lebar As Integer, ByVal tinggi As Integer)         Dim hasilRumus As Integer         hasilRumus = panjang * lebar * tinggi         Return hasilRumus     End Function     Public Function balokLuasPermukaan(ByVal panjang As Integer, ByVal lebar As Integer, ByVal tinggi As Integer)         Dim hasilLuasPermukaan As Integer         hasilLuasPermukaan = 2 * ((panjang * lebar) + (panjang * tinggi) + (lebar * tinggi))         Return hasilLuasPermukaan     End Function     Public Function balokKeliling(ByVal panjang As Integer, ByVal lebar As Integer, ByVal tinggi As Integer)         Dim hasilRumus As Integer         hasilRumus = 4 * (panjang + lebar + tinggi)         Return hasilRumus     End Function End Class