Penggunaan Select-Case pada VB6

Nama   : Moch. Ilzam Khadidal
Npm    : 23219741
Kelas    :1EB01

  Penggunaan Select-Case pada VB6

Pengguanaan select-case pada "Informasi paket makanan"

1) Buka halaman utama pada vb6

2) Buatlah 5 Label, 3 Textbox, dan 3 CommandButtom dengan desian seperti:

3) Pengaturan desain form

N0.	Object	Property	Value
1	Form	Caption	Harga makanan
2	Label 1 Label 2 Label 3 Label 4 Label 5	Caption Caption Caption Caption Caption	Nomer paket Keterangan paket Harga Tentukan no.paket 1-5 sudah termasuk sambal
3	Text 1 Text 2 Text 3	Text Name Text Name Text Name	- Nopaket - Keterangan - Hargap
4	Command 1 Command 2 Command 3	Caption Caption Caption	Cek Hapus Keluar

4) Membuat kode program

Private Sub Command1_Click()

Nomer = Val(NoPaket)

Select Case Nomer

Case 1:  keterangan = "Nasi, ayam goreng, tahu, tempe"

        HargaP = "15.000"

Case 2:  keterangan = "Nasi, ayam bakar, tahu, tempe"

        HargaP = "15.000"

Case 3:  keterangan = "Nasi, lele goreng, Tahu, tempe"

        HargaP = "13.000"

Case 4:  keterangan = "Nasi, bawal, Tahu, tempe"

        HargaP = "13.000"

Case 5:  keterangan = "Nasi, ati ampla, Tahu, tempe"

        HargaP = "12.000"

End Select

End Sub

Private Sub Command2_Click()

NoPaket = ""

keterangan = ""

HargaP = ""

End Sub

Private Sub Command3_Click()

End

End Sub

5) Uji coba aplikasi

a) Jalankan program

b) Masukan no. paket

c)Lalu klik "Cek" maka

 

d) Jika ingin melihat menu yang lain klik "Hapus" maka kolom text akan kembali kosong

e) jika sudah selesai dan ingin keluar klik "keluar" maka anda akan keluar dari program