select case komutunu kullan o daha iyi sorun olmaz o zaman

If sonuc>0.18 Or sonuc<0.25 Then lblsonuc. Text="Normal" End if If sonuc>0.25 Or sonuc<0.30 Then lblsonuc. Text="Fazla Kilolu" End if sonuçlar 0,25 ya da 0,30 geldiginde hiç işleme girmyecek bunu fark ettin mi bilmiyorum hepsi için aynı, bence sonuc=<0.25 digerinde sonuc>0.25 byle yapsan daha mantıklı olur imza

Haklısın Hocam Tabiki Kendimden utandım nasıl programıcım ben ya :( Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

Bir Bakın valla Tırlatcam Public Partial Class MainForm Public Sub New Me. InitializeComponent End Sub Sub CmdislemClick Dim boy As Double Dim kilo As Double Dim sonuc As Double Dim basamak As String kilo=Convert. ToDouble(textBox1. Text) kilo=kilo 100 boy=Convert. ToDouble(textBox2. Text) boy=boy boy sonuc=kilo/boy basamak=Convert. ToString(sonuc 100) basamak=basamak. Remove(basamak. Length-12,12) lblyuzde. Text="% "+basamak MsgBox If sonuc<0.185 Then lblsonuc. Text="Zayıf" End if If sonuc>0.18 Or sonuc<0.25 Then lblsonuc. Text="Normal" End if If sonuc>0.25 Or sonuc<0.30 Then lblsonuc. Text="Fazla Kilolu" End if If sonuc>0.30 Or sonuc<0.35 Then lblsonuc. Text="Obez Klas 1" End if If sonuc>0.35 Or sonuc<0.39 Then lblsonuc. Text="Obez Klas 2" End if If sonuc>0.4 Then lblsonuc. Text="Obez Klas 3 Morbid" End If End Sub End Class MOD: Başlıkları daha açıklayıcı yazalım lütfen. Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

olur hacım byle şeyler dikkatten kaçabiliyor bazen Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

Mallık Bende Hacı or ları and yapmam lazım Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

madem if dngüsü kullanacaksın her seferinde if dngüsünü açıp kapatmak yerine if else if end if kullansan daha iyi olur... VB'den bi cacık anlamasam da bu dngüyü byle kullanman gerektiğini ben bile anladım la :| Rus ile aldatmayanı etmeli takdir, tek biri ile uslanmayanın hakkı kçektir.

And yaptıysan And leri Andalso yap.

yerine = daha mantıklı geliyor. if a = b then... else... end if O yüzden C/C++'taki gibi if ( ( a = birİşlev ) "evet" ) gibi kafa karıştırıcı kullanımlara girişmiyoruz:D VB6'nın rahatlığı ise hiçbir dilde yok:) freeBASIC ile sistem bile programlayabiliriz:) Ayrıca yukarıdaki sz-dizimi http://en. wikipedia. org/wiki/Dangling_else karmaşıklığından da kurtarıyor. Olaylara karışmayın!

hacım bu gidişle senin kodları baştan yazacaz zaten :D ayrıca o if dngüsündeki or ifadesi de olmaz and ile değiştireceksin :D hocam if dngü değil sorgudur ufak bir düzeltme sadece yanlış anlama :) http://goo.gl/0i2Fv

unbalanced bunu yazdı yerine = daha mantıklı geliyor. if a = b then... else... end if O yüzden C/C++'taki gibi if ( ( a = birİşlev ) "evet" ) gibi kafa karıştırıcı kullanımlara girişmiyoruz:D VB6'nın rahatlığı ise hiçbir dilde yok:) freeBASIC ile sistem bile programlayabiliriz:) Ayrıca yukarıdaki sz-dizimi http://en. wikipedia. org/wiki/Dangling_else karmaşıklığından da kurtarıyor. Keşke microsoft şu. NET projesini native hale çekebilse sadece C++ daki gibi runtime kütüphaneleri istese şuanda diğer dillerin hepsi unutulmuştu C++ ile yarışır hale gelirdi. NET Ayrıca duyduğum bir habere gre C# için native sürümü geliştirebilirmiş Microsoft.

Hocam valla şu illetten birşey çakmıyom c++ gibi dillerlede şimdi grsellik zor aslında c#. net falan var ama bende tek vb. net varmış Allah ım ne suçum vardı da vb ile beni imtihan edion vb nin syntaxı daha kolay geliyor bana. sürekli süslü parentez açıp kapatmak zorunda değilim yada boş yere yapmak.. keza if için de yerine = daha mantıklı geliyor. if a = b then... else... end if birer ingilizce cümleciği gibi eğer b a ya eşitse then şunu yap.. değil ise bunu yap. belki bana kolay gelmesinin sebebi qbasic ile bu işe başlamam olabilir. c tabanlı dillerin syntaxını ilk başlarda yardırgamıştım ama artık alıştık.. vb. net gayet güzel bir dil. microsoft vb bilenleri mağdur etmemek için vb. net i çıkarttı. zaten nemli olan syntaxdan çok frameworkudur. frameworku bildikten sonra vb. net, c# fark etmemesi gerek pek. zor kısımları da var mesela casting işlemleri için biraz daha uğraşıyorsun. bir de değişken tanımlarken biraz daha uzun yazmak zorundasın Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

madem if dngüsü kullanacaksın her seferinde if dngüsünü açıp kapatmak yerine if else if end if kullansan daha iyi olur... Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

... ... Fatih54 tarafından 30/Oca/13 22:36 tarihinde düzenlenmiştir

hacım bu gidişle senin kodları baştan yazacaz zaten :D ayrıca o if dngüsündeki or ifadesi de olmaz and ile değiştireceksin :D Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

Haklısın Hocam Tabiki Kendimden utandım nasıl programıcım ben ya :( Hocam mallik degilde dikkatsizlik diyelim suna. Cogumuzun basina geliyor boyle seyler. Birde alternatif: switch deyimi ilede yapabilirsin. "Yer yuzunde hic bir pislik yoktur ki; altindan bir yahudi cikmasin" Adolf Hitler... "Turkiye de hicbir pislik yokturki altindan cemaat cikmasin" SniperScope "Nerede yavşak, hırsız varsa hepsi Allahçı" Fazil Say

Hocam valla şu illetten birşey çakmıyom c++ gibi dillerlede şimdi grsellik zor aslında c#. net falan var ama bende tek vb. net varmış Allah ım ne suçum vardı da vb ile beni imtihan edion Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

iyiki hatırlattınız hocam az kalsın güme gidiyordum valla :) = leri unuttuk demi Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

Hocam ilk kullandım da bende elseif de mi problem var diye değiştirdim şuan iş tamamdır dalmışım biraz formlarla çalışmaya alışkın değilim hep c++ falan konsol adamı olunca ben :) Bize çağ dışı diyorlar Doğrudur; Çağlar açtık, çağlar kapattık Çağlar bizden geri!

0,185 mi büyük 0,18 mi:) Mantık ifadelerini düzelttikten sonra ufak aralık sorunlarını da çzmelisiniz (ya 0.25'e eşitse, hiçbir aralığa girmiyor). Benzer şekilde if - end if ile sürekli kapsam başlatmaya gerek yok. if - else if - else yapısını kullanabilirsiniz. Bu şekilde üst adımlarda aralık yakalanmış ve işlenmiş olsa bile aşağya kadar tüm ifadeler kontrol edilmek zorunda kalacak. YeniHarman tarafından 29/Oca/13 23:53 tarihinde düzenlenmiştir Olaylara karışmayın!