Lab Pemrograman Bisnis

Ini adalah uas VB mengenai perulangan dalam ASP.NET

Pertama-tama kita membuat New website pada aplikasi Visual Basic
Kemudian kita input 1 Textbox, 3 Button, dan 1 Label

Berikut tampilannya :

Kemudian pada Button 1 "pakai IF" kita input scriptnya sebagai berikut :

   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (TextBox1.Text.ToString() = "1") Then
            Label1.Text = "satu"
        ElseIf (TextBox1.Text.ToString() = "2") Then
            Label1.Text = "dua"
        ElseIf (TextBox1.Text.ToString() = "3") Then
            Label1.Text = "tiga"
        ElseIf (TextBox1.Text.ToString() = "4") Then
            Label1.Text = "empat"
        ElseIf (TextBox1.Text.ToString() = "5") Then
            Label1.Text = "lima"
        Else
            Label1.Text = "bukan angka"
        End If

Kemudian pada Button 2 "pakai FOR" kita input scriptnya sebagai berikut ;

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim kata As String = ""
        For HITUNG = 1 To 15
            Label1.Text = "satu"
            kata = kata + " satu "
        Next
        Label1.Text = kata.ToString()
    End Sub

Kemudian pada Button 3 "pakai WHILE" kita input scriptnya sebagai berikut ;

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim bobot As Integer = 1
        While (bobot < 10)
            Label1.Text = "satu"
            bobot = bobot + 1
        End While

    End Sub

Dan tampilan pada saat di debug adalah seperti berikut :