Visual Basic

* Coding .

Public Class Form1



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim alas, tinggi, hasil As Double
        alas = tb_alas.Text
        tinggi = Tb_tinggi.Text
        hasil = alas * tinggi

        L_hasilsegitiga.Text = "Hasilnya adalah " & hasil
    End Sub




    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim luas, tinggi, hasil As Double
        luas = Tb_luas.Text
        tinggi = Tb_tinggi2.Text

        hasil = luas * tinggi

        L_hasilpersegi.Text = "Hasilnya adalah " & hasil
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim Jarijari, keliling, hasil As Double
        Jarijari = Tb_jarijari.Text
        keliling = Tb_keliling.Text

        hasil = Jarijari * keliling

        L_hasillingkaran.Text = "Hasilnya adalah " & hasil
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim alas, tinggi, hasil As Double
        alas = Tb_alas2.Text
        tinggi = Tb_tinggi3.Text
        hasil = alas * tinggi

        L_hasiljajargenjang.Text = "Hasilnya adalah " & hasil
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Panel1.Visible = True
        Panel2.Visible = False
        Panel3.Visible = False
        Panel4.Visible = False

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Panel1.Visible = False
        Panel2.Visible = True
        Panel3.Visible = False
        Panel4.Visible = False

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        Panel1.Visible = False
        Panel2.Visible = False
        Panel3.Visible = False
        Panel4.Visible = True

    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Panel1.Visible = False
        Panel2.Visible = False
        Panel3.Visible = True
        Panel4.Visible = False

    End Sub
End Class

Ini tampilanya !!!