Membuat Program Sederhana ( IF Then dan Select Case ) Pada Visual Basic

TUGAS PRAKTIKUM VISUAL BASIC Membuat IF-Then MASSAGE BOX, CLEAR BUTTON, merubah title massage box menjadi LABSI2014 , Membuat Select Case serta cara menjalankan STARTUP pada Form2 (From Lain)”

IF-Then

1. Langkah pertama buka visual basic 6.0 pada komputer anda Start > All Program > Microsoft Visual Basic 6.0 > Microsoft Visual Basic 6.0
2. Pada tampilan awal VB 6.0 muncul New Project > 1. Standard EXE >2. Open
   
3. Lalu akan muncul jendela Project baru seperti gambar di bawah ini

   

   Tools Box : Digunakan sebagai tools yang kita butuh kan dalam pembuatan sebuah program
   Form1 : Adalah field atau tempat kerja untuk pembuatan design dari sebuah program.

4. Buatlah Design Form seperti gambar di bawah ini :
   
5. Double Click pada “OK” button untuk memasukkan fungsi coding massage box.
6. Setelah itu masukkan Coding seperti gambar di bawah ini.

   

   I. “Dim nilai As Integer”  > Pendeklarasian Variabel Nilai berupa Interger

    II.“Nilai = Text2.Text” > Letak variabel nilai berlokasi pada (Textbox) Text2.Text

   III.“If nilai >= 70 Then” > Mempunyai arti jika Nilai yang akan di input 70 s/d 100, maka akan melanjutkan perintah fungsi coding yang di bawahnya

    IV. “A = msgbox (Text1.text + “Selamat Anda LULUS”), vbOKonly, “LABSI 2014”)” > Pada CommandMassage apabila nilai 70 s/d 100 maka yang akan muncul adalah Input yang di masukkan pada Text1.text dan tambahan kata Selamat Anda LULUS serta tittle commandmassage tersebut berjudul LABSI 2014

   V. “Else” > Mengartikan bahwa “jika tidak” sesuai maka akan melanjutkan fungsi coding yang ada di bawahnya

   VI. “A = msgbox (Text1.text + “Anda Belum LULUS”), vbOKonly, “LABSI 2014”)” > Sebaliknya jika tidak sesuai dengan perintah if maka CommandMassage akan muncul Input yang di masukkan pada Text1.text dan tambahan kata Anda Belum LULUS serta tittle commandmassage tersebut berjudul LABSI 2014

   VII."End If” > Peng-Akhiran dari peng-codingan IF

   
   

   
   

7. Double Click pada “CLEAR” button untuk memasukkan fungsi coding Clear.
8. Setelah itu masukkan coding seperti gambar di bawah ini :

   

   KETERANGAN :

   -          Text1.Text = Clear : Menghapus input yang di masukkan pada Textbox 1

   -          Text2.Text = Clear : Menghapus input yang di masukkan pada Textbox 2

9. Jalankan program yang telah di buat dan masukkan NAMA serta NILAI lalu OK, maka hasilnya akan seperti gambar di bawah ini:
    
   

SELECT CASE

1. Buatlah form baru dengan cara 1. Klik Kanan Project1 > 2. Add > 3. Form > 4. Pilih “Form” > 5. Open
   
2. Buatlah design seperti di gambar di bawah ini :
   
3. Double Click pada CARI button dan masukkan Coding seperti gambar di bawah ini :

   

   
   

   ØSelect Case Text1.Text: Memlilih kasus yang ditentukan  pada  isi Text1.Text

   ØCase “J1-J5”:  Kasus yang teridentifikasi adalah J1-J5

   ØLabel2.Caption = Kalimalang  - Cakung: Setelah di cetak, caption label2 akan berganti dengan kode kampus J1-J5

   ØCase Else: Jika kasus yang dimaksud tidak ada

   ØLabel2.Caption = “ Maaf kode kampus tidak ada”: Maka caption label 2 akan mengganti tulisan “Maaf kode kampus tidak ada”

   ØEnd Select : Untuk mengakhiri fungsi Coding Select Case

4. Double Click pada “CLEAR” button untuk memasukkan fungsi coding Clear.
5. Setelah itu masukkan coding seperti gambar di bawah ini :

   

   -Text1.Text = Clear > Menghapus Input pada Text1.Text

   -Label2.Caption = “LOKASI” > Menghapus Output hasil CARI yang muncul dan merubahnya kembali menjadi kata“LOKASI”

6. Lalu jalankan (START) Program pada Form2 (Untuk menjalankan START pada Form2/Form lain tutorial dapat dilihat di postingan saya sebelumnya tentang CARA MENJALANKAN PROJECT PADA FORM LAIN di VISUAL BASIC),Jika sudah Input KODE KAMPUS dari J1-J5 seperti salah satu contoh Input KODE KAMPUS di bawah ini:

   

   Tampilan apabila input yang di masukkan J1 sampai J5

7. Apabila kita meng-Input KODE KAMPUS secara sembarang hasilnya seperti gambar di bawah ini:

   

   Selain J1 sampai J5 maka akan seperti gambar di atas

Selesai