cara membuat menu dan sub menu di Visual Basic 6.0

LAPORAN AKHIR

Mata Praktikum        : ALGORITMA & PEMROGRAMAN 2A

Kelas                          : 1IA11

Praktikum ke-            : 5

Tanggal                     : 11 April 2016

Materi                         : Pengenalan Visual Basic 6.0

NPM                           : 55415187

Nama                         : NUR IRFAN EKA FADHILAH

Ketua Asisten           :

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 17 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2016

LISTING PROGRAM

Private Sub Check1_Click() If Check1.Value = False Then Label3.FontBold = False Else Label3.FontBold = True End If End Sub Private Sub Check2_Click() If Check2.Value = False Then Label3.FontItalic = False Else Label3.FontItalic = True End If End Sub Private Sub Check3_Click() If Check3.Value = False Then Label3.FontUnderline = False Else Label3.FontUnderline = True End If End Sub

 

Private Sub Command1_Click() Label3.Caption = Text1.Text + vbCrLf + Text2.Text Text1.Text = "" Text2.Text = "" End Sub Private Sub Command2_Click() Label3.Caption = "" Check1.Value = False Check2.Value = False Check3.Value = False Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Label3.FontBold = False Label3.FontItalic = False Label3.FontUnderline = False Label3.ForeColor = False End Sub Private Sub Command3_Click() Unload Me MDIForm1.Show End Sub

 

	Private Sub Option1_Click() Label3.ForeColor = vbYellow End Sub Private Sub Option2_Click() Label3.ForeColor = vbGreen End Sub Private Sub Option3_Click() Label3.ForeColor = vbRed End Sub Private Sub Option4_Click() Label3.ForeColor = vbBlue End Sub

 

LOGIKA PROGRAM

            Dalam pertemuan minggu ke-5 kali ini kita akan mencoba membuat program menggunakan Visual Basic 6.0. Di pemrograman kali ini kita akan membuat Nama dan NPM dengan menggunakan Font style dan Font Color. Komponen-komponen yang dibutuhkan pada pemrograman kali ini yaitu:

-       3 Label

-       2 Text Box

-       3 CheckBox

-       4 OptionButton

-       3 CommandButton

