Merhaba arkadaşlar, Bu akşam ki dersimizde sizlere Visual Basic’te Operatörler konusunun devamını anlatacağım. En son Matematiksel operatörlere değinmiştik hatırlarsanız. Bu dersimize kaldığımız yerden devam edeceğiz, konu anlatımının yanı sıra kısa örneklere de yer vermek istiyorum. Dersimize başlayalım;
Operatörler (Xor)
• Xor = Çıkarma
• 0 0 –> 0= false
• 1 1 –> 0= false
• 0 1 –> 1= true
• 1 0 –> 1= True
• Xor Farklı ise true aynı ise false değerini alır.
Dim erkek, yas20 As Boolean erkek = True yas20 = False If erkek Xor yas20 Then MsgBox("Askere Gidecek") Else MsgBox("Askere Gitmeyecek") End If
—————————————————————————————
iif Şart Yapısı
• iif(Mantıksal ifade,şart1,şart2)
Dim yas As Integer Dim islem As String yas = TextBox1.Text islem = IIf (yas = 20, "Askere Gidecek", "Askere Gitmeyecek") MsgBox("İşlem Sonucu= " & islem)
—————————————————————————————
Choose Yapısı
• iif yapısı ifadeyi 2 şarta göre karşılaştırıyordu.
•iif(Mantıksal ifade,şart1,şart2)
• İkiden fazla şarta göre karşılaştırmak istediğimizde choose yapısı kullanılır.
• Choose(ifade,şart1,şart2,şart3…)
—————————————————————————————
Dim no As Integer Dim islem As String no = TextBox1.Text islem = Choose(no, "ocak", "şubat", "mart", "nisan", "mayıs", "haziran", "temmuz", "ağustos", "eylül", "ekim", "kasım", "aralık") MsgBox("Ay= " & islem)
—————————————————————————————
Switch Yapısı
Dim yas As Integer Dim islem As String yas = TextBox1.Text islem = Microsoft.VisualBasic. Interaction.Switch(yas >= 0 And yas <= 6, "BEBEK", yas >= 7 And yas <= 15, "ÇOCUK", yas >= 16 And yas <= 21, "GENÇ", yas >= 22 And yas <= 35, "YETİŞKİN", yas >= 36 And yas <= 45, "ORTA YAŞ", yas >= 46 And yas <= 70, "YAŞLI") MsgBox(islem)
—————————————————————————————
Select Case Yapısı
Dim yas As Integer yas = TextBox1.Text Select Case yas Case 0 To 6 MsgBox("BEBEK") Case 7 To 15 MsgBox("ÇOCUK") Case 16 To 21 MsgBox("GENÇ") Case 22 To 35 MsgBox("YETİŞKİN") Case 36 To 45 MsgBox("ORTA YAŞ") Case 46 To 70 MsgBox("YAŞLI") Case Else MsgBox("YANLIŞ DEĞER") End Select
—————————————————————————————
Döngüler
• Belirli bir kodu belirli bir şarta göre defalarca çalışmasını istiyorsak döngüleri kullanırız.
• Döngünün çalışma sayısı biliyorsak for döngüsünü kullanırız.
• Çalışma sayısı bilinmiyorsa while ve doo-loop döngüleri kullanırız.
—————————————————————————————
For döngüsü genel yazım şekli:
For sayac = Başlangıç değeri To Bitiş değeri Step[Artış Miktarı] Kodlar Next
Dim sayac As Integer For sayac = 1 To 10 ListBox1.Items.Add(sayac) Next
• Step 2 dersek tek sayıları ekler.
—————————————————————————————
Döngüler (Azaltma)
Dim sayac As Integer For sayac = 10 To 1 Step -2 ListBox1.Items.Add(sayac) Next
—————————————————————————————
Faktöriyel
Dim sayi, sayac, faktoriyel As Double sayi = TextBox1.Text faktoriyel = 1 For sayac = 1 To sayi faktoriyel = faktoriyel * sayac Next MsgBox(sayi & " sayısının faktöriyeli= " & faktoriyel)
- emresupcin
- Visual Basic
- 3 Mayıs 2013 - 22:33
- Yorum Yok
- 1357 Görüntülenme
choose yapısı döngüler döngüleri azaltma faktöriyel for döngüsü for döngüsü yazımı iff şart yapısı operatörler xor select case yapısı switch yapısı visual basic faktöriyel visual basic.net döngüler visual basic.net operatörler xor