STRUKTUR KEPUTUSAN DALAM VB 2008

Pertemuan Ke 4


STRUKTUR KEPUTUSAN DALAM VB 2008

Struktur Keputusan

Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.

A.  Pengambilan Keputusan Antara 2 (Dua) Pilihan

Bentuk Penulisan:

If [Ekspresi Logika] Then

        [Statement 1]

Else

        [Statement 2]

End if

 

Struktur keputusan ini akan menguji Ekspresi Logika (kondisi) yang ditentukan, jika kondisi bernilai True (benar) maka Statement1  akan diproses, tetapi jika kondisi bernilai False (Salah) maka Statement2  yang akan diproses.

Ekspresi Logika adalah suatu kondisi yang akan diuji. Untuk menetapkan nilai yang akan diuji pada suatu kondisi harus menggunakan Operator Relasi, yaitu :

     <       :    lebih kecil

     <=     :    lebih kecil atau sama dengan

     =       :    sama dengan

     <>     :    tidak sama dengan

     >       :    lebih besar

     >=     :    lebih besar atau sama dengan

  

Contoh 1:

1. Desain Program

  
  

2. Alur Program

     -  Input Nilai

     -  Klik Proses, maka akan tampil keterangan “LULUS” atau “GAGAL” pada Hasil.

          Pengujiannya sebagai berikut:

          Jika Nilai 75 keatas maka “LULUS”

          Jika Nilai dibawah 75 maka “GAGAL”

