تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى
#1
السلام عليكم ورحمة الله

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

مثلا عندى العدد  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
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , مبرمج بلا حدود
#2
  اضافة بسيطة فى بداية الكود

كود :
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
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , أبو التيمان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 104 02-11-16, 08:31 AM
آخر رد: haniblack
  [كود] دالة تقريب الأرقام Ahmed Abdulla 2 137 07-09-16, 05:04 PM
آخر رد: Ahmed Abdulla
  [سؤال] كيفيه كتابه كود الرقم المسلسل فى التكست بوكس مع الحفظ norhan 7 351 24-02-16, 07:23 PM
آخر رد: norhan
  [سؤال] عن دالة Microsoft Visual Basic 6.0 5 399 16-06-15, 07:51 PM
آخر رد: Microsoft Visual Basic 6.0
Question [سؤال] امل المساعدة في دالة تقسيم النص allayl 8 878 24-07-14, 06:42 AM
آخر رد: allayl
  [كود] عدم تكرار الرقم Microsoft Visual Basic 6.0 5 668 22-06-14, 01:42 AM
آخر رد: asto
  [سؤال] عد السماح بكتابة الفاصل العشرى مرتين ABO.BANCIANA 4 438 31-03-14, 10:37 AM
آخر رد: ABO.BANCIANA
  رسم دالة sin بلعيد العماري 1 929 13-01-14, 12:44 AM
آخر رد: الشاكي لله
  [سؤال] أريد كود منع تكرار الرقم احساس شاعر 10 4,049 01-11-13, 06:20 AM
آخر رد: asto

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم