Perulangan perintah tidak hanya FOR. Visual Basic masih mempunyai cara mengulang sekumpulan perintah yang lain, yaitu: DO
Ada dua bentuk DO yang dapat dipakai.
Bentuk I:
Do While <kondisi>
<blok perintah yang diulang>
Loop
Bentuk II:
Do
<blok perintah yang diulang>
Loop While <kondisi>
Jangan lupa memberikan pertambahan nilai yang memungkinkan program akan berhenti jika melewati pemeriksaan di WHILE. Jika tidak, program akan berputar terus menerus tanpa henti. Biasanya pertambahan yang dipakai adalah pertambahan satu demi satu seperti: i += 1;
Contoh:
Program dibawah ini akan mencetak bilangan genap dari 1 sampai 20. Program pertama-tama mendeklarasikan variabel i dengan tipe integer dan ber-nilai awal 1. Lantas angka diperiksa untuk menentukan apakah angka tersebut adalah angka ganjil atau genap dengan membaginya dengan angka 2. Jika terdapat sisa pembagian, maka angka tersebut sudah pasti ganjil. DO akan berulang sepanjang nilai variabel i lebih kecil dari 21. Sedangkan nilai variabel i selalu bertambah satu ketika meng-eksekusi kode:
i += 1;
Dim i As Integer = 1
Do While (i < 21)
If (i Mod 2 = 0) Then
Console.WriteLine(i)
End If
i += 1
Loop
atau bisa diubah menjadi bentuk ini:
Do
If (i Mod 2 = 0) Then
Console.WriteLine(i)
End If
i += 1
Loop While (i < 21)
Senin, 13 Maret 2017
Perulangan Perintah dengan DO
Related Articles :
Menghapus Data Database Access dengan Visual Basic 2008Langkah-langkah untuk menghapus data pada database Access adalah sebagai berikut: Buka Koneksi Data ke Database Access Isi koneksi st ...
Mencetak Tulisan di RichTextBox pada PrinterMencetak tulisan di RichTextBox ke printer dengan VB Net tidak sulit. Kita cuma membutuhkan tiga komponen nonvisual: PrintDocument, Pr ...
Cetak Bilangan Random dengan RND()Visual Basic mempunyai fasilitas mencetak bilangan random antara 0 s.d. 1. Dengan demikian, bilangan random yang dihasilkan selalu dal ...
Mengetahui Tanggal Terakhir Bulan TertentuTgl terakhir sangat diperlukan di berbagai pemrograman. Misal, untuk stock opname, atau pembayaran gaji di suatu perusahaan. Di Visual ...
Membuat Database Access dengan Visual Basic 2008Bahasa Program: Visual Basic 2008 Sertakan referensi Adox agar dapat membuat database Access: Pilih Menu Project >> Add Refere ...
Langganan:
Posting Komentar (Atom)
Diberdayakan oleh Blogger.
Terimakasih.. tulisannya sangat bermanfaat..
BalasHapusMy blog
My Campus