MODUL 3 by laxiiesta

VIEWS: 63 PAGES: 6

									                                                       Witha P. Anugrah-Modul 3 VB


MODUL 3
Struktur Pencabangan (Decision)

Prosedur Visual Basic dapat menguji suatu kondisi untuk melanjutkan atau menghentikan
operasi, dengan menggunakan struktur pencabangan. Untuk pencabangan ini, Visual Basic
menyertakan perintah :
1. If…Then
2. If…Then…Else
3. Select Case…


If…Then
Gunakan struktur If…Then untuk mengeksekusi satu atau lebih kondisi statement. Anda
dapat menggunakan baris tunggal atau menggunakan blok beberapa baris. Format
perintahnya :
                             If condition Then statement
Atau,
                                  If condition Then
                                           Statement
                                  End If


Contoh : Buat Form Berikut
                       Objek             Properti       Nilai
                       Form1             Caption        Form1
                       Label1            Caption        Nilai 1
                       Label2            Caption        Nilai 2
                       Label3            Caption        Nilai Rata-rata
                       Text1             Name           txtNilai1
                       Text2             Name           txtNilai2
                       Text3             Name           txtNRata
                       Command1          Name           cmdCek
                                         Caption        Cek
                       Command2          Name           cmdClear
                                         Caption        Clear

Klik 2X cmdCek, lalu ketikkan :
Private Sub cmdCek_Click()
       txtNRata.Text = (Val(txtNilai1.Text) + Val(txtNilai2.Text)) / 2
          If txtNRata.Text >= 60 Then
                   Label4.Caption = "Lulus"
                   Else
                   Label4.Caption = "Tidak Lulus"
          End If
End Sub


Klik 2X cmdClear, lalu ketikkan :
Private Sub cmdClear_Click()
  txtNilai1.Text = ""
  txtNilai2.Text = ""
  txtNRata.Text = ""
  Label4.Caption = ""
  txtNilai1.SetFocus
End Sub
If…Then…Else
Anda dapat menggunakan blok If…Then…Else untuk mendefinisikan beberapa blok
statement. Namun demikian hanya satu blok yang akan dieksekusi. Format perintah ini
adalah sebagai berikut :
                                If condition 1 Then
                                         [statementblock-1]
                                [Else If condition 2 Then
                                         [statementblock-2]]
                                [Else
                                         [statementblock-n]]
                                End If
Buat Form seperti berikut :




                  Objek          Properti          Nilai
                  Form1          Caption           Cek Bilangan
                  Label1         Caption           Input Bilangan
                  Text1          Name              txtBil
                  Label1         Caption           Dikosongkan
                  Command1       Name              cmdCek
                                 Caption           Cek
Klik 2x cmdCek, lalu ketikkan :
Private Sub cmdCek_Click()
       If txtBil.Text < 0 Then
                Label2.Caption = "Bilangan Negatif"
                Else
                If txtBil.Text > 0 Then
                         Label2.Caption = "Bilangan Positif"
                         Else
                                Label2.Caption = "Bilangan Nol"
                End If
       End If
End Sub


Select Case
Struktur Select Case ini bekerja dengan ekspresi pengujian tunggal yang bisa diakses saat
itu, yaitu di bagian atas struktur. Setelah Visual Basic mengeksekusi ekspreasi tersebut,
selanjutnya membandingkan hasil ekspresi ini dengan nilai setiap case dalam struktur. Jika
ditemukan, Visual Basic melanjutkan mengeksekusi block statement yang dihubungkan
dengan Case. Bentuk umum statement ini adalah sebagai berikut :
                Select Case testexpression
                         [Case expressiolist1
                                [statementblock-1]]
                         [Case expressiolist2
                                [statementblock-2]]
                                .
                                .
                         [Case Else
                                [statementblock-n]]
                End Select
Buat Form seperti berikut :




                  Objek                  Properti   Nilai
                  Form1                  Caption    Form1
                  Label1                 Caption    Bulan
                  Text1                  Name       txtBulan
                  Command1               Name       cmdCekBulan
                                         Caption    Nama Bulan

Klik 2X cmdCekBulan, lalu ketikkan:
Private Sub CmdCekBulan_Click()
       Dim bulan As String
              Select Case Val(txtBulan)
              Case 1
                       bulan = "Januari"
              Case 2
                       bulan = "Februari"
              Case 3
                       bulan = "Maret"
              Case 4
                       bulan = "April"
              Case 5
                       bulan = "Mei"
              Case 6
                       bulan = "Juni"
          Case 7
                    bulan = "Juli"
          Case 8
                   bulan = "Agustus"
          Case 9
                    bulan = "September"
          Case 10
                   bulan = "Oktober"
          Case 11
                   bulan = "November"
          Case 12
                   bulan = "Desember"
          End Select
          MsgBox "Bulan " & bulan, vbOKOnly, "Bulan"
End Sub

								
To top