Tugas UTS : Penghitung luas

1. penjelasan program aplikasi

program ini berfungsi untuk menghitung luas segitiga, lingkaran, dan persegi. pertama pengguna diminta untuk memilih luas apa yang akan dihitung, kemudian pengguna memasukan inputnya sesuai yang dibutuhkan, misal

• jika pengguna memilih menghitung luas segitiga, maka pengguna diminta untuk memasukan alas dan tinggi
• jika pengguna memilih menghitung luas lingkaran, maka pengguna diminta untuk memasukan jari-jari
• jika pengguna memilih menghitung luas persegi, maka pengguna diminta untuk memasukan alas dan sisi

2. screenshoot

 

3. source code

source coding form

Public Class Form1
    Dim vgol As String
    Dim inputnya As New luas
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = "(alas * tinggi) / 2" Then
            Dim alas As Integer = InputBox("masukan alas")
            Dim tinggi As Integer = InputBox("masukan tinggi")
            TextBox1.Text = (inputnya.konversi(alas) * inputnya.konversi(tinggi)) / 2
        ElseIf TextBox2.Text = "π * jari-jari^2" Then
            Dim jari As Integer = InputBox("masukan jari-jari")
            TextBox1.Text = inputnya.konversi(jari) ^ 2 * 22 / 7
        ElseIf TextBox2.Text = "sisi^2" Then
            Dim sisi As Integer = InputBox("masukan sisi")
            TextBox1.Text = inputnya.konversi(sisi) ^ 2
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        vgol = ComboBox1.Text
        Select Case vgol
            Case "luas segitiga"
                TextBox2.Text = "(alas * tinggi) / 2"
            Case "luas lingkaran"
                TextBox2.Text = "π * jari-jari^2"
            Case "luas persegi"
                TextBox2.Text = "sisi^2"
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        inputnya.selesai()
    End Sub
End Class


source coding kelas

Public Class luas
    Dim alas, tinggi, jari, sisi As Integer

    Public Function konversi(ByVal karakter As Integer)

        konversi = StrConv(karakter, alas)
        konversi = StrConv(karakter, tinggi)
        konversi = StrConv(karakter, jari)
        konversi = StrConv(karakter, sisi)

    End Function
    Sub selesai()
        Dim x = MsgBox("Terimakasih. Anda yakin keluar? ", MsgBoxStyle.YesNo)
        If vbYes = x Then
            Form1.Close()
        ElseIf vbNo = x Then
            Form1.Show()


        End If