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-Şart-Yapısı_emresupcin

• 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.Choose-Yapısı_emresupcin

 

•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ı

Switch-Yapısı_emresupcin

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

 

Donguler_emresupcin

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

Faktöriyel_emresupcin

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)

 

Yazar
Yazar
Bilgisayar Programcısı, Web Tasarımcı, Üniversite Öğrencisi...
Twitter Facebook Google Linkedin Flickr YouTube

Önceki Yazı:Messenger Kullanmaya Devam Etmek İstiyor musunuz?

Sonraki Yazı:PHP Kullanarak Basit Admin Panel Nasıl Yapılır?

BENZER YAZILAR
YORUMLAR
SİZ DE CEVAP YAZABİLİRSİNİZ
Bu yazı hakkında görüşünüzü belirtin.

ES Web Tasarım Web Tasarım Blog Teması Emre Supçin Bu tema ES Web Tasarım tarafından düzenlenmiştir. Hiçbir şekilde kopyalanamaz.