Visual Basic Pertemuan VI

Pertemuan VI
Hari/Tanggal    :  Selasa, 16 April 2013

Pokok  Bahasan :
                                 - Select Case
                                 - For

Pernyataan select case digunakan untuk menguji nilai suatu expresi.

Syntax = Select Case Pil
         Case 1:<Pernyataan>
         Case 2:<Pernyataan>
         Case N:<Pernyataan>
         Else <Pernyataan>
      End Select

     Contoh  Antar Muka Program :
Kode_Program:
  Private Sub Cmd Tampil_Click()
    Dim Pil As Byte
    Pil : Val (txtPil.Text)
    Select Case Pil
        Case1 : Txtket.Text = “ Sangat Baik”
        Case2 : Txtket.Text = “ Baik”
        Case3 : Txtket.Text = “ Sedang”
        Case4 : Txtket.Text = “ Kurang”
     Else Txtket.Text = “Gagal”
     End Select

     End Sub

* Flowchart