vBasic 6.0 Kontrol Deyimleri

r@nger · 24-04-2007, 19:57

Burda Anlatacaklarımız, program kontrol deyimleri ile ilgilidir.Kaçmaz SD Üyeleri.
Konu Anlatımına Başlayalım.

VISUAL BASIC 6.0
Program Kontrol Deyimleri [left]
Kontrol Deyimleri :

- If Koşul Then ... Else(if) ... End if
- IIF
- Select ... Case

If Koşul Then ... Else(if) ... End if

Dim Sayi As Integer
Sayi = Val(InputBox("Bir Sayı Giriniz"))

If Sayi < 100 Then
MsgBox "Girdiğiniz Sayı 100'den Küçük" '1.kısım
Else
MsgBox "Girdiğiniz Sayı 100'den Büyük" '2.kısım
End If

Yukarda ki programla kullanıcıdan bir sayı girilmesi isteniyor ve "Val" fonksiyonu ile sayısal değere çevriliyor eğer bunu "Val" ile sayısal değere çevirmezsek programımız bunu bir string değer olarak kabul edecek ve programımız doğru çalışmayacaktı mesela 10+11 işleminin sonucunu bize 1011 diye söyleyecekti bu küçük hatırlatmayı da yaptıktan sonra programımızın geri kalanını açıklamaya devam edelim. Daha sonra sayı kontrol ediliyor eğer koşul doğru ise 1.kısım yanlış ise 2.kısım işleme tabi tutuluyor yalnız yukarda ki programda bir hata var o da kullanıcı giriş kutusuna 100 değerini girdiğinde 100<100 işleminin geri dönen sonucu "False" olduğu için program ikinci kısmı işleme tabi tutacaktır ve bize girdiğimiz 100 değerinin 100 den büyük olduğunu söyleyecektir. Programın doğrusu ise aşağıdadır

Dim Sayi As Integer
Sayi = Val(InputBox("Bir Sayı Giriniz"))

If Sayi < 100 Then
MsgBox "Girdiğiniz Sayı 100'den Küçük"
ElseIf Sayi = 100 Then
MsgBox "Girdiğiniz Sayı 100'e eşit"
ElseIf Sayi > 100 Then
MsgBox "Girdiğiniz Sayı 100'den Büyük"
End If

Bu örnek sayesinde de "ElseIf" 'in nasıl kullanıldığını görmüş olduk. İsterseniz şimdide mantıksal operatörleri kullanarak bir kod yazalım

Dim Sayi1, Sayi2 As Integer
Sayi1 = Val(InputBox("Birinci Sayıyı Giriniz"))
Sayi2 = Val(InputBox("İkinci Sayıyı Giriniz"))

If Sayi1 < 100 And Sayi2 < 100 Then
MsgBox "Girdiğiniz iki sayıda 100'den Küçük"
ElseIf Sayi1 < 100 Or Sayi2 < 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den küçük"
ElseIf Sayi1 > 100 And Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıda 100'den Büyük"
ElseIf Sayi1 > 100 Or Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den Büyük"
ElseIf Sayi1 = 100 And Sayi2 = 100 Then
MsgBox "Girdiğiniz iki sayıda 100'e eşit"
ElseIf Sayi1 = 100 Or Sayi2 = 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100'e eşit"
End If

Yukardaki kodları inceleyerek mantıksal operatörleri nasıl kullanmanız gerektiği hakkında fikir edinebilirsiniz bunları visual basic de yazıp derlerseniz sizin için daha faydalı bir hal almış olur

IIF

IIF fonksiyonu aslında Ağabeyi "IF" in daha kolay kullanışlı bir şeklidir ama tabiki ağabeyi kadar etkin bir kullanım alanı yoktur kullanım şekli ise,

Dim Deger As Byte
Dim Sonuc As String
Deger = 5
Sonuc = IIf(Deger = 5, "başarılı", "başarısız")
MsgBox Sonuc

Yukarda ki örnekten de anlaşıldığı gibi "Deger" değişkeninin 5 'e eşit olması durumda "Sonuc" değişkeni "başarılı" değil ise "başarısız" değerini alacaktır.

Select ... Case

Bu yapı çoğu zaman çok kullanılışlıdır çünki bizi birçok if else deyimlerini kullanmaktan kurtarır

Dim Sayi As Integer
Sayi = Val(InputBox("Bir Sayı Giriniz"))

Select Case Sayi
Case Is < 100
MsgBox "Girdiğiniz Sayı 100'den Küçük"
Case 100
MsgBox "Girdiğiniz Sayı 100'e eşit"
Case Is > 100
MsgBox "Girdiğiniz Sayı 100'den Büyük"
End Select Yukarda da görüldüğü gibi "select case" kullanımı bazen "if then else" deyiminden daha kullanışlı olabiliyor.

Yukarda işlemiş olduğumuz kontrol deyimleri bir programı oluşturmanın temel yapı taşlarıdır bunları iyice incelemeniz ve bol bol örnek yapmanız Visual Basic ile program oluşturmanızda size yardımcı olacaktır.

