| |
|
| |||||||
 |
| | Seçenekler |
|
#1
24-12-2007, 11:50
| ||||||
| ||||||
Mantık OperatörleriMantık Operatörleri 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 Deger = i * Deger � başlayarak bir birer artırılarak Next i � çarpma işlemi yapılıyor 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  |
|
| Arama Etiketleri: mantik, operatorleri |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| ASP Dersleri,Ekrana Yazı Yazdırma Yolları,Değişkenlere Veri Girişi,Dize Girişleri,Mantık İlkeleri - Operatörler | kadınca | Web Dersleri | 0 | 08-02-2008 07:28 |
| Sayiyi Yaziya Çevirmede Recursive Mantık | B737 | Visual Basic & Action script | 0 | 24-01-2008 02:25 |
| Mantık Felsefesi Adlı Kitapdan Kısa Alıntı | Celebrian | Felsefe | 0 | 20-11-2007 05:34 |
| Felsefe, Psikoloji, Sosyoloji, Mantık Terimler Sözlüğü | Celebrian | Felsefe | 23 | 20-11-2007 03:24 |
| GSM operatörleri sınır tanımıyor | kadınca | Cep telefonu | 0 | 30-08-2007 04:10 |
 |  |
