Visual Basic 2008 Mengontrol Program Flow

Dalam pelajaran sebelumnya, kita telah belajar bagaimana kode program yang menerima masukan dari pengguna dan menampilkan output tanpa mengontrol alur program. Dalam bab ini, anda akan belajar bagaimana untuk menulis kode VB2008 yang dapat membuat keputusan ketika proses masukan dari pengguna, dan kontrol aliran program dalam proses. Proses pengambilan keputusan merupakan bagian penting dari pemrograman karena akan membantu memecahkan masalah praktis cerdas sehingga dapat memberikan output yang bermanfaat atau umpan balik bagi pengguna. Sebagai contoh, kita bisa menulis sebuah program VB2008 yang dapat meminta komputer untuk melakukan tugas tertentu sampai kondisi tertentu terpenuhi, atau sebuah program yang akan menolak data non-numerik. Untuk mengendalikan aliran program dan untuk membuat keputusan, kita perlu menggunakan operator kondisional dan operator logika bersama-sama dengan struktur kontrol Jika.

 Conditional Operator

 Operator kondisional adalah alat yang kuat yang menyerupai operator matematika. Operator ini memungkinkan sebuah program VB2008 untuk membandingkan nilai data dan kemudian memutuskan apa tindakan yang harus dilakukan, apakah akan menjalankan sebuah program atau menghentikan program dan banyak lagi. Mereka juga dikenal sebagai operator perbandingan numerik. Biasanya mereka digunakan untuk membandingkan dua nilai untuk melihat apakah mereka adalah sama atau satu nilai lebih besar atau kurang dari nilai yang lain. Perbandingan ini akan mengembalikan hasil benar atau salah

onditional Operators

Operator	Meaning
=	Equal to
>	More than
<	Less Than
>=	More than and equal
<=	Less than and equal
<>	Not Equal to

Logical Operator
Terkadang kita mungkin perlu untuk membuat lebih dari satu perbandingan sebelum keputusan dapat dilakukan dan tindakan yang diambil. Dalam hal ini, dengan menggunakan operator perbandingan numerik saja tidak cukup, kita perlu menggunakan operator tambahan, dan mereka adalah operator logika

Table 

Operator	Meaning
And	Both sides must be true
or	One side or other must be true
Xor	One side or other must be true but not both
Not	Negates truth

Biasanya operator di atas digunakan untuk membandingkan data numerik. Namun, Anda juga dapat membandingkan string dengan operator di atas. Dalam membuat perbandingan string, ada aturan tertentu untuk berikut: Upper huruf kurang dari huruf kecil, "A" <"B" <"C" <"D ".......<" Z" dan angka kurang dari surat.

Using  the If control structure  with the Comparison Operator

Untuk secara efektif mengontrol aliran program VB2008, kita akan menggunakan struktur pengendalian Jika bersama dengan operator kondisional dan operator logika. Pada dasarnya ada tiga jenis Jika struktur kontrol, yaitu Jika .... Kemudian pernyataan, Jika .... Maka ... Else pernyataan dan Jika .... Lalu .... elseif pernyataan.

(a) If....Then Statement

Ini adalah struktur pengendalian yang paling sederhana yang meminta komputer untuk melakukan tindakan tertentu yang ditetapkan oleh ekspresi VB jika kondisi benar. Namun, ketika kondisi salah, tidak ada tindakan yang akan dilakukan. Format umum untuk jika ... maka .. pernyataan adalah

If  condition Then

VB expression

End If

Example

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myNumber As Integer
myNumber = TextBox1.Text
If myNumber > 100 Then
Label2.Text = " You win a lucky prize"
End If
End Sub

(b) If....Then...Else Statement

Menggunakan jus Jika .... Kemudian pernyataan tidak sangat berguna dalam pemrograman dan tidak memberikan pilihan bagi pengguna. Dalam rangka menyediakan pilihan, kita bisa menggunakan Jika .... Lalu ... Else Pernyataan. Ini struktur pengendalian akan meminta komputer untuk melakukan tindakan tertentu yang ditetapkan oleh ekspresi VB jika kondisi benar. Dan ketika kondisi salah, tindakan alternatif akan dieksekusi. Format umum untuk jika ... maka .. Else pernyataan ini

If  condition Then

VB expression

Else

VB expression

End If

Example 9.2  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myNumber As Integer myNumber = TextBox1.Text If myNumber > 100 Then Label2.Text = " Congratulation! You win a lucky prize" Else Label2.Text = " Sorry, You dif not win any prize" End If End Sub * When  you run the program and enter a number that is greater than 100, the statement "Congratulation! You win a lucky prize" will be shown. On the other hand, if the number entered is less than or equal to 100, you will see the "Sorry, You dif not win any prize" statement

Example 9.3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myNumber, MyAge As Integer myNumber = TextBox1.Text MyAge = TextBox2.Text If myNumber > 100 And myAge > 60 Then Label2.Text = " Congratulation! You win a lucky prize" Else Label2.Text = " Sorry, You did not win any prize" End If End Sub * This program use the logical And operator beside the conditional operators. This means that  both the conditions must be fulfilled in order for the conditions to be true, otherwise the second block of code will be executed. In this example, the number entered must be more than 100 and the age must be more than 60 in order to win a lucky prize, any one of the above conditions not fulfilled will disqualify the user from winning a prize.

(c) If....Then...ElseIf Statement

Jika ada lebih dari dua pilihan alternatif, dengan jus Jika .... Lalu .... Else pernyataan tidak akan cukup. Untuk memberikan lebih banyak pilihan, kita bisa menggunakan Jika .... Lalu ... elseif Pernyataan. dieksekusi. Format umum untuk jika ... maka .. Else pernyataan ini

If  condition Then

VB expression

ElseIf condition Then

VB expression

ElseIf condition Then

VB expression

.

.

Else

VB expression

End If

Example 9.4

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

Dim Grade as String

Mark = TextBox1.Text
If myNumber >=80 Then
Grade="A"

ElseIf  Mark>=60 and Mark<80 then

Grade="B"

ElseIf  Mark>=40 and Mark<60 then

Grade="C"

Else

Grade="D"

End If
End Sub