تقييم الموضوع :
  • 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(
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 3 538 14-03-17, 01:02 AM
آخر رد: عبد العزيز البسكري
  سؤال حول اظهار النمادج او الفريم في شجرة التفرع عمور2016 2 238 19-02-17, 03:44 AM
آخر رد: sendbad100
  سؤال في الكتابة على التكست عمور2016 3 148 18-02-17, 12:21 PM
آخر رد: عمور2016
  [سؤال] بخصوص تثبيت الفيجوال بيسك6 عمور2016 5 296 18-01-17, 11:21 AM
آخر رد: Ashraf Elafify
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 222 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
Wink [vb6.0] سؤال في الفيجوال بيسك6 amer2000 7 321 23-12-16, 03:27 AM
آخر رد: amer2000
  سؤال حول Listview superwoofer 0 137 18-12-16, 10:15 AM
آخر رد: superwoofer
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 540 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] بخصوص اللغة العربية في عمور2016 1 262 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  مساعده بخصوص كود منع نسخ الملفات من الجهاز nablion 9 1,600 23-08-16, 03:11 PM
آخر رد: ltfe

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


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