Visual Basic 2010 memungkinkan prosedur harus diulang sebanyak selama prosesor dan memori dapat mendukung. Hal ini umumnya disebut looping. Perulangan diperlukan bila kita perlu memproses sesuatu berulang-ulang sampai kondisi tertentu terpenuhi. Sebagai contoh, kita dapat merancang sebuah program yang menambahkan serangkaian nomor sampai jumlahnya melebihi nilai tertentu, atau program yang meminta pengguna untuk memasukkan data berulang kali sampai ia / dia kunci dalam kata 'Finish'. Dalam Visual Basic 2010, kami memiliki tiga jenis Loops, mereka adalah For ... ..Next Loop, Do Loop. dan Sementara ... ..End while loop
11.1 For …. Next Loop
Formatnya adalah: For counter = mulai Nomor untuk endNumber (increment Langkah)
Satu atau lebih Visual Basic 2010 laporan
Next
To exit a For…..Next Loop,
Anda dapat menempatkan pernyataan Exit For dalam loop; dan biasanya digunakan bersama-sama dengan
If….Then…..statement.
Sebagai penerapannya, Anda bisa merujuk ke contoh 11.1 d.
Contoh 11.1 a
Dim counter as Integer
For counter=1 to 10
ListBox1.Items.Add (counter)
Next
* Program ini akan memasukkan nomor 1 sampai 10 ke dalam kotak daftar.
Contoh 11.1b
Dim counter , sum As Integer
For counter=1 to 100 step 10
sum+=counter
ListBox1.Items.Add (sum)
Next
* Program ini akan menghitung jumlah angka sebagai berikut:
Contoh 11.1c
Dim counter, sum As Integer sum = 1000 For counter = 100 To 5 Step -5 sum – = counter ListBox1.Items.Add(sum) Next
* Perhatikan selisih yang bisa negatif.
Program ini akan menghitung
pengurangan sebagai berikut:
1000-100-95-90- ..........
11.2 Do Loop Contoh 11.1d
Dim n as Integer
For n=1 to 10
If n>6 then
Exit For
End If
Else
ListBox1.Items.Add ( n)
Next
End If
Next
Proses ini akan berhenti ketika n lebih besar dari 6.
11.2 Do Loop
Beberapa format Do loop ini adalah
a) kondisi Do While
Blok dari satu atau lebih Visual Basic 2010 laporan
loop
b) Do
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop While condition
c) Kondisi Do Until
Blok dari satu atau lebih Visual Basic 2010 laporan Loop
d) Do
Blok dari satu atau lebih Visual Basic 2010 laporan
condition Loop Until
* Keluar dari Loop
Kadang kita perlu keluar untuk keluar lingkaran prematur karena tertentu Kondisi terpenuhi. Sintaks untuk digunakan dikenal sebagai Exit Do. Mari kita periksa contoh berikut
Contoh 11.2(a)
Do while counter <=1000
TextBox1.Text=counter
counter +=1
Loop
* Contoh di atas akan terus menambahkan sampai counter> 1000.
Contoh di atas dapat ditulis ulang ketika:
Do
TextBox1.Text=counter
counter+=1
Loop until counter>1000
Example 11.2(b)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sum, n As Integer
ListBox1.Items.Add(“n” & vbTab & “Sum”)
ListBox1.Items.Add(“———————-“)
Do
n += 1
sum += n
ListBox1.Items.Add(n & vbTab & sum)
If n = 100 Then
Exit Do
End If
Loop
End Sub
Formatnya adalah: For counter = mulai Nomor untuk endNumber (increment Langkah)
Satu atau lebih Visual Basic 2010 laporan
Next
To exit a For…..Next Loop,
Anda dapat menempatkan pernyataan Exit For dalam loop; dan biasanya digunakan bersama-sama dengan
If….Then…..statement.
Sebagai penerapannya, Anda bisa merujuk ke contoh 11.1 d.
Contoh 11.1 a
Dim counter as Integer
For counter=1 to 10
ListBox1.Items.Add (counter)
Next
* Program ini akan memasukkan nomor 1 sampai 10 ke dalam kotak daftar.
Contoh 11.1b
Dim counter , sum As Integer
For counter=1 to 100 step 10
sum+=counter
ListBox1.Items.Add (sum)
Next
* Program ini akan menghitung jumlah angka sebagai berikut:
Contoh 11.1c
Dim counter, sum As Integer sum = 1000 For counter = 100 To 5 Step -5 sum – = counter ListBox1.Items.Add(sum) Next
* Perhatikan selisih yang bisa negatif.
Program ini akan menghitung
pengurangan sebagai berikut:
1000-100-95-90- ..........
11.2 Do Loop Contoh 11.1d
Dim n as Integer
For n=1 to 10
If n>6 then
Exit For
End If
Else
ListBox1.Items.Add ( n)
Next
End If
Next
Proses ini akan berhenti ketika n lebih besar dari 6.
11.2 Do Loop
Beberapa format Do loop ini adalah
a) kondisi Do While
Blok dari satu atau lebih Visual Basic 2010 laporan
loop
b) Do
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop While condition
Loop While condition
c) Kondisi Do Until
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop
d) Do
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop Until condition
b) DoBlok dari satu atau lebih Visual Basic 2010 laporan
Loop Until condition
Blok dari satu atau lebih Visual Basic 2010 laporan
Loop While condition
c) Kondisi Do Until
Blok dari satu atau lebih Visual Basic 2010 laporan Loop
d) Do
Blok dari satu atau lebih Visual Basic 2010 laporan
condition Loop Until
* Keluar dari Loop
Kadang kita perlu keluar untuk keluar lingkaran prematur karena tertentu Kondisi terpenuhi. Sintaks untuk digunakan dikenal sebagai Exit Do. Mari kita periksa contoh berikut
Contoh 11.2(a)
Do while counter <=1000
TextBox1.Text=counter
counter +=1
Loop
* Contoh di atas akan terus menambahkan sampai counter> 1000.
Contoh di atas dapat ditulis ulang ketika:
Do
TextBox1.Text=counter
counter+=1
Loop until counter>1000
Example 11.2(b)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sum, n As Integer
ListBox1.Items.Add(“n” & vbTab & “Sum”)
ListBox1.Items.Add(“———————-“)
Do
n += 1
sum += n
ListBox1.Items.Add(n & vbTab & sum)
If n = 100 Then
Exit Do
End If
Loop
End Sub
0 comments:
Post a Comment