Selasa, 14 April 2015

UTS Pemrograman Bisnis

KALKULATOR BANGUN DATAR

Kita dapat menghitung luas dan keliling bangun datar:
1. Persegi Panjang
2. Segitiga
3. Jajar Genjang










CLASS
Public Class Class1
    Public Function Lpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
        Lpersegipanjang = (panjang * lebar)
    End Function

    Public Function Kpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
        Kpersegipanjang = (2 * (panjang + lebar))
    End Function

    Public Function Lsegitiga(ByVal alas As Integer, ByVal tinggi As Integer)
        Lsegitiga = (alas * tinggi) / 2
    End Function

    Public Function Ksegitiga(ByVal sisi As Integer)
        Ksegitiga = (3 * sisi)
    End Function

    Public Function Ljajargenjang(ByVal alas As Integer, ByVal tinggi As Integer)
        Ljajargenjang = (alas * tinggi)
    End Function

    Public Function Kjajargenjang(ByVal sisiA As Integer, ByVal alas As Integer)
        Kjajargenjang = (2 * (sisiA + alas))
    End Function
End Class


SOURCE CODING
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Persegi Panjang" Then
            Form3.Show()
            Me.Hide()
        End If

        If ComboBox1.Text = "Segitiga" Then
            Form4.Show()
            Me.Hide()
        End If

        If ComboBox1.Text = "Jajar Genjang" Then
            Form5.Show()
            Me.Hide()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("Anda yakin ingin keluar?", "Kalkulator Bangun Datar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Close()
    End Sub
End Class

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim objLpersegipanjang As New Class1
        Dim objKpersegipanjang As New Class1
        TextBox3.Text = objKpersegipanjang.Kpersegipanjang(TextBox1.Text, TextBox2.Text)
        TextBox4.Text = objLpersegipanjang.Lpersegipanjang(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objLsegitiga As New Class1
        Dim objKsegitiga As New Class1
        TextBox3.Text = objKsegitiga.Ksegitiga(TextBox5.Text)
        TextBox4.Text = objLsegitiga.Lsegitiga(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form5

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim objLjajargenjang As New Class1
        Dim objKjajargenjang As New Class1
        TextBox3.Text = objKjajargenjang.Kjajargenjang(TextBox6.Text, TextBox1.Text)
        TextBox4.Text = objLjajargenjang.Ljajargenjang(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()
        Me.Hide()
    End Sub

End Class