-       1 Buah MDIForm    

            Pertama kita taruh komponen Label1 pada Form1 yaitu dengan cara klik kiri Label pada toolbox setelah itu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita ganti isi caption Label1 itu dengan Nama. Lalu kita taruh komponen Label2 pada Form1 yaitu dengan cara klik kiri Label pada toolbox setelah itu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita ganti isi caption Label2 itu dengan NPM. Setelah itu kita taruh komponen Label3 pada Form1 yaitu dengan cara klik kiri Label pada toolbox setelah itu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita kosongkan caption dari Label 3. Kenapa kita harus kosongkan karena fungsi dari label3 ini digunakan untuk mencetak hasil dari si Text1 dan Text2.

            Setelah kita selesai menaruh komponen-komponen label ke dalam Form1, lalu kita masukkan komponen TextBox1 pada Form1 yaitu dengan cara klik kiri TextBox pada toolbox setelah itu kita taruh pada Form1 setelah itu kita ke properties lalu cari Text kemudian kita kosongkan Text dari Text1, lalu kita masukkan komponen TextBox2 pada Form1 yaitu dengan cara klik kiri TextBox pada toolbox setelah itu kita taruh pada Form1 setelah itu kita ke properties lalu cari Text kemudian kita kosongkan Text dari Text2.

            Kemudian setlah kita telah selesai memasukkan komponen-komponen text, lalu kita taruh komponen CheckBox1 pada Form1 yaitu dengan cara klik kiri CheckBox pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita ganti isi Caption CheckBox1 itu dengan BOLD, lalu kita taruh komponen CheckBox2 pada Form1 yaitu dengan cara klik kiri CheckBox pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita ganti isi Caption CheckBox2 itu dengan ITALIC, lalu kita taruh komponen CheckBox3 pada Form1 yaitu dengan cara klik kiri CheckBox pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari caption kemudian kita ganti isi Caption CheckBox3 itu dengan UNDERLINE.

            Setelah selesai memasukkan komponen-komponen CheckBox, lalu kita taruh komponen OptionButton1 pada Form1 yaitu dengan cara klik kiri OptionButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari caption OptionButton1 itu dengan YELLOW, lalu kita taruh komponen OptionButton2 pada Form1 yaitu dengan cara klik kiri OptionButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari caption OptionButton2 itu dengan GREEN, lalu kita taruh komponen OptionButton3 pada Form1 yaitu dengan cara klik kiri OptionButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari caption OptionButton3 itu dengan RED, lalu kita taruh komponen OptionButton4 pada Form1 yaitu dengan cara klik kiri OptionButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari caption OptionButton4 itu dengan BLUE.

            Setelah selesai memasukkan komponen-komponen OptionButton, lalu kita taruh komponen CommandButton1 pada Form1 yiatu dengan cara klik kiri CommandButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari Caption CommandButton1 itu dengan PRINT, lalu kita taruh komponen CommandButton2 pada Form1 yiatu dengan cara klik kiri CommandButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari Caption CommandButton2 itu dengan RESET, lalu kita taruh komponen CommandButton3 pada Form1 yiatu dengan cara klik kiri CommandButton pada toolbox lalu kita taruh pada Form1 setelah itu kita ke properties lalu cari Caption kemudian kita ganti isi dari Caption CommandButton3 itu dengan MDIForm, setelah kita selesai memasukkan komponen-komponen tersebut lalu kita susun komponen-komponen tersebut sehingga seperti gambar seperti dibawah ini :

            Fungsi dari CommandButton MDIForm digunakan untuk agar ketika mengklik MDI Form maka akan masuk ke dalam MDIForm, namun kita harus membuat MDI Formnya terlebih dahulu cara membuat MDI Form adalah sebagai berikut

-       Pertama kita klik kiri Project terlebih dahulu

-       Lalu setelah itu kita klik kiri Add MDI Form

-       Lalu kita klik kiri MDI Form setelah itu kita Klik kiri Open

            Setelah kita membuat MDIForm kita akan membuat menu-menu dan submenu pada MDIForm caranya adalah sebagai berikut :

-      
Pertama kita klik kanan pada MDI Form lalu klik kiri Menu Editor

-       Setelah kita masuk ke Menu Editor lalu kita isi Caption nya dengan Menu1

-       lalu kita isi name nya dengan a setelah itu kita klik next

-       Lalu kita isi Caption nya dengan SubMenu1

-       Lalu kita isikan  name nya dengan a1

-       Setelah itu kita klik arah panah ke kanan

-      
Lalu kita klik Next

-       Lalu kita isikan kembali Caption nya dengan Menu2

-       Lalu kita isikan name nya dengan b

-       Setelah itu kita klik arah panah ke kiri

-      
Lalu kita klik Next

-       Lalu kita isikan Caption nya dengan SubMenu2

-       Lalu kita isikan name nya dengan b1

-       Setelah itu kita klik arah panah ke kanan

-      
Lalu kita klik Next

-       Lalu kita isikan kembali Caption nya dengan Exit

-       Setelah itu kita isikan name nya dengan c

-       Lalu kita klik arah panah ke kiri

-       Lalu klik Ok

            Setelah selesai memasukkan menu-menu dan SubMenu ke MDIForm maka kita kembali lagi ke Form1 lalu kita klik kiri 2 kali CheckBox Bold Lalu kita tuliskan sintaks:

Private Sub Check1_Click()

If Check1.Value = False Then

Label3.FontBold = False

Else

Label3.FontBold = True

End If

End Sub

            Fungsi dari sintaks If Check1.Value = False Then adalah pengkondisian dari Check1 jika nilai False maka akan masuk ke sintaks Label3.FontBold = False fungsi dari sintaks ini untuk agar tulisan dari Label3 akan tercetak tebal namun disini nilai nya adalah False maka tulisan tersebut tidak tercetak tebal, lalu else digunakan untuk masuk ke pengkondisian yang lain, lalu kita tuliskan Label3.FontBold = True fungsi dari sintaks ini agar tulisan dari label 3 akan tercetak tebal karena nilai nya True maka tulisan nya akan tercetak tebal, lalu kita tuliskan End If digunakan untuk mengakhiri dari pengkondisian, lalu fungsi dari sintaks End Sub adalah untuk mengakhiri dari blok program dari CheckBox1.

Lalu kita klik kiri 2 kali CheckBox Italic lalu kita tuliskan sintaks:

Private Sub Check2_Click()

If Check2.Value = False Then

Label3.FontItalic = False

Else

Label3.FontItalic = True

End If

End Sub

            Fungsi dari sintaks If Check2.Value = False Then adalah pengkondisian dari Check2 jika nilai False maka akan masuk ke sintaks Label3.FontItalic = False fungsi dari sintaks ini untuk agar tulisan dari Label3 akan tercetak tebal namun disini nilai nya adalah False maka tulisan tersebut tidak tercetak miring, lalu else digunakan untuk masuk ke pengkondisian yang lain, lalu kita tuliskan Label3.FontItalic = True fungsi dari sintaks ini agar tulisan dari label 3 akan tercetak miring karena nilai nya True maka tulisan nya akan tercetak miring, lalu kita tuliskan End If digunakan untuk mengakhiri dari pengkondisian, lalu fungsi dari sintaks End Sub adalah untuk mengakhiri dari blok program dari CheckBox2.

Lalu kita klik kiri 2 kali CheckBox Underline lalu kita tuliskan sintaks:

Private Sub Check3_Click()

If Check3.Value = False Then

Label3.FontUnderline = False

Else

Label3.FontUnderline = True

End If

End Sub

            Fungsi dari sintaks If Check3.Value = False Then adalah pengkondisian dari Check3 jika nilai False maka akan masuk ke sintaks Label3.FontUnderline = False fungsi dari sintaks ini untuk agar tulisan dari Label3 akan tercetak garis bawah namun disini nilai nya adalah False maka tulisan tersebut tidak tercetak garis bawah, lalu else digunakan untuk masuk ke pengkondisian yang lain, lalu kita tuliskan Label3.FontUnderline = True fungsi dari sintaks ini agar tulisan dari label 3 akan tercetak tebal karena nilai nya True maka tulisan nya akan tercetak garis bawah, lalu kita tuliskan End If digunakan untuk mengakhiri dari pengkondisian, lalu fungsi dari sintaks End Sub adalah untuk mengakhiri dari blok program dari CheckBox3.

Lalu kita klik kiri 2 kali commandbutton1 dan kita tuliskan sintaks:

Private Sub Command1_Click()

Label3.Caption = Text1.Text + vbCrLf + Text2.Text

Text1.Text = ""

Text2.Text = ""

End Sub

            Fungsi dari sintaks Label3.Caption = Text1.Text + vbCrLf + Text2.Text agar caption dari label 3 terisi oleh Text1 lalu kita tambah vbCrLf digunakan agar membuat baris baru lalu kita tambah isi dari Label3 dengan Text2, Text1.Text = "" lalu fungsi dari sintaks ini digunakan untuk mengkosongkan Text1.Text yang telah kita inputan terlebih dahulu, Text2.Text = "" lalu fungsi dari sintaks ini digunakan untuk mengkosongkan Text2.Text yang telah kita inputan terlebih dahulu.

Lalu kita klik kiri 2 kali commandbutton2 lalu kita tuliskan sintaks:

Private Sub Command2_Click()

Label3.Caption = ""

Check1.Value = False

Check2.Value = False

Check3.Value = False

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Label3.FontBold = False

Label3.FontItalic = False

Label3.FontUnderline = False

Label3.ForeColor = False

End Sub

            FungsiLabel3.Caption=”” digunakan untuk mengosongkan caption dari Label3, lalu fungsi dari sintaks Check1.Value=False digunakan untuk menghapus nilai dari CheckBox1, lalu fungsi dari sintaks Check2.Value=False digunakan untuk menghapus nilai dari CheckBox2, lalu fungsi dari sintaks Check3.Value=False digunakan untuk menghapus nilai dari CheckBox3, lalu fungsi dari sintaks Option1.Value=False digunakan untuk menghapus nilai dari OptionButton1, lalu fungsi dari sintaks Option2.Value=False digunakan untuk menghapus nilai dari OptionButton2, lalu fungsi dari sintaks Option3.Value=False digunakan untuk menghapus nilai dari OptionButton3, lalu fungsi dari sintaks Option4.Value=False digunakan untuk menghapus nilai dari OptionButton4, lalu fungsi dari sintaks Label3.FontBold = False adalah agar ketika kita ingin mencoba kembali maka tidak akan tercetak tebal, lalu fungsi dari sintaks Label3.FontItalic = False adalah agar ketika kita ingin mencoba kembali maka tidak akan tercetak miring, lalu fungsi dari sintaks Label3.FontUnderline = False adalah agar ketika kita ingin mencoba kembali maka tidak akan tercetak garis bawah, lalu fungsi dari sintaks Label3.ForeColor = False adalah agar ketika kita ingin mencoba kembali maka tidak akan tercetak berwarna.

Lalu kita klik kiri 2 kali commandbutton3 lalu kita tuliskan sintaks:

Private Sub Command3_Click()

Unload Me

MDIForm1.Show

End Sub

            Fungsi dari sintaks Unload Me agar keluar dari Form1, lalu kita tuliskan sintaks MDIForm1.Show fungsi dari sintaks ini adalah digunakan untuk menampilkan MDIForm1, lalu kita tuliskan sintaks End Sub untuk mengakhiri blok program.

Lalu kita klik kiri 2 kali OptionButton1 lalu kita tuliskan sintaks:

Private Sub Option1_Click()

Label3.ForeColor = vbYellow

End Sub

            Fungsi dari sintaks Label3.ForeColor=vbYellow fungsi dari sintaks ini digunakan untuk memberi warna kuning dari dari caption Label3, lalu kita tuliskan sintaks End Sub untuk mengakhiri blok program.

Lalu kita klik kiri 2 kali OptionButton2 lalu kita tuliskan sintaks:

Private Sub Option2_Click()

Label3.ForeColor = vbGreen

End Sub

            Fungsi dari sintaks Label3.ForeColor=vbGreen fungsi dari sintaks ini digunakan untuk memberi warna hijau dari dari caption Label3, lalu kita tuliskan sintaks End Sub untuk mengakhiri blok program.

Lalu kita klik kiri 2 kali OptionButton3 lalu kita tuliskan sintaks:

Private Sub Option3_Click()

Label3.ForeColor = vbRed

End Sub

            Fungsi dari sintaks Label3.ForeColor=vbRed fungsi dari sintaks ini digunakan untuk memberi warna merah dari dari caption Label3, lalu kita tuliskan sintaks End Sub untuk mengakhiri blok program.

Lalu kita klik kiri 2 kali OptionButton2 lalu kita tuliskan sintaks:

Private Sub Option2_Click()

Label3.ForeColor = vbBlue

End Sub

            Fungsi dari sintaks Label3.ForeColor=vbBlue fungsi dari sintaks ini digunakan untuk memberi warna biru dari dari caption Label3, lalu kita tuliskan sintaks End Sub untuk mengakhiri blok program