Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0

Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0
Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0

Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0
Pada postingan kali ini kita tidak akan terlalu banyak membahas sebuah teori atau pembahasan seperti biasanya, kali ini kita akan belajar untuk membuat sebuah program dengan menggunakan Microsift Visual Basic 6.0

Seperti yang kita ketahui Visual Basic 6.0 merupakan sebuah bahasa pemrograman (basic) yang menawarkan IDE (Integrated Development Environment) visual untuk membuat sebuah program perangkat lunak berbasis sistem operasi Microsoft Windows.

BACA JUGA : Macam - Macam Software Microsoft Office Beserta Fungsi-Fungsinya


Jadi bahasa pemrograman yang akan kita gunakan kali ini adalah bahasa pemrograman Basic. Biasanya untuk pemula atau kalian yang baru terjun ke dunia pemrogramman , bahasa ini sering digunakan untuk pemahaman programming dasar.

Kemudian kita disini akan membuat sebuah program. Program adalah sebuah hasil jadi dari semua kumpulan intruksi kode pemrogramman yang telah dikembangkan sedemikian rupa, dengan bahasa pemrograman tertentu, dan terciptalah sebuah program ini.

Langsung saja kita praktekan cara membuat program list angka ganjill genap dengan menggunakan Visual Basic 6.0, jadi pada kasus ini kita diminta membuat sebuah programm dimana rancangannya atau algoritmanya adalah user memasukan sebuah bilangan awal dan bilangan akhir , kemudian user diminta memilih data angka yang mau ditampilkan ganjil atau genap. Kemudian hasilnya adalah menampilkan urutan angka awal - akhir sesuai keinginan user dan jenis bilangannya. Ikuti langkah - langkah berikut untuk membuatnya :

  1. Buka terlebih dahulu software Microsoft Visual Basic 6.0 dan seperti ini tampilan awalnya
    tampilan awal


  2. Pada Form1 ini kita akan gunakan sebagai Form Login. Komponen yang perlu dimasukan ke dalam Form1 adalah :  3 label , 2 button, dan 2 TextBox. Kita susun desainnya seperti berikut
    susunan desain form1 

     3.  Supaya masukan yang dimasukan pada Text2 (Password) berupa karakter * ,kita dapat mengaturnya di menu properties kemudia masukan karakter di menu PasswordChar.
    properti text2

    4. Kemudian Kita masukan kodingannya seperti berikut pada Form1
    kodingan form1 
     Penjelasan dari kodingannya seperti berikut :
    • Private Sub Command1_Click() Menyatakan kejadian ketika command1 (Button Login) diklik. 

    • If Text1 = "wisnuanggara" And Text2 = "57416689" Then Form2.Show Unload Me Menyatakan sebuah percabangan If-Else dimana pada kasus ini jika kondisi Text1 =”wisnuanggara” dan Text2 =”57416689” terpenuhi maka akan dilakukan proses menampilkan Form2 (Form2.Show) dan menghilangkan atau menyembunyikan Form1 (Unload Me). 

    • Else MsgBox "User Name atau Password yang Anda Masukkan salah"
      Menyatakan sebuah kondisi dimana kondisi if tidak terpenuhi maka akan dijalankan pada kondisi else , dalam kasus ini kondisi else akan melakukan proses menampilkan Message Box “User Name atau Password yang Anda Masukkan salah" 

    • Text1 = "" Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text1 (Reset). 

    • Text2 = "" Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text2 (Reset). 

    • End If Menyatakan akhir dari percabangan If. 

    • End Sub Mengakhiri kejadian/perintah. 

    • Private Sub Command2_Click() Menyatakan kejadian ketika command2 ( Button Reset) diklik.

    • Text1 = "” Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text1 (Reset). 

    • Text2 = "” Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text2 (Reset). 

    • End Sub Mengakhiri kejadian/perintah. 


    5. Kemudian klik kanan pada project kita yang berada padamenu project sebelah kanan, kemudian pilih add dan pilih form untuk membuat Form2. 

    BACA JUGA : Cara Membuat Database Data Relasional Dengan Ms Access

    6. Komponen yang dibutuhkan untuk Form2 ini adalah  1 ComboBox , 2 TextBox, 4 Label, 2 Button, dan 1 ListBox

    7. Susun komponennya seperti berikut
    susunan form2 

    8. Untuk menambahkan List pada Combo1 dapat dilakukan dengan memasukan daftar List pada menu List yang ada di Properties di sebelah kanan bawah tampilan. Kemudian
    masukan Listnya ,disini kita memasukan list yaitu : “ASLI”, “GENAP”, GANJIL.

    Kemudian masukan kodingannya, sebagai berikut : 

    kodingan form2


    Penjelasan kodingannya seperti ini :

    • Private Sub Command1_Click() Menyatakan kejadian ketika command1 (Button PROCESS) diklik. 

    • List1.Clear Menghilangkan semua yang ditampilkan di List1. 
     
    • a = Text1 Mendeklrasikan variabel a sebagai Text1. 
     
    • b = Text2 Mendeklrasikan variabel b sebagai Text2. 
     
    • angka = Combo1 Mendeklrasikan variabel angka sebagai Combo1. 

    • Select Case angka Menyatakan pemilihan case (percabangan) yang terjadi pada variabel angka. 
     
    • Case "ASLI" For i = a To b i = i List1.AddItem i Next i Menyatakan Case dimana jika dipilih option “ASLI” pada variabel angka (Combo1) .Dimana diproses dengan perulangan for pada variabel i dengan kondisi i = a To b artinya melakukan perulangan dari masukan pada Text1 (a) sampai dengan masukan pada Text2 (b). i=i menyatakan variabel i nilainya tetap i, kemudian akan ditampilkan hasil i pada List1 (List1.AddItem i) ,kemudian dilanjutkan dengan variabel i selanjutnya (Next i) 
     
    • Case "GENAP" For i = a To b If i Mod 2 = 0 Then List1.AddItem i End If Next i Menyatakan Case dimana jika dipilih option “GENAP” pada variabel angka (Combo1). Dimana akan diproses dengan perulangan pada variabel i dengan kondisi = a To b artinya melakukan perulangan dari masukan pada Text1 (a) sampai dengan masukan pada Text2 (b). Kemudian dilanjutkan dengan percabangan If dengan kondisi If i Mod 2 = 0 artinya jika sisa bagi 2 dari variabel i adalah 0, maka akan dilakukan proses menampilkan hasil i pada List1 dengan perintah List1.AddItem i, End If menyatakan akhir dari proses percabangan ,dan Next i menyatakan akan memproses ke variabel i selanjutnya. 
     
    • Case "GANJIL" For i = a To b If i Mod 2 = 1 Then List1.AddItem i End If Next i Menyatakan Case dimana jika dipilih option “GANJIL” pada variabel angka (Combo1). Dimana akan diproses dengan perulangan pada variabel i dengan kondisi = a To b artinya melakukan perulangan dari masukan pada Text1 (a) sampai dengan masukan pada Text2 (b). Kemudian dilanjutkan dengan percabangan If dengan kondisi If i Mod 2 = 1 artinya jika sisa bagi 2 dari variabel i adalah 1, maka akan dilakukan proses menampilkan hasil i pada List1 dengan perintah List1.AddItem i, End If menyatakan akhir dari proses percabangan ,dan Next i menyatakan akan memproses ke variabel i selanjutnya. 
     
    • End Select Menyatakan akhir dari proses percabangan (Case). 
     
    • End Sub Mengakhiri kejadian/perintah. 
     
    • Private Sub Command2_Click() Menyatakan kejadian ketika command1 (Button RESET) diklik. 
     
    • Text1 = "" Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text1 (Reset). 
     
    • Text2 = "" Menyatakan perintah untuk menghilangkan masukan (“ “) yang ada pada Text2 (Reset). 
     
    • Combo1 = "Pilih Bilangan" Menyatakan perintah untuk menuliskan masukan (“ Pilih Bilangan“) yang ada pada Combo1  
     
    • List1.Clear Menghilangkan semua yang ditampilkan di List1. 
     
    • End Sub Mengakhiri kejadian/perintah.

    Nahh setelah selesai semuanya coba sobat run, jika semua kodingan benar maka hasilnya akan seperti berikut 

    BACA JUGA : Cara Membuat Program Konversi Dengan Java NetBeans IDE 8.1

    output form1 

    output form2


    Nahh itulah tadi cara membuat program list angka ganjil genap dengan menggunakan Visual Basic 6.0 Semoga bermanfaat dan bisa menjadi refrensi untuk bahan belajar sobat .