» » » » » Perulangan pada Visual Basic 2010 3

Perulangan pada Visual Basic 2010 3

, , ,

Assalamualaikum semua pada post kali ini penulis akan share materi tentang perulangan lagi lanjutan dari materi kemarin

  1. Struktur For – Next 
  2. Struktur Nested For – Next 
  3. Struktur While-End While 
  4. Struktur Do While - Loop (yang akan dibahas pada post kali ini)
  5. Struktur Do – Loop While (yang akan dibahas pada post kali ini)
  6. Struktur Do Until – Loop (yang akan dibahas pada post kali ini)
  7. Struktur Do – Loop Until (yang akan dibahas pada post kali ini)
  • Pengulangan (Do While – Loop) 
Perulangan yang akan terus menerus dilakukan selama kondisi memenuhi syarat (bernilai benar) dan akan berhenti jika kondisi bernilai salah. 
Do While (kondisi)
… ekspresi …
Loop

Keterangan: 
  • Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.
  • Jika kondisinya terpenuhi maka blok program di ekspresi akan dijalankan, sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program di bawah Loop.

  • Contoh Latihan 8 (Latihan 1 ada disini)
Buatlah form seperti ini

Source Code :
Public Class Pertemuan_4_Latihan_8_Praktikum

    Private Sub Pertemuan_4_Latihan_8_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are You Sure Want to Exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Are You Sure Want to Exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        Do While i <= 10
            ListBox1.Items.Add("Perulangan dengan Do While ke " & i)
            i = i + 1
        Loop
    End Sub

    Private Sub Pertemuan_4_Latihan_8_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class

Berikut Program runningnya 


  • Latihan 9
Buatlah form seperti dibawah ini


Source Code :
Public Class Pertemuan_4_Latihan_9_Praktikum

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_4_Latihan_9_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub cbbilangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbilangan.SelectedIndexChanged
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            cbpangkat.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub

    Private Sub cbpangkat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbpangkat.SelectedIndexChanged
        Dim xhasil As Double = 1
        For i = 1 To Val(cbpangkat.Text)
            xhasil = xhasil * cbbilangan.Text
        Next
        TextBox1.Text = xhasil
    End Sub

    Private Sub Pertemuan_4_Latihan_9_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            cbbilangan.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub
End Class

Running Program :

  • Pengulangan (Do – Loop While)
Struktur Do – Loop While merupakan struktur pe gulangan yang metodenya sama dengan struktur Do While – Loop. 

Do
… ekspresi …
Loop While (kondisi)
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.

  • Latihan 10
Buatlah form seperti dibawah ini

Angka di input, kemudian klik menu proses. Akan muncul pesan yang menseleksi bilangan ganjil atau genap

Source Code
Public Class Pertemuan_4_Latihan_10_Praktikum

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar?", vbYesNo, "salmantech42.blogspot.com")
        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.Clear()
    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("Bilangan Genap")
                Exit Do
            ElseIf X = 1 Then
                MsgBox("Bilangan Genap")
            End If
        Loop While Not X
    End Sub

    Private Sub Pertemuan_4_Latihan_10_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_4_Latihan_10_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class

Running Program


  • 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).

Do Until (kondisi)
… ekspresi …
Loop

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.

  • Latihan 11
Buatlah form seperti berikut ini

Angka di input, kemudian klik menu proses. Akan muncul pesan yang menseleksi bilangan ganjil atau genap

Source Code :
Public Class Pertemuan_4_Latihan_11_Praktikum

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 Pertemuan_4_Latihan_11_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_4_Latihan_11_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class

Berikut running programnya



  • Pengulangan (Do –  Loop Until)
Struktur Do – Loop Until merupakan struktur pengulangan yang metodenya kebalikan dari Do While – Loop.

Do
… ekspresi …
Loop Until (kondisi)

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 12
Buatlah form seperti dibawah ini

Angka di input, kemudian klik Button Kelipatan 2 atau kelipatan 3. Akan muncul nilai Hasil sesuai dengan Button yang di pilih.

Source Code :
Public Class Pertemuan_4_Latihan_12_Praktikum

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim pesan As String
        pesan = MsgBox("Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
        ListBox1.Items.Clear()
    End Sub

    Private Sub Pertemuan_4_Latihan_12_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Keluar ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_4_Latihan_12_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class

Running Program


Sekian untuk post tentang Perulangan pada visual basic semoga bermanfaat 

Untuk materi lainnya silahkan sering berkunjung ke website salmantech 
dan juga nanti (kalau ada waktu) akan ada content content menarik lainnya 

どうもありがとうございました…!


Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

2 Responses to "Perulangan pada Visual Basic 2010 3"

  1. Ilham RamadhanMarch 25, 2020 at 5:40 PM

    Widihh keren dan lengkap, mantap dahh
    https://www.laptopinformatika.com/?m=1
    Jangan lupa kunjungi web gua juga bang :v

    ReplyDelete
  2. Ahmad Salman FarisiApril 9, 2020 at 1:16 PM

    mantap gan :-d 8-)

    ReplyDelete

Subscribe to: Post Comments (Atom)