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....

1 günde en çok +rep ve teşekkür verdiğim insan rekoru sen de cunobag güzel gidiyorsun.

teşekkür ederim adminim.
rekorumun kırılması dileğiyle

bilgi paylaşıldığı zaman güzeldir

cunobag teşekkürler harikasın