+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birden çok değere göre koşul test etme (/konu-birden-cok-degere-gore-kosul-test-etme.html)
Cvp: Birden çok değere göre koşul test etme - alpeki99 - 17/12/2009
Access yardımdan alıntı:
Dim sayi
sayi = 8 ' Initialize variable.
Select Case sayi' Evaluate Number.
Case 1 To 5 ' Number between 1 and 5, inclusive.
Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8 ' Number between 6 and 8.
Debug.Print "Between 6 and 8"
Case 9 To 10 ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else ' Other values.
Debug.Print "Not between 1 and 10"
End SelectÖrnekten de anlayacağınız gibi çoklu değer atama, değer aralığı atama vb. özellikleri mevcut.
NOT : İnsanı deli edecek kadar zor olan tüm konu başlığı ve cevap başlıklarını tek tek düzeltmek zorunda kaldım.
Cvp: Birden çok değere göre koşul test etme - umutap - 17/12/2009
Herkese teşekkürler, ama cevap alamadım belki tesadüfen tekrar görürsem ben yazarım ne olduğunu. Forum başlığı aslında tam sorduğumu anlatır olmuş.
özetlersek:
if ile then arasına değişkenin çok sayıdaki olasılığı için kısa yazımı vardı ama "in" li olmak zorunda değil belki başka bir koddur. Yada şöyle sorayım:
if a=1 or a=5 or a=6 or a=12 then... daha kısa nasıl yazılabilir?
Cvp: Birden çok değere göre koşul test etme - alpeki99 - 17/12/2009
İşte yukarıdaki select case bunu yapıyor.
Kod:
SELECT CASE a
Case 1,5,6,12
msgbox "a değişkeni 1,5,6 veya 12 rakamlarından birisidir
Case 300 to 500
msgbox "a değişkeni 300 ile 500 arasında bir sayıdır"
case else
msgbox "a değişkeni başka bir değerdir"
END SELECT
Cvp: Birden çok değere göre koşul test etme - umutap - 17/12/2009
(17/12/2009, 14:59)alpeki99 yazdı: İşte yukarıdaki select case bunu yapıyor.
SELECT CASE a
Case 1,5,6,12
msgbox "a değişkeni 1,5,6 veya 12 rakamlarından birisidir
Case 300 to 500
msgbox "a değişkeni 300 ile 500 arasında bir sayıdır"
case else
msgbox "a değişkeni başka bir değerdir"
END SELECT
İstediğiniz şey bu ama siz bilmiyorsunuz
temel uluslar arası bir ajanlık sınavına katılmış, herkesi ormana salıp birer aslanla dönmelerini istemişler, her ülkenin ajan adayı aslanla dönmüş veya dönememiş ancak temel ortalarda yok. Bakmışlar saatler sonra uzaktan bir fille geliyor. Gelince bakmışlar filin yüzü gözü mosmor işkence görmüş, sormuşlar temel biz aslan istedik ama bu fil. Temelde demiş bu aslan kendisine sorun inanmazsanız. File bakmışlar filde "vala billa ben aslanım" demiş.
Kardeş çok teşşekür ederim ama seninki bu fıkra gibi bir olay
çok güldürdün ben, Allah da seni güldürsün...
Cvp: Birden çok değere göre koşul test etme - alpeki99 - 17/12/2009
Teşekkür ederim ama demek ki biraz daha uğraşmamız gerekecek
Cvp: Birden çok değere göre koşul test etme - ogulcan92 - 19/09/2010
Konuda örnek kodlar olduğundan cevaplanmış konular bölümüne taşınmıştır.