Program struktur SELECT CASE... Sederhana menggunakan Visual Basic 6

Kali ini, saya akan menerangkan cara membuat program dengan struktur logika SELECT CASE menggunakan Program Visual Basic 6. Struktur ini memeriksa suatu variabel, lalu menjalankan perintah-perintah yang sesuai dengan kondisi yang mungkin terjadi untuk variabel tersebut. Untuk yang satu ini, kita akan menggunakan program keluaran Microsoft Visual Basic 6 untuk membuat aplikasi desktop.

Pertama kita akan membuat program Visual Basic 6 (VB6). Apabila anda belum mempunyai programnya, bisa didownload secara gratis dari faidishare.com disini dan isi serial numbernya dengan 812-2224558 atau 111-1111111.

Kemudian, klik File > New Project > Standard EXE > OK.

Kita akan buat desain seperti dibawah ini : 
0 = untuk form kita beri Tag/Captionnya Lets Try.. atau sesuai selera anda di       Properties (sebelah paling kanan) 

1 = Kita biarkan (Name)nya List1 di properties
2 = Kita biarkan (Name)nya Text1 di properties 
3 = (Name)nya diberi nama lblBarang
4 = (Name)nya diberi nama lblHarga
5 = (Name)nya diberi nama lblDiskon
6 = (Name)nya diberi nama lblJumlah
7 = (Name)nya diberi nama lblTotal
8 = Biarkan (Name)nya Command1

Kemudian pada toolbar > View > Code

Isilah kode* tersebut dengan yang dibawah ini :

[code hl="1, 4, 7"] Private Sub Form_Load() List1.AddItem "Disket" List1.AddItem "Buku" List1.AddItem "Kertas" List1.AddItem "Pulpen" End Sub Private Sub Command1_Click() Dim harga As Currency, total As Currency Dim jumlah As Integer Dim diskon As Single Dim satuan As String If List1.Text = "" Then MsgBox "Anda belum memilih barang!" List1.ListIndex = 0 Exit Sub End If If Text1.Text = "" Then MsgBox "Anda belum mengisi jumlah barang!" Text1.SetFocus Exit Sub End If Select Case List1.Text Case "Disket" harga = 35000 satuan = "Box" Case "Buku" harga = 20000 satuan = "Lusin" Case "Kertas" harga = 25000 satuan = "Rim" Case "Pulpen" harga = 10000 satuan = "Pak" End Select lblBarang.Caption = "Barang : " & List1.Text lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan lblJumlah.Caption = "Jumlah : " & Text1.Text & "/" & satuan jumlah = Text1.Text Select Case jumlah Case Is < 10 diskon = 0 Case 10 To 20 diskon = 0.15 Case Else diskon = 0.2 End Select total = jumlah * (harga * (1 - diskon)) lblDiskon.Caption = "Diskon : " & Format(diskon, "0%") lblTotal.Caption = "Total Bayar : " & Format(total, "Currency") End Sub [/code]

Sehingga jadi seperti ini

Setelah itu, klik Run > Run atau tekan F5 pada keyboard, sehingga jadinya akan seperti ini.

CARA KERJA PROGRAM :

Program ini, memakai struktur SELECT CASE untuk memilih barang yang akan dibeli dan akan menampilkan harga dan diskon dari barang tersebut. Dari sini

kita bisa mengetahui fungsi dari SELECT CASE itu sendiri, yaitu tipe percabangan untuk memilih suatu variabel yang nantinya akan di output-kan.

Semoga artikel ini bermanfaat bagi kalian yang ingin tahu lebih lanjut tentang pemograman. Salam.

*Note : Apabila kalian menemukan masalah di saat mengpastekan kodenya, kalian harus merapikannya terlebih dahulu. Terutama di bagian lblHarga dan lblTotal.

**Note : (Name) dari label dan seluruh desain from harus sama dengan di script kode.

FlowChart (Tugas)

