Selasa, 28 September 2010

Menu Editor dengan Visual Basic 6.0

Cara Membuat Menu Editor:



Untuk membuat Menu Editor ada 2 cara yaitu :
1. Pilih menu Tool dan pilih Menu Editor
2. Klick kanan pada mouse dan pilih Menu Editor
3. Tekan Ctrl+E pada keyboard
Cara Pembuatan :
• Caption diisi dengan nama menu yang kita inginkan contoh File ”&File” setiap penulisan di caption diawali dengan ”&”
• Name diisi dengan nama menu ditambah “Menu_” pada awalnya dan nama menu tidak memakai spasi, Misal “Menu_file”
• Jika kita ingin memasukan menu dalam suatu menu lain dapat digunakan atau mengklilk
• Kemudian akan muncul tampilan di form1 seperti berikut :







Logika Program:
Private Sub mn_MenuDeret1_Click() untuk pengaturan menu Menu Deret 1, kemudian yang akan terjadi pada Menu Celcius apabila diklik sebegai berikut:
 Form1.Hide berarti form 1 akan disembunyikan.
 Form2.Show berarti form 2 akan ditampilkan.
Private Sub Celcius _Click() untuk pengaturan menu Celcius, kemudian yang akan terjadi pada Menu Celcius apabila diklik sebegai berikut:
 Form1.Hide berarti form 1 akan disembunyikan.
 Form2.Hide berarti form 2 akan disembunyikan.
 Form3.Show berarti form 3 akan ditampilkan.
Pembuatan Form.
Untuk membuat form dengan cara sebagai brikut:
1. Pilih menu Project dan pilih Add Form.
2. Click kanan kemudian pilih Add Form.
3. Pilih add form dari menu toolbars standar.

Logika Program:
 Private Sub Command1_Click() untuk pengaturan Command1:
For a = 1 TO val(Text1.text)
For b = 1 TO a
Print b;
Next b
Print
Next a
o Harga a dimulai dari 1 samapi nilai pada Text1.text.
o Harga b mulai dari 1 hingga nilai pada harga a pada saat itu.
o Cetak harga b, data selanjutnya akan dicetak kesamping.
o Kemudian harga b selanjutnya, jiak harga b sudah memenuhi harga a pada saat itu kemudian pencetakan berikutnya akan di cetak pada baris selanjutnya.
o Harga a selanjutnya. Pengulangan akan terus terjadi hingga harga a memenuhi harga pada Text1.text

Logika Program:
 Private Sub Command1_Click() merupakan pengaturan Command1:
• Nilai Kelvin.Text adalah Celcius.text ditambah 273,15
• Nilai Fahrenheit.Text adalah Celcius.Text dikali 1.8 ditambah 32.
• Nilai Rankine.Text adalah Celcius.Text dikali 1,8 ditambah 491.7.
• Nilai Reamur adalah Kelvin.Text dikurangi 273,15 dikali 98.

0 komentar:

Posting Komentar

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More