چگونگی گرد کردن اعداد در vb.net2008

[tohi.hoseein]

دوستان میخوام یه تکست باکس و یک باتن و یک لیبل داشته باشم و وقتی که عدد مثلا 16.8 را گرد و به 17 تبدیل کنه و یا عدد 16.3 رو به 16 تبدیل کنه چطور میتونم این کار رو کنم کمک کنید ممنون

[Hybrid]

سلام دوست عزیز

میتونین از تابع Round استفاده کنین که در کلاس math وجود داره برای فهم بیشتر یه مثال واستون زدم...البته این در Vs2010 هست ولی فکر کنم در نسخه 2008 هم جواب بده...


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = Math.Round(Val(TextBox1.Text))

End Sub

[shabgard2oo9]

سلام ازتابع round استفاده کن البته بایدکتابخانه mathروهم توی برنامه imports کنی.ازتابه به صورت زیراستفاده کن.
textbox.text=round(val(textbox.text)

[doosbedari]

يه سوال ؟؟؟
اگه بخوايع اعداد صحيح رو رند كنيم چه دستوري استفاده ميشه ؟؟؟

مثلا 125200 بشه 126000 يا 130000

[Mani_rf]

متدی برای این کار وجود نداره ؛ باید خودت بنویسی؛ کار زیاد سختی هم نیست؛ اگر تعداد رقم ها مشخصه و مثلا 6 رقمه و میخای که 4رقم آخر رو گرد کنی، عدد رو 4 بار تقسیم بر 10 کن بعد با استفاده از تابه Round اون رو گرد کن و دوباره در 4بار در 10ضرب کن (البته میتونی که مستقیم تقسیم بر 10000 کنی و در آخر هم در 10000 ضرب کنی.)

[alidavodi]

If Len(TextBox1.Text) <> 0 Then
Dim a As Integer = 10 ^ (Len(TextBox1.Text) - 2)
TextBox2.Text = Math.Round(TextBox1.Text / a) * a
End If