Pertemuan Ke 7

PERULANGAN (LOOPING)

Di LOOPING ini Aq sangant bingung cara dan gimana buat program nya..
mudah-mudahan lah bisa....
disini saya masih belom ngepos latihanya karna saya sibuk terus pagi jam 8;00-16;00 kerja kemudian jam 17;00-21;30 saya kuliah.. yah gimana ya saya agak keteter ngerjain blog saya... jika ada yang kurang mohon di komen ya.. mohon bantuan nya :):):)


Memberikan pemahaman tentang perulangan dan penggunaannya sesuai perintah. 

Perulangan

Perulangan digunakan untuk mengulang kode program (repetition, looping, recursive). selama kondisi memenuhi, kode dalam statements akan diulang terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam penulisan kode, looping tidak akan berhenti dan menimbulkan error.

Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan untuk perulangan, yaitu:

a.    For … Next

b.    Do … Loop

c.    While…End While

Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih sesuai dengan masalah yang dihadapi.

For … Next Statement

Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan jumlah yang pasti.

Bentuk Penulisan:

For  Var = [Mulai] to [Selesai] Step [Lompatan]

            Statement

Next

Contoh:

Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox                                           

Dim i As Integer

listbox1.Items.Clear()

For i = 1 to 10

    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

Do … Loop Statement

Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.

Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.

Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

Do…Loop dengan Pemeriksaan diawal

1.  Do Until … Loop

Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:

Do Until  <kondisi>

   statement

Loop

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do Until i > 10

listbox1.Items.Add(i)

i=i+1

Loop

2.  Do While … Loop

Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:

Do While  <kondisi>

   statement

Loop

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do While i <= 10

listbox1.Items.Add(i)

i=i+1

Loop

Do…Loop dengan Pemeriksaan diakhir

1.  Do … Loop Until

Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:

Do

   statement

Loop until <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do

listbox1.Items.Add(i)

i=i+1

Loop Until i > 10

2.  Do … Loop While

Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:

Do

   statement

Loop While <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10                                                   

Dim i As Integer

i = 1

listbox1.Items.Clear()

Do

listbox1.Items.Add(i)

i = i + 1

Loop While i <= 10

While … End While

Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.

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

Memberikan pemahaman tentang pembuatan menubar dan toolbar.

Menubar

Menubar adalah balok atau baris yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi.

Membuat MenuBar

Untuk membuat menubar dibutuhkan objek MenuStrip yang terdapat pada toolbox Menus & Toolbars.

Mendesain Menu

Menu terdiri dari menu utama dan submenu. Menu utama adalah menu yang tampil pada balok menu. Sedangkan Submenu adalah menu yang terdapat pada menu utama yang tampil jika menu utamanya dipilih.

Membuat Menu Utama

-  Ketik judul menu pada Type Here

Membuat SubMenu

-  Klik menu utama

-  ketik judul submenu pada Type Here

Membuat Garis Batas Antar SubMenu

-  Klik tanda panah pada Type Here

-  Pilih Separator

Membuat Shortcut Key Pada Menu

-  Pilih (klik) Menu yang akan diberikan shortcut key nya

-  Pada jendela Properties, pilih ShortcutKeys

-  Atur kombinasi shortcutkey nya.

Membuat Gambar Pada Menu

-  Pilih (klik) Menu yang akan diberikan gambar

-  Pada jendela Properties, pilih Image

-           Pilih gambar.

Menjadikan Form Menu menjadi Form Utama (Form Induk)

Sebuah Aplikasi biasanya terdiri dari beberapa Form. Form menu merupakan form utama dimana form-form lain akan dipanggil melalui form menu. Agar form menu menjadi form utama yang menampung form-form lain, maka perlu diatur tampilan formnya yaitu melalui properties IsMdiContainer, ubah nilainya menjadi True dan WindowState pilih Maximized.

Untuk menampilkan form lain didalam form utama, perintahnya yaitu:

Nama_Form.MdiParent = Me

    Nama_Form.Show() 

Toolbar

Toolbar adalah balok atau baris yang berisi tombol-tombol pintas untuk mengeksekusi perintah yang terdapat pada menubar.

Membuat Toolbar

Untuk membuat toolbar dibutuhkan objek ToolStrip yang terdapat pada toolbox Menus & Toolbars.

Membuat Icon pada Toolbar

-   Klik tombol Add ToolStripButton () dan pilih Button.

-           Klik kanan pada tombol icon, lalu klik Set Image. Pilih gambar untuk icon tersebut 

• LATIHAN.

1.Buatlah Program Seperti berikut:

2.Buat Nama Code seperiti ini:

        >TxtBayar.Text         >BtnCari                 

        >TxtDiskon.Text       >BtnSimpan

        >TxtJumlah.Text       >BtnBesih

        >TxtMerk.Text         >BtnSelesai

        >TxtSatuan.Text       >BtnHitung

        >TxtTotal.Text

        >TxtTransaksi.Text

        >TxtType.Text

        >CboKode.Text

3.Alur Program/Code Program.

        Public Class Form6

    Dim A As Integer

   

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)         Handles BtnSimpan.Click

        ListView1.Items.Add(TxtTransaksi.Text)

        ListView1.Items(A).SubItems.Add(CboKode.Text)

        ListView1.Items(A).SubItems.Add(TxtMerk.Text)

        ListView1.Items(A).SubItems.Add(TxtType.Text)

        ListView1.Items(A).SubItems.Add(TxtSatuan.Text)

        ListView1.Items(A).SubItems.Add(TxtJumlah.Text)

        ListView1.Items(A).SubItems.Add(TxtTotal.Text)

        ListView1.Items(A).SubItems.Add(TxtDiskon.Text)

        ListView1.Items(A).SubItems.Add(TxtBayar.Text)

        A = A + 1

    End Sub

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase Load

        CboKode.Items.Add("HOO1")

        CboKode.Items.Add("HOO2")

        CboKode.Items.Add("YOO1")

        CboKode.Items.Add("YOO2")

    End Sub

  Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click

        If CboKode.Text = "HOO1" Then

            TxtMerk.Text = "HONDA"

            TxtType.Text = "SUPRA FIT"

            TxtSatuan.Text = 9000000

        ElseIf CboKode.Text = "HOO2" Then

            TxtMerk.Text = "HONDA"

            TxtType.Text = "SUPRA X"

            TxtSatuan.Text = 11000000

        ElseIf CboKode.Text = "YOO1" Then

            TxtMerk.Text = "YAMAHA"

            TxtType.Text = "MIO"

            TxtSatuan.Text = 130000000

        Else

            TxtMerk.Text = "YAMAHA"

            TxtType.Text = "JUPITER"

            TxtSatuan.Text = 12000000

        End If

    End Sub

  Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click

        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.Text

        If TxtType.Text = "SUPRA FIT" And TxtJumlah.Text > 5 Then

            TxtDiskon.Text = 5 / 100 * TxtTotal.Text

        ElseIf TxtType.Text = "MIO" And TxtJumlah.Text > 5 Then

            TxtDiskon.Text = 10 / 100 * TxtTotal.Text

        Else

            TxtDiskon.Text = 0

        End If

        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text

    End Sub

 Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        TxtBayar.Text = ""

        TxtDiskon.Text = ""

        TxtJumlah.Text = ""

        TxtMerk.Text = ""

        TxtSatuan.Text = ""

        TxtTotal.Text = ""

        TxtTransaksi.Text = ""

        TxtType.Text = ""

        CboKode.Text = ""

    End Sub

 Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelesai.Click

        End

    End Sub

End Class

4. Cek Video dibawah buat menjalankanya: