VB.Net'te Textbox'a Sınırlı Değer Yazdırılması? - Baskı Önizleme +- 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ığı: VB.Net'te Textbox'a Sınırlı Değer Yazdırılması? (/konu-vb-net-te-textbox-a-sinirli-deger-yazdirilmasi.html) |
VB.Net'te Textbox'a Sınırlı Değer Yazdırılması? - ancyra - 23/09/2009 Oluşturduğum hesap formunda 4 işlemli hesaplar yaptırıyorum. İşlemin sonunda çıkan sonuca göre 4 farklı seçeneğim var çıkan sonuç bu 4 farklı değerde hangisine daha yakın ise onun karşısındaki değeri textbox'a yazdırmak istiyorum. Şöyle bir kod yazdım hesabı yaptırıyorum ama çıkan sonuca göre değer aralıklarını belirtemiyorum. Yardımcı olursanız sevinirim. If IsNumeric(dm.Text) And IsNumeric(dv1.Text) Then 'Hesap Alanı hız1.Text = Val(dm.Text) * Val(dv1.Text) 'Değer Aralık Alanı If Val(hız1.Text) > 400000 Then yag1.Text = "ISO VG 22" If 400000 > Val(hız1.Text) > 200000 Then yag1.Text = "ISO VG 100" If 200000 > Val(hız1.Text) > 100000 Then yag1.Text = "ISO VG 150-220" If 100000 > Val(hız1.Text) Then yag1.Text = "ISO VG 460-1500" End If End If End If End If End If Cvp: VB.Net'te Textbox'a Sınırlı Değer Yazdırılması? - Bilgisayarcı - 23/09/2009 sitedeki IIF (iff miydi hep karıştırıyorum) örneklerini incelerseniz tamamdır. Cvp: VB.Net'te Textbox'a Sınırlı Değer Yazdırılması? - ancyra - 23/09/2009 Sorunu buldum teşekkür ederim. Şöyle yazdım oldu.... If IsNumeric(dm.Text) And IsNumeric(dv1.Text) Then hız1.Text = Val(dm.Text) * Val(dv1.Text) If hız1.Text > 400000 Then yag1.Text = "ISO VG 22" End If If 400000 > hız1.Text And hız1.Text > 200000 Then yag1.Text = "ISO VG 100" End If If 200000 > hız1.Text And hız1.Text > 100000 Then yag1.Text = "ISO VG 150-220" End If If 100000 > hız1.Text Then yag1.Text = "ISO VG 460-1500" End If End If End Sub |