قدر مطلق - جزء صحیح - عدد اعشاری

[hovakhshatre]

سلام به همه دوستان
شرمنده از اینکه همش کلی سوال میکنم. :اشتباه::اشتباه::اشتباه:
سوال هام اینهاست:
1- تابعی که یک عدد اعشاری بگیرد و با دو رقم اعشار برگرداند.
2-تابعی که تعداد اعشار ها را از کاربر بپرسد.
3-تابعی که جزء صحیح بگیرد.
4-تابعی که قدر مطلق بگیرد.
.
.
.
باز هم کلی از ممنون

[Hybrid]

سلام دوست عزیز ،جواب ها رو میتونین داخل کلاس Math پیدا کنید :

1 ) برای اینکه تا 2 رقم اعشار گرد کنه میتونین از تابع Math.Round استفاده کنید.


Math.Round(dblNumber, 2)


تابعی که تعداد اعشار ها را از کاربر بپرسد. نا مفهوم.


3-تابعی که جزء صحیح بگیرد.میتونین از متد Floor از کلاس Math استفاده کنید :


Dim dblnumber As Double = 2.9
MessageBox.Show(Math.Floor(dblnumber).ToString())


4-تابعی که قدر مطلق بگیرد.میتونین از متد ABS از کلاس Math استفاده کنید :


Dim dblnumber As Double = -2.9
MessageBox.Show(Math.Abs(dblnumber).ToString())

[کاظم فلاحی خواه]

با تشکر از دوست عزیز (Vb.netBoss) .
سلام دوست عزیز (hovakhshatre ) .
سلام بر همگی دوستان .

برای جز صحیح می تونید از تابع Int هم استفاده کنید .
Int(2.3)


تابعی که تعداد اعشار ها را از کاربر بپرسد.

فکر کنم منظورت همین باشه :
تابع خرچنگ قورباغه ای : برای اینکه تعداد اعداد اعشار رو بدونی .

(Int(StrReverse(Math.Abs(-2.558)))).ToString.Length

از دوست عزیز vbboss می خوام اگه تابع خرچنگ قورباغه ای مشکل داره به دوست عزیزمون مطلع بدند .

[Hybrid]

راه های مختلفی برای بدست آوردن تعداد رقم های بعد از اعشار میتونین استفاده کنید مثلا :


Dim GhesmatAshar As String = String.Empty

If TextBox1.Text.Contains(".") Then
GhesmatAshar = Split(Str(Math.Abs(CDbl(TextBox1.Text))), ".", , CompareMethod.Text)(1)
End If

Label1.Text = GhesmatAshar.Length

[hovakhshatre]

ممنون از همه دوستان

منظورم از اینکه تعداد اعشار ها رو از کاربر بپرسه اینه که به فرض در یک برنامه که جواب به صورت اعشاری است (مثل برنامه گرفتن معدل) ؛ خود کاربر در یک Text Box یا MsgBox تعداد اعشار های نمایش دهنده را وارد کند.

[barnamenevisjavan]

براي قدر مطلق بايد شرط زير رو هم بزاري

if |x| >=0
then
x
else
x-

[کاظم فلاحی خواه]

منظورم از اینکه تعداد اعشار ها رو از کاربر بپرسه اینه که به فرض در یک برنامه که جواب به صورت اعشاری است (مثل برنامه گرفتن معدل) ؛ خود کاربر در یک Text Box یا MsgBox تعداد اعشار های نمایش دهنده را وارد کند.

Math.Round(معدل, TextBox1.Text)

[hovakhshatre]

Math.Round(معدل, TextBox1.Text)

این کد رو وقتی میزنم ایراد میگیره!! دلیلش چیه؟

[کاظم فلاحی خواه]

سلام دوست عزیز :
Dim Text1 As Integer = TextBox1.Text
Math.Round(معدل, Text1)

[xxnagin]

برای تعداد رقم اعشار از tostring استفاده بکن
که تو textbox عدد مورد نظر رو بزن با دکمه امتحان کن

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Double = 100.1
Label1.Text = a.ToString("f" & TextBox1.Text)
End Sub




که باید اینجوری بنویسی مثلا
tostring("c")
به این توجه کن
"c"



اینم کار بردهای دیگه to string
currency c علامت دلار و از کاما براي جدا سازي ارقام پيش فرض 2 رقم اعشار و اعداد منفي داخل پرانتز
scietific E يک رقم در سمت چپ و شش رقم در سمت راست
notation E و يک عدد صحيح 3 رقمي اعداد مورد نظر را به صورت نمايي از توان 10 نشان ميدهد E با استفاده از کارکتر
fixed-point F براي تعداد رقم اعشار استفاده ميشود و در کنار اعداد منفي کارکتر - قرار ميدهيد
number n اعداد را با تعداد رقم اعشار ثابت و کاما نشان مي دهد
percent P در انتهاي اعداد علامت درصد قرار ميدهد پيش از نمايش اعداد در 100 ضرب ميکند