Dengan menggunakan for, Anda dapat menjalankan pernyataan atau blok pernyataan berulang-ulang sampai ekspresi dinyatakan false. for berguna untuk pengulangan. For statement didalam C# sangat bebeda dengan VB, berikut pernyataan for antara C# dan VB
//C#
for (initializer; condition; iterator)
body statements
'VB
For counter [ As datatype ] = start To end [ Step step ]
[ statements ]
[ Continue For ]
[ statements ]
[ Exit For ]
[ statements ]
Next [ counter ]
Mari kita langsung mempraktekannya, buat 1 project dengan nama (cs_03for untuk C#) dan (vb_03for untuk VB), masukan 1 object Listbox dan 5 object button kedalam form seperti gambar dibawah ini:
Atur propertiesnya sebagai berikut:
| Object |
Properties |
Value |
| button1 |
(Name) |
btnForAsc |
|
Teks |
For Ascending |
| button2 |
(Name) |
btnForStop |
|
Teks |
For Stop |
| button3 |
(Name) |
btnForCon |
|
Teks |
For Continue |
| button4 |
(Name) |
btnForDes |
|
Teks |
For Desending |
| button5 |
(Name) |
btnForStep |
|
Teks |
For Step |
For Ascending
Klik 2x pada button For Ascending, kemudian ketikan kode sebagai berikut:
//C#
private void btnForAsc_Click(object sender, EventArgs e)
{
listBox1.Items.Clear(); //hapus item dlm listbox1
for (int i = 0; i < 10; i++)
{
listBox1.Items.Add(i); //memasukan data kedlm listbox1
}
}
Perhatiakan code i++ diatas, anda dapat menulisnya dengan ++i itu sama saja, yang artinya ascending dari kecil ke besar, sedangkan untuk descending menggunakan "--". Sedangkan code listBox1.Items.Clear fungsinya menghapus item yang ada didalam listBox1.
'VB
Private Sub btnForAsc_Click(sender As Object, e As EventArgs) Handles btnForAsc.Click
Dim i As Byte
ListBox1.Items.Clear 'hapus item dlm listbox1
For i = 1 To 10
ListBox1.Items.Add(i) 'memasukan data kedlm listbox1
Next i
End Sub
Jalankan program kemudian klik button For Ascending, maka hasilnya akan seperti berikut:
Gambar 14.2
Stop For
Klik 2x pada button For Stop, kemudisan ketikan code berikut:
//C#
private void btnForAsc_Click(object sender, EventArgs e)
{
listBox1.Items.Clear(); //hapus item dlm listbox1
for (int i = 0; i < 10; i++)
{
listBox1.Items.Add(i);
if (i == 7)
{
break;
}
}
}
'VB
Private Sub btnForAsc_Click(sender As Object, e As EventArgs) Handles btnForAsc.Click
Dim i As Byte
ListBox1.Items.Clear 'hapus item dlm listbox1
For i = 1 To 10
ListBox1.Items.Add(i)
If i = 7 Then
Exit For
End If
Next i
End Sub
Untuk menghentikan for yang telah kita tentukan di C# menggunakan
break sedangkan VB menggunakan
Exit For. Coba kita jalankan program dan klik button For Stop, maka saat i mencapai angka 7 pengulangan akan terhenti seperti gambar dibawah berikut:
Gambar 14.3
Continue For
Klik 2x pada button Continue For, kemudian ketikan code berikut:
//C#
private void tblForContinue_Click(object sender, EventArgs e)
{
listBox1.Items.Clear(); //hapus item dlm listbox1
for (int i = 1; i <= 20; i++)
{
if (i >= 5 & i <= 9)
{
continue;
}
listBox1.Items.Add(i);
if (i == 15)
{
break;
}
}
}
'VB
Private Sub tblForCon_Click(sender As Object, e As EventArgs) Handles tblForCon.Click
Dim i As Byte
ListBox1.Items.Clear
For i = 1 To 20
If i >= 5 and i <= 9 Then
Continue For
End If
ListBox1.Items.Add(i)
If i = 15 Then
Exit For
End If
Next i
End Sub
Continue disini memiliki fungsi agar apabila i dalam kondisi yang ditentukan (contohnya 5 sampai 9) maka code ListBox1.Items.Add tidak dieksekusi, melainkan dikembalikan ke for, begitu kodisinya sudah mencapai 10, maka ListBox1.Items.Add kembali dieksekusi. begitu i sudah mencapai 15 maka for dihentikan seperti gambar 14.4 dibawah ini.
Gambar 14.4
For Descending
Klik 2x pada button For Decending, kemudian ketikan code berikut:
//C#
private void btnForDes_Click(object sender, EventArgs e)
{
listBox1.Items.Clear();
for (int i = 10; i >= 1; i--)
{
listBox1.Items.Add(i);
}
}
'VB
Private Sub btnForDes_Click(sender As Object, e As EventArgs) Handles btnForDes.Click
Dim i As Integer
ListBox1.Items.Clear 'hapus item dlm listbox1
For i = 10 To 1 Step -1
ListBox1.Items.Add(i)
Next i
End Sub
Jalankan program, kemudian klik button For Descending, maka i akan bergerak dari angka besar menuju angka kecil seperti gambar 14.5 dibawah ini:
Gambar 14.5
For Step
Tujuannya membuat pengulangan dengan melewati beberapa step yang kita tentukan, klik 2x pada button For Step, kemudian ketikan code berikut:
//C#
private void btnForStep_Click(object sender, EventArgs e)
{
listBox1.Items.Clear();
for (int i = 1; i < 20; i+= 2)
{
listBox1.Items.Add(i);
}
}
'VB
Private Sub btnForStep_Click(sender As Object, e As EventArgs) Handles btnForStep.Click
Dim i As Byte
ListBox1.Items.Clear
For i = 1 To 20 Step 2
ListBox1.Items.Add(i)
Next
End Sub
Jalankan program, kemudian klik button For Step dan hasilnya akan seperti gambar 14.6 dibawah ini:
Gambar 14.6
OK, sampai disini selesai contoh dari For Statement, next kita masuk
Foreach Statement.
Password: csvb2015.blogspot.co.id
