تقييم الموضوع :
  • 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
يعطيك العافيه اخي الكريم اسلام اكواد ثمينة شكرا لك وللجميع
الرد }}}
تم الشكر بواسطة:



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


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