Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
23/09/2009 13:29
Konu Sahibi
ancyra
Yorumlar
2
Okunma
1838
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ancyra

Aktivasyon Bekleyen
 37
 60
 27
 01/07/2009
 Kayseri
 
 Ofis 2003
 16/06/2010,10:59
Çözüldü 
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



Kullanici Avatari

Bilgisayarcı

Aktif Üye
 Belirtilmemiş
 658
 34
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 
sitedeki IIF (iff miydi hep karıştırıyorum) örneklerini incelerseniz tamamdır.


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes



Kullanici Avatari

ancyra

Aktivasyon Bekleyen
 37
 60
 27
 01/07/2009
 Kayseri
 
 Ofis 2003
 16/06/2010,10:59
Çözüldü 
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Veri tabanındaki bilgiyi textbox'a aktarma sherlockholmes 4 2.630 24/01/2015, 20:31
Son Yorum: sherlockholmes
Çözüldü Textbox da saat toplamlari veya cikarmalar Yakut 7 5.026 05/03/2014, 15:01
Son Yorum: alpeki99
Çözüldü Combobox taki veriyi seçince textbox ları otomatik doldurma hyavuz 9 5.378 06/01/2014, 12:27
Son Yorum: mcmaho
Çözüldü Textbox kullanımı ve içeriğinin yönetilmesi byclever 12 5.190 09/03/2012, 18:17
Son Yorum: byclever
Çözüldü textbox içinde sayı artırma ve sıfırlama! byclever 2 4.637 06/03/2012, 23:04
Son Yorum: alpeki99

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.