410 likes | 594 Views
Identitas dosen. Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email : leeput@yahoo.com Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com. POKOK BAHASAN. MAIN DAN POPUP MENU Tujuan Pembelajaran Khusus (TPK):
E N D
Identitas dosen Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email : leeput@yahoo.com Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com
POKOK BAHASAN MAIN DAN POPUP MENU Tujuan Pembelajaran Khusus (TPK): Setelah mempelajari pokok bahasan main dan pop up menu, maka mahasiswa dapat mendemonstrasikan tentang main menu dan pop menu dengan benar (C3)
MENU Dilingkungan Windows, menu merupakan salah satu komponen yang sering dijumpai pada program. Melalui menu, pemilih dapat melakukan berbagai pilihan atau tindakan.Menu dapat dibagi menjadi 2 macam: • Menu utama dan • Menu pop-up
Menu Utama • Menu utama dapat dibuat dengan menggunakan komponen MainMenu (dari Tab Standar) • Gambar MainMenu • Contoh Aplikasi Menu utama
Sifat dari Aplikasi ini bila salah satu menu di klik, maka akan tampil menu di bawahnya, yang dinamakan Sub menu dari menu utama • Bila dalam Sub menu tersebut terdapat menu, maka dinamakan Sub menu dari Sub menu utama
Sub menu dari Sub menu utama Sub menu dari Menu utama
Membuat Menu Untuk membuat menu ikuti langkah-langkah berikut : • Buat project baru • Pilih Mainmenu dan letakan pada form • Klik ganda main menu • Maka akan tampil seperti gb. Berikut :
Pada property Caption isi dengan &File • Enter • Maka akan tampil gb. Berikut :
Bagian akan membuat Menu utama Bagian akan membuat Sub menu utama Klik salah satu kotak yang di tunjuk untuk membuat Menu utama atau membuat Sub menu. Gunakan property Caption untuk membuat menu nya
Untuk membuat seperti gb. Di bawah : Klik pada Entry Tekan CTRL + Panah Kanan Seperti biasa isi dengan menu seperti pada gambar.
Menggunakan Icon pada menu • Tambahkan komponen imageList (tab win32) • Klik ganda imageList • Klik Tombol Add • Cari gambar yang berekstension *.bmp atau *.ico bila ketemu • Seleksi gambar yang akan di pakai (misal 3 gambar sekaligus) Open
Klik OK (kembali ke form) • Aktifkan main menu • Pilih imagelist1 pada property Images • Klik ganda main menu • Pilih menu yang akan diberi gambar (misal Entry) Pada property ImageIndex klik dropdown dan pilih gambar nya
Dengan cara yang sama pilih untuk Data Mahasiswa dan Data Mata Kuliah • Close dari main menu • Klik menu File pada form • Maka dapat terlihat seperti gbr. Berikut :
Menerapkan menu • Tambahkan 2 form baru dengan cara Klik File New Form • Maka akan mendapatkan 2 form, yaitu Form2 dan Form3 • Rubah property Name untuk Form2 menjadi FMHS, dan Form3 menjadi FMK
Menambahkan kode pada menu /memanggil form • Pilih File dari Form1 pilih Entry Klik Data Mahasiswa • Tulis kode di antara Begin dan End; FMHS.SHOW ; • Begitu juga untuk Data Matakuliah FMK.SHOW ;
Coba RUNING • Bila ada pertanyaan : • Klik Yes • Kejadian tadi akan menambahkan uses pada form1 di bawah Implementation
RUNING lagi….. • Selesai
Pop-up Menu • Cara kerja dari menu ini adalah bila kita meng Klik kanan sembarang tempat, maka akan tampil menu • Cara kerja seperti ini, dinamakan Pop-up • Contoh Pop-up
Sub Menu Menu
Cara membuat Pop-up menu Ikuti langkah-langkah berikut : • Tambahkan pada form1 komponen Popupmenu (Tab Standar) • Klik ganda Pop-up menu • Isi menu (seperti pada pembuatan menu utama) • Isi seperti pada gambar berikut
Tambahkan komponen panel (Tab Standar) pada form1 • Ubah property panel :Caption : AKU BISA BERUBAH LOOOOH….BevelInner : bvloweredBevelOuter : bvraisedBevelWidth : 3 • Atur desain nya seperti nampak pada gambar berikut :
Isi property Popupmenu pada panel dengan Popupmenu1 • Coba RUNING • Klik kanan pada Panel • Coba klik kanan pada form • Simpulkan dari kejadian tadi………..
Menerapkan event Pop-up • Klik ganda pada PopupMenu • Pilih Ukuran Klik ganda 12 isi dengan kode berikut :Panel1.Font.Size:= 12; • Ulangi langkah tadi untuk 14, 16, 18 dan 20
Pilih menu Warna Klik ganda pada Merah isi dengan kode berikut :Panel1.Font.Color:= CLRED ; • Ulangi langkah tadi untuk Biru, Kuning, Hijau
Pilih Menu Style Klik ganda Bold isi dengan kode berikut :Panel1.Font.Style:= [FSBOLD]; • Ulangi langkah tadi untuk Italic dan Underline
RUNING …. • Klik kanan pada panel • Pilih Ukuran 12 pilih Warna Merah Pilih Style Bold • Maka hasilnya akan nampak seperti gbr. berikut