Skip to main content

Struktur kendali menggunakan Visual Basic 6



STRUKTUR KENDALI
Struktur Kendali di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
ร˜  Struktur kendali percabangan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi.
ร˜  Struktur kendali perulangan - digunakan untuk melakukan pengulangan kode program.
  1. Struktur Kendali Percabangan
Ada dua bentuk struktur kendali keputusan, yaitu :
·         Struktur If…Then
·         Struktur Select…Case

1.      Struktur If…Then
Bentuk penulisan (syntax) struktur If…Then :
ร˜  If <kondisi> Then <kode program>
Artinya, Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.
ร˜  If <kondisi> Then
<blok kode program 1>
Else
<blok kode program 2>
End If
Artinya, Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi bila <kondisi> bernilai False maka <blok kode program 2> yang akan dikerjakan.

1.1 Contoh Program :
-          Aktifkan VB 6 melalui tombol Start.
-          Buka kembali project Latihan.vbp.
-          Tambahkan Form baru ke dalam Project.
-          Pada Jendela Form buatlah UI seperti ini :
-          (Gunakan komponen Label, Image, TextBox dan CommandButton)

Pengaturan property setiap object-nya adalah sebagai berikut :
Object
Properties
Value
Form5
Caption
Struktur If…Then
StartUpPosition
2 – CenterScreen
Image1
Stretch
True
Picture
Komputer.wmf
Visible
False
Label1
Caption
Password :
Text1
PasswordChar
*
Text
<kosong>
Command1
Caption
OK
Default
True

Coba jalankan Project1 :
-          Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter -> tidak terjadi apa-apa.
-          Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter -> gambar computer akan muncul.

Penjelasan kode program :

If Text1.Text = "nusantara" Then Image1.Visible = True






               Kondisi                    kode program yang dikerjakan
                                                       bila kondisi TRUE
Modifikasi kode programnya menjadi sebagai berikut :

Coba jalankan Project1 :
-          Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter ๔€ƒ† muncul kotak pesan “Passwordnya Salah !”. Klik tombol OK pada kotak pesan tersebut.
-           Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter ๔€ƒ† gambar computer akan muncul. TextBox dan tombol OK menjadi disable (tidak bisan digunakan).
Penjelasan kode program :
             Kondisi
If Text1.Text = "nusantara" Then
Image1.Visible = True
Text1.Enabled = False                            blok kode program yang dikerjakan bila kondisi TRUE 
Command1.Enabled = False
Else
MsgBox "Passwordnya Salah !"
Text1.Text = ""                                              blok kode program yang dikerjakan bila kondisi FALSE
Text1.SetFocus
End If
Catatan tambahan :
-          Teks “nusantara” harus diketik huruf kecil semua. Ingat : data string bersifat case sensitive !
-          Agar password-nya tidak bersifat case sensitive, modifikasi pernyataan kondisinya menjadi :
If LCase(Text1.Text) = "nusantara" Then

Fungsi LCase adalah untuk mengkonversi semua string yang diinput ke Text1.Text menjadi huruf kecil, walaupun user menginputnya dengan huruf kapital.

2.      Struktur Select…Case
Bentuk penulisan (syntax) struktur Select…Case :
Select Case <pilihan>
Case <pilihan 1>
<blok kode program 1>
Case <pilihan 2>
<blok kode program 2>
Case <pilihan n>
<blok kode program n>
Case Else
<blok kode program x>
End Select
Artinya, 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.

2.1 Contoh Program : Struktur Select…Case
-          Aktifkan VB 6 melalui tombol Start.
-          Buka kembali project Latihan.vbp.
-          Tambahkan Form baru ke dalam Project.
-          Pada Jendela Form buatlah UI seperti ini :
-          (Gunakan komponen Label, ListBox, TextBox dan CommandButton)


Pengaturan property setiap object-nya adalah sebagai berikut :
Object
Properties
Value
Form6
Caption
Struktur Select…Case
StartUpPosition
2 – CenterScreen
Label1
Caption
Pilih Barang :
List1
-
-
Label2
Caption
Jumlah :
Text1
Text
<kosong>
Command1
Caption
OK
Label3-7
Name
lblBarang, lblHarga, lblJumlah,
lblDiskon, lblTotal
BackColor
Palette : <putih>
Caption
<kosong>

Coba jalankan Project :
-          List1 akan terisi nama-nama barang.
-          Klik tombol OK -> akan muncul kotak pesan "Anda belum memilih barang !!".
-          Klik OK, nama barang pertama akan terpilih secara otomatis. Anda boleh memilih nama barang yang lainnya.
-          Klik tombol OK -> akan muncul kotak pesan "Anda belum mengisi jumlah barang !!".
-          Klik OK, text1 akan menjadi focus. Isi jumlah barangnya, misalnya : 10.
-          Klik tombol OK -> akan tampil : nama barang, harga barang (per-satuannya), jumlah barang (dengan satuannya), diskon dan total bayar.
-          Coba ganti pilihan nama barang (pada List1) dan jumlah barang (pada Text1) lalu klik lagi tombol OK.
Penjelasan kode program :
Select Case List1.Text       cek barang yang dipilih :
Case "Disket"
harga = 35000                    bila barang = Disket                     
satuan = "Box"
Case "Buku"
harga = 20000                    bila barang = Buku
satuan = "Lusin"
Case "Kertas"
harga = 25000                    bila barang = Kertas
satuan = "Rim"
Case "Pulpen"
harga = 10000                    bila barang = Pulpen
satuan = "Pak"
End Select

