Pemrograman Visual:Tugas Fungsi Perulangan: Difference between revisions
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
Buat tampilan seperti berikut ini: | Buat tampilan seperti berikut ini: | ||
[[File:PV Tugas Fungsi Perulangan 102837443.png|center|thumb]] | |||
Klik 2x pada tombol OK lalu ketikkan kode program berikut ini:<syntaxhighlight lang="vbnet" line="1"> | Klik 2x pada tombol OK lalu ketikkan kode program berikut ini:<syntaxhighlight lang="vbnet" line="1"> | ||
Dim Bill, Bil2 As Byte | Dim Bill, Bil2 As Byte | ||
| Line 63: | Line 63: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Kedua perulangan ini akan menghasilkan output yang sama dengan perulangan <code>For</code> yang digunakan dalam kode sebelumnya. Namun, perulangan DO WHILE akan melakukan perulangan sampai kondisi yang ditentukan terpenuhi, sedangkan perulangan DO LOOP UNTIL akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi. | Kedua perulangan ini akan menghasilkan output yang sama dengan perulangan <code>For</code> yang digunakan dalam kode sebelumnya. Namun, perulangan DO WHILE akan melakukan perulangan sampai kondisi yang ditentukan terpenuhi, sedangkan perulangan DO LOOP UNTIL akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi.<syntaxhighlight lang="vbnet" line="1"> | ||
Public Class Form1 | |||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click | |||
ListBox1.Items.Clear() | |||
Dim Bill As Byte | |||
Dim Bil2 As Byte | |||
For Bill = 1 To 5 | |||
ListBox1.Items.Add(Bill & ".") | |||
For Bil2 = 1 To 5 | |||
ListBox1.Items.Add(Bill & "." & Bil2) | |||
Next | |||
Next | |||
Bill = 1 | |||
Do While Bill <= 5 | |||
ListBox1.Items.Add(Bill & ".") | |||
Bil2 = 1 | |||
Do While Bil2 <= 5 | |||
ListBox1.Items.Add(Bill & "." & Bil2) | |||
Bil2 = Bil2 + 1 | |||
Loop | |||
Bill = Bill + 1 | |||
Loop | |||
Bill = 1 | |||
Do | |||
ListBox1.Items.Add(Bill & ".") | |||
Bil2 = 1 | |||
Do | |||
ListBox1.Items.Add(Bill & "." & Bil2) | |||
Bil2 = Bil2 + 1 | |||
Loop Until Bil2 > 5 | |||
Bill = Bill + 1 | |||
Loop Until Bill > 5 | |||
End Sub | |||
End Class | |||
</syntaxhighlight>Kode diatas adalah contoh program yang menggabungkan kedua jenis perulangan (For, Do While, Do Until) yang digunakan untuk menambahkan item ke dalam sebuah objek <code>ListBox</code>. Pertama, perintah <code>ListBox1.Items.Clear()</code> digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan <code>For Bill = 1 To 5</code> digunakan untuk menambahkan item ke dalam <code>ListBox</code> dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam <code>ListBox</code> dengan format <code>"Bill" & "."</code>. Selanjutnya, perulangan <code>Do While Bill <= 5</code> digunakan untuk menambahkan item ke dalam <code>ListBox</code> dengan nilai dari 1 hingga 5. | |||
Dalam setiap iterasi, item ditambahkan ke dalam <code>ListBox</code> dengan format <code>"Bill" & "." & "Bil2"</code>. Kemudian perulangan Do Until digunakan untuk menambahkan item yang sama dengan perulangan sebelumnya. Namun, perulangan Do Until akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi. | |||
[[Category:Materi]] | [[Category:Materi]] | ||
[[Category:Matkul]] | [[Category:Matkul]] | ||
[[Category:Pemrograman Visual]] | [[Category:Pemrograman Visual]] | ||