MENU EDITOR PADA VISUAL BASIC ~ PRAS-DESIGN

Assalamu’alaikum Wb Wb

Salam sejahtera bagi kita semua, Alhamdulillah akhir nya saya bisa juga menyelesaikan tugas Laporan Akhir ini yang penuh dengan misteri.

Baiklah kita langsung saja ke materi Laporan Akhir nya yaitu Tentang Menu Editor.sebelum kita masuk lebih dalam tentang Menu Editor alangkah baik nya kita ketahui terlebih dahulu, apa itu MENU EDITOR? Jadi, Menu Editor ini merupakan salah satu TOOL yang terdapat dalam menu Visual Basic (VB) untuk membuat suatu control menu. O iyah maksud dari Menu Editor Disini Menu Editor yang ada pada Visual Basic yah ...

Oke kita langsung saja ke inti nya yaitu membuat Laporan Akhir tentang Menu Editor, di dalam Menu Editor ini nanti nya akan ada Input/Output, Kondisi, Looping dan lain – lain. Dan yang sudah pasti akan ada banyak penjelasan yang saya jabarkan, tetapi tidak sebanyak masalah yang sedang saya derita.

Di atas merupakan contoh sederhana dari Menu Editor (yang digaris hijau), jadi fungsi dari Menu Editor ini mempermudah mengatur pengaturan dari program itu sendiri (menurut saya). Hampir semua program dari sederhana sampai program yang sangat luar biasa pasti ada Menu Editor nya, contoh program sederhana lain nya yaitu web browser seperti Mozilla Firefox, Opera, Safari, Chrome.dan lain – lain.

Baiklah sekarang saya akan beri tahu cara pembuatan Menu Editor beserta isi dan penjelasan nya, mudah kok, perhatikan ya cara nya dibawah ini …

Pertama buka terlebih dahulu Aplikasi Microsoft Visual Basic nya, Visual Basic yang saya gunakan ini versi 6.0 yah … jangan keder. Biasa nya kalau kita baru buka Visual Basic selalu muncul pilihan Project yang akan di buat. Contoh nya kaya gambar dibawah ini.

Kalau sudah muncul gambar seperti diatas, pilih yang Standard.EXE lalu klik Open. Kalau sudah di klik Open muncul lah tampilan awal Project, kaya gambar ini.

Kalau sudah siap tampilan project nya, sekarang kita klik tool yang ada di toolbar lalu klik Menu Editor…

Kalau sudah kita klik Menu Editor… akan tampil gambar seperti di bawah ini

Kalau sudah keluar gambar seperti di atas, langsung saja ketik di kolom Caption:I/O dan di kolom Name:io. Kalau sudah klik Next lalu buat lagi sampai persis seperti gambar di bawah ini.

O iyah hampir lupa, untuk kolom “Name:” ketiklah nama Menu seperti diatas nya atau seperti di kolom “Caption:”, tetapi tidak menggunakan Spasi, contoh nya seperti gambar di atas, untuk ”Caption:”Bilangan Prima dan “Name:”bilanganprima.

Kalau sudah bisa di mengerti, sekarang kita lanjut edit Menu Editor nya hingga tampil titik – titik seperti gambar dibawah ini.

Untuk menampilkan titik – titik seperti gambar di atas, cukup klik nama Menu yang akan di beri titik – titik, lalu klik button panah ke kanan atau yang di kotakin warna biru, untuk Segitiga dan Persegi Panjang klik panah yang ke kanan nya 2 kali. Fungsi dari pengaturan ini untuk mempermudah mencari Menu/pengaturan pada program yang sedang dibuat. Kalau belum mengerti apayang di maksud saya, ini loh contoh nya, artikan sendiri yah …

Untuk lebih singkat nya, jadi titik – titik ini fungsi nya untuk meng-group Menu Bar seperti gambar di atas.Contohnya di dalam I/O ada Luas, lalu di dalam Luas ada Segitiga dan Persegi Panjang. Begituu..

Nah sekarang kita langsung ke Menu Segitiga. Di klik yah …

Kalau sudah di klik segitiga nya, langsung ketik saja code nya bawah ini.

Form1.Hide
Form2.Show

Code di atas artinya program akan menyembunyikan Form1 dan akan menampilkan Form2 secara bersamaan. Nah kita kan belum membuat Form baru atau Form2, sekarang kita buat dulu Form2 nya yang nanti nya akan kita gunakan sebagai Form Segitiga. Cara membuat Form baru cukup Klik Project pada toolbar lalu klik Add Form, lalu keluar banyak pilihan menu Project kita pilih yang Form lalu klik Open.(Tampilan nya seperti awal kita membuka VB).

Lalu buatlah Form yang baru itu hingga tampil seperti gambar dibawah ini.

Kalau sudah tampil seperti gambar diatas, sekarang kita double klik Button HITUNG dan kita masukan code nya berikut ini

Label4.Caption = Text1.Text * Text2.Text / 2

Untuk penjelasan nya tolong diperhatikan yah …, karena disini Form nya tentang menghitung Luas Segitiga, maka saya akan gunakan rumus Alas X Tinggi / 2, atau rumus asli nya yaitu ½ x alas x tinggi. Jadi code yang saya gunakan itu artinya Label 4 akan menampilkan hasil penjumlahan dari Textbox1 di kali textbox2 lalu di bagi 2. Nanti hasil nya akan tampil di Label4. Seperti ini contoh nya.

Dari gambar diatas terlihat hasil dari perkalian antara 6 dan 5 lalu di bagi 2, tampil lah angka 15 di label 4.

Sekarang kita double klik Button HAPUS dan masukan code nya dibawah ini.

Label4.Caption = ""

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Kita cukup perhatikan tanda kutip nya saja, di label4 ada 2 tanda kutip yang di tengah nya tidak diberi keterangan apapun, jadi begitu Button HAPUS di klik maka pada label 4 tidak ada keterangan apapun alias kosong/terhapus, istilah nya itu kita memanipulasi program. Lalu untuk Textbox1 dan Textbox2 sama seperti di atas. Nah untuk codingan SetFocus ini berfungsi mengaktifkan cursor, bukan cursor sih namanya saya lupa pokok nya yang kedip – kedip itu lah yang biasa di Microsoft office word.Jadi setelah di klik Button HAPUS nya tidak perlu lagi kita klik ulang di Textbox1 nya, kita langsung ketik saja.Kalau masih penasaran dan bingung, di praktekin saja yah nanti juga tahu.

Sekarang kita lanjut ke Commandbutton KEMBALI, double klik Button KEMBALI nya dan masukan code nya berikut ini

Form1.Show

Form2.Hide

Codingan di atas memiliki arti yaitu program akan menyembunyikan Form2 atau Form Segitiga dan akan menampilkan Form1 atau Form Menu yang di awal tadi secara bersamaan.

Oke sekarang kita lanjutkan ke menu Persegi Panjang.

Di klik Persegi Panjang nya lalu masukan Code nya berikut ini

Form1.Hide
Form3.Show

Di sini code nya sama seperti segitiga tadi, hanya saja Form yang digunakan adalah Form2. Sedangkan Form yang digunakan di Persegi Panjang ini adalah Form3, jadi kita membuat Form baru atau Form3 untuk mengaktifkan code di atas. Untuk membuat Form3 atau Form baru cara nya sama saja kok seperti membuat Form2 sebelum nya.

Buatlah Form3 hingga tampil seperti ini.

Kalau sudah seperti gambar di atas kita double klik Button HITUNG, lalu masukan code nya berikut ini.

Label4.Caption = Text1.Text * Text2.Text

Code di atas merupakan code dari rumus Persegi Panjang yaitu Panjang x Lebar, jadi artinya code di atas adalah Text1 di kalikan dengan Text2 yang hasil nya akan di tampilkan di Label 4. Bisa di lihat contoh nya dibawah ini.

Dari gambar di atas terlihat hasil perkalian antara textbox1 dengan textbox2 yang di tampilkan di label 4.

Sekarang kita lanjutkan ke menu Kondisi, kali ini program kondisi yang saya gunakan ialah tentang Grade nilai A, B, C dan langsung E (tanpa D).maksudnya jika

Kita input nilai antara 90 – 100 maka akan keluar keteranganGrade A

Kita input nilai antara 80 – 89 maka akan keluar keterangan Grade B

Kita input nilai antara 70 – 79 maka akan keluar keterangan Grade C

Kita input nilai antara 0 – 69 maka akan keluar keterangan Grade E

Baiklah kita langsung saja ke pembahasan, kita klik menu Kondisi lalu klik Grade.

Kalau sudah di klik langsung saja masukan code nya berikut ini

Form1.Hide

Form5.Show

Codingan ini artinya program akan menyembunyikan Form1 dan akan menampilkan Form5 secara bersamaan.

Itu artinya kita harus buat Form5 atau Form baru untuk membuat project program Grade. Seperti biasa untuk membuat Form baru caranya sudah ada di atas.Kalau sudah membuat Form baru buatlah tampilan Form nya menjadi seperti ini.

Kalau sudah membuat tampilan Form nya seperti gambar di atas, sekarang kita double klik Button CEK dan masukan code nya.

total = (Text1.Text * 0.7) + (Text2.Text * 0.3)

If total > 100 Then

Label4.Caption = "SALAH"

ElseIf (total <= 100) And (total >= 90) Then

Label4.Caption = "GRADE A"

ElseIf (total <= 89) And (total >= 80) Then

Label4.Caption = "GRADE B"

ElseIf (total <= 79) And (total >= 70) Then

Label4.Caption = "GRADE C"

Else

Label4.Caption = "GRADE E"

End If

Kita perhatikan terlebih dahulu penjelasan tentang code yang saya gunakan sebelum kita mengecek hasil dari code ini.

“private sub command1_click()” = artinya jika commandbutton1 di klik maka akan menampilkan suatu aksi pada suatu program tersebut tergantung isi code nya. Dapat kita simpulkan bahwa code ini merupakan awal dari perintah kita untuk memulai membuat project dari suatu program.

“Total = (text1.text * 0.7) + (text2.text * 0.3)” = ini artinya total sama dengan, textbox1 kita input angka berapapun dan sebelahnya ada (*), artinya angka yang di input pada textbox1 akan kalikan dengan angka 0.7. begitupun textbox2, tetapi pada textbox2 angka yang dikalikan bukan 0.7 angka yang di input oleh kita akan di kalikan dengan angka 0.3. eiiit tunggu dulu, di tengah-tengah ada symbol (+) itu artinya hasil dari perkalian textbox1 dengan 0.7 dan textbox2 dengan 0.3 di tambah atau di jumlah. Contoh dehh, misal textbox1 saya input 100 maka 100 akan dikalikan dengan 0.7 hasil nya yaitu 70 dan misalkan saya input angka di textbox2 100 juga, maka 100 akan dikalikan dengan 0.3 dan hasil nya 30, jadi hasil textbox1 dan textbox2 di jumlah 70+30=100. Jadi variabel “total” memiliki nilai “100”. Huuff capek euyy, udah paham belum?? Kalau belum paham bisa di tanyakan langsung ke apotek terdekat. Ehh :v

“If total >100 then

Label4.caption=”SALAH””= ini maksudnya “jika nilai total lebih dari 100 then / maka label4 akan menampikan kata yang berupa informasi yang kita buat sendiri misal nya dari code diatas adalah “SALAH” / (salah memasukan nilai juga bisa). Itupun jika kondisi pada if terpenuhi, jika tidak maka program akan melanjutkan pencarian kondisi yang dicari dan sesuai. Biasa nya melanjutkan pencarian ke “Elseif”. Perhatikan penjelasan dibawah ini.

