Perulangan Pada VB.net


Assalamu’alaikum Wr Wb

Selamat datang di web sibukngoding.com. Setelah pada postingan sebelumnya saya bahas tentang percabangan. Pada Kesempatan kali ini saya akan memberikan materi tentang perulangan pada VB.net. Pada setiap bahasa pemrograman, pasti mempunyai sintax perulangan sendiri-sendiri. Jadi jika teman-teman sudah mempelajari perulangan pada bahasa pemrograman lain, pasti akan mudah memahami perulangan pada bahasa pemrograman VB.net.


Perulangan atau looping merupakan salah satu konrol program yang digunakan untuk mengulang suatu perintah sampai kondisi tertentu. Proses perulangan akan terus dilakukan secara terus menerus atau berulang-ulang selama kondisi tersebut terpenuhi. Jika kondisi sudah tidak terpenuhi, maka perulangan akan terhenti.

Perulangan Pada VB.net ada 3 yaitu For-Next, Do while-Loop , Do Until – Loop dan While-End. Sebenarnya masih ada yang lain, tetapi saya akan membahas yang sering dipakai. Nanti jika teman-teman buat program perulangan, bisa milih salah satu.

For-Next
Digunakan untuk mengulang perintah dengan jumlah yang telah ditentukan. Pada perulangan ini kita tidak perlu menuliskan kondisi yang akan diuji, cukup memberikan nilai awal dan nilai akhir.

Bentuk Umum sintaxnya sbb: 
For Variabel= Nilai_awal to Nilai_akhir
 Expresi
Next

Keterangan:
  • Variabel: Nama variabel yang digunakan untuk menyimpan data nilai perulangan. Disarankan menggunakan tipe data integer karena menunjukan angka
  • Nilai_awal: Nilai awal suatu variabel untuk menentukan awal perulangan
  • Nilai_akhir: Nilai suatu variabel untuk menentukan akhir dari perulangan
  • Expresi : Blok perintah yang akan dilakukan perulangan jika perulangan tersebut memenuhi syarat
Contoh For-Next
Dim i as integer
For  i =1  to  100
    Perintah
Next
Dari contoh diatas, menggunakan variabel i. Untuk nilai awal adalah 1 dan nilai akhir adalah 100 jadi nanti perintah yang dijalankan akan diulang sebanyak 100 kali karena dihitung dari angka 1 sampai 100

Do While-Loop

Suatu perulangan yang akan terus-menerus dilakukan selama kondisi memenuhi syarat (Bernilai Benar) dan akan berhenti jika kondisi bernilai salah.

Bentuk Umum sintaxnya:
Do While (Kondisi)
 Expressi
Loop
atau 
Do 
 Expressi
Loop While (Kondisi)
Keterangan :

  • Kondisi : Suatu kondisi yang merupakan syarat tertentu dalam perulangan. Jika kondisi bernilai benar, maka perulangan akan terus berjalan. Dan akan berhenti jika kondisi bernilai salah. 
  • Expressi : Blok perintah yang akan dilakukan perulangan jika perulangan tersebut memenuhi syarat
Contoh Do While-Loop
Dim i as integer
i=1
Do  While i <= 100
 Perintah
 i=i+1
Loop
Dari contoh diatas, Perintah akan berulang selama kondisi terpenuhi atau bernilai benar. Jika kita lihat kondisi di atas adalah i<=100 dan kita bisa melihat nilai awal dari i adalah 1, maka perulangan akan dijalankan 100 kali. Kenapa bisa 100, karena nilai i =1 dan kondisinya adalah nilai i kurang dari atau sama dengan 100. Jadi perulangan akan berhenti jika i lebih besar dari 100. Jika nilai i=0 maka nanti hasilnya juga beda, karena dihitung dari angka 0. Untuk perintah i=i+1 digunakan untuk menambahkan nilai dari variabel i. Jadi setiap  perintah sudah dijalankan, nilai variabel i yang tersimpan akan berubah atau bertambah 1. Jadi berbeda dengan Perulangan For-next, Untuk perulangan Do While-loop perlu di tambahkan i=i+1.


Do Until -Loop
Merupakan perulangan yang metodenya kebalikan dari Do While-Loop. Perulangan ini akan menjalankan suatu kondisi secara terus menerus jika kondisi bernilai salah dan perulangan akan berhenti jika kondisi bernilai benar.

Bentuk Umum sintaxnya:
Do Until (Kondisi)
 Expressi
Loop
atau 
Do
 Expressi
Loop Until (kondisi)
Keterangan :

  • Kondisi : Suatu kondisi yang merupakan syarat tertentu dalam perulangan. Jika kondisi bernilai salah, maka perulangan akan terus berjalan. Dan akan berhenti jika kondisi bernilai benar. Jadi kebalikannya dengan do while-loop
  • Expressi : Blok perintah yang akan dilakukan perulangan jika perulangan tersebut memenuhi syarat
Contoh Do loop-until
Dim i as integer
i=1
Do  Until i > 100
 Perintah
 i=i+1
Loop
Dari contoh diatas, nilai awal i=1 lalu kondisinya adalah i>100 jadi perulangan akan dijalankan sampai i nilainya lebih besar dari 100 maka perintah yang dijalankan akan berulang 100 kali. Hampir sama dengan perintah do while- loop.  Bedanya Untuk perulangan do until loop, Jika kondisi belum terpenuhi (Bernilai salah) perulangan akan tetap dijalankan sampai kondisi bernilai benar.


While-end
Sama dengan fungsi do while – loop yaitu Suatu perulangan yang akan terus-menerus dilakukan selama kondisi memenuhi syarat (Bernilai Benar) dan akan berhenti jika kondisi bernilai salah

Bentuk Umum sintaxnya:
While kondisi
 Expressi
End while
Keterangan:

  • Kondisi : Suatu kondisi yang merupakan syarat tertentu dalam perulangan. Jika kondisi bernilai benar, maka perulangan akan terus berjalan. Dan akan berhenti jika kondisi bernilai salah. 
  • Expressi : Blok perintah yang akan dilakukan perulangan jika perulangan tersebut memenuhi syarat
Contoh While-end
Dim i as integer
i=1
While i <= 100
 Perintah
 i=i+1
end while
Untuk hasilnya sama dengan fungsi do while-loop, Perulangan akan dijalankan selama kondisi terpenuhi atau bernilai benar dan akan berhenti setelah kondisi sudah terpenuhi. Dari Contoh diatas perulangan akan dijalankan sampai 100 kali karena kondisinya i kurang dari atau sama dengan 100.

Untuk lebih jelasnya kita masuk ke contoh program dengan menggunakan VB.net.
Silahkan buat form di Visual Studio seperti di bawah ini:
Form perulangan
Untuk propertisnya seperti dibawah ini:
Tool Control
Propertis
Value
Form1
Name
FrmPerulangan

Text
Program Perulangan

Label1
Text
Jumlahn Perulangan
Name
Label1

Textbox1
Name
Txtjumlah
Text
0

Listbox1
Name
lshasil



Botton1
Name
Btfor
Text
For-next

Botton2
Name
Btdowhile
Text
Do while-loop

Botton3
Name
Btdountil
Text
Do Until-loop

Botton4
Name
Btwhile
Text
While-end


Selanjutnya kita masukkan source codenya:
Soure code untuk btfor event Click
        Dim i As Integer
        lshasil.Items.Clear()
        For i = 1 To Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
        Next
Source code untuk btdowhile event Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        Do While i <= Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        Loop
Source code untuk btdountil event Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        Do Until i > Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        Loop
Source code untuk btwhile event Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        While i <= Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        End While
Untuk source code keseluruhannya sebagai berikut:

Public Class frmPerulangan

    Private Sub btfor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfor.Click
        Dim i As Integer
        lshasil.Items.Clear()
        For i = 1 To Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
        Next
    End Sub

    Private Sub btdowhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdowhile.Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        Do While i <= Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        Loop
    End Sub

    Private Sub btdountil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdountil.Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        Do Until i > Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        Loop
    End Sub

    Private Sub btwhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btwhile.Click
        Dim i As Integer
        i = 1
        lshasil.Items.Clear()
        While i <= Val(txtjumlah.Text)
            lshasil.Items.Add("Perulangan Ke - " & i)
            i = i + 1
        End While
    End Sub
End Class


Setelah di run atau dijalankan, hasilnya seperti berikut
Kita masukkan jumlah perulangannya, setelah itu kita klik tombol jenis perulangannya, Maka jika benar hasilnya sama seperti di atas. Silahkan dicoba dengan mengganti jumlah perulangannya.

Demikian tadi postingan dari saya tentang perulangan pada vb.net , Semoga bermanfaat. Dan apabila ada pertanyaan, bisa ditanyakan lewat kolom komentar. Dan jangan lupa tetap kunjungi web sibukngoding.com untuk mendapatkan tutorial pemrograman lainnya. Sesibuk-sibuknya anda ngoding, jangan lupa ibadahnya.

Terimakasih atas kunjungannya, selamat belajar dan jangan mudah menyerah.

Wassalamu’alaikum Wr Wb

Comments

Post a Comment

- Berkomentarlah dengan bijak, Komentar akan di moderasi dahulu sebelum ditampilkan.