تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تنسيق الرقم مثلا 100,000,000
#1
ارجو من الاخوة الكرام كود لتنسيق الارقام انا استعمل هذا الكود لكنه يجب اسناد القيمة الجديدة n1 هل هناك طريقة اسهل 
PHP كود :
DIM n1 as new textbox
 
Private Sub kima_idkhal_TextChanged(sender As ObjectAs EventArgsHandles kima_idkhal.TextChanged
        n1
.Text Format(Val(kima_idkhal.Text), "#,##0")
 
   End Sub 
PHP كود :
Private Sub kima_idkhal_LostFocus(sender As ObjectAs EventArgsHandles kima_idkhal.LostFocus
        kima_idkhal
.Text n1.Text
    End Sub 
الرد
تم الشكر بواسطة:
#2
لم أفهم جيدا لماذا لا تضعها مباشرة هكذا
كود :
   Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
       kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#.##0")
   End Sub
الرد
تم الشكر بواسطة: wared , wared , حريف برمجة , حريف برمجة
#3
(24-06-19, 05:15 PM)sniperjawadino كتب : لم أفهم جيدا لماذا لا تضعها مباشرة هكذا
كود :
   Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
       kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#.##0")
   End Sub

شكرا على ردك اخي الكريم لكن انا وضعت الكود كما تفضلت فكانت النتيجة خاطئة 100000000.000
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , wared
#4
استخدم هذه الطريقة

كود :
    Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
        kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
    End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم

أو بكود الأخ : sniperjawadino


كود :
 kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .
الرد
تم الشكر بواسطة: حريف برمجة , wared , wared
#5
السلام عليكم اخي الكريم
تفضل هذا الكود لتنسيق الرقم
من 100000000 الى 100,000,000
كود :
MsgBox(String.Format("{0:0,0}", Val(TextBox1.Text)))
الرد
تم الشكر بواسطة: حريف برمجة , wared , wared
#6
(25-06-19, 02:29 PM)سامي محمد كتب : استخدم هذه الطريقة

كود :
    Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
        kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
    End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم

أو بكود الأخ : sniperjawadino


كود :
 kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .

الف شكر الكود المطلوب هو 
PHP كود :
kima_idkhal.Text String.Format("{0:#,##}"CInt(kima_idkhal.Text)) 
الرد
تم الشكر بواسطة: حريف برمجة , wared , wared
#7
(25-06-19, 03:17 PM)khairallah كتب :
(25-06-19, 02:29 PM)سامي محمد كتب : استخدم هذه الطريقة

كود :
    Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
        kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
    End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم

أو بكود الأخ : sniperjawadino


كود :
 kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .

الف شكر الكود المطلوب هو 
PHP كود :
kima_idkhal.Text String.Format("{0:#,##}"CInt(kima_idkhal.Text)) 

اخي العزيز بعد تجربة هذا الكود ظهر عند خطا  وهو عندما تكون القيمة صفر يحولها الى لا شيئ
الرد
تم الشكر بواسطة: wared , wared , حريف برمجة
#8
هذا طبيعي يا أخ .. لأن الدالة التي تقوم بعمل الفواصل بين الارقام هي متخصصة بالقيم ومن المعلوم انه لا يوجد شيء قيمته 000000 وحتى ان الدالة لا تعمل اذا كان النص الممرر إليه من نوع String وتلاحظ في الكود قمنا تحويل النص من String إلى Integer عن طريق الدالة Cint أو Val 

----
ولكن ان كنت تريد تجزئة اي نص مدخل في التكست بكس سوء كان ارقام او اصفار او حروف فستخدم هذه الطريقة

قم بستدعاء مجال الاسماء هذا


كود :
Imports System.Text.RegularExpressions

وضع هذا الكود بدلا من السابق

كود :
 kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, ",", "")
        kima_idkhal.Text = StrReverse(kima_idkhal.Text)
        kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "(.{3})", "$1,")
        kima_idkhal.Text = StrReverse(kima_idkhal.Text)
        kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "^,", "")

قد تكون هناك طرق اخرى ولكن هذا الذي طرأ علي الآن
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز الماجيك مسعد 11 1,371 14-10-19, 11:43 PM
آخر رد: elgokr
  هل يمكنني إظهار Form1 فقط مثلا إلى شاشة التلفاز عن طريق HDMI ? Alhootti1 2 94 30-09-19, 02:32 PM
آخر رد: Alhootti1
  تنسيق تاريخ بتيكست بوكس mostafa12 5 147 29-09-19, 10:50 PM
آخر رد: mostafa12
  تنسيق التاريخ في الداتاغريد فيو ghias 5 202 19-09-19, 12:16 AM
آخر رد: ghias
  [VB.NET] مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين khairallah 2 264 26-07-19, 11:55 PM
آخر رد: khairallah
  [سؤال] كيف يتم جلب الرقم التسلسلي للوحة المفاتيح؟ السندبااد 5 261 23-07-19, 01:24 PM
آخر رد: السندبااد
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 1,228 03-06-19, 11:56 AM
آخر رد: سعود
  [سؤال] إجراء عمليات على تاريخ بتنسيق مختلف عن تنسيق الجهاز السندبااد 5 321 26-04-19, 12:41 PM
آخر رد: elgokr
  سؤال حول تنسيق لون مربع نص المتألق9 3 258 19-04-19, 02:31 AM
آخر رد: المتألق9
  [ تم الحل ] تعديل على تنسيق التاريخ بالتاكست بكس محمد خيري 9 362 11-04-19, 01:55 PM
آخر رد: elgokr

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


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