Visual Basic Dersleri #4

Visal Basic Dersleri : If, For, Case

Visual basic ( If ) Kullanımı :

Daha önce If komutunun kullanımından biraz bahsetmiştim , şimdi iyice akılda kalması ve pekiştirmeniz için birkaç örnek daha ekleyeceğim. Daha önce kullanmadığım bazı özellikleri de kullanacağım.

Daha önceki örnekte 1 şart ve bu şarta bağlı sonuçlar eklemiştik. Şartın sağlanması ve sağlanmaması durumunda oluşan sonuçlarımız vardı. Şimdi size birden fazla şart ve daha fazla sonuç eklemeyi göstereceğim.

Öncelikle her zaman olduğu gibi Visual Studio’da Form projemizi oluşturalım.

Form’umuza 1 tane buton ekleyelim ve buton1’in tıklama komutunu açalım.

Kodlarımızı yazalım :

If Button1.BackColor = Color.Red Then
Button1.BackColor = Color.Pink

ElseIf Button1.BackColor = Color.Pink Then
Button1.BackColor = Color.Blue

Else
Button1.BackColor = Color.Green

End If

Buton1’in arkaplanı kırmızıysa ise pembe yap, Pembe ise mavi yap , İkiside değilse yeşil yap.

ElseIf ekiyle yeni şartlar ekleyebiliyoruz.

Bu yazımda fazla görsel kullanmamaya çalışacağım , zaten basit bir kod olduğu için kolaylıkla yapacağınızı düşünüyorum. Herhangi bir sorunuz olursa iletişime geçebilirsiniz.

 

Case Kullanımı :

Öncelikle yeni bir form açalım ya da daha eskiden yazmış olduğumuz kodları silelim. Daha sonra formumuza 1 textbox, 1 buton, 2 label ekleyelim. Şekildeki gibi olsun.

Form’umuzu oluşturduktan sonra Sorgula butonunun kod kısmına gidelim ve örnek kodlarımızı yazalım.

Öncelikle bir değişken oluşturmamız gerekiyor. Daha sonra bu değişkeni çağıracağız. Ben iller üzerinden örnek vereceğim için değişkenimin ismini ” il ” yaptım.

Dim il As String
il = TextBox1.Text

Select Case il

Case “Adana”
Label2.Text = “Akdeniz Bölgesi”
Case “İzmir”
Label2.Text = “Ege Bölgesi”
Case “Ankara”
Label2.Text = “İç Anadolu Bölgesi”
Case “Antalya”
Label2.Text = “Akdeniz Bölgesi”
Case “Trabzon”
Label2.Text = “Karadeniz Bölgesi”

Case Else
Label2.Text = “Bilinmeyen veya Geçersiz İl”

Kodlarımızı bu şekilde yazıyoruz. If ile benzer mantıkta çalışıyor.  End Select ile paragrafınızın kapandığına dikkat edin yoksa hata alırsınız.

Programımızı çalıştırdığımızda TextBox1 e girdiğimiz ilin hangi il olduğunu label2.Text üzerinden öğreneceğiz. İstersek bu sonuçları 2.textbox’ı oluşturup oraya da çekebilirdik. Oralar sizin yaratıcılığınıza kalmış. Ben sadece basit ve sade örneklerle göstermeye çalışıyorum.

Bu şekilde alt alta yazarsak 15-20 il eklemek istersek çok fazla satır kalabalığı olacağı için şu şekilde de yazabiliriz.

Dim il As String
il = TextBox1.Text

Select Case il

Case “Adana” , ” Osmaniye” , “Mersin” , “Isparta”
Label2.Text = “Akdeniz Bölgesi”
Case “İzmir” , “Manisa” , “Aydın” , “Kütahya”
Label2.Text = “Ege Bölgesi”
Case “Ankara” , “Eskişehir” , “Aksaray”
Label2.Text = “İç Anadolu Bölgesi”
Case “Antalya”
Label2.Text = “Akdeniz Bölgesi”
Case “Trabzon” , “Zonguldak” , “Samsun” , “Rize”
Label2.Text = “Karadeniz Bölgesi”

Case Else
Label2.Text = “Bilinmeyen veya Geçersiz İl”

Şeklinde yan yana sıralayabilirsiniz.

 

Şimdi If komutuyla ilgili daha farklı bir örnek daha gösterip bu yazımı sonlandıracağım. Öncelikle 2 Adet textbox, 3 adet label ve 1 adet button oluşturalım.

Kullanıcı adı = Label1   Textbox1

Şifre = Label2 , Texbox2

Giriş Yapılamadı = Label3

If TextBox1.Text = “admin” And TextBox2.Text = “1234” Then
Button1.BackColor = Color.Green
Label3.Text = “Başarıyla Giriş Yapıldı”
Else
Label3.Text = “Giriş Yapılamadı”
MsgBox(“Hatalı Kullanıcı adı veya Parola”)

End If

şeklinde kodlarımızı yazıyoruz. elseif seçeneğini kullanarak daha fazla kullanıcı adı veya şifre de ekleyebiliriz. Size gösterdiklerim yalın ve kolay anlaşılabilir örnekler. Burada sizin daha rahat anlamanız için bunları gösteriyorum. Herhangi anlamadığınız bir yer veya sorunuz olursa bana mail atabilirsiniz.

 

 

 

 

 

Bir Cevap Yazın