Contoh Program Visual Basic 2010 : Latihan 8

'Latihan 8 (Pengoperasian rumus dengan menggunakan panel)


   'Tampilan Form

'Coding

Public Class Latihan_8

    'Deklarasi Menu Utama

    'Dim pilih As Integer

    'Deklarasi Balok

    'Dim pjbalok, lbbalok,tgbalok, vlbalok, as Integer

    'Deklarasi Lingkaran

    'Dim jari As Integer

    Dim PHI = 3.14

    'Deklarasi Kubus

    'Dim Sisi, vlkubus As Integer

    'Deklarasi Persegi Panjang

    'Dim pjpersegi, lbpersegi, lspersegi As Integer

    Sub menutama()

        Select Case (Val(txtPilih.Text))

            Case 1

                Me.pMenu.Visible = False

                Me.pBalok.Visible = True

            Case 2

                Me.pMenu.Visible = False

                Me.pLuasLingkaran.Visible = True

            Case 3

                Me.pMenu.Visible = False

                Me.pKubus.Visible = True

            Case 4

                Me.pMenu.Visible = False

                Me.pPersegi.Visible = True

            Case 5

                Utama.Enabled = True

                Utama.Show()

                Me.Hide()

            Case Else

                Me.txtPilih.Text = ""

                Me.txtPilih.Focus()

        End Select

    End Sub

    Sub hitungbalok()

        Me.txtVolume.Text = Val(Me.txtPanjangBalok.Text) * Val(Me.txtLebarBalok.Text) * Val(Me.txtTinggiBalok.Text)

    End Sub

    Sub hitunglingkaran()

        Me.txtLuasLingkaran.Text = Val(Me.txtJari.Text) ^ 2 * PHI

    End Sub

    Sub hitungkubus()

        Me.txtVolKubus.Text = Val(Me.txtSisiKubus.Text) ^ 3

    End Sub

    Sub hitungpersegi()

        Me.txtLuasPersegi.Text = Val(Me.txtPanjangPersegi.Text) * Val(Me.txtLebarPersegi.Text)

    End Sub

    Private Sub Latihan_8_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.pMenu.Location = New System.Drawing.Point(12, 12)

        Me.pBalok.Location = New System.Drawing.Point(12, 12)

        Me.pLuasLingkaran.Location = New System.Drawing.Point(12, 12)

        Me.pKubus.Location = New System.Drawing.Point(12, 12)

        Me.pPersegi.Location = New System.Drawing.Point(12, 12)

        Me.pMenu.Visible = True

        Me.pBalok.Visible = False

        Me.pLuasLingkaran.Visible = False

        Me.pKubus.Visible = False

        Me.pPersegi.Visible = False

    End Sub

    Private Sub txtPilih_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPilih.TextChanged

        Call menutama()

    End Sub

    'Panel Balok

    Private Sub txtPanjangBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangBalok.TextChanged

        Call hitungbalok()

    End Sub

    Private Sub txtLebarBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarBalok.TextChanged

        Call hitungbalok()

    End Sub

    Private Sub txtTinggiBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTinggiBalok.TextChanged

        Call hitungbalok()

    End Sub

    Private Sub lbMenu1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu1.Click

        Me.pBalok.Visible = False

        Me.pMenu.Visible = True

    End Sub

    'Panel Lingkaran

    Private Sub txtJari_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJari.TextChanged

        Call hitunglingkaran()

    End Sub

    Private Sub lbMenu2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu2.Click

        Me.pLuasLingkaran.Visible = False

        Me.pMenu.Visible = True

    End Sub

    'Panel Kubus

    Private Sub txtSisiKubus_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSisiKubus.TextChanged

        Call hitungkubus()

    End Sub

    Private Sub lbMenu3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu3.Click

        Me.pKubus.Visible = False

        Me.pMenu.Visible = True

    End Sub

    'Panel Persegi Panjang

    Private Sub txtPanjangPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangPersegi.TextChanged

        Call hitungpersegi()

    End Sub

    Private Sub txtLebarPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarPersegi.TextChanged

        Call hitungpersegi()

    End Sub

    Private Sub lbMenu4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu4.Click

        Me.pPersegi.Visible = False

        Me.pMenu.Visible = True

    End Sub

    Private Sub Label24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label24.Click

        End

    End Sub

End Class