|
 |
DERSLER |
Visual Basic Giriş
If Yapısı
Select Case Yapısı
Visual Basic
Visual Basic programlama dilinin en önemli özelliklerinden biri
programın ekran tasarımını kodlama ile değil tasarım zamanı bir resim çiziyormuş
gibi rahatça yapılabilmesidir.Visual Basic programı çalıştığında karşımıza gelen
pencereden ilk seçenek olan Standart EXE normal program yapmak için kullanılır.
If Yapısı
If şart yapısı bütün programlama dillerinde olan bazı şartların
gerçleşmesi veya gerçekleşmemesi durumunda farklı komutları çalıştırılması izin
verir.Yazılımı
IF şart Then komutlar
else komutlar
end if.
Şartın gerçekleşmesi halinde then sonraki komutlar çalışacaktır.Şartın
gerçekleşmemesi halinde Else deyiminden sonraki komutlar çalışacaktır.Örnekle
açıklamaya çalışalım.Örneğimizde 3 tane inputbox vardır.Örnek:
Private Sub form_load()
Dim vize,final, ort,bt
vize=val(InputBox("Not girişi","Vize notunuz:"))
final=val(InputBox("Not girişi","Final notunuz:"))
ort=(vize+final)/2
if (ort<49,5) or (ort<50) then büt=InputBox("not girişi","bütünleme
not:")
end sub
Dim kodundanda sonra değişkenlerimizi tanımlıyoruz.vize değişkenimize
kodla bir tane inputbox koyuyoruz ve final ve büt değişkenlerimize aynı işlemleri
yapıyoruz.ort=(vize+final)/2 komutula vize ile finallin ortalamasını ort adlı değişkene
atıyoruz. if (ort<49,5) or (ort<50) then büt=InputBox("not girişi","bütünleme
not:") bu komutlarala eğer ort küçükse 49,5 ten veya ort küçükse 50 den karşımıza
büt değişkenine atadığımız inputbox çıkar demek isteniyor.
Select Case Yapısı
Bir değişkenin aldığı değere göre ayrı komutların çaılışması
için if yapısından daha avantajlı olan Case yapısını kullanmak daha kolaydır.Yazılımı
Select Case değişken
case Durum1: Komutlar
case Durum2, Durum3: Komutlar
case is<durum5: Komutlar
case is<durum6: Komutlar
..........
case durumN: Komutlar
case else komutlar
end Select
Bir örnekle açıklamaya çalışalım.Örnekte öğrencinin aldığı nota göre uygun bir mesaj
veren programı yapalım.
Private sub Form_load()
Dim a
a=inputbox("not girişi:")
select case a
case 0:Msgbox("birşey bilmiyoröuşsunuz..helal olsun size")
case 1 to 24:Msgbox("çoook çalışmanız lazm")
case 25 to 44:Msgbox("durumunuz iyi değil")
case 45 to 59:Msgbox("daha çok çalışmalısınız ")
case 60 to 84:Msgbox("Tebrikler iyi not almışsınız")
case 85 to 100 :Msgbox("Bravo çok iyi not aldınız")
case else:msgbox("Notu doğru girdiğinize eminmisin yoksa
dalgamı geçiyorsunuz")
End Select
end sub
Bu örnekte dim a ile a adında bir değişken taınımlanıyor. a=inputbox("not
girişi:") koduyla not girşi yapılması isteniyor.select case a ile başlıyor case
0:Msgbox ifadesiyle parentezin içindeki yazı mesaj olarak karşımıza geliyor.case
1 to 24:Msgbox bu aralıkta ise parentezin içi çalışıyor aynı işlemler diğer aralıklar
içinde geçerlidir. case else:msgbox komutuyla 0 ile 100 arasında bir şayı girilmemiş
ve msgbox ilede mesaj iletiliyor....
<< Geri
|