STRUKTUR KONTROL VISUAL BASIC 6 0 STRUKTUR KONTROL

STRUKTUR KONTROL VISUAL BASIC 6. 0

STRUKTUR KONTROL • Struktur kontrol adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program. • Visual basic 6 mengenal dua jenis struktur kontrol, yaitu : • Struktur kontrol keputusan digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. • Struktur kontrol pengulangan digunakan untuk melakukan pengulangan kode program. by dna&witari 2

STRUKTUR KONTROL KEPUTUSAN • Ada dua struktur kontrol keputusan didalam visual basic 6. 0 yaitu 1. IF then 2. Select Case by dna&witari 3

IF …. THEN …. • Bentuk penulisan (syntax) struktur if…then : • 1. if <kondisi> then <kode program> bila <kondisi> bernilai true maka <kode program> akan dikerjakan. • 2. if <kondisi> then <blok kode program 1> else <blok kode program 2> end if bila by dna&witari bila <kondisi> bernilai true maka <blok kode program 1> akan dikerjakan, tetapi <kondisi> bernilai false maka <blok kode program 2> yang akan dikerjakan 4

CONTOH IF • CODE : PRIVATE SUB CMDHASIL_CLICK() if val(txtbil. text) mod 2 = 0 then lblhasil. caption = "bilangan genap" else lblhasil. caption = "bilangan ganjil" end if END SUB by dna&witari 5

SELECT CASE • BENTUK PENULISAN (SYNTAX) STRUKTUR SELECT…CASE : N> CASE ELSE SELECT CASE <PILIHAN> CASE <PILIHAN 1> <BLOK KODE PROGRAM X>] END SELECT 1> CASE <PILIHAN 2> <BLOK KODE PROGRAM 2> CASE <PILIHAN N> by dna&witari <BLOK KODE PROGRAM • Bila <pilihan> sesuai dengan <pilihan 1> maka <blok kode program 1> akan dikerjakan, dst. tetapi bila <pilihan> tidak ada yang sesuai dengan <pilihan 1> s/d <pilihan n> maka <blok kode program x> yang akan dikerjakan. 6

CHECKBOX menjadi false. • Kontrol ini digunakan untuk menerima input dari user dimana dapat ditentukan untuk • Contoh Program mengklik atau tidak mengklik checkbox. • Bila mengklik checkbox properti Value bernilai true dan bila diklik dekali lagi, properti berubah lagi by dna&witari 7

CODE • DIM HARGA, TOTAL AS LONG • PRIVATE SUB CHCKNASI_CLICK() harga = 20000 if chcknasi. value = vbchecked then total = total + harga else if chcknasi. value = vbunchecked then total = total - harga end if txttotal. text = total END SUB harga = 25000 if chcksoto. value = vbchecked then total = total + harga else if chcksoto. value = vbunchecked then total = total - harga end if txttotal. text = total END SUB • PRIVATE SUB CHCKSOTO_CLICK() by dna&witari 8

LISTBOX & COMBOBOX • Combobox merupan kontrol • Listbox merupakan kontrol dimana user hanya bisa dimana user dapat mengisikan memilih satu atau lebih pilihan nilai baru pada kotak yang sudah disediakan dan combo. Box tersebut. tidak bisa mengisikan atau • Combo. Box merupakan mengetikan nilai yang lain gabungan dari list box dan text • Properties yang penting dalam box listbox dan combobox yaitu items by dna&witari 9

CARA MENAMBAHKAN ITEMS Ada dua cara menambahkan items dalam listbox dan combobox yaitu 1. Dengan coding menggunakan methode additem namalist. additems(“item baru”) atau dim noindex as integer noindex = namalist. items. add(“item baru”) 2. Dengan properties carilah properties list, lalu isilah items barunya by dna&witari 10

MENGHAPUS ITEMS • Menghapus satu items method yang digunakan Remove. Items contoh : List 1. Remove. Items(“Bogor”) • Menghapus banyak items method yang digunakan Clear • Menghitung items by dna&witari method yang digunakan List. Count 11

by dna&witari 12

CODE • PRIVATE SUB FORM_LOAD() listkota. additem ("JAKARTA") • PRIVATE SUB CMDHAPUS_CLICK() listkota. additem ("BOGOR") listkota. removeitem listkota. listindex listkota. additem ("MEDAN") txtisi. text = "" END SUB • PRIVATE SUB CMDTAMBAH_CLICK() listkota. additem (txtisi. text) txtisi. text = "" END SUB • PRIVATE SUB CMDJUM_CLICK() txtjum. text = listkota. listcount END SUB • PRIVATE SUB CMDBERSIH_CLICK() listkota. clear END SUB by dna&witari 13

LATIHAN by dna&witari 14

KETENTUAN PROGRAM • Jurusan beasiswa Jurusan Uang kuliah Akuntansi 4000000 Manajemen 5000000 Sistem Informasi 5000000 Psikologi 6000000 • Discount Akan ada sebesar 20% dari uang kuliah untuk yang by dna&witari • Total didapat dari uang kuliah dikurang discount • Tombol hitung akan memproses total yang didapat dari uang kuliah dikurangi discount • Tombol selesai akan mengakhiri program 15

• PRIVATE SUB COMJUR_CLICK() select case comjur. text end select END SUB case "akuntansi" txtuang. text = 4000000 case "sistem informasi" txtuang. text = 5000000 case "psikologi" txtuang. text = 6000000 • PRIVATE SUB FORM_LOAD() comjur. additem ("manajemen") comjur. additem ("akuntansi") comjur. additem ("sistem informasi") comjur. additem ("psikologi") END SUB case "manajemen" txtuang. text = 5000000 by dna&witari 16

• PRIVATE SUB OPTBEA_CLICK() if optbea. value = true then txtdis. text = 0. 2 * val(txtuang. text) CMDHITUNG_CLICK() txttotal. text = val(txtuang. text) val(txtdis. text) END SUB end if END SUB • PRIVATE SUB CMDSELESAI_CLICK() end END SUB • PRIVATE SUB by dna&witari 17