Sekarang
kita masuk ke belajar vb.net bagian ke 9 yang akan membahas mengenai proses
perulangan dengan mengunakan For… next… Disini kita akan membuat sebuah
aplikasi yang akan melakukan proses perulangan pada suatu variable dan jika
variable tersebut telah sampai pada kondisi tertentu maka proses perulangan
akan dihentikan. Langsung aja buat sebuah project visual basic.net baru lalu
beri nama dengan tut8, tambahkan beberapa controller seperti 2 buah textbox, 1
buah button dan juga 1 buah ListBox lalu ubah masing-masing controller tersebut
menjadi seperti berikut ini :
TextBox1 :
Name =
txtMulai
TextBox2 :
Name =
txtBerhenti
Button :
Name =
btnOk
Text = OK
ListBox1 :
Name =
lstHasil
Sekarang
klik 2 kali buttonOk lalu masuan code program visual basic.net seperti berikut
ini :
Dim mulai, berhenti As Integer
Dim hasilLoop As Integer
mulai = Val(txtMulai.Text)
berhenti = Val(txtBerhenti.Text)
For hasilLoop = mulai To berhenti
lstHasil.Items.Add(hasilLoop)
Next
Ok sekarang
kita bahas dulu sedikit, pertama buat variable mulai, berhenti dan juga
hasilLoop dengan type variable integer. Dimana nilai variable mulai dan
berhenti didapat berdasarkan nilai yang ada pada txtMulai dan juga txtBerhenti
yang diinputkan oleh user.
Selanjutnya
proses looping akan dilakukan pada variable hasilLoop dan nanti hasil dari
proses looping itu sendiri akan ditampilkan pada lstHasil sampai dengan
parameter yang telah ditentukan terpenuhi.
Dan berikut
ini merupakan source code selengkapnya :
Public Class Form1
Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
Dim mulai, berhenti As Integer
Dim hasilLoop As Integer
mulai = Val(txtMulai.Text)
berhenti = Val(txtBerhenti.Text)
For hasilLoop = mulai To berhenti
lstHasil.Items.Add(hasilLoop)
Next
End Sub
End Class
Sekarang
coba jalankan aplikasinya. Outputnya akan tampak seperti berikut ini :
Ok sekarang
kita sudah selesai membuat sebuah aplikasi untuk mempraktekan looping denga
menggunakan For… next. Semoga tutorial ini bermanfaat dan sampai jumpa pada
tutorial belajar visual basic.net selanjutnya.
0 comments
Posting Komentar
Silahkan Berikan Komentar Anda Disini.