Dalam pelajaran sebelumnya, kita telah belajar bagaimana program kode yang menerima input dari pengguna dan menampilkan output tanpa mengontrol aliran program. Dalam bab ini, Anda akan belajar bagaimana menulis VB2010 kode yang dapat membuat keputusan ketika memproses masukan dari pengguna, dan mengendalikan aliran program dalam proses. Proses pengambilan keputusan merupakan bagian penting dari pemrograman karena akan membantu memecahkan masalah praktis secara cerdas sehingga dapat memberikan output yang berguna atau umpan balik bagi pengguna. Sebagai contoh, kita dapat menulis sebuah program VB2010 yang dapat meminta komputer untuk melakukan tugas tertentu sampai kondisi tertentu terpenuhi, atau sebuah program yang akan menolak non-numerik data. Untuk mengendalikan aliran program dan untuk membuat keputusan, kita perlu menggunakan operator kondisional dan operator logika bersama-sama dengan struktur kontrol Jika.
9.1 Operator Bersyarat
Operator kondisional adalah alat yang kuat yang menyerupai operator matematika. Operator ini memungkinkan programto VB2010 membandingkan nilai data dan kemudian memutuskan tindakan yang harus dilakukan, apakah akan menjalankan sebuah program atau menghentikan andmore program. 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 lebih kecil dari nilai lainnya. Perbandingan ini akan mengembalikan hasil benar atau salah. Operator ini ditunjukkan pada Tabel 9.1.
Tabel 9.1: Operator Bersyarat
9.2 Logical Operator
Terkadang kita mungkin perlu membuat lebih dari satu perbandingan sebelum keputusan dapat dibuat dan tindakan diambil. Dalam hal ini, menggunakan operator perbandingan numerik saja tidak cukup, kita perlu menggunakan operator tambahan, dan mereka adalah operator logika. Ini operator logika ditunjukkan pada Tabel 9.2.
Tabel 9.2
*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: huruf Atas kurang dari huruf kecil, adalah "A" <"B" <"C" <"D" <....... "Z" dan nomor kurang dari huruf.
9.3 Menggunakan struktur kontrol Jika dengan Operator Perbandingan
Untuk secara efektif mengontrol aliran program VB2010, kita akan menggunakan struktur kontrol Jika bersama-sama dengan operator kondisional dan operator logika. Pada dasarnya ada tiga jenis Jika struktur kontrol, yaitu Jika .... Kemudian pernyataan, If....Then....ElseIf statement dan If....Then....ElseIf pernyataan.
9.3 (a)If....Then Kemudian Pernyataan
Ini adalah struktur kontrol sederhana yang meminta komputer untuk melakukan tindakan tertentu yang ditentukan oleh ekspresi VB jika kondisi benar. Namun, ketika kondisi adalah palsu, tidak ada tindakan akan dilakukan. Format umum untuk jika ... maka .. pernyataan adalah
If condition Then
VB expression
End If
Contoh 9.1
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
* Ketika Anda menjalankan program dan masukkan nomor yang lebih besar daripada 100, Anda akan melihat "Anda memenangkan hadiah beruntung" pernyataan. Di sisi lain, jika nomor yang dimasukkan kurang dari atau sama dengan 100, Anda tidak melihat tampilan apapun.
9.3 (b) If .... Then ... Else Pernyataan
Menggunakan jus If .... Then pernyataan ini tidak terlalu berguna dalam pemrograman dan tidak memberikan pilihan bagi pengguna. Untuk memberikan pilihan, kita dapat menggunakan Pernyataan If .... Then ... Lain-Lain. Struktur kontrol akan meminta komputer untuk melakukan tindakan tertentu yang ditentukan oleh ekspresi VB jika kondisi benar. Dan ketika kondisi salah, tindakan alternatif akan dieksekusi. Format umum untuk If ... Then .. Pernyataan lain adalah
VB expression
Else
VB expression
End If
Contoh 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
* Ketika Anda menjalankan program dan masukkan nomor yang lebih besar daripada 100, pernyataan "Selamat! Anda memenangkan hadiah beruntung" akan ditampilkan. Di sisi lain, jika nomor yang dimasukkan kurang dari atau sama dengan 100, Anda akan melihat "Maaf, Anda dif tidak menang hadiah apapun" pernyataan
Contoh 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
* Program ini menggunakan logika Dan Operator di samping operator bersyarat. Ini berarti bahwa kedua kondisi harus dipenuhi agar kondisi benar, jika tidak, blok kedua kode akan dieksekusi. Dalam contoh ini, nomor yang dimasukkan harus lebih dari 100 dan usia harus lebih dari 60 untuk memenangkan hadiah beruntung, salah satu dari kondisi di atas tidak terpenuhi akan mendiskualifikasi pengguna dari memenangkan hadiah.
9.3 (c) If .... Then ... ElseIf Pernyataan
Jika ada lebih dari dua alternatif pilihan, menggunakan jus Jika .... Maka .... Lain pernyataan tidak akan cukup. Untuk memberikan lebih banyak pilihan, kita dapat menggunakan Pernyataan Jika .... Kemudian ... ElseIf. dieksekusi. Format umum untuk jika ... maka .. Pernyataan lain adalah
If condition Then
VB expression
ElseIf condition Then
VB expression
ElseIf condition Then
VB expression
.
.
Else
VB expression
End If
Contoh 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
Sandi Permana
18113221
2KA39
Tulisan 10
Teori Organisasi Umum 1#
Budi Utami, S.E
0 comments :
Posting Komentar