+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] دالة ياخذ الكسر فقط (/showthread.php?tid=3795)
دالة ياخذ الكسر فقط - البراء - 10-09-14
بسم الله الرحمن الرحيم
الاخوة الافاضل في المنتدى سئالي هو هل يوجد دالة او طريقة تاخذ الكسر فقط مثال على ذلك اذا كان الرفم 2.8 اثنين وثمانية من عشرة اريد الدالة تاخذ الثامنية من عشرة فقط من غير الرقم الصحيح رقم 2
RE: دالة ياخذ الكسر فقط - الشاكي لله - 10-09-14
حقيقا لا توجد دالة صريحة تقوم بعمل ذلك
بل يمكنك عمل معادلات رياضية
او تحويل الرقم الى نص ومعالجته ثم ارجاعه الى رقم .. كلها حلول يمكنك اتباعها
كتبت دالة على السريع تقوم باستعمال مبدا تحويل الرقم الى نص ثم استعمال spilt واخذ الرقم الي مابعد الفاصلة :-
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsgBox(GetDecimalNumber(23.4546)) 'output : 4546'
End Sub
''' <summary>
''' دالة استخراج الارقام العشرية من الاعداد
''' </summary>
''' <param name="number">الرقم المراد استخراج الارقام العشرية منه</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDecimalNumber(ByVal number As Double) As Integer
Dim StringNumber As String = number.ToString().Split("."c).Last()
Return Integer.Parse(StringNumber)
End Function
RE: دالة ياخذ الكسر فقط - Aly El-Haddad - 10-09-14
PHP كود :
private void button1_Click(object sender, EventArgs e)
{
MessageBox.Show(GetDecimalPart(13.894).ToString()); // Output: 0.894
}
public double GetDecimalPart(double num)
{
return num - Math.Truncate(num);
}
RE: دالة ياخذ الكسر فقط - aladein - 18-09-14
اخي الكريم ... انا الي بعرفو انو التكست بالفجوال بيعطي الفاصلة بدون اي كود ولكن تكتب الاكواد لكي تحول رقم الفاصلة الى اقرب رقم .