» » » » » Perulangan pada Visual Basic 2010 2

Perulangan pada Visual Basic 2010 2

, , ,
Post ini ada lanjutan dari post sebelumnya 



  1. Struktur For – Next 
  2. Struktur Nested For – Next (yang akan dibahas pada post kali ini)
  3. Struktur While-End While (yang akan dibahas pada post kali ini)
  4. Struktur Do While - Loop
  5. Struktur Do – Loop While 
  6. Struktur Do Until – Loop 
  7. Struktur Do – Loop Until
  • Perulangan Nested For - Next
Pada proses semacam ini, setiap satu proses pengulangan di struktur For–Next bagian luar akan mengerjakan proses pengulangan di struktur For – Next bagian dalam sekian kali, sesuai dengan seberapa banyak pengulangan tersebut dilakukan.
For var_1 = awal_1 To akhir_1 Step pertambahan_1
         For var_2 = awal_2 To akhir_2 Step pertambahan_2
                      … ekspresi …
         Next Counter
Next Counter

Langsung saja Latihan nya

  • Latihan 5
Buatlah form seperti di bawah ini

  • Aplikasi mencari 10 bilangan genap setelah bilangan yang di input.
  • Klik Tombol cari, hasilnya akan muncul di Listbox 1
Source Code nya gan
Public Class Pertemuan_4_Latihan_5_Teori
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        For x = 1 To 3
            For y = 1 To 3
                ListBox1.Items.Add(x & y)
            Next
        Next
    End Sub

    Private Sub Pertemuan_4_Latihan_5_Teori_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 PT_10_LT_8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    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
End Class

Program jalannya 






  • Pengulangan (While – End While)
Perulangan yang akan terus menerus dilakukan selama kondisi memenuhi syarat (bernilai benar) dan akan berhenti jika kondisi bernilai salah.

Bentuk penulisannya :
While (kondisi)
… ekspresi …
End While 

  • Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.
  • Jika kondisi While bernilai benar maka ekspresi akan dijalankan sampai dengan perintah End While, maka akan dikembalikan lagi ke kondisi While untuk diuji kembali kondisi yang sama.
  • Jika kondisinya masih benar maka prosesnya akan diulang, sedangkan jika kondisinya salah maka program akan dilanjutkan dengan menjalankan perintah dibawah End While.

  • Latihan 6
Buatlah form seperti di bawah ini

Source Code
Public Class Pertemuan_4_Latihan_6_Teori

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.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_6_Teori_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 PT_11_LT_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub

    Private Sub Btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btproses.Click
        Dim x As Integer
        x = 1
        While x <= 10
            ListBox1.Items.Add(x)
            x = x + 1
        End While
    End Sub
End Class

Berikut Program jalannya

  • Latihan 7
Buatlah form seperti di bawah ini


  • Aplikasi mencari 10 bilangan genap setelah bilangan yang di input.
  • Klik Tombol cari, hasilnya akan muncul di Listbox 1
Source Code :
Public Class Pertemuan_4_Latihan_7_Teori

    Private Sub btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcari.Click
        Dim x, i As Integer
        x = Val(TextBox1.Text)
        i = 1
        x = x + 1
        ListBox1.Items.Clear()
        While i < 11
            If x Mod 2 = 0 Then
                ListBox1.Items.Add(x)
                i = i + 1
            End If
            x = x + 1
        End While
    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 Pertemuan_4_Latihan_7_Teori_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 PT_11_LT_2_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 jalannya 


Sekian untuk post kali ini 
Untuk materi selanjutnya silahkan sering berkunjung ke website salmantech 

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

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Perulangan pada Visual Basic 2010 2"

Post a Comment

Subscribe to: Post Comments (Atom)