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

2.345
اريد دالة او طريقة اقدر من خلالها الحصول على اول رقم بعد الفاصله واظهاره في textbox  ففي مثالنا هذا اريد ان اظهر اول رقم بعد الفاصله وهو رقم 3 في المثال السابق

وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
استخدم Split واقرأ العنصر الثاني من المصفوفة الناتجة (يعني رقم فهرس العنصر 1 وليس 2)
الرد }}}}
#3
مرحبا بك اخي الوادي نعم استخدمت الداله مع الرقم  2.345  وكانت النتيجه    هو اني قمت بتقسيم الارقام حسب موقع الفاصله فكانت النتيجه حصلت على رقم 2 وبعده حصلت على رقم 345 وهي الارقام مابعد الفاصله ولكن انا اريد ان احصل على اول رقم بعد الفاصله فقط اريد رقم 3 فقط دون الباقي واليك الكود الذي استخدمه 
Dim texst_split() As String
Dim s As String
s = Text1.Text
texst_split = Split(s, ".")
Text2.Text = texst_split(0)
Text3.Text = texst_split(1)

هذا الكود يقسمهم مضبوط ولكن لا يعطي الرقم  الاول بعد الفاصله وانا بحاجة الحصول على اول رقم بعد الفاصله واهمال البقيه
وشكرا لك وجزاك الله خير الجزاء
الرد }}}}
تم الشكر بواسطة: LoveVb , Amir_alzubidy , الوادي
#4
استبدل
Text3.Text = texst_split(1)
بـ
Text3.Text = texst_split(1)(0(
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
#5
شكرا لكم جميعا لقد عملت على المشكلة وقد وجدت حل وهو استخدام دالتي split() و Mid( )
اشكركم جميعا دون استثناء وسوف اجرب ايضا حل اخي lovevb وجزاكم الله خير الجزاء
الرد }}}}
تم الشكر بواسطة: الوادي
#6
هذا الكود لاظهار عدد N من الأرقام بعد العلامة العشرية

كود :
X = Val(Text1.Text)
Rem"هى الرقم المطلوب تحويله X"
N = Val(Text2.Text)
Rem"هى عدد الأرقام العشريةالمطلوبة N"
I = Int(X * 10 ^ N)
Y = I / 10 ^ N
Text3.Text = Val(Y)

وان كنت تريد اظهار أول رقم بعد العلامة ولن تريد غير ذلك فهذا هو الكود

كود :
X = Val(Text1.Text)
Rem"هى الرقم المطلوب تحويله X"
Y = Int(X * 10) / 10
Text1.Text = Val(Y)
الرد }}}}
تم الشكر بواسطة: الوادي , استايل
#7
يعطيك العافيه اخي الكريم اسلام اكواد ثمينة شكرا لك وللجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 258 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] بخصوص اللغة العربية في عمور2016 1 139 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  مساعده بخصوص كود منع نسخ الملفات من الجهاز nablion 9 1,198 23-08-16, 03:11 PM
آخر رد: ltfe
Sad مشكلة في msgbox ارجوا الدخول استايل 4 169 23-07-16, 04:45 AM
آخر رد: استايل
  [vb6.0] سؤال عن طريق ربط الفيجوال بقاعدة عمور2016 2 133 02-07-16, 07:24 PM
آخر رد: عمور2016
  [vb6.0] سؤال حول اتجاه الارقام التصاعدية chaabane 4 142 07-06-16, 06:32 PM
آخر رد: chaabane
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 675 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  هل يمكن قراءة نص من الويبكام بإستعمال OCR AEDC 0 112 21-02-16, 04:20 AM
آخر رد: AEDC
  [vb6.0] سؤال عن vb ضمن الاكسيل عبدالستار 2 247 21-01-16, 02:04 PM
آخر رد: الملاك الحزين
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 284 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem

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


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