“Elseif (total<=100) and (total>=90) then

Label4.caption=”GRADE A”” = program akan menuju ke elseif jika kondisi if di atas tidak terpenuhi, contoh dari program ini jika nilai total lebih dari atau sama dengan 90 dan kurang dari 100 maka label4 akan menampilkan keterangan “GRADE A” jadi nilai yang lebih dari 90 dan kurang dari 100 merupakan kondisi kedua, karena kodisi yang pertama berada di If.

Untuk baris 7 sampai dengan baris 12 penjelasan nya sama seperti di atas, penjelasan nya tentang kondisi ke 2 pada pernyataan If.

Sekarang kita masuk ke penjelasan code di baris 13 dan seterusnya

“Else” = biasa nya di pakai jika kondisi pada if dan elseif tidak terpenuhi, maka program akan menuju Else, mungkin bisa dikatakan ini merupakan jalan terakhir, karna kondisi 1 dan 2 nya tidak terpenuhi. (itu menurut saya loh ya??) :v

“Label4.caption=”GRADE E”” = nah ini nih kalau kondisi 1 dan 2 tidak terpenuhi, maka akan menampilkan keterangan “GRADE E” pada label 4.

“End if” = di mana awal nya ada ”if, elseif, then” jangan lupa untuk menutup semua code diatas dengan End if.

“End sub” = maksud nya perintah untuk mengakhiri procedure dari program yang sedang di buat.

Kalau sudah mengerti dari penjelasan code yang saya gunakan sekarang kita lihat hasil dari code yang saya gunakan ini.

Dari gambar di atas terlihat keterangan SALAH, ini artinya nilai yang kita input di textbox1 dan textbox2 melebihi angka 100.

Sekarang kita input angka antara 90 – 100, contoh dari gambar di atas ialah inputan angka 95 di kedua textbox, maka akan keluar keterangan GRADE A.

Percobaan selanjutnya ialah inputan angka antara 80 – 89, dari gambar di atas saya input 85, maka label 4 akan menampilkan GRADE B.

Selanjutnya kita input angka antara 70 – 79, contoh gambar di atas ialah angka 75, setelah kita klik Button CEK maka akan tampil keterangan GRADE C di label 4.

Yang terakhir kita input angka antara 0 – 69, contoh gambar di atas adalah angka 50 maka akan tampil keterangan GRADE E di label 4.

Baiklah kalau sudah kita bahas semua tentang Button klik CEK kita lanjutkan ke Button klik HAPUS. Di double klik ya Button HAPUS nya, lalu masukan code nya berikut ini.

Text1.Text = ""

Text2.Text = ""

Label4.Caption = ""

Text1.SetFocus

Di baris kedua ada “text1.text = “ ””, ini maksudnya jika kita mengklik button HAPUS maka aksi yang terjadi ialah menghilangkan/menghapusinputan yang kita input, kenapa bisa? Karena pada code diatas ada tanda kutip 2 yang ditengah-tengah nya tidak di isi kata-kata atau keterangan apapun,jadi di kosongkan begitu saja, dan hasil nya ketika kita klik button HAPUS nya maka textbox1 akan kosong, begitu juga untuk textbox2. Lalu di baris ke empat ada “Label4.caption = “””, ini artinya jika kita mengklik button HAPUS maka aksi yang terjadi ialah menghilangkan/menghapus hasil pengecekan yang keluar di label4.Untuk SetFocus nya bisa di baca di atas.

Di bawah ini adalah hasildari Button HAPUS dan code yang saya gunakan

Baiklah kalau sudah paham kita lanjut ke Button klik KEMBALI, code yang saya gunakan untuk Button KEMBALI ini sangat sederhana, seperti ini.

Form5.Hide

Form1.Show

Code ini artinya program akan menyembunyikan Form5 atau Form GRADE NILAI dan akan menampilkan Form1 atau Form Menu.