3. Kode Program

     Kode program diketik pada Objek Button1 (Proses)  sbb:

  Private Sub BtnProses_Click(ByVal sender AsSystem.Object,…

          If TxtNilai.Text >= 75 Then

        TxtHasil.Text = "LULUS"

      Else

        TxtHasil.Text = "GAGAL"

      End If

  End Sub

B.  Pengambilan Keputusan Dari Banyak Pilihan (Lebih dari 2 Pilihan)

Bentuk Penulisan:

If [Ekspresi Logika1] Then

        [Statement1]

ElseIf [Ekspresi Logika2] Then

        [Statement2]

ElseIf [Ekspresi Logika3] Then

        [Statement3]

...

Else

        [Statement n]

End if

Struktur keputusan ini akan menguji Ekspresi Logika (kondisi) yang ditentukan, jika Ekspresi Logika1 bernilai True (benar) makaStatement1  akan diproses, tetapi jika kondisinya bernilai False (Salah) maka Ekspresi Logika2 akan diuji. Jika Ekspresi Logika2 bernilai Truemaka Statement2 akan diproses, tetapi jika kondisinya bernilai Falsemaka Ekspresi Logika3 akan diuji. Jika Ekspresi Logika3 bernilai Truemaka Statement3 akan diproses, tetapi jika kondisinya bernilai Falsemaka Statement n  yang akan diproses.

STRUKTUR KEPUTUSAN (Bagian 2)

Struktur Keputusan

Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.

Select Case  Statement

Digunakan untuk pengambilan keputusan dari beberapa pilihan.

Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namum dalam Select Case pengecekan dilakukan berdasarkan nilai Ekspresi.

Bentuk Penulisan:

Select Case [Kondisi]

        Case [Ekspresi1]

               [Statement1]

        Case [Ekspresi2]

               [Statement2]

                  ...

        Case Else

               [Statement n]

End Select

Contoh 1:

1. Desain Program

2. Alur Program

     -    Input Jumlah Point Reward.

     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward.

                        Tabel Hadiah sebagai berikut:

3. Kode Program

     Kode program diketik pada Objek Button1 (Proses)  sbb:

  Private Sub BtnProses_Click(ByVal sender AsSystem.Object, ...

      Select Case Val(TxtJPR.Text)

          Case Is <= 1000

             TxtHadiah.Text = "Mug Cantik"

          Case Is <= 1500                                         

             TxtHadiah.Text = "Boneka Cantik"

          Case Is <= 2000

             TxtHadiah.Text = "Kipas Angin"

          Case Is <= 2500

             TxtHadiah.Text = "Dispenser"

          Case Else

             TxtHadiah.Text = "Tidak Ada"

      End Select

  End Sub

MESSAGEBOX (MSGBOX)

Pertemuan ke 6

MESSAGEBOX (MSGBOX)

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah

MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)

 

Ada beberapa MsgBoxStyle, yaitu:

 

1.    MsgBoxStyle.Critical (16)                   :    tombol OK dan gambar icon Critical

  

2.     MsgBoxStyle.Question (32)               :    tombol OK dan gambar icon Question

  

3.     MsgBoxStyle.Exclamation (48)         :    tombol OK dan gambar icon Exclamation

  

4.     MsgBoxStyle.Information (64)           :    tombol OK dan gambar icon Information

5.    MsgBoxStyle.AbortRetryIgnore (2)   :    tombol Abort, Retry dan Ignore.

6.    MsgBoxStyle.OkCancel (1)                :    tombol OK dan Cancel.

7.    MsgBoxStyle.OkOnly (0)                    :    tombol OK.

8.    MsgBoxStyle. RetryCancel (5)          :    tombol Retry dan Cancel.

9.    MsgBoxStyle.YesNo (4)                      :    tombol Yes dan No.

10.  MsgBoxStyle. YesNoCancel (3)        :    tombol Yes, No dan Cancel.

Contoh 1:

Membuat Form Login dengan tampilan sbb:

 

Alur Program:

-    Input Password.

-    Klik Proses

-    Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Benar

·    Judul Pesan  :  Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Information.

-    Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Salah”

·    Judul Pesan  : Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Critical.

Kode Program:

Kode program diketik pada Objek BtnProses (Tombol Proses)  sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object,...

    If TxtPas.Text = "rahasia" Then

        MsgBox("Password yang Anda Masukkan Benar",

               MsgBoxStyle.Information, "Info Login")

    Else

        MsgBox("Password yang Anda Masukkan Salah", 16,"Info")

    End If  

End Sub

PERULANGAN VISUAL BASIC 2008

pertemuan ke-7

                  PERULANGAN (LOOPING)

  Struktur perulangan atau looping merupakan salah satu alat kontrol program yang digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses perulangan akan terus dilakukan secara terus menerus atau berulang-ulang selama kondisi tersebut belum terpenuhi (bernilai benar/true). jika kondisi sudah bernilai salah/false, maka perulangan akan berhenti.

Perulangan atau Looping dalam Visual Basic terdiri dari :

1. For-Next
2.  Do While-Loop
3.  Do Loop Until

FOR – NEXT

Digunakan untuk mengulang perintah dalam jumlah yang ditentukan. pada for-next kita tidak perlu menuliskan kondisi yang akan yang akan di uji, tetapi cukup hanya memberikan nilai step awal dan akhir nila.

Sintak :

1 2 3 4 5

For variabel = nilai_awal To nilai_akhir      ekspresi Next

Keterangan :

• variabel : nama integer yang digunakan untuk melakukan proses perulangan
• nilai_awal : nilai awal suatu variabel untuk menentukan awal perulangan
• nilai_akhir : nilai suatu variabel untu menentukan akhir dari perulangan
• ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.

Do While-Loop

Perulangan yang akan terus menerus dilakukan selama kondisi memenuhi syarat (bernilai benar) dan akan berhenti jika kondisi bernilai salah.

 Sintak :

1 2 3 4 5

Do While (Kondisi)      ekspresi Loop

Keterangan :

• kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
• ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.

Do Loop Until

merupakan perulangan yang metodenya kebalikan dari do-while Loop. Perulangan ini akan menjalankan suatu kondisi secara terus menerus jika kondisi bernilai salah (false) dan perulangan akan berhenti jika kondisi bernilai benar (true)

 Sintak :

1 2 3 4 5

Do      ekspresi Loop Until (Kondisi)

Keterangan :

• kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
• ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.

Contoh:

Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox                                           

Dim i As Integer

listbox1.Items.Clear()

For i = 1 to TXTBIL.TEXT

   listbox1.Items.Add(“Visual Basic”)

Next

Membuat Deret angka 1 sampai 10                                                         

Dim i As Integer

listbox1.Items.Clear()

For i = 1 to 10

    listbox1.Items.Add(i)

Next

maka hasilnya akan seperti gambar di bawah ini:

Do Until  <kondisi>

   statement

Loop

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 

listbox1.Items.Clear()

Do Until i > 10

listbox1.Items.Add(i)

i=i+1

Loop 

BP:

While  <kondisi>

   statement

End While

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 1

ListBox1.Items.Clear()

While i <= 10

    ListBox1.Items.Add(i)

    i = i + 1

End While