Visual Basic Lanjutan (Praktikum 3) - Perulangan (Do While - Loop)

Assalamu’alaikum warahmatullahi wabarakatuh..

Masih bersama saya Sulthan Alawy Shihab, saya akan melanjutkan pelajaran yang pernah saya bahas silahkan cek di beranda saja ya. Kali ini saya akan membahas tentang Visual Basic Lanjutan (Perulangan), langsung saja kita bahas.

Pengulangan Do While – Loop

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

Keterangan:

² Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.

² Jika kondisinya terpenuhi maka blok program diekspresi akan dijalankan, sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program dibawah Loop.

Pengulangan Do – Loop While

Struktur Do – Loop While merupakan struktur pengulangan yang metodenya sama dengan struktur Do While – Loop.

Keterangan:

² Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menjalankan blok program ekspresi.

² Kemudian akan memeriksa kondisi pada Loop While, jika kondisi bernilai benar maka ekspresi akan dijalankan kembali (berulang).

² Jika kondisinya salah maka prosesnya akan berhenti dan program akan dilanjutkan dengan menjalankan perintah dibawah Loop While.

Pengulangan Do Until – Loop

Struktur Do Until – Loop modelnya hampir sama dengan Do While–Loop. Perbedaannya pada Do Until – Loop perulangan akan terus berjalan selama pengujian kondisinya salah (False), dan akan berhenti jika kondisi sudah bernilai “Benar” (True)

Keterangan:

² Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.

² Jika kondisinya terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program di bawah Loop,sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan dikerjakan.

Pengulangan Do – Loop Until

Struktur Do – Loop Until merupakan struktur pengulangan yang metodenya kebalikan dari Do While – Loop.

Keterangan:

² Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menjalankan blok program ekspresi.Kemudian akan memeriksa kondisi pada Loop Until, jika kondisi bernilai salah maka ekspresi akan dijalankan kembali (berulang).

Jika kondisinya benar maka prosesnya akan berhenti dan program akan dilanjutkan dengan menjalankan perintah dibawah Loop Until.

 LATIHAN 8

Code:

Public Class Form1

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

        Me.Text = "Sulthan"

    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click

        Dim i As Integer = 0

        Do While i <= 10

            ListBox1.Items.Add("Perulangan dengan do while" & i)

            i = i + 1

        Loop

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 9

Code:

Public Class Form2

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

        Me.Text = "Sulthan"

        Dim halaman As Byte

        halaman = 1

        Do While halaman <= 10

            ComboBox1.Items.Add(halaman)

            halaman = halaman + 1

        Loop

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim halaman As Byte

        halaman = 1

        Do While halaman <= 10

            ComboBox2.Items.Add(halaman)

            halaman = halaman + 1

        Loop

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim hasil As Double = 1

        For i = 1 To Val(ComboBox2.Text)

            hasil = hasil * ComboBox1.Text

        Next

        TextBox1.Text = hasil

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 10

Code:

Public Class Form3

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

        Me.Text = "sulthan"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim x%

        x = TextBox1.Text

        Do

            x = x Mod 2

            If x = 0 Then

                MsgBox("Genap")

                Exit Do

            ElseIf x = 1 Then

                MsgBox("Ganjil")

                Exit Do

            End If

        Loop While Not x

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim pesan As String

        pesan = MsgBox("R U Sure?", vbYesNo, "Confirm")

        If pesan = vbYes Then

            End

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

    End Sub

End Classs

LATIHAN 11

Code:

Public Class Form4

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click

        Dim i As Integer

        i = 1

        ListBox1.Items.Clear()

        Do Until i > 10

            ListBox1.Items.Add(i)

            i += 1

        Loop

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 12

Code:

Public Class Form5

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

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim X As Byte = 0

        Do

            Call ulang(X)

            X = X + 2

        Loop Until X > (TextBox1.Text)

    End Sub

    Sub ulang(ByVal angka As Byte)

        If angka > 0 Then

            ListBox1.Items.Add("" & angka & "")

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim X As Byte = 0

        Do

            Call ulang_cetak(X)

            X = X + 3

        Loop Until X > (TextBox1.Text)

    End Sub

    Sub ulang_cetak(ByVal angka As Byte)

        If angka > 0 Then

            ListBox1.Items.Add("" & angka & "")

        End If

    End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()

        TextBox1.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class