Logika Percabangan di Visual Basic

Penyeleksian kondisi atau pernyataan kondisi (Conditional Statement) merupakan suatu pernyataan yang menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu. Hasil dari penyeleksian, jika kondisi benar maka akan dikerjakan instruksi tertentu, sedang jika kondisi salah, maka akan dikerjakan instruksi yang lain. Ini salah satu dari fungsi dalam kontrol program. Dalam visual basic terdapat dua kontrol program yang dapat digunakan yaitu logika percabangan dan logika perulangan.

Operator Kondisi (Pembanding)

Untuk mengontrol alur program dalam Visual Basic, kita bisa menggunakan bermacam-macam operator kondisi. Pada dasarnya, operator kondisi ini mirip dengan operator aritmatik. Operator kondisi merupakan alat yang sangat hebat, dengan operator tersebut kita dapat melakukan perbandingan untuk memutuskan tindakan selanjutnya. Tabel berikut menunjukan operator kondisi yang digunakan dalam Visual Basic.

Operator Logika

Sebagai tambahan untuk operator kondisi, ada beberapa operator logika yang ditambahkan pada Visual Basic sehingga memudahkan pembuatan alur program.

Logika Percabangan

Ada beberapa logika percabangan yang dikenal dalam visual basic seperti if then, if then else, select case. If then merupakan logika percabangan yang paling sederhana dimana pada if then hanya terdapat satu pilihan kondisi dan tindakan yang harus  dikerjakan. Untuk if then else terdapat dua kondisi dan dua tindakan yang harus dikerjakan. Jika terdapat banyak kondisi dan banyak tindakan yang harus dikerjakan, kita dapat menggunakan if then else tersarang yang artinya kita dapat menggunakan if then else di dalam if then else sehingga kebutuhan kita terhadap kondisi dan tindakan dapat terpenuhi. Berikut ini penjelasan dari logika percabangan

IF THEN ELSE

Syntax Umum

Syntak umum untuk pernyataan if…then.. adalah

IF <kondisi> THEN <kode program>

Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.

Syntak umum untuk pernyataan if…then…else adalah

IF <kondisi> THEN

<blok kode program 1>

ELSE

<blok kode program 2>

END IF

Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi bila <kondisi> bernilai False maka <blok kode program 2> yang akan dikerjakan.

Syntak umum untuk pernyataan if…then..tersarang (nested if) adalah

IF <kondisi 1> THEN

<blok kode program 1>

ELSEIF <kondisi 2> THEN

<blok kode program 2>

ELSE

<blok kode program 3>

END IF

Bila <kondisi 1> bernilai True maka <blok kode program 1> akan dikerjakan, kemudian bila <kondisi 2> bernilai True maka <blok kode program 2> akan dikerjakan, tetapi bila <kondisi 1> dan <kondisi 2>  bernilai False maka <blok kode program 3> yang akan dikerjakan.

Contoh Program

Membuat Program Input Password

Letakkan kontrol Image, TextBox, Label dan Command. Silahkan atur seperti gambar berikut :

 

Kemudian atur property setiap objek yang ada seperti yang ada dalam tabel property berikut:

Object Properties Value
Form1 Caption Form  Password
StartUpPostion 2-CenterScreen
Image1 Stretch True
Picture uniks.jpg
Visible False
Label1 Caption Input Password
Text1 Name TPass
PasswordChar *
Text <kosong>
Command1 Name cmdmasuk
Caption MASUK

Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub cmdmasuk_Click()

If TPass.Text = “admin77” Then Image1.Visible = True

End Sub

Simpan program dan jalankan : maka Ketika sembarang teks diketikan pada TPass kemudian tombol masuk diklik logo Uniks tidak akan muncul. Tapi ketika pada TPass diketik “admin77” kemudian klik tombol masuk, maka gambar logo Uniks akan muncul.

Penjelasan kode program :

If TPass.Text = “admin77”  merupakan kondisi yang harus dipenuhi

Then Image1.Visible = True merupakan program yang akan dikerjakan ketika kondisi terpenuhi (True)

 

Modifikasi programnya menjadi seperti berikut :

Private Sub cmdmasuk_Click()

If TPass.Text = “admin77” Then

    Image1.Visible = True

    MsgBox “Password Benar”, vbOKOnly, “Sukses”

Else

    Image1.Visible = False

    MsgBox “Password Salah”, vbOKOnly, “Gagal”

    TPass.Text = “”

    TPass.SetFocus

End If

End Sub

Jalankan program :

  1. Ketikkan sembarang teks pada TPass lalu klik tombol OK, maka gambar tidak muncul dan muncul kotak pesan “Password Salah”. Klik tombol OK pada kotak pesan tersebut. Maka TPass dikosongkan dan kursor akan aktif di TPass (Setfocus)
  2. Ketikkan “admin” pada TPass lalu klik tombol OK maka gambar akan muncul dan muncul kotak pesan “Password Benar”.

Catatan Tambahan :

  • Teks “admin” harus diketik huruf kecil semua. Ingat : data string bersifat case sensitive !
  • Agar password-nya tidak bersifat case sensitive, modifikasi pernyataan kondisinya menjadi : If LCase(TText) = “admin” Then
  • Fungsi LCase adalah untuk mengkonversi semua string yang diinput ke TText menjadi huruf kecil, walaupun user menginputnya dengan huruf kapital.

Pernyataan Select Case

Cara lain untuk menangani pengambilan keputusan dalam sebuah program adalah dengan menggunakan Selec Case Statement, yang mampu menangani sejumlah kondisi dari satu variabel. Select Case serupa dengan If  Then  ElseIf, tetapi lebih efisien apabila percabangan bergantung kepada satu kondisi saja. Dengan menggunakan Select  Case sebagai pengganti dari If  Then  Else If, akan membuat program menjadi lebih sederhana.

Format penggunaan Select Case :

Select Case nama_variabel

   Case nilai_1

      Perintah yang akan dieksekusi jika memenuhi nilai_1

   Case nilai_2

      Perintah yang akan dieksekusi jika memenuhi nilai_2

   Case Else

      Perintah yang akan dieksekusi jika tidak memenuhi semua

End Select

 

Type data pada nama_variabel harus sama dengan nilai pada Case. Contoh penggunaan select case statement dalam program sebagai berikut:

Private Sub txtNilai_Change()

Dim Nilai As Single

Nilai = txtNilai.Text

Select Case Nilai

    Case Is >= 80

        lblHuruf.Caption = “A”

        lblKet.Caption = “Lulus”

    Case Is >= 68

        lblHuruf.Caption = “B”

        lblKet.Caption = “Lulus”

    Case Is >= 56

        lblHuruf.Caption = “C”

        lblKet.Caption = “Lulus”

    Case Is >= 41

        lblHuruf.Caption = “D”

        lblKet.Caption = “Remidi”

    Case Else

        lblHuruf.Caption = “E”

        lblKet.Caption = “Gagal”

End Select

End Sub

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.