lblBarang.Caption = "Barang : " & List1.Text
lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan                                 tampilkan hasilnya
lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

jumlah = Text1.Text

Select Case jumlah                             cek jumlah barang :
Case Is < 10                                        
diskon = 0                                             bila jumlah < 10 -> diskon = 0%                      
Case 10 To 20
diskon = 0.15                                        bila jumlah 10-20 -> diskon = 15%
Case Else
diskon = 0.2                                          bila jumlah > 20 -> diskon = 20%
End Select

total = jumlah * (harga * (1 - diskon))                                                                               Hitung total bayar dan  tampilkan hasilnya
lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")
lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")

Catatan :
-          Bila jumlah barang diisi dengan selain angka akan muncul pesan error.
-          Untuk mengecek isi Text1 angka atau bukan, tambahkan kode program berikut :
If Not IsNumeric(Text1.Text) Then
MsgBox "Isi jumlah barang harus angka !!"
Text1.SetFocus
Exit Sub
End If





  1. Struktur Kendali Perulangan
Beberapa bentuk struktur kontrol pengulangan (looping), yaitu :
·         Struktur For…Next
·         Struktur Do…Loop
·         Do…While
·         While…Wend
·         Fungsi Keluar Dari Perulangan (exit for dan exit do)
1.      Struktur Kendali For…Next
Digunakan untuk mengulangi suatu perintah dalam jumlah yang ditentukan. Bentuk penulisan (syntax) struktur For…Next :
FOR <pencacah> = <awal> TO <akhir> [STEP <langkah>]
<blok kode program>
NEXT <pencacah>
-          <pencacah> adalah variabel (tipe: integer) yang digunakan untuk menyimpan angka pengulangan.
-          <awal> adalah nilai awal dari <pencacah>.
-          <akhir> adalah nilai akhir dari <pencacah>.

-           <langkah> adalah perubahan nilai <pencacah> setiap pengulangan. Sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai <langkah> adalah 1.
2.       Struktur Kendali Do…Loop
Bentuk penulisan (syntax) struktur Do…Loop :
·         DO WHILE <kondisi>
<blok kode program>
LOOP
Artinya, <blok kode program> akan diulang selama <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai FALSE.
·          DO UNTIL <kondisi>
<blok kode program>
LOOP
Artinya, <blok kode program> akan diulang sampai <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai TRUE.

Contoh Program : Struktur Looping
·         Aktifkan VB 6 melalui tombol Start.
·         Buka kembali project Latihan.vbp.
·         Tambahkan Form baru ke dalam Project.
·         Pada Jendela Form buatlah UI seperti ini :
·         (Gunakan komponen ListBox dan CommandButton
Pengaturan property setiap object-nya adalah sebagai berikut :
Object
Properties
Value
Form7
Caption
Struktur Looping
StartUpPosition
2 – CenterScreen
List1
-
-
Command1-4
Caption
For Next 1
For Next 2
Do Until
Do While

Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :
Dim i As Integer

Private Sub Command1_Click()
List1.Clear
For i = 1 To 100
List1.AddItem "Angka " & i
Next i
End Sub

Private Sub Command2_Click()
List1.Clear
For i = 100 To 1 Step -2
List1.AddItem "Angka " & i
Next i
End Sub

Private Sub Command3_Click()
List1.Clear
i = Asc("A")
Do Until i > Asc("Z")
List1.AddItem "Huruf " & Chr(i)
i = i + 1
Loop
End Sub

Private Sub Command4_Click()
List1.Clear
i = Asc("Z")
Do While i >= Asc("A")
List1.AddItem "Huruf " & Chr(i)
i = i - 1
Loop
End Sub

Simpan Form7 (nama file : Lat7.frm). Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi Form7.
Coba jalankan Project1 :
·         Klik Command1 -> List1 akan berisi : Angka 1 s/d Angka 100.
·         Klik Command2 -> List1 akan berisi : Angka genap antara 1 s/d 100 dengan urutan descending.
·         Klik Command3 -> List1 akan berisi : Huruf A s/d Huruf Z.
·         Klik Command4 -> List1 akan berisi : Huruf A s/d Huruf Z dengan urutan descending.

Penjelasan kode program :

For i = 1 To 100                                                    pencacah (i) -> 1 s/d 100
List1.AddItem "Angka " & i                 kode program yang diulang
Next i
For i = 100 To 1 Step -2                                      pencacah (i) -> 1 s/d 100 dengan langkah –2 setiap pengulangan
List1.AddItem "Angka " & i                 kode program yang diulang
Next i
i = Asc("A")                                                            nilai i awal -> 65 (nilai ASCII dari huruf A)
Do Until i > Asc("Z")                                             pengulangan sampai nilai i > 90 (nilai ASCII dari huruf Z)
                                                                                kode program yang diulang
List1.AddItem "Huruf " & Chr(i)
i = i + 1                                                                   nilai i ditambah 1
Loop
i = Asc("Z")                                                            nilai i awal ->  90
Do While i >= Asc("A")                                        pengulangan selama nilai i >= 65
List1.AddItem "Huruf " & Chr(i)                         kode program yang diulang
i = i – 1                                                                   nilai i dikurangi 1
Loop

Catatan :
รจ Nilai ASCII antara huruf “A” dan “a” berbeda, begitu pula dengan huruf lainnya.
รจ Bila ingin keluar dari struktur pengulangan sebelum pengulangannya selesai gunakan perintah EXIT FOR atau EXIT DO.
รจ Contoh :
For i = 1 To 100
List1.AddItem "Angka " & i
If i = 50 Then Exit For
Next i
Do Until i > Asc("Z")
List1.AddItem "Huruf " & Chr(i)
If Chr(i) = "M" Then Exit Do
i = i + 1
Loop


3.      Pernyataan While...Wend
Pengulangan While…Wend akan mengeksekusi sekumpulan statement-statement perintah selama suatu kondisi itu benar. Looping atau perulangan yang menggunakan While..Wend ini mempunyai syntaks sebagai berikut :
Ada beberapa sintaks penggunaan untuk pernyataan While...Wend
While <kondisi>
VB Statement
Wend
 

Keterangan :
Jika kondisi benar, maka semua statement akan dieksekusi dan ketika mencapai baris Wend, control akan kembali lagi ke statement While untuk mengevaluasi kembali nilai dari kondisi, jika nilai dari kondisi masih memenuhi syarat atau benar maka proses loop/perulangan akan terjadi lagi. Jika nilai kondisinya Salah, maka program akan keluar dari loop dan mengeksekusi perintah-perintah yang ada setelah Wend.


Contoh Program :
Contoh Statement While berikut akan mengevaluasi nilai numerik yang dimasukkan user lewat keyboard, dan kondisi yang dievaluasi adalah selama nilainya lebih besar atau sama dengan nol, jika nilainya negatif maka program akan berhenti.

Number = 0
While Number >= 0
Number = InputBox (“Silahkan masukkan nilai yang lain”)
Wend
 
 




Private Sub Command1_Click()
Number = 0
While Number >= 0
Total = Total + Number
Number = InputBox (Silahkan masukkan nilai yang lain”)
Wend
Text1.Text = Total
End Sub
 
Pada contoh di atas bisa dimodifikasi. Letakkan sebuah command button dan sebuah textbox pada form, kemudian ketikkan listing program berikut dalam tombol command button tersebut. (atur posisinya dengan benar).

Comments

Post a Comment

Popular posts from this blog

Cara Pembuatan Kerajinan Perak Filigree

Cara pembuatan kerajinan perak filigree : 1.        Membuat benang perak Membuat benang perak yaitu perlu disiapkan 2 kawat perak yang lembut kemudian diputar atau istilahnya ditampar supaya menjadi 1, setelah benang perak jadi, kemudian benang perak dipress atau diplepet, dilanjutkan dengan proses pembakaran agar benang perak tidak kaku saat digunakan untuk mengisi desain (memberi motif). 2.        Membuat rancangan Membuat rancangannya yaitu menggunakan kawat perak yang memiliki ukuran lebih besar dibandingkan dengan benang perak. Disini kawat perak memiliki nomor sendiri-sendiri, ada yang bernomor 22 untuk benang perak (lembutan untuk filigree), nomor untuk membuat kerangka perak atau rancangan ada yang bernomor 50, 60,70, 100. Jadi disesuaikan dengan apa yang akan kita buat. Membuat rancangan dengan cara kiklok terlebih dahulu atau membuat kerangka awal, setelah dikiklok, kawat dibentuk sesuai desain yang akan ...
Post a Comment
Read more

Jenis-Jenis Kerajinan Perak

Jenis-jenis kerajinan perak berdasarkan cara pembuatan: §    Perak buatan tangan (handmade) §    Perak buatan mesin (machinery) §    Perak cetakan §    Silver clay Perak buatan tangan (handmade) Kerajinan perak ini murni dibuat dengan tangan, tanpa mengandalkan mesin. Dari proses awal hingga akhir dikerjakan dengan tangan. Kerajinan inilah yang merupakan cikal bakal industri perak di Gunungkidul khususnya desa Sodo. Sebenarnya perak handmade ini berdasarkan materialnya masih bisa diklasifikasikan menjadi 2 macam, yaitu : v   Perak Filigree Perak Filigree disebut perak Trap atau perak Isen adalah jenis kerajinan perak yang bermaterial benang/ kawat perak sangat lembut yang dipilih, ditampar (2 kawat dijadikan satu kemudian diputar supaya menjadi satu) kemudian diplepet (dipress). Benang-benang inilah yang nantinya digunakan untuk membuat motif atau dekorasi pada rancangan yang telah dibuat. Benang perak/filigree ini bukan ...
Post a Comment
Read more