VB Mantık Operatörleri

 

Mantık Operatörü

Anlamı

= <>  <  >  <= >= And Or Xor Eqv Imp Not Like

Eşit Eşit değil Soldaki değer küçük Soldaki değer büyük Soldaki değer küçük yada eşit Soldaki değer büyük yada eşit Koşullardan ikisinin de doğruluğunda True değeri alır Koşullardan her hangi birinin doğruluğunda True değeri alır Koşullardan her ikisi de aynı ise False;  farklı ise True değeri alır Koşullardan her ikisi de aynı ise True;  farklı ise False değeri alır Birinci koşulun değili ikinci koşula eşit olmalıdır Koşulun değilini alır Tanımlı koşula uygun ise True; değilse False değeri alır

K1	K2	Not K1	K1 AND K2	K1 OR K2	K1 XOR K2	K1 EQV K2
True	True	False	True	True	False	True
True	False		False	True	True	False
False	True	True	False	True	True	False
False	False		False	False	False	True

K1	K2	K1 IMP K2	K1 AND K2	K1 OR K2
True	True	True	True	True
True	False	False	False	True
True	Null	Null	Null	True
False	True	True	False	True
False	False	True	False	False
False	Null	True	False	Null
Null	True	True	Null	True
Null	False	Null	False	Null
Null	Null	Null	Null	Null

LIKE Bulanık Arama

Sembol	Açıklama
*	0 tane ya da çok sayıda karakter
?	Herhangi bir karakter
#	Herhangi bir rakam
[ Karakterler ]	Listedeki herhangi bir tek karakter
[ !Karakterler ]	Listede bulunmayan herhangi bir tek karakter

Dim Sonuc As Boolean

Sonuc = "wqeweeww" Like "w*w"        ' Sonuc = True 

Sonuc = "N" Like "[C-L]"             ' Sonuc = True 

Sonuc = "G" Like "[!C-L]"            ' Sonuc = False

Sonuc = "b7b*" Like "b#ba"           ' Sonuc = True

Sonuc = "aN3b" Like "a[L-P]#[!c-e]"  ' Sonuc = True

Sonuc = "CET12e3" Like "C?T*"        ' Sonuc = True

Sonuc = "DAT12e3" Like "B?T*"        ' Sonuc = False

Değişken Değerlerinin Karşılıklı Olarak Değiştirilmesi

Temp = Değişken_1 ‘ İlk değişkenin değeri tampon

Değişken_1 = Değişken_2 ‘ değişkende saklanıyor

Değişken_2 = Temp

Faktöriyel Hesabı

Private Sub Command1_Click()

         Deger = 1

         For i = 1 To Text1.Text ‘ Döngü içerisinde sayı 1’den başlayarak ve birer birer artırılarak

             Deger = i * Deger   ‘ çarpma işlemi yapılıyor

         Next i

         Label1.Caption = Deger

End Sub

Sayı Tek mi Çift mi?

If isEven(Text1.Text) Then

         MsgBox "Sayı Çift" ‘ True ise sayı çift

         Else

            MsgBox "Sayı Tek"

End If

Function isEven(n As Integer) As Boolean

         isEven = True

         If n And 1 Then isEven = False

End Function