Belajar VB.Net Bagian 10 : Do… While…

Ok bertemu lagi dengan tutorial belajar visual basic.net bagian ke 10. Sekarang kita masih akan membahas mengenai looping, namun sekarang kita akan mencoba looping dengan menggunakan metode Do… While… jadi langsung aja buat sebuah project baru di visual basic.net terus beri nama tut9.

Kalo design view udah kebuka sekarang tambahkan 2 buah tetxBox, 1 Button dan juga 1 ListBox. Ubah properties dari masing-masing controller tersebut menjadi seperti berikut ini :

TextBox 1 :

Name = txtMulai

TextBox 2 :

Name = txtBerhenti

Button1 :

Name = btnOk

Text = OK

listBox :

Name = lsthasil

Selanjutnya klik 2 kali btnOk terus masukan code program visual basic.net seperti berikut ini :

Dim mulai, berhenti As Integer

        mulai = Val(txtMulai.Text)

        berhenti = Val(txtBerhenti.Text)

        Do While mulai <= berhenti

            lsthasil.Items.Add(mulai)

            mulai = mulai + 1

        Loop

Ok logikanya perulangan akan dilakukan terus menerus sampai variable yang ditentukan telah mencapai parameter yang sudah ditentukan. Dalam hal ini “mulai <= berhenti” jadi kalo variable mulai nilainya masih dbawah variable berhenti, maka proses perulangan akan terus menerus dilakukan.

Nah berikut ini adalah source code lengkap visual basic.net untuk looping menggunakan do while :

Public Class Form1

    Private Sub btnDoWhile_Click(sender As Object, e As EventArgs) Handles btnDoWhile.Click

        Dim mulai, berhenti As Integer

        mulai = Val(txtMulai.Text)

        berhenti = Val(txtBerhenti.Text)

        Do While mulai <= berhenti

            lsthasil.Items.Add(mulai)

            mulai = mulai + 1

        Loop

    End Sub

End Class

Sekarang jalankan aplikasinya lalu masukan nilai 1 pada txtMulai dan 5 pada txtBerhenti, tampilannya akan seperti berikut ini :

Ok sekarang kita telah selesai membuat aplikasi untuk melakukan proses perulangan dengan menggunakan metode do while. Sampai bertemu pada tutorial selanjutnya ya dan semoga tutorial ini bermanfaat bagi para pembaca.