Aplikasi Menu Pilihan
- Form Design
- Code
Dim PHI = 3.14
Sub menuutama()
Select Case (Val(Me.txtPilih.Text))
Case 1
Me.pnlmenu.Visible = False
Me.pbalok.Visible = True
Me.pbalok.Location.X.ToString(12)
Me.pbalok.Location.Y.ToString(12)
Case 2
Me.pnlmenu.Visible = False
Me.pnlLingkaran.Visible = True
Case 3
Me.pnlmenu.Visible = False
Me.pnlKubus.Visible = True
Case 4
Me.pnlmenu.Visible = False
Me.pnlPersegiPanjang.Visible = True
Case 5
Utama.Enabled = True
Utama.Show()
Me.Hide()
Case Else
Me.txtPilih.Text = ""
Me.txtPilih.Focus()
End Select
End Sub
Sub hitbalok()
Me.txtVolumeIsiBalok.Text = Val(Me.txtPanjangBalok.Text) * Val(Me.txtLebarBalok.Text) * Val(Me.txtTinggiBalok.Text)
End Sub
Sub hitLingkaran()
Me.txtLuasLingkaran.Text = Val(Me.txtjariLingkaran.Text) ^ 2 * PHI
End Sub
Sub hitKubus()
Me.txtVolumeKubus.Text = Val(Me.txtPanjangSisiKubus.Text) ^ 3
End Sub
Sub hitPersegi()
Me.txtLuasPersegi.Text = Val(Me.txtPanjangPersegi.Text) * Val(Me.txtLebarPersegi.Text)
End Sub
Private Sub Latihan8_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.pnlmenu.Location = New System.Drawing.Point(12, 12)
Me.pbalok.Location = New System.Drawing.Point(12, 12)
Me.pnlLingkaran.Location = New System.Drawing.Point(12, 12)
Me.pnlKubus.Location= New System.Drawing.Point(12, 12)
Me.pnlPersegiPanjang.Location= New System.Drawing.Point(12, 12)
Me.pnlmenu.Visible = True
Me.pbalok.Visible = False
Me.pnlLingkaran.Visible = False
Me.pnlKubus.Visible = False
Me.pnlPersegiPanjang.Visible = False
End Sub
Private Sub txtPilih_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPilih.TextChanged
Call menuutama()
End Sub
'Panel Balok
Private Sub txtPanjangBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangBalok.TextChanged
Call hitbalok()
End Sub
Private Sub txtLebarBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarBalok.TextChanged
Call hitbalok()
End Sub
Private Sub txtTinggiBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTinggiBalok.TextChanged
Call hitbalok()
End Sub
Private Sub lbMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu.Click
Me.pbalok.Visible = False
Me.pnlmenu.Visible = True
Me.txtPilih.Text = ""
Me.txtPilih.Focus()
End Sub
'Panel Lingkaran
Private Sub txtjariLingkaran_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtjariLingkaran.TextChanged
Call hitLingkaran()
End Sub
Private Sub lbMenu2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu2.Click
Me.pnlLingkaran.Visible = False
Me.pnlmenu.Visible = True
Me.txtPilih.Text = ""
Me.txtPilih.Focus()
End Sub
'Panel Kubus
Private Sub txtPanjangSisiKubus_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangSisiKubus.TextChanged
Call hitKubus()
End Sub
Private Sub lbMenu3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu3.Click
Me.pnlKubus.Visible = False
Me.pnlmenu.Visible = True
Me.txtPilih.Text = ""
Me.txtPilih.Focus()
End Sub
'Panel Persegi Panjang
Private Sub txtPanjangPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangPersegi.TextChanged
Call hitPersegi()
End Sub
Private Sub txtLebarPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarPersegi.TextChanged
Call hitPersegi()
End Sub
Private Sub lbMenu4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu4.Click
Me.pnlPersegiPanjang.Visible = False
Me.pnlmenu.Visible = True
Me.txtPilih.Text = ""
Me.txtPilih.Focus()
End Sub
Private Sub pnlPersegiPanjang_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnlPersegiPanjang.Paint
End Sub
End Class
- Start Debugging
