منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى (/showthread.php?tid=12861)

أحتاج دالة فصل الرقم الصحيح من الرقم العشرى - أبو التيمان - 31-07-15

السلام عليكم ورحمة الله

أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف

مثلا عندى العدد  98675.98 

المطلوب

98675 تنفصل وتتحط فى تكست بوكس

و 98 تنفصل وتتحط فة تكست بوكس

أرجو أن يكون السؤال واضح
(31-07-15, 09:03 PM)أبو التيمان كتب : السلام عليكم ورحمة الله

أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف

مثلا عندى العدد  98675.98 

المطلوب

98675 تنفصل وتتحط فى تكست بوكس

و 98 تنفصل وتتحط فة تكست بوكس

أرجو أن يكون السؤال واضح

الحمد لله رب العالمين وجدتها بالبحث عن طريق قوقل وأضع الحل هنا ليستفيد منه الجميع

كود :
Private Sub Command2_Click()
Dim x As Variant
x = Split(Val(Text1.Text), ".")
Text3.Text = x(0)
Text4.Text = x(1)
End Sub


RE: أحتاج دالة فصل الرقم الصحيح من الرقم العشرى - اسلام الكبابى - 09-08-15

  اضافة بسيطة فى بداية الكود

كود :
Private Sub Command2_Click()
Dim x As Variant
       NUM = Val(Text1.Text)
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = 0: GoTo 100
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = "": GoTo 100
 Rem"تكتب فى كودك احدى الجملتين السابقتين فقط"
x = Split(Val(Text1.Text), ".")
TexT3.Text = x(0)
Text4.Text = x(1)
100 End Sub


RE: أحتاج دالة فصل الرقم الصحيح من الرقم العشرى - aymen_libya - 08-09-22

هدا اقتراحي لكن يبقي بالفاصله رقم عشري
Dim num as double
num=val(Textbox1.text)
Textbox2.text=num-Math.floor(num)
Textbox3.text=Math.floor(num)