Oke sekarang kita ke materi selanjutnya yaitu tentang LOOPING, program looping yang saya gunakan kali ini tentang outputan angka bilangan prima dengan menginput batas. Misal nya kita menginput angka 20 lalu klik Button INPUT, maka di Listbox akan menampilkan Bilangan Prima dari 1 sampai dengan batas inputan yaitu 20. Baiklah sekarang kita buat Form baru untuk Bilangan Prima, sebelum kita lanjut ke Bilangan Prima kita edit dulu Menu nya yaitu Menu Looping lalu Bilangan Prima.

Yang ini nih

Masukan code nya berikut ini

Form1.Hide
Form4.Show

Nah kalau sudah dimasukan code kita sekarang lanjut ke Form baru yaitu Bilangan Prima, o iyah code di atas ini sama saja kok fungsi nya seperti Code – code sebelum nya.

Baik, sekarang buatlah tampilan Form4 atau Form baru nya seperti gambar di bawah ini. Yang kotak besar itu nama nya ListBox ya …

Kalau sudah membuat tampilan Form nya seperti gambar di atas, sekarang kita double klik Button INPUT dan masukan code nya berikut ini.

batas = Val(Text1.Text)
For x = 2 To batas
z = 0
For y = 2 To x
hasil = x Mod y
          If hasil = 0 Then
          z = z + 1
          End If
     Next y
If z <= 1 Then
List1.AddItem x
End If
Next x

Di sini ada variabel batas, x, y, z dan hasil. Variable batas memiliki nilai dari inputan text1, lalu untuk x memiliki nilai 2 sampai dengan angka yang kita input tadi di variable batas, lalu variable z memiliki nilai 0 dan untuk variable y memiliki variable 2 sampai dengan hasil dari perhitungan variabel x, lalu variable hasil memiliki nilai dari hasil dari sisa pembagian antara x dan y yang jika hasil nya 0 maka variable z akan di tambahkan dengan angka 1. Lalu program akan balik lagi ke variable y sampai menemukan yang sedang di cari nya, lalu jika sudah ditemukan hasil nya ternyata variable z kurang dari atau sama dengan 1 maka Listbox akan menampilkan nilai dari variable x dan seterusnya sampai dengan angka yang kita input tadi di textbox. Begitulah logika yang bisa saya jabarkan.

Baiklah kalau sudah paham kita langsung saja ke Button klik HAPUS, dengan code berikut ini.

Text1.Text = ""

List1.Clear

Text1.SetFocus

Untuk (text1.text = “”) sudah ada keterangan nya di atas, tinggal baca saja, lalu untuk List1.Clear, sudah tahulah Clear ini fungsi nya untuk membersihkan atau menghapus. Lalu ada Text1.SetFocus ini artinya begitu kita klik Button HAPUS maka di Text1 akan tampil kedip – kedip cursor yang artinya tinggal ketik saja tidak usah di klik ulang.

Nah yang selanjutnya yaitu Button KEMBALI, kita double klik Button KEMBALI nya dan masukan code nya berikut ini.

Form1.Show

Form4.Hide

Ini artinya program akan menampilkan Form1 dan akan menyembunyikan Form4 alias Form Bilangan Prima.

Oke yang terakhir yaitu membuat pesan perizinan keluar menu. Yang ini nih

Di klik yah, lalu masukan code nya berikut ini

pesan = MsgBox("apakah anda ingin keluar?", vbYesNo, "Exit")

If pesan = vbYes Then

End

End If

Maksud dari code diatas ialah begitu kita klik Exit maka program akan menampilkan pesan kecil berupa pertanyaan yang bisa kita buat sendiri. contoh code di atas ialah (apakah anda ingin keluar?) dan ada pilihan antara Yes dan No jika kita pilih Yes maka Program akan keluar dan jika kita pilih No maka Program tidak melakukan aksi apapun.

Contoh nya gambar di bawah ini