Mengenal Percabangan pada Visual Basic 2010
Percabangan atau penyeleksian kondisi (Conditional Statement) merupakan suatu pernyataan yang menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu. Hasil dari penyeleksian adalah, jika bernilai benar maka akan dikerjakan instruksi tertentu. Sedang jika kondisi salah, maka akan dikerjakan instruksi yang lain.
untuk materi lainnya dapat dilihat disini
- Tipe Data dan Variabel pada Visual Basic
- Local, Global Variabe, Structure dan Konversi Data pada Visual Basic
- Operator pada Visual Basic
- Percabangan pada Visual Basic
- Lanjutan Percabangan pada Visual Basic
- Percabangan pada Visual Basic 2
- Percabangan pada Visual Basic Select - Case
- Perulangan pada Visual Basic
- Perulangan pada Visual Basic 2
- Perulangan pada Visual Basic 3
- Array di Visual Basic
- Array Dua Dimensi
Ada beberapa jenis percabangan yaitu :
- Struktur If - Then
- Struktur If - Then - Else (yang akan di bahas di post ini)
- Nested If
- Struktuf IIf
- Struktur Select - Case
- Struktur If - Then
Struktur If - Then disebut juga dengan Branch Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok If akan dilompati serta program akan melakukan tindakan berikutnya.
If (kondisi) Then
...Ekspresi...
End If
• Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai "Benar" atau "Salah".
• Ekspresi : Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya memenuhi syarat "Benar".
- Struktur If - Then - Else
Struktur If - Then - Else disebut juga dengan Selection Structure merupakan struktur percabangan di mana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lainnya yang dikerjakan.
If (kondisi) Then
...Ekspresi 1...
Else
...Ekspresi 2...
End If
Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai ...Benar... atau ...Salah....
Ekspresi 1 Rangkaian kode program (blok program) yang
akan dijalankan jika kondisinya bernilai Benar
(memenuhi syarat).
Ekspresi 2 Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai Salah (tidak memenuhi syarat).
Berikut Contohnya
Latihan 1
Buatlah Form seperti di bawah ini
Source Code :
Public Class Pertemuan_2_Latihan_1_Teori
Private Sub Pertemuan_2_Latihan_1_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "salmantech12.blogspot.com"
End Sub
Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
Dim ket As String
If tbakhir.Text >= 60 Then
ket = "Lulus"
Else
'Ahmad Salman Farisi
ket = "Tidak Lulus"
End If
tbket.Text = ket
End Sub
Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Private Sub Pertemuan_2_Latihan_1_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "salmantech12.blogspot.com"
End Sub
Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
Dim ket As String
If tbakhir.Text >= 60 Then
ket = "Lulus"
Else
'Ahmad Salman Farisi
ket = "Tidak Lulus"
End If
tbket.Text = ket
End Sub
Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Share post ini ke :
Facebook WhatsApp Twitter LINE Linkedin
0 Response to "Mengenal Percabangan pada Visual Basic 2010"
Post a Comment