Contoh Program Percabangan Pada VB.Net

1. Contoh Program Percabangan: If…EndIf

Source Code :

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

If TextBox1.Text = “pemrograman" Then

TextBox2.Text = “vb.net"

End If

End Sub

- Contoh Program Percabangan: If…EndIf

Bila program tersebut dijalankan, maka hasilnya adalah :

2. Contoh Program Percabangan : If..Else..EndIf

Source Code :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = “pemrograman" Then
TextBox2.Text = “vb.net"
Else
TextBox2.Text = "siapa ya?"
End If
End Sub

- Contoh Program Percabangan : If..Else..EndIf

Bila program tersebut dijalankan, maka hasilnya adalah :

3.Contoh Program Kondisi Perulangan : While……End While

Source Code :

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

Dim i As Integer

i = Val(TextBox1.Text)

While i < 5

MsgBox("a")

End

Bila program tersebut dijalankan, maka hasilnya adalah :

Sekian ulasan dari ane semoga bermanfaat.