Membuat Program Visual Basic 6.0 dengan Menggunakan Percabangan Select Case

langkah - langkah pembuatan programnya :

1. buka aplikasi visual basic 6.0 buat project new pilih standrad EXE klik open atau klik dua kali

2. muncul tampilan form 1, Kalau kalian ingin merubah warna background, font dan tampilan lainnya dapat disesuaikan dengan menu yang ada di properties yang ada di tabel kanan.

3.Kemudian buatlah 1 label , 2 textbox dan 3 commandbutton pada form tersebut 1label tersebut diganti captionnya tabel 1 tersebut diganti dengan judulnya tersebut, Kemudian pada 2 textbox tersebut diganti :
Text 1: pada tulisan text di properties dikosongkan di name diamkan saja
Text 2: pada tulisan text di properties dikosongkan lalu pada name diamkan saja
Pada commandbutton akan diubah yaitu :
Button 1 : pada menu properties ada tulisan caption diganti menjadi “PLANET”
Button 2 : pada menu properties ada tulisan caption diganti menjadi “END”
Button 3 : pada menu properties ada tulisan caption diganti menjadi “REFRESH’
Lalu rapikan posisi dalam tabel tersebut dengan rapih .Kalau kalian ingin mengubah font dan background kalian lihat di properties yang ada tabel di kanan tersebut. seperti pada gambar dibawah ini :

4. Kemudian, kita klik commandbutton 1 untuk mengisi code yang ada pada blog tersebut dengan benar
Private sub command1_click ()
Private Sub Command2_Click()
tx1.Text = ""
tx2.Text = ""
End Sub
Terakhir commandbutton 3 dengan seperti code dibawah ini :
Private Sub Command1_Click()
    Dim no_planet As Integer
    Dim nama_planet As String

    no_planet = Text1.Text

    Select Case no_planet
    Case 1
        nama_planet = "Merkurius"
    Case 2
        nama_planet = "Venus"
    Case 3
        nama_planet = "Bumi"
    Case 4
        nama_planet = "Mars"
    Case 5
        nama_planet = "Jupiter"
    Case 6
        nama_planet = "Saturnus"
    Case 7
        nama_planet = "Neptunus"
    Case 8
        nama_planet = "Uranus"
    Case 9
        nama_planet = "Pluto"
    Case Else
        MsgBox " saat ini jumlah Planet yang di ketahui ada 9", vbOKOnly, "Nama-Nama Planet"

    End Select
    Text2.Text = nama_planet
    End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.text = “”
Text2.text = “”
End Sub
pada gambar dibawah :

5.Kemudian kalau sudah kalian kilik run lalu start
jalankan programnya dengan memasukkan angka di text 1 dari 1-9 maka text 2 akan muncul nama planet yang anda inginkan, jika anda keluar dari angka 1-9 anda akan mendapatkan messagebox., lalu mau menghapus klik refresh dan klik end untuk mengakhiri program
Kalau program sudah benar kalian save program dengan klik file lalu save project kalian buat folder yang kalian ingin simpan.

 

flowchart programnya