VB 6.0 PROGRAM GANJIL GENAP, HITUNG NILAI, LOOPING DERET, DAN LOOPING ASC

        Membuat program menggunakan menu editor. Dimana Menu Editor adalah salah satu tool yang terdapat dalam menu Visual Basci (VB) untuk membuat suatu control menu.

Berikut cara untuk membuat Menu Editor

Ø  Pilih menu Tool dan pilih Menu Editor

Ø  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 anda ingin membuat submenu, tekan terlebih dahulu tanda panah kearah kanan lalu ketikan nama menu dan klik Next.

Ø 
Jika anda ingin menghapus menu yang telah dibuat, anda tiggal memilih atau meng-klik menu yang ingin dihapus kemudian klik Delete

Sekarng kita akan membuat program seperti daftar menu program yang sudah kita buat di menu editor. Setelah kita membahas definisi dari menu editor itu sendiri. Sekarang saat nya kita akan membuat suatu program dari menu editor, buka visual basic 6,0 dan buatlah design pada lembar kerja form yang telah tersedia, seperti gambar dibawah ini.

 

Setelah semuanya telah di design dengan benar, dan rapih maka, selanjutnya kita akan memberikan kode-kode pada program tersebut. Tata alur dari program tersebut adalah, pertama-tama kita menjalankan suatu program , maka terlebih dahulu harus login menggunakan akun yang telah di konfigurasi. Setelh itu masuk kedalam program menu editor, dimana menu editor tersebut isinya telah diberikan link pada form yang akan kita buat dan menu editor ini diberikan kode hanya untuk memanggil program yang akan kita pilih. Setelah itu, pada setiap sub program-program yang telah kita buat, harus tersedia tombol untuk kembali ke program menu editor, dan dapat memilih program kembali. Setelah itu dalam menu editor tersedia menu exit. Didalam menu exit kita akan memgunakan msgbox untuk memberikan perntanyaan keluar atau tidak. Menggunakan Ok dan Cancel.

                Sekarang mari kita memberikan kode pada program login.yang akan mengawali ketika program dijalankan, masuk menggunakan id user yang telah dikonfigurasi.

Setalah mendesign form login, lalu double klik pada tombo  LOG IN maka akan muncul lebar kerja untuk memberikan kode pada program login, pada textbox2 untuk memasukan paswoord. Ganti passwordchar nya di property windows  dan ubah menjadi “*” atau simbol simbol sesuka anda. Fungsinya untuk merubah huruf menjadi bintang pada kolom password, setelah sudah diganti sekarang . isikan dengan kode-kode dibawah ini.

Private Sub Command1_Click()

If Text1 = "admin" And Text2 = "iqbal" Then

Form1.Show

Unload Me

Else

MsgBox ("maaf anda memasukan data yang salah")

Text1 = ""

Text2 = ""

Text1.SetFocus

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub

penjelasan

Penjelasan dari kode kode diatas, pada profram login ini kita disini memberikan konfigurasi id user/akun. Disini kita menggunakan rumus logika yaitu IF. Dimana kita mengangankan bahwa jika user diisi dengan admin pada itulah sebagai username nya, dan jika pass diisi dengan iqbal (nama saya), maka password pada user admin adalah iqbal. Setelah berhasil masuk maka akan membuka lembar kerja baru, dan jika tidak maka akan timbun msgbox dengan tulisan “maaf anda memasukan data yang salah” maka klik ok. Otomatis form akan refresh ulang dan data diapus dan kursor tedapat pada username.setelah itu end if untuk mengakhiri dari logika diatas. Dan untuk tombol cancel ketika di klik maka akan otomatis mengkosongkan form yang kita isikan data yang salah. Atau jika kita tidak jadi untuk login pada aplikasi ini.

Selanjutnya setelah kita berhasil login pada aplikasi tersebut, maka kita akan masuk kedalam program selanjutnya, yautu program menu editor, dimana menu editor disini memiliki beberapa section/menu program yaitu, sebagai berikut.

Terlihat bahwa section yang kita klik. Akan muncul menu menu program yang kita buat. Diantaranya program anjil genap,gradenilai looping/perulangan deret dan looping ascending-discanding serta menu exit. Dalam program menu editor ini disini kita memberikan kode juga terhadap program tersebut, cukup simple karena program yang kita pilih atau kita panggil akan muncul. Dan menutup lembar kerja sebelumnya, jadi ketika program dipanggil tidak double program yang muncul. Isikan dengan kode kode dibawah ini.

Private Sub ASCDSC_Click()

Form6.Show => ketika kita mengklik atau memilih suatu program tersebut yaitu program looping ascending dan discanding maka kita memanggil form6 untuk tampil/show dan. -

Unload Me => fungsinya untuk menutup lembar kerja sebelulumnya yang aktif sebelum program yang kita panggil aktif dan tampil.

End Sub

Private Sub EXIT_Click()

If MsgBox("Anda yakin mau keluar?", vbExclamation + vbOKCancel, "Konfirmasi") = vbOK Then => ini memberikan suatu kode pada menu exit dan mengunakan kode logika yaitu IF, dimana ketika kita menklik menu exit, maka akan ada pesan tampil dengan  kata “anda yakin mau keluar” dengan ikon segitiga tanda seru dan tersedia tombol OK dan CANCEL, yang logikanya, ketika ketika mengklik tombol Ok maka kita akan keluar dari program tersebut tetapi ketika kita memilih tombon Cancel maka kita tidak jadi keluar dalam program ini.

End > mengakhiri program

End If = mengakhiri kondisi logika yang telah kita pakai atau kita gunakan.

End Sub

Private Sub GANJILGENAP_Click()

Form2.Show => perintah untuk menampilkan form2dari aplikasi yag kita pilih, hanya dengan perintah show. Tandanya kita memanggil form yang kita akan panggil/tampilkan. dan

Unload Me => yang fungsi untuk menutup lembar kerja sebelumnya – dan sebelum program yang kita panggil akan ditampilkan

End Sub

Private Sub GRADENILAI_Click()

Form3.Show=> perintah untuk menampilkan form3dari aplikasi yag kita pilih, hanya dengan perintah show. Tandanya kita memanggil form yang kita akan panggil/tampilkan. dan

Unload Me=> yang fungsi untuk menutup lembar kerja sebelumnya – dan sebelum program yang kita panggil akan ditampilkan

End Sub

Private Sub LOOPING_Click()

Form5.Show=> perintah untuk menampilkan form5dari aplikasi yag kita pilih, hanya dengan perintah show. Tandanya kita memanggil form yang kita akan panggil/tampilkan. dan

Unload Me=> yang fungsi untuk menutup lembar kerja sebelumnya – dan sebelum program yang kita panggil akan ditampilkan

End Sub

Setelah kita membahas program menu editor maka kita akan membahas isi dari program menu editor. Kita memulai dengan program ganjil genap. Program ini dibuat untuk mengetahui suatu bilangan angka, apakah itu bilangan genap atau bilangan ganjil, misalnya terdapat pada gambar dibawah sebagai contoh kita mengetahui bilangan apakah itu ?.

 

Lihat gambar dibawah sebagai contoh saya meginput bilangan 2015 dan saya dapat mengetahui apakah itu bilangan genap atau ganjil. Dan setelah saya proses saya mengetahui bahwa bilangan 2015 adalah bilangan ganjil. Setalah sudah mengetahui, kita lanjut ke program berikutnya. Dengan cara mengklik tombol back. Secara otomatis program ini akan memanggil form program menu editor dan kembali memilih program pada menu editor. Program ini sangat mudah dibuat dengan kode kode sederhana dan mudah kita mengerti. Berikut saya akan berikan kode kode serta penjelasannya dari masing masing kode yang kita tuliskan.

Private Sub Command1_Click()

If Text1 Mod 2 = 0 Then

Label2 = "genap"

Else

Label2 = "ganjil"

End If

End Sub

Penjelasan dari kode diatas adalah .  disini saya memberikan kondisi logika IF pada textbox/ kotak inputan yang akan kita isikan data data bilangan, jika bilangan yang kita inputkan bisa dibagi 2 = 0 maka hasilnya akan menampilkan genap pada label2. Atau jika tidak bisa dibagi 2=0 maka akan mencetak hasil ganjil. Dan selanjutnya mengakhiri kondisi if dengan end if

Private Sub Command2_Click()

Text1 = ""

Label2 = ""

End Sub

Pada tombol cancel kita akan memberikan kondisi clear pada lembar kerja form, dnegan menuliskan kode kosong dengan perintah “ ” yang artinya kosong.

