Reklamsız Forum İçin Tıklayınız. * FrmTR Sohbet Kontrol Panelinizde. * FrmTR'nin resim sitesi Resimci.Org yayında
Forum TR
Go Back   Forum TR > > >
FrmTR'ye Reklam Vermek İçin: [email protected]
Cevapla
 
Konu Araçları
Eski 18-07-06, 01:17   #1
engineer1984

Question Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Merhaba arkadaşlar,

Bir hesaplama yapıyorum, çıkan sonucun bir üst akama yuvarlanmasını istiyorum.

Label10 = Val(Text1.Text) / Val(Text4.Text)

gibi bir hesabım var. Bu hesabı yapınca label 10 a örneğin 1,008964 yazıyor, ben label10 a 1 yazmasını istiyorum.

Yuvarlama ile bu yapılmıyor round ile.

a=1,56897
b= round(a,0)
dediğim zaman b= 2 çıkıyor 1,5 den büyük olduğu için.

a=1,45964
b= round(a,0)
dediğim zaman b= 1 çıkıyor 1,5 den küçük olduğu için

ben sayıyı ne kadar geçerse geçsin bi üst sayıya yuvarlamasını istiyorum.

Nasıl yapacağımı anlatırsanız bir kodla sevinirim.

Şimdiden teşekkür ediyoruö.
  Alıntı Yaparak Cevapla
Eski 18-07-06, 17:07   #2
muba

Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Formuna bir adet Textbox ve bir adette Command butonu ekle sonra asagidaki kotlari formuna yapistir. Bakalim istedigin sekilde yapacakmi.Eger tatmin olmazsan sorununu yaz daha gelistirmeye calisiriz. Kolay gelsin.


Private Sub Command1_Click()
'küsürati ne olursa olsun küsür varsa bir üste yuvarlatiyoruz
' Int fonksiyonu ondalik kismi ne olursa olsun sadece tam kismini aliyor
Dim sayi As Currency
Dim tamkismi As Currency
sayi = Val(Text1)
tamkismi = Int(Text1)
If sayi > tamkismi Then Text1 = tamkismi + 1
End Sub
  Alıntı Yaparak Cevapla
Eski 18-07-06, 21:21   #3
engineer1984

Thumbs up Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Alıntı:
Gerçek Mesajı Gönderen muba Mesajı Göster
Formuna bir adet Textbox ve bir adette Command butonu ekle sonra asagidaki kotlari formuna yapistir. Bakalim istedigin sekilde yapacakmi.Eger tatmin olmazsan sorununu yaz daha gelistirmeye calisiriz. Kolay gelsin.


Private Sub Command1_Click()
'küsürati ne olursa olsun küsür varsa bir üste yuvarlatiyoruz
' Int fonksiyonu ondalik kismi ne olursa olsun sadece tam kismini aliyor
Dim sayi As Currency
Dim tamkismi As Currency
sayi = Val(Text1)
tamkismi = Int(Text1)
If sayi > tamkismi Then Text1 = tamkismi + 1
End Sub
Çok teşekkür ederim.

Mesajı son düzenleyen engineer1984 ( 18-07-06 - 21:36 )
  Alıntı Yaparak Cevapla
Eski 18-07-06, 22:57   #4
ozaksoy537

Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


round komutu
mesela sayı 2.10 ya
round("2,10") çıktısı "2"
round("2,50") çıktısı "2"
round("2,51") çıktısı "3"
round("2,75") çıktısı "3"
arkadaşım round fonksiyonunuda kullanabilirsin
  Alıntı Yaparak Cevapla
Eski 18-07-06, 23:15   #5
baron06

Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?

Alıntı:
Gerçek Mesajı Gönderen ozaksoy537 Mesajı Göster
round komutu
mesela sayı 2.10 ya
round("2,10") çıktısı "2"
round("2,50") çıktısı "2"
round("2,51") çıktısı "3"
round("2,75") çıktısı "3"
arkadaşım round fonksiyonunuda kullanabilirsin
Arkadas round komutunun isin yaramadigini ve baska bir cozum yolu aradigini soylemis zaten.
  Alıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat