+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال بخصوص قراءة العدد العشري ارجوا الدخول (/showthread.php?tid=16547)
سؤال بخصوص قراءة العدد العشري ارجوا الدخول - استايل - 23-07-16
السلام عليكم ورحمة الله وبركاته
اخواني عندي سؤال وهو عند كتابة مثلا عدد عشري كالاتي
2.345
اريد دالة او طريقة اقدر من خلالها الحصول على اول رقم بعد الفاصله واظهاره في textbox ففي مثالنا هذا اريد ان اظهر اول رقم بعد الفاصله وهو رقم 3 في المثال السابق
وشكرا لكم
RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - الوادي - 23-07-16
استخدم Split واقرأ العنصر الثاني من المصفوفة الناتجة (يعني رقم فهرس العنصر 1 وليس 2)
RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - استايل - 24-07-16
مرحبا بك اخي الوادي نعم استخدمت الداله مع الرقم 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)
هذا الكود يقسمهم مضبوط ولكن لا يعطي الرقم الاول بعد الفاصله وانا بحاجة الحصول على اول رقم بعد الفاصله واهمال البقيه
وشكرا لك وجزاك الله خير الجزاء
RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - LoveVb - 24-07-16
استبدل
Text3.Text = texst_split(1)
بـ
Text3.Text = texst_split(1)(0(
RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - استايل - 24-07-16
شكرا لكم جميعا لقد عملت على المشكلة وقد وجدت حل وهو استخدام دالتي split() و Mid( )
اشكركم جميعا دون استثناء وسوف اجرب ايضا حل اخي lovevb وجزاكم الله خير الجزاء
RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - اسلام الكبابى - 28-07-16
هذا الكود لاظهار عدد 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)RE: سؤال بخصوص قراءة العدد العشري ارجوا الدخول - استايل - 28-07-16
يعطيك العافيه اخي الكريم اسلام اكواد ثمينة شكرا لك وللجميع