Private Sub Command3_Click()

Form1.Show

Unload Me

End Sub

Pada tombol kali ini yaitu BACK kita hanya memberikan perintah pada tombol tersebut untuk memanggilform 1 yaitu form program menu editor. Dimana menu editor digunakan untuk memilih kembali program yang akan kita pilih.

Selanjutnya kita akan membahas program berikutnya yaitu program grade nilai. Dimana program ini dibuat untuk menghitung atau mengetahui hasil dari nilai niai yang kita dapat, diantaranya kita dapat mengetahui lulus atau tidak, jumlah nilai,dan grade nilai.

Sebagai contoh saya menghitung nilai bahwa nilai yang saya dapatkan adlah uas 90 dan uts 90, maka saya mendapatkan jumlah 90, dan grade nilai saya adalah A dan keterangan saya adalah LULUS. Dan setelah itu kita juga bisa me reinput data yang telah kita masukan ataupun kita bisa kembali pada program menu editor. Sekarang kita akan membahas tentang kode kode yang kita gunakan dalam program hitung nilai ini. Perhatikan dan baca dengan seksama. Tuliskan kode kode dibawah dengan benar.

Private Sub Command1_Click()

Label7 = Val(Text1 * 0.7) + Val(Text2 * 0.3)

If Label7 <= 100 Then

Label8 = "A"

End If

If Label7 <= 80 Then

Label8 = "B"

End If

If Label7 <= 60 Then

Label8 = "C"

End If

If Label7 <= 45 Then

Label8 = "D"

End If

If Label7 <= 100 Then

Label9 = "LULUS"

End If

If Label7 <= 50 Then

Label9 = "GAGAL"

End If

End Sub

Penjelasannya adalah pada kolom jumlah atau label 7 terdapat proses aritmatika yaitu penambahan antara nilai uas dan uts. Tetapi sebelum dijumlahkan nilai uts di proses terlebih dahulu dengan dikalikan dengan 0,7 begitu juga dengan nilai uas dikalikan dulu dengan nilai 0,3  setelah itu baru semua data aritmatika dijumlahkan dengan jumlah yang ditampilkan di label7 setelah itu pada label berikutnya di jelaskan bahwa jumlah nilai kurang dari sama dengan 100 maka akan menampilkan pada label berikutnya GRADE “A”, atau jika jumlah kuang dari sama dengan 80 maka akan menampilkan GRADE “B”, atau jika jumlah kuang dari sama dengan 60 maka akan menampilkan GRADE “C”, atau jika jumlah kuang dari sama dengan 45 maka akan menampilkan GRADE “D”, setelah proses pada label8 maka selanjutnya akan melanjutkan pada label ke9 yaitu jika nilai jumlah dengan hasil kurang dari sama dengan 100 maka anda mendapatkan keterangan “LULUS”, dan jika nilai jumlah dengan hasil kurang dari sama dengan 50 maka anda mendapatkan keterangan “GAGAL”

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Text1.SetFocus

End Sub

                Pada tombol reinput ukup menggunakan kode  “” pada masing masing komponen, dan memberikan fokus pada textbox 1 mudah bukan

Private Sub Command3_Click()

Form1.Show

Unload Me

End Sub

                Pada tombol BACK cukup menggunakan kode kode sederhana, kita hanya memanggil form 1 yaitu menu edtor dan menutup lember kerja yang sebelumnya aktif diganti dengan lembar kerja baru.

Dan sekarang kita akan membahas program looping deret.  Program ini merupakan program perulangan bilangan, dimana perulangan tersebut  mengikuti apa yang kita masukan angka pada program tersebut. Berikut adalah contoh design dan contoh penggunaan program.

 

Sebagai contoh saya memasukan bilangan 10 maka program akan menghitung perulangan dengan bentuk segitiga ke kanan, berikutnya kita akan membahas kodekode yang kita masukan dalam program tersebut. Tuliskan dengan benar dan rapih.

Private Sub Command1_Click()

Cls

X = Val(Text1)

For i = 1 To X

For j = 1 To i

Print j;

Next j

Print

Next i

For i = X To 1 Step -1

For j = 1 To i

Print j;

Next j

Print

Next i

End Sub

Pada kode diatas merpakan kondisi perulangan yang dilakukan secara berurutan. Pertama kita memberikan tipe pada textbox1 bahwa bilangan tersebut bisa dieksekusi dan merupakan bilangan yang bisa dihitung. Selanjutnya. Untuk variable i akan mengerjakan eksekusi sampai yang kita inputkan pada variable x. Untuk variable j akan mengerjakan eksekusi 1 sampai yang dihasilkan dengan variable i, selanjutnya mencetak hasil dari variable j dan i, next i untuk melakukan kembali eksekusi sampai dengan terlaksana lalu untuk variable i akan mengerjakan yang dihasilkan variable x sampai ke 1 dan di longkap 1, untuk variable j akan mengerjakan 1 samapi dengan yang dihasilkan pada variable i. Setelah itu akan melakukan pencetakan variable j. Dan melakukan kondisi sampai dengan selesai.

Private Sub Command2_Click()

Cls

Text1 = ""

Text1.SetFocus

End Sub

Pada tombol CLS yang artinya clear screen akan membersihkan aktifitas yang sebelumnya, akan mengkosongkan textbox/inputan dan memberikan kursor agar fokus di textbox 1.

Private Sub Command3_Click()

Form1.Show

Unload Me

End Sub

Pada tombol BACK cukup menggunakan kode kode sederhana, kita hanya memanggil form 1 yaitu menu edtor dan menutup lember kerja yang sebelumnya aktif diganti dengan lembar kerja baru.

Setelah kita membahas program sebelumnya maka sekarang kita mengerjakan program terakhir pada pertemuan kali ini. Maka sebelumnya silahkan design terlebih dahulu formnya seperti gambar dibawah ini. Program yang akan kita buat adalah program sorting data yaitu ascending dan discanding.

 

Disini saya menggunakan 1 buah listbox dan 6 buah commandbutton. Fungsin dari program ini adalah untuk mengurutkan dari angka 1 SAMPAI 20 atau ascending , dan 20 sampai 1 atau discanding, dan disini juga bisa mengurutkan huruf dari huruf A sampai Z atau ascending dan Z sampai A atau discanding.keterangan bilangan sudah ditentukan dalam program jadi kita tinggal bisa mengklik saya commandbutton yang kita pilih.  Selanjutnya untuk membuat program ini kita dapat memasukan kode kode dibawah ini dengan seksama.

Private Sub Command1_Click()

Dim A As Integer

List1.Clear

For A = 1 To 20

List1.AddItem "Number " & A

Next A

End Sub

Kode diatas untuk memberikan pengurutan berdasarkan angka 1 sampai 20 dan akan ditampilkan di listbox dengan hasil seperti gambar dibawah.

 

Private Sub Command2_Click()

Dim A As Integer

List1.Clear

For A = 20 To 1 Step -1

List1.AddItem "Number " & A

Next A

End Sub

Kode diatas untuk memberikan pengurutan terbalik dari sebelumnya yaitu berdasarkan angka 20 sampai 1 dan akan ditampilkan di listbox dengan hasil seperti gambar dibawah.

 

Private Sub Command3_Click()

Dim B As Integer

List1.Clear

B = Asc("A")

Do Until B > Asc("Z")

List1.AddItem "Word " & Chr(B)

B = B + 1

Loop

End Sub

Kode diatas untuk memberikan pengurutan berdasarkan huruff, jika tadi angka sekarang huruf dari huruf A sampai Z dan akan ditampilkan di listbox dengan hasil seperti gambar dibawah.

 

Private Sub Command4_Click()

Dim B As Integer

List1.Clear

B = Asc("Z")

Do Until B < Asc("A")

List1.AddItem "Word " & Chr(B)

B = B - 1

Loop

End Sub

Kode diatas untuk memberikan pengurutan terbalik dari sebelumnya yaitu berdasarkan huruf dari huruf Z sampai A dan akan ditampilkan di listbox dengan hasil seperti gambar dibawah.

 

Private Sub Command5_Click()

List1.Clear

End Sub

Jika kode diatas ini hanya untuk membersihkan lembar kerja yang barusan terdapat data yang telah tereksekusi. Kosong melompong

Private Sub Command6_Click()

Form1.Show

Unload Me

End Sub

Pada tombol BACK cukup menggunakan kode kode sederhana, kita hanya memanggil form 1 yaitu menu edtor dan menutup lember kerja yang sebelumnya aktif diganti dengan lembar kerja baru.