Bagikan melalui

Sambil... Akhiri Sementara Pernyataan (Visual Basic)

Menjalankan serangkaian pernyataan selama kondisi tertentu adalah True.

Sintaksis

While condition
    [ statements ]
    [ Continue While ]
    [ statements ]
    [ Exit While ]
    [ statements ]
End While

Bagian

Istilah Definisi
condition Dibutuhkan. Boolean Ekspresi. Jika condition adalah Nothing, Visual Basic memperlakukannya sebagai False.
statements Fakultatif. Satu atau beberapa pernyataan berikut While, yang berjalan setiap kali condition adalah True.
Continue While Fakultatif. Mentransfer kontrol ke iterasi While blok berikutnya.
Exit While Fakultatif. Transfer kontrol keluar dari While blok.
End While Dibutuhkan. Mengakhiri definisi While blok.

Komentar

While...End While Gunakan struktur saat Anda ingin mengulangi sekumpulan pernyataan yang jumlahnya tidak terbatas, selama kondisi tetap Trueada . Jika Anda menginginkan lebih banyak fleksibilitas dengan di mana Anda menguji kondisi atau hasil apa yang Anda uji, Anda mungkin lebih suka Lakukan... Pernyataan Perulangan. Jika Anda ingin mengulangi pernyataan beberapa kali, untuk... Pernyataan Berikutnya biasanya merupakan pilihan yang lebih baik.

Nota

Kata While kunci juga digunakan dalam Do... Pernyataan Perulangan, Klausul Lop While dan Klausul Take While.

Jika condition adalah True, semua statements eksekusi hingga End While pernyataan ditemui. Kontrol kemudian kembali ke While pernyataan, dan condition dicentang lagi. Jika condition masih True, proses diulang. Jika itu False, kontrol meneruskan ke pernyataan yang mengikuti End While pernyataan.

Pernyataan While selalu memeriksa kondisi sebelum memulai perulangan. Perulangan berlanjut sementara kondisi tetap True. Jika condition adalah False ketika Anda pertama kali memasukkan perulangan, itu tidak berjalan sekali pun.

Biasanya condition hasil dari perbandingan dua nilai, tetapi dapat berupa ekspresi apa pun yang mengevaluasi ke nilai Jenis Data Boolean (True atau False). Ekspresi ini dapat menyertakan nilai jenis data lain, seperti jenis numerik, yang telah dikonversi ke Boolean.

Anda dapat menyarangkan While perulangan dengan menempatkan satu perulangan di dalam perulangan lainnya. Anda juga dapat menumpuk berbagai jenis struktur kontrol satu sama lain. Untuk informasi selengkapnya, lihat Struktur Kontrol Tertumpuk.

Keluar Sementara

Pernyataan Exit While dapat memberikan cara lain untuk keluar dari perulangan While . Exit While segera mentransfer kontrol ke pernyataan yang mengikuti End While pernyataan.

Anda biasanya menggunakan Exit While setelah beberapa kondisi dievaluasi (misalnya, dalam If...Then...Else struktur). Anda mungkin ingin keluar dari perulangan jika Anda mendeteksi kondisi yang membuatnya tidak perlu atau tidak mungkin untuk melanjutkan iterasi, seperti nilai yang salah atau permintaan penghentian. Anda dapat menggunakan Exit While ketika Anda menguji kondisi yang dapat menyebabkan perulangan tanpa akhir, yang merupakan perulangan yang dapat menjalankan jumlah waktu yang sangat besar atau bahkan tak terbatas. Anda kemudian dapat menggunakan Exit While untuk menghindari perulangan.

Anda dapat menempatkan sejumlah Exit While pernyataan di mana saja dalam perulangan While .

Ketika digunakan dalam perulangan berlapis While , Exit While transfer mengontrol keluar dari perulangan terdalam dan ke tingkat sarang berikutnya yang lebih tinggi.

Pernyataan tersebut Continue While segera mentransfer kontrol ke perulangan berikutnya. Untuk informasi selengkapnya, lihat Lanjutkan Pernyataan.

Contoh 1

Dalam contoh berikut, pernyataan dalam perulangan terus berjalan hingga index variabel lebih besar dari 10.

Dim index As Integer = 0
While index <= 10
    Debug.Write(index.ToString & " ")
    index += 1
End While

Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10

Contoh 2

Contoh berikut mengilustrasikan penggunaan pernyataan Continue While dan Exit While.

Dim index As Integer = 0
While index < 100000
    index += 1

    ' If index is between 5 and 7, continue
    ' with the next iteration.
    If index >= 5 And index <= 8 Then
        Continue While
    End If

    ' Display the index.
    Debug.Write(index.ToString & " ")

    ' If index is 10, exit the loop.
    If index = 10 Then
        Exit While
    End If
End While

Debug.WriteLine("")
' Output: 1 2 3 4 9 10

Contoh 3

Contoh berikut membaca semua baris dalam file teks. Metode OpenText membuka file dan mengembalikan yang StreamReader membaca karakter. While Dalam kondisi , Peek metode StreamReader menentukan apakah file berisi karakter tambahan.

Private Sub ShowText(ByVal textFilePath As String)
    If System.IO.File.Exists(textFilePath) = False Then
        Debug.WriteLine("File Not Found: " & textFilePath)
    Else
        Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)

        While sr.Peek() >= 0
            Debug.WriteLine(sr.ReadLine())
        End While

        sr.Close()
    End If
End Sub

Lihat juga

  • Last updated on