Program Perulangan ke - 2 Menggunakan Visual Studio 2017

Membuat Program Perulangan ke - 2 Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program listbox dan 3 buah botton yang berisi For next, Do While, Do Until.

  2. Coding setiap button dan combobox dengan source code seperti di bawah ini

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add("For Next" & i)

        Next

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do While i <= 10

            ListBox1.Items.Add("Do While" & i)

            i = i + 1

        Loop

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do Until i > 10

            ListBox1.Items.Add("Do Until" & i)

            i = i + 1

        Loop

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

      a. Ketika Mengklik Button For next

      b. Ketika Mengklik Button Do While

      c. Ketika Mengklik button Do Until