Source Code untuk Menampilkan Menu pada Visual Basic

Untuk menampilkan menu pada visual basic ikuti langkah-langkah berikut :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.
Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label dan MenuStrip.

Klik pada Type Here dan isikan Menu seperti ini :

5. Double klik pada Menu “Menhitung Luas Jajar Genjang” dan “Menampilkan Gambar 3 Kriteria dalam 2 Picture”. Kemudian isi listing program seperti dibawah ini :

Public Class Form2

Private Sub MenghitungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenghitungToolStripMenuItem.Click
Form3.Show()
End Sub

Private Sub MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem.Click
Form4.Show()
End Sub

End Class

6. Kemudian Save and Start Debugging.

Langkah selanjutnya untuk menu “Menghitung Luas Jajar Genjang” dibuat pada form yang berbeda.

Untuk membuat form kedua klik kanan pada nama project pilih Add pilih Windows Form.

Menghitung Luas Jajar Genjang.

1. Klik ToolBox, kemudian pilih Label, TextBox, dan Button.

Kemudian, gantikan nama Label1 menjadi “Input Alas”, Label2 menjadi “Input Tinggi”, Label3 menjadi “Luas Jajar Genjang”, Label4 gantikan menjadi judul yang kita inginkan, dan Button1 menjadi “Proses”.
Maka akan tampak seperti gambar dibawah ini :

2. Double klik pada Button1. Kemudian isi listing program seperti dibawah ini :

Public Class Form3
Dim alas, tinggi, hasil As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
alas = Val(TextBox1.Text)
tinggi = Val(TextBox2.Text)
hasil = alas * tinggi
TextBox3.Text = hasil
End Sub
End Class

3. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

Langkah selanjutnya untuk menu “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” dibuat pada form yang berbeda pula.

Berikut langkah-langkahnya :

1. Klik ToolBox, kemudian pilih Label, PictureBox, RadioButton, GroupBox, dan Button.

Kemudian, gantikan nama Label1 menjadi “Kriteria”, GroupBox1 menjadi “Kriteria Gambar”, GroupBox2 menjadi “Proses”, RadioButton1 menjadi “Deawsa”, RadioButton2 menjadi “Orang Tua”, RadioButton3 menjadi “Anak-anak”, Button1 menjadi “Clear”,  dan Button2 menjadi “Selesai”.
Maka akan tampak seperti gambar dibawah ini :

2. Double klik pada Button1, Button2, RadioButton1, RadioButton2, dan RadioButton3. Kemudian isi listing program seperti dibawah ini :

Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = Nothing
PictureBox2.Image = Nothing
End Sub

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

Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\1.jpg”)
‘Gambar pria dewasa’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\4.jpg”)
‘Gambar wanita dewasa’
End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\5.jpg”)
‘Gambar orang tua’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\9.jpg”)
‘Gambar orang tua’
End If
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\2.jpg”)
‘Gambar pria anak-anak’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\3.jpg”)
‘Gambar wanita anak-anak’
End If
End Sub
End Class

3. Kemudian Save and Start Debugging.

4. Klik di RadioButton untuk menampilkan foto yang diinginkan.
Jika di pilih “Dewasa”, maka akan muncul gambar :

Jika di pilih “Orang Tua”, maka akan muncul gambar :

Jika di pilih “Anak-anak”, maka akan muncul gambar :

5. Klik “Clear” untuk membersihkan gambar.

6. Klik “Selesai”.

Note :

Note : Ada dua cara dalam memasukkan gambar, yaitu :
1. Gambar yang sudah ada dalam folder Project-bin-Debug.
Contohnya : PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)
2. Gambar yang terdapat didalam folder lainnya yang terletak dalam Local Disk (D:) atau sejenisnya.
Contohnya : PictureBox1.Image = Image.FromFile(“D:\foto.jpg”).

Untuk Menu “Menghitung Luas Jajar Genjang” dan “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” nantinya akan ditampilkan dengan mengklik Menu tersebut pada Form1. Program untuk menampilkan kedua Menu tersebut yaitu :

Public Class Form2

Private Sub MenghitungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenghitungToolStripMenuItem.Click
Form3.Show()
End Sub

Private Sub MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem.Click
Form4.Show()
End Sub

End Class

Jika klik pada Menu “Menghitung Luas Jajar Genjang” akan muncul seperti ini :

Jika klik pada Menu “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” akan muncul seperti ini :

Sekian langkah-langkah cara menampilkan menu pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ya ^^

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.