Anu, pertama saya akan memperkenalkan dulu yang namanya FlowChart. FlowChart adalah suatu rancangan bagaimana sebuah program akan berjalan dengan sempurna sebelum dibuat dengan sebuah pola dan gambar yang disusun secara sistematis dan otomatis. Dalam Flow Chart setiap pola mempunyai masing - masing fungsinya sendiri. Sebagai contoh, saya akan menampilkan FlowChart dari program C antara lain :

1. Tampilkan 10 Bilangan Ganjil Pertama

Adapun FlowChartnya adalah sebagai berikut :

Dan struktur codingnya sebagai berikut :

int i;

for (i=1; 1<=10; i++)

{

                printf ("%i\n",i);

                if((i %2) ==1) break;

}

2. Tampilkan semua bilangan ganjil diantara bil. ke - 10 dan bil. ke - 20 dimana b < a

Adapun FlowChartnya adalah sebagai berikut :

3. Rumus luas setengah lingkaran (22/7 & 3,14)

Adapun FlowChartnya adalah sebagai berikut :

4. Tampilkan 5 bilangan genap diantara angka 11 sampai 20

Adapun FlowChartnya adalah sebagai berikut :

(Q&A) Visual Basic 6 (Tugas)

Banyak pertanyaan mengenai Visual Basic 6. Versi Visual Basic ini adalah yang paling lama dan jadul. Khususnya untuk para programmer lama tentunya tak akan tak mengenal VB yg satu ini. Pertanyaan berikut mengenai VB 6 dan penjelasannya (Q&A).
a)        Bagaimana cara menginstal VB 6 di komputer?

a.      Jalankan SETUP.exe,

b.      Klik Next, check “I accept agreement”, Next lagi

c.       Masukkan serial number seperti di gambar

d.      Klik next hingga muncul “Starting Visual Basic 6”,

e.      Klik continue dan OK tunggulah beberapa saat,

f.        Jika muncul window, pilihlah Typical, kemudian next,

g.      Tunggulah hingga proses instalasi selesai kemudian restart kompi anda.

b)        Apa saja menu yang ada di VB 6?

1.      Design Menu

2.      Menu Tab

3.      Format tab

4.      Design View

5.      Project Tab

6.      Properties

7.      Layout Tab

c)         Apa yang dimaksud tentang Tipe Data, Operator, dan Variabel pada VB 6?
a.      Tipe Data : Jenis data yang diolah sesuai kebutuhan komputer dalam membuat program. Tipe Data dibagi 2, yaitu : Primitive & Composite. Tipe Data Primitive biasanya langsung terdapat pada program, yaitu : NUMERIC, CHARACTER, dan BOOLEAN. Sementara Composite biasanya bentukan dari 2 atau lebih tipe data Primitive, Yaitu : ARRAY, RECORD, IMAGE, dan DATE TIME. Masing – masing dapat ditemukan di bahasa pemograman yang berbeda – beda seperti C++, Pascal, atau Delphi. b.      Operator : Simbol yang digunakan untuk bahasa pemograman untuk suatu operasi terhadap nilai data. Dibagi 4, yaitu :
 i.      Operator Assignment 
ii.      Operator Unary
 iii.      Operator Binary
 iv.      Operator Trinary

c.       Variabel : Tempat menyimpan data yang nilainya sudah di tetapkan, dan akan merespon atau bertindak jika ada perintah. Variabel tidak boleh diketik sembarangan. Harus diawali dengan huruf, spasi diganti underscore, tidak boleh mengandung karakter tak relevan seperti (<, :, *), tak mengandung kata kunci, mudah diingat dan dipahami.

b)        Apa yang dimaksud alur percabangan dalam pemograman VB 6?

Alur atau jalan pemograman ini memakai sistem decision, Dimana kita disuruh memilih atau menentukan perintah yang akan dikerjakan. Seperti contoh dibawah ini.