» » » » » Perulangan pada Visual Basic 2010

Perulangan pada Visual Basic 2010

, , ,

Selamat Sore gan 
  •  Perulangan (Looping)
Struktur pengulangan atau Loop digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses pengulangan ini dapat dikendalikan jumlahnya oleh aplikasi yang dibuat pada kondisi tertentu. Proses pengulangan akan terus dikerjakan selama kondisi yang dibandingkan oleh proses tersebut masih bernilai “Benar” (True). Jika kondisi yang dibandingkan bernilai “Salah” (False), proses pengulangan akan berhenti dan jalannya program akan dilanjutkan setelah proses pengulangan.

  1. Struktur For – Next (yang akan dibahas pada post kali ini)
  2. Struktur Nested For – Next
  3. Struktur While-End While 
  4. Struktur Do While - Loop
  5. Struktur Do – Loop While 
  6. Struktur Do Until – Loop 
  7. Struktur Do – Loop Until
  • Pengulangan (Struktur For–Next)
Struktur For – Next digunakan untuk mengulang blok perintah dalam jumlah yang sudah ditentukan. Pada struktur ini tidak perlu menentukan kondisi yang akan diuji tetapi perlu menentukan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung secara otomatis akan bertambah atau berkurang setiap suatu pengulangan dikerjakan.
For var = awal To akhir Step pertambahan/pengurangan
… ekspresi …
Next Counter

Var : Nama variabel integer yang digunakan untuk melakukan proses
pengulangan.
Awal: Nilai suatu variabel integer untuk menentukan harga awal suatu
pengulangan.
Akhir: Nilai suatu variabel integer untuk menentukan harga akhir suatu
pengulangan
Pertambahan/Penguarangan : Besarnya nilai perubahan dari nilai awal
sampai nilai akhir. Jika pengulangannya menurun yaitu dari nilai yang besar
menuju ke nilai yang kecil, maka nilai perubahannya harus negatif. Nilai standar
Visual Basic untuk pertambahan adalah 1, kecuali jika nilai perubahan
ditentukan. Jika bentuk pengulangannya turun dari nilai besar ke nilai kecil,
berikan nilai pertambahan negatif ( - ).
Ekspresi : Suatu blok perintah yang akan dikerjakan jika kondisi dari proses
pengulangan memenuhi syarat.
  • Latihan 1  
Buatah form seperti dibawah
 
  • Jalankan Form, kemudian Klik Button Proses, akan muncul perulangan seperti dibawah ini. 
  • Button Keluar untuk keluar dari aplikasi.
 Source Code :

Public Class Pertemuan_4_Latihan_1_Teori

    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, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_4_Latihan_1_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 btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        Dim x As Integer
        For x = 1 To 10
            'salmantech42.blogspot.com
            ListBox1.Items.Add(x)
        Next x
    End Sub

    Private Sub Pertemuan_4_Latihan_1_Teori_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 berjalannya


  • Latihan 2
Buatlah form seperti di bawah ini
 
  • Jalankan Form, kemudian Klik Button Proses, akan muncul perulangan seperti dibawah ini.
  • Button Keluar untuk keluar dari aplikasi.
Source Code :
Public Class Pertemuan_4_Latihan_2_Teori

    Private Sub Button2_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, "salmantec42.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 btproses.Click
        Dim x As Integer
        For x = 10 To 1 Step -1
            ListBox1.Items.Add(x)
        Next
    End Sub

    Private Sub Pertemuan_4_Latihan_2_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, "salmantec42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

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

Berikut Program runningnya gan



 
  • Latihan 3 
Buatlah form seperti dibawah ini


  • Jalankan Form, kemudian input bilangan dan Pangkat, kemudian klik Button Hitung, akan muncul perulangan di textbox Hasil 
  • Button Keluar untuk keluar dari aplikasi.  
Source Code 
Public Class Pertemuan_4_Latihan_3_Teori

    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 bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        Dim x, y, i, hasil As Double
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        hasil = 1
        For i = 1 To y
            hasil = hasil * x
        Next
        TextBox3.Text = Str(hasil)
    End Sub

    Private Sub Pertemuan_4_Latihan_3_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 Pertemuan_4_Latihan_3_Teori_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 4
Buatlah form seperti dibawah ini

  • Jalankan Form, kemudian Klik Button For Next, akan muncul perulangan Nama hari seperti diatas.
  • Button Keluar untuk keluar dari aplikasi.
Source Code 
Public Class Pertemuan_4_Latihan_4_Teori

    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 x As Integer
        For x = 1 To 7
            'salmantech42.blogspot.com
            ListBox1.Items.Add(WeekdayName(x))
        Next
    End Sub

    Private Sub Pertemuan_4_Latihan_4_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 Pertemuan_4_Latihan_4_Teori_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

Contoh kasusnya
  • Kasus 1
Buatlah form seperti di bawah ini

  • Jalankan Form, kemudian Klik Button For Next, akan muncul perulangan Nama Bulan seperti diatas.
  • Button Keluar untuk keluar dari aplikasi.
Source Code 
Public Class Pertemuan_4_Kasus_1_Teori

    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 x As Integer
        For x = 1 To 12
            'salmantech42.blogspot.com
            ListBox1.Items.Add(MonthName(x))
        Next
    End Sub

    Private Sub Pertemuan_4_Kasus_1_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_5_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 berjalannya

  • Kasus 2
Buatlah form seperti di bawah ini

  • Pada saat form di jalankan, combo box tgl, bln dan tahun akan muncul menyesuaikan dgn tgl/bln/thn

Source Code
Public Class Pertemuan_4_Kasus_2_Teori

    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, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_4_Kasus_2_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 Pertemuan_4_Kasus_2_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        For i = 1 To 30
            ComboBox1.Items.Add(i)
        Next
        For i = 1 To 12
            ComboBox2.Items.Add(i)
        Next
        For i = 2019 To 1990 Step -1
            ComboBox3.Items.Add(i)
        Next
    End Sub
End Class

Berikut Program jalannya







  • Kasus 3
Buatlah form seperti dibawah


  • Angka Awal dan Angka akhir diinput, ketika diklik Proses, akan terisi angka ganjil dan genap sesuai batas awal dan akhir
Source Code
Public Class Pertemuan_4_Kasus_3_Teori
    'salmantech42.blogspot.com
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, i, hasil As Integer
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        For i = x To y
            If i Mod 2 = 0 Then
                ListBox2.Items.Add(i)
            ElseIf i Mod 2 = 1 Then
                ListBox1.Items.Add(i)
            End If
        Next
    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_Kasus_3_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 Pertemuan_4_Kasus_3_Teori_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 kali ini 
Untuk materi selanjutnya akan dibahas yaitu Nested For - Next, While - End While

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

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Perulangan pada Visual Basic 2010 "

Post a Comment

Subscribe to: Post Comments (Atom)