Wiki

Pemrograman Visual:Tugas Fungsi Perulangan: Difference between revisions

Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,281 edits
VisualWikitext
Created page with "<syntaxhighlight lang="bash"> Dim Bill, Bil2 As Byte ListBox1.Item.Clear() For Bill = 1 To 5 ListBox1.Items.Add(Bill & ".") For Bil2 = 1 To 5 ListBox1.Items.Add(Bill & "." & Bil2) Next Next </syntaxhighlight> Kode ini menggunakan perulangan "For" untuk menambahkan item ke dalam sebuah objek ListBox. Pertama, perintah "ListBox1.Items.Clear()" digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan "For Bill = 1 To 5" digunakan untuk menamba..."
 
No edit summary
 
(2 intermediate revisions by the same user not shown)
Line 1: Line 1:
<syntaxhighlight lang="bash">
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">
Dim Bill, Bil2 As Byte
Dim Bill, Bil2 As Byte
ListBox1.Item.Clear()
ListBox1.Item.Clear()
Line 8: Line 10:
Next
Next
Next
Next
</syntaxhighlight>Amati alur dari program, cobalah ubah angka “5” dengan angka yang lain dan lihat hasilnya.
=== Tugas ===
Dengan hasil program diatas buatlah dengan menggunakan perulangan DO WHILE LOOP dan DO LOOP UNTIL
== Penjelasan ==
<syntaxhighlight lang="vbnet" line="1">
Dim Bill, Bil2 As Byte
ListBox1.Item.Clear()
For Bill = 1 To 5
ListBox1.Items.Add(Bill & ".")
For Bil2 = 1 To 5
ListBox1.Items.Add(Bill & "." & Bil2)
Next
Next
</syntaxhighlight>
Kode ini menggunakan perulangan <code>For</code> 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 <code>ListBox</code>. 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>For Bil2 = 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" & "." & "Bil2"</code>.
===Menggunakan perulangan DO WHILE:===
<syntaxhighlight lang="vbnet" line="1">
ListBox1.Item.Clear()
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
</syntaxhighlight>
</syntaxhighlight>


Kode ini menggunakan perulangan "For" untuk menambahkan item ke dalam sebuah objek ListBox. Pertama, perintah "ListBox1.Items.Clear()" digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan "For Bill = 1 To 5" digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & ".". Selanjutnya, perulangan "For Bil2 = 1 To 5" digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & "." & "Bil2".
===Menggunakan perulangan DO LOOP UNTIL:===
 
<syntaxhighlight lang="vbnet" line="1">
ListBox1.Item.Clear()
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
</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.<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:Matkul]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Tugas_Fungsi_Perulangan"