Cara Membuat Aplikasi Menu

Pada latihan kali ini saya bahas bagaimana cara membuat aplikasi yang telah dilengkapi Full Down, sebenarnya sih di kampus saya belum diajarin bikin kaya ginian berhubung saya punya buku vb maka saya akan share disini. Okelaah jangan terlalu banyak improvisasi langsung aja kita mulai.

Sebagai contoh kita akan membuat menu seperti gambar di bawah ini :

 Langkah – langkah membuat menu

1. Buatlah sebuah form, atur property caption form menjadi Desain Menu

2. Setelah Form tersebut menjadi focus (aktif), pilih menu tools kemudian pilih Sub Menu Menu editor atau dengan cara menekan Ctrl+E maka akan di tampilkan dialog menu editor seperti gambar di bawah ini 

3. Pada kotak dialog pengisian Caption, Ketik :&File, maka akan tampil pada kotak list dibagian jendela menu editor

4. Pada kota dialog pengisian Name ketik nama menu contoh:mnfile Tekan enter untuk mengakhiri pendefinisian ini. Teks yang ada pada kotak caption dan name akan terhapus sendiri untuk membuat menu berikutnya.

5. Buatlah seluruh menu seperti gambar di bawah ini, dan ingat jangan memberikan nama yang sama untuk menu

6. Pilih item shortcut dalam kotak dialog menu editor kemudian pilih salah satu yang ada dalam list box seperti gambar di bawah ini :

7. Kemudian Buatlah sebuah for seperti di bawah ini :

8. aturlah property masing – masing dan jangan lupa memberikan formabout sebagai properti nama dari form

Masukan kode berikut ini pada tombol OK

      

Private Sub Command1_Click() Me.Hide End Sub

9. Kemudian pada saat desainn Form, klik menu Help buatan anda, dan selanjutnya akan di tampilkan menu-menu lainya milik dari menu file tersebut.

Dari menu help itu klik menu sub menu About, yang akan menyebabkan di tampilkanya kota dialog untuk pengisian kode pada kotak dialog tersebut tuliskan kode sebagai berikut :

Private Sub mnabout_Click() formabout.Show End Sub

10. selanjutnya anda tinggal menjalankan form menu klik menu Run atau tekan F5

Mudahkan....

semoga bermanfaat

Program Menghitung Berat Badan

Waduh udah gak kerasa nih sekarang udah semester 4, kerasa cepet banget nh waktu... Padahal ngerasa baru kemaren gw baru masuk kuliah, Bahasa Program yang harus dikuasai juga udah beda,,, sekarang gw belajar Visual Basic 6.0 . Sekedar kasih tau aja visual basic adalah salah satu development tools untuk membangun aplikasi dalam lingkungan windows dalam pengembangan aplikasi. Visual Basic adalah bahasa pemograman berbasis windows yang sering disebut dengan OOP ( objek oriented programming) yaitu pemrograman yang berorientasi dengan Objek inget yah “objek” bukan “ojek” (capee deh...)
Kemaren pas ga ada kerjaan di rumah gw coba-coba bikin program perhitungan berat badan simple aja ch.... oke tidak usah banyak bicara, untuk membuat program tersebut ikuti langkah berikut....
1. klik new form
2. kemudian buat form seperti berikut :

Nama Kontrol	Property	Nilai
Label1	Caption	Program Menghitung Berat Badan
Label2	Caption	Masukan data anda
Label3	Caption Text	Nama  Kosongkan
Label4	Caption Text	Tinggi Badan Kosongkan
Label5	Caption Text	Berat Badan Kosongkan
Text1	Name Text	Nm kosongkan
Text2	Name Text	Tbadan Kosongkan
Text3	Name Text	Bbadan Kosongkan
Command1	Name Caption	cmdproses Proses
Command2	Name Caption	cmdulang ulang
Command3	Name Caption	cmdselesai selesai

1. Pada Tombol proses, masukan kode program berikut :

Private Sub cmdproses_Click()

Dim Nama As String

Dim tb, bb, bi, b As Long

Nama = nm.Text

tb = Val(tbadan.Text)

bb = Val(bbadan.Text)

bi = (tb - 110) * 1.1

If (bb > (1.1 * bi)) Then

MsgBox " Halo " + Nama + " Anda Terlalu Gemuk "

Else

If (bb < (0.9 * bi)) Then

MsgBox " Halo " + Nama + " Anda Harus Banyak Makan "

Else

MsgBox " Halo " + Nama + " Berat Tubuh Anda Ideal "

End If

End If

End Sub

 4. pada tombol ulang masukan code program berikut :

Private Sub cmdulang_Click()

nm.Text = ""

tbadan.Text = ""

bbadan.Text = ""

End Sub

5. pada tombol selesai masukan code program berikut :

Private Sub cmdselesai_Click()

x = MsgBox("Yakin Mau Udahan", vbYesNo + vbInformation, "Tawaran")

If x = vbYes Then

End

End If

6. jika sudah selesai tekan F5, atau pilih menu run kemudian start,

7. beres deh!!!!  gampang kan.....