24-04-2007, 19:57	#1 (permalink)
r@nger EN Afilli Üyelik Tarihi: 26-10-2006 Yer: r@nger was here... Mesajlar: 1,459 Rep Gücü: 62 Rep Puanı: 2207	vBasic 6.0 Kontrol Deyimleri Burda Anlatacaklarımız, program kontrol deyimleri ile ilgilidir.Kaçmaz SD Üyeleri. Konu Anlatımına Başlayalım. VISUAL BASIC 6.0 Program Kontrol Deyimleri [left] Kontrol Deyimleri : - If Koşul Then ... Else(if) ... End if - IIF - Select ... Case If Koşul Then ... Else(if) ... End if Dim Sayi As Integer Sayi = Val(InputBox("Bir Sayı Giriniz")) If Sayi < 100 Then MsgBox "Girdiğiniz Sayı 100'den Küçük" '1.kısım Else MsgBox "Girdiğiniz Sayı 100'den Büyük" '2.kısım End If Yukarda ki programla kullanıcıdan bir sayı girilmesi isteniyor ve "Val" fonksiyonu ile sayısal değere çevriliyor eğer bunu "Val" ile sayısal değere çevirmezsek programımız bunu bir string değer olarak kabul edecek ve programımız doğru çalışmayacaktı mesela 10+11 işleminin sonucunu bize 1011 diye söyleyecekti bu küçük hatırlatmayı da yaptıktan sonra programımızın geri kalanını açıklamaya devam edelim. Daha sonra sayı kontrol ediliyor eğer koşul doğru ise 1.kısım yanlış ise 2.kısım işleme tabi tutuluyor yalnız yukarda ki programda bir hata var o da kullanıcı giriş kutusuna 100 değerini girdiğinde 100<100 işleminin geri dönen sonucu "False" olduğu için program ikinci kısmı işleme tabi tutacaktır ve bize girdiğimiz 100 değerinin 100 den büyük olduğunu söyleyecektir. Programın doğrusu ise aşağıdadır Dim Sayi As Integer Sayi = Val(InputBox("Bir Sayı Giriniz")) If Sayi < 100 Then MsgBox "Girdiğiniz Sayı 100'den Küçük" ElseIf Sayi = 100 Then MsgBox "Girdiğiniz Sayı 100'e eşit" ElseIf Sayi > 100 Then MsgBox "Girdiğiniz Sayı 100'den Büyük" End If Bu örnek sayesinde de "ElseIf" 'in nasıl kullanıldığını görmüş olduk. İsterseniz şimdide mantıksal operatörleri kullanarak bir kod yazalım Dim Sayi1, Sayi2 As Integer Sayi1 = Val(InputBox("Birinci Sayıyı Giriniz")) Sayi2 = Val(InputBox("İkinci Sayıyı Giriniz")) If Sayi1 < 100 And Sayi2 < 100 Then MsgBox "Girdiğiniz iki sayıda 100'den Küçük" ElseIf Sayi1 < 100 Or Sayi2 < 100 Then MsgBox "Girdiğiniz iki sayıdan biri 100 den küçük" ElseIf Sayi1 > 100 And Sayi2 > 100 Then MsgBox "Girdiğiniz iki sayıda 100'den Büyük" ElseIf Sayi1 > 100 Or Sayi2 > 100 Then MsgBox "Girdiğiniz iki sayıdan biri 100 den Büyük" ElseIf Sayi1 = 100 And Sayi2 = 100 Then MsgBox "Girdiğiniz iki sayıda 100'e eşit" ElseIf Sayi1 = 100 Or Sayi2 = 100 Then MsgBox "Girdiğiniz iki sayıdan biri 100'e eşit" End If Yukardaki kodları inceleyerek mantıksal operatörleri nasıl kullanmanız gerektiği hakkında fikir edinebilirsiniz bunları visual basic de yazıp derlerseniz sizin için daha faydalı bir hal almış olur IIF IIF fonksiyonu aslında Ağabeyi "IF" in daha kolay kullanışlı bir şeklidir ama tabiki ağabeyi kadar etkin bir kullanım alanı yoktur kullanım şekli ise, Dim Deger As Byte Dim Sonuc As String Deger = 5 Sonuc = IIf(Deger = 5, "başarılı", "başarısız") MsgBox Sonuc Yukarda ki örnekten de anlaşıldığı gibi "Deger" değişkeninin 5 'e eşit olması durumda "Sonuc" değişkeni "başarılı" değil ise "başarısız" değerini alacaktır. Select ... Case Bu yapı çoğu zaman çok kullanılışlıdır çünki bizi birçok if else deyimlerini kullanmaktan kurtarır Dim Sayi As Integer Sayi = Val(InputBox("Bir Sayı Giriniz")) Select Case Sayi Case Is < 100 MsgBox "Girdiğiniz Sayı 100'den Küçük" Case 100 MsgBox "Girdiğiniz Sayı 100'e eşit" Case Is > 100 MsgBox "Girdiğiniz Sayı 100'den Büyük" End Select Yukarda da görüldüğü gibi "select case" kullanımı bazen "if then else" deyiminden daha kullanışlı olabiliyor. Yukarda işlemiş olduğumuz kontrol deyimleri bir programı oluşturmanın temel yapı taşlarıdır bunları iyice incelemeniz ve bol bol örnek yapmanız Visual Basic ile program oluşturmanızda size yardımcı olacaktır. __________________ Geri döndüm

Konu Yönetim Seçenekleri
Yazdırılacak şekilde göster Sayfayı e-posta ile gönder
Konu Gösterim Seçenekleri
Normal şekilde göster Ağaç şeklinde göster Otomatik konu şeklinde göster

Hafta içi her gün 20:00 - 22:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 18:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

vBasic 6.0 Kontrol Deyimleri

vBasic 6.0 Kontrol Deyimleri