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

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

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

مثلا عندى العدد 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

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

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبو التيمان

اسلام الكبابى

aymen_libya