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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول اظهار النمادج او الفريم في شجرة التفرع عمور2016 2 57 أمس, 03:44 AM
آخر رد: sendbad100
  سؤال في الكتابة على التكست عمور2016 3 49 18-02-17, 12:21 PM
آخر رد: عمور2016
  [سؤال] بخصوص تثبيت الفيجوال بيسك6 عمور2016 5 131 18-01-17, 11:21 AM
آخر رد: Ashraf Elafify
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 131 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
Wink [vb6.0] سؤال في الفيجوال بيسك6 amer2000 7 212 23-12-16, 03:27 AM
آخر رد: amer2000
  سؤال حول Listview superwoofer 0 74 18-12-16, 10:15 AM
آخر رد: superwoofer
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 390 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] بخصوص اللغة العربية في عمور2016 1 202 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  مساعده بخصوص كود منع نسخ الملفات من الجهاز nablion 9 1,385 23-08-16, 03:11 PM
آخر رد: ltfe
Sad مشكلة في msgbox ارجوا الدخول استايل 4 257 23-07-16, 04:45 AM
آخر رد: استايل

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


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