Rumus:
Hasil =
Comp(String1 As String, String2 As String, Mode As Integer) As
Integer
Membandingkan dua
string dan mengembalikan pada nilai:
0 jika kedua string
sama
1 jika string1 lebih
besar daripada string 2
-1 jika string1
lebih kecil dari string 2
Huruf kecil (Lower
Case) kedudukannya lebih tinggi dari pada huruf besar (Upper Case)
Contoh
Print Comp("Aku",
"Aku") ‘Hasil 0
Print Comp("aku",
"Aku") ‘Hasil 1
Print Comp("Aku",
"aku") ‘Hasil -1
Print Comp("AKU",
"Aku") ‘Hasil -1
End Sub
Perbandingan ini
biasanya digunakan dalam pemrogaman untuk membuat kondisi. Contoh 1:
Public Sub Main()
Tes = “Coba”
if Comp(Tes,
“CobA”) = 0 Then
Print “Sama”
Else
Print “Tidak
Sama”
Endif
End Sub
Hasil:
Tidak Sama
Mari belajar yang
lebih rumit lagi. Contoh 2:
Public Sub main()
Dim Tes As String
Tes = "Coba"
If Comp(Tes,
"cOba", 1) = 0 Then
Print "Benar"
Else
Print "Salah"
Endif
End
Hasil:
Benar
Program diatas
menghasilkan benar karena perbandingan yang salah dianggap benar,
kemudian dibandingkan dengan nilai benar (“0”). Berikut
logikanya:
Comp(“Coba”,
"cOba") merupakan perbandingan yang benilai salah (“1”)
karena kedua string tidak sama, Namun ketika menggunakan Mode “1”
: Comp(“Coba”, "cOba", 1) maka artinya kedua string
yang tidak sama/salah diakui bernilai salah (“1”) . Sedangkan
pengakuan merupakan tindakan yang benar sehingga dianggap benar,
Sehingga Comp(“Coba”, "cOba", 1) mengakui adanya
ketidak cocokan maka dianggap “benar” / “0” kemudian
dibandingkan dengan “0” maka hasilnya dinggap benar.
“Coba”, “cOba”
adalah tidak sama atau salah. “1” adalah salah. Maka “Coba”,
“cOba” yang salah diakui sebagai “1” (salah). Pengakuan
tersebut adalah tindakan yang “mulia” maka dianggap benar (“0”).
maka:
Comp(“Coba”,
"cOba", 1) >> Benar
0 >> Benar
maka:
Comp(“Coba”,
"cOba", 1) = 0 Sama dengan 0 = 0 atau “benar” =
“benar”.
Semoga penjelasannya
tidak “Njlimet” :D