Operator Logika dipergunakan untuk menyatakan apakah suatu perbandingan bernilai TRUE atau FALSE. Ada beberapa operator yang dipakai di Visual Basic, yaitu: NOT, AND, OR, dan XOR.
Operator NOT
Operator NOT menyangkal keadaan yang ditawarkan. Jika yang ditawarkan adalah TRUE maka hasil operasi logika justru FALSE. Sebaliknya jika hasil yang ditawarkan adalah FALSE, maka hasi dari operasi logika adalah TRUE.
Contoh:
Module Module1
Sub Main()
Dim i As Integer = 5
If Not (i = 7) Then
Console.Write("Nilai angka bukan 7")
Else
Console.Write("Nilai angka bukan 5")
End If
Console.Read()
End Sub
End Module
i dideklarasikan sebagai integer berisi angka 5. Di program i diperiksa apakah i = 7. Tentu saja jawaban ini FALSE. Tetapi karena terdapat operator Not, maka pertanyaannya adalah, "Apakah benar i = 7". Karena memang benar i = 7, maka program akan menjalankan kode program: Console.Write("Nilai angka bukan 7")
Operator AND
Operator AND hanya benar jika kedua keadaan yang ditawarkan adalah benar. Salah satu saja ada yang salah, maka hasil operasi logikanya adalah salah.
Contoh:
Module Module1
Sub Main()
Dim nilai As Integer
Console.WriteLine("Program Konversi Nilai Angka")
Console.WriteLine("============================")
Console.WriteLine("")
Console.Write("Masukkan Nilai Angka: ")
nilai = CInt(Console.ReadLine())
If nilai >= 0 And nilai <= 49 Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai E")
ElseIf (nilai >= 50) And (nilai <= 59) Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai D")
ElseIf (nilai >= 60) And (nilai <= 69) Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai C")
ElseIf (nilai >= 70) And (nilai <= 79) Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai B")
ElseIf (nilai >= 80) And (nilai <= 89) Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai B+")
ElseIf (nilai >= 90) And (nilai <= 100) Then
Console.Write("Nilai " & CInt(nilai) & " menjadi nilai A")
End If
End Sub
End Module
Program diatas akan mengubah nilai angka menjadi nilai huruf dengan ketentuan seperti yang tertulis pada kode tersebut. Misal kita memasukkan nilai 30. Maka kode program berikut akan menghasilkan nilai TRUE sebab 30 memang berada diantara 0 dan 49:
If (nilai >= 0) And (nilai <= 49) Then
Console.Write("Nilai E")
Operator OR
Operator OR bernilai benar, jika salah satu yang ditawarkan adalah benar. Dan menghasilkan salah jika keduanya salah.
Contoh:
Module Module1
Sub Main()
Dim nilai As Integer
Console.Write("Masukkan Bilangan Ganjil antara 0 dan 4: ")
nilai = CInt(Console.ReadLine())
If nilai = 1 Or nilai = 3 Then
Console.Write("Jawaban Anda Benar")
ElseIf (nilai >= 50) And (nilai <= 59) Then
Console.Write("Jawaban Anda Salah")
End If
End Sub
End Module
Program diatas akan menilai masukan dari user. Jika bilangan tersebut adalah bilangan ganjil antara 0 dan 4, program akan menjawab "Jawaban Anda Benar". Sebaliknya akan salah. Tentu saja bilangan ganjil antara 0 dan 4 cuma angka 1 atau 3.
0 komentar:
Posting Komentar