منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET تحويل الارقام الي حروف
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
تحويل الارقام الي حروف
محمد بوقزاحة غير متصل
عضو مبدع
المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة : 1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
#1
22-01-17, 01:20 PM
ارجوا المساعدة في اعطائي كود لتحويل الارقام الى حروف
ملاحظة االارقام  هى ارقام ماليه مثلاً   45,564.231
خمسة واربعون الف وخمسمائة واربعة وستون دينار ومئتان وواحد وثلاثون درهم لا غير
ارجوا المساعدة في اسرع وقت ممكن 
وجزاءكم الله كل الخير
البحث
الرد }}}
تم الشكر بواسطة:
thevirus غير متصل
عضو مبدع
المشاركات : 223
المواضيع 65
الإنتساب : Oct 2016
السمعة : 12
الشكر: 169
تم شكره 107 مرات في 77 مشاركات
#2
22-01-17, 01:48 PM
(22-01-17, 01:20 PM)محمد بوقزاحة كتب : ارجوا المساعدة في اعطائي كود لتحويل الارقام الى حروف
ملاحظة االارقام  هى ارقام ماليه مثلاً   45,564.231
خمسة واربعون الف وخمسمائة واربعة وستون دينار ومئتان وواحد وثلاثون درهم لا غير
ارجوا المساعدة في اسرع وقت ممكن 
وجزاءكم الله كل الخير
تفضل اخي  
المصدر (RamyEmad)
تنشئ ميديول وتحطها فيه لكي تستدعيها على مستوى البرنامج
كود :
Function NoToTxt(ByVal TheNo As Double, ByVal MyCur As String, ByVal MySubCur As String) As String
      Dim MyArry1(0 To 9) As String
      Dim MyArry2(0 To 9) As String
      Dim MyArry3(0 To 9) As String
      Dim MyNo As String = ""
      Dim GetNo As String = ""
      Dim RdNo As String = ""
      Dim My100 As String = ""
      Dim My10 As String = ""
      Dim My1 As String = ""
      Dim My11 As String = ""
      Dim My12 As String = ""
      Dim GetTxt As String = ""
      Dim Mybillion As String = ""
      Dim MyMillion As String = ""
      Dim MyThou As String = ""
      Dim MyHun As String = ""
      Dim MyFraction As String = ""
      Dim MyAnd As String = ""
      Dim i As Integer
      Dim ReMark As String = ""


      If TheNo > 999999999999.99 Then

      End If


      If TheNo = 0 Then
          NoToTxt = "صفر"
          Exit Function
      End If

      MyAnd = " و"
      MyArry1(0) = ""
      MyArry1(1) = "مائة"
      MyArry1(2) = "مائتان"
      MyArry1(3) = "ثلاثمائة"
      MyArry1(4) = "أربعمائة"
      MyArry1(5) = "خمسمائة"
      MyArry1(6) = "ستمائة"
      MyArry1(7) = "سبعمائة"
      MyArry1(8) = "ثمانمائة"
      MyArry1(9) = "تسعمائة"

      MyArry2(0) = ""
      MyArry2(1) = " عشر"
      MyArry2(2) = "عشرون"
      MyArry2(3) = "ثلاثون"
      MyArry2(4) = "أربعون"
      MyArry2(5) = "خمسون"
      MyArry2(6) = "ستون"
      MyArry2(7) = "سبعون"
      MyArry2(8) = "ثمانون"
      MyArry2(9) = "تسعون"

      MyArry3(0) = ""
      MyArry3(1) = "واحد"
      MyArry3(2) = "اثنان"
      MyArry3(3) = "ثلاثة"
      MyArry3(4) = "أربعة"
      MyArry3(5) = "خمسة"
      MyArry3(6) = "ستة"
      MyArry3(7) = "سبعة"
      MyArry3(8) = "ثمانية"
      MyArry3(9) = "تسعة"
      '======================
      GetNo = Format(TheNo, "000000000000.00")

      i = 0
      Do While i < 15

          If i < 12 Then
              MyNo = Mid$(GetNo, i + 1, 3)
          Else
              MyNo = "0" + Mid$(GetNo, i + 2, 2)
          End If

          If (Mid$(MyNo, 1, 3)) > 0 Then

              RdNo = Mid$(MyNo, 1, 1)
              My100 = MyArry1(RdNo)
              RdNo = Mid$(MyNo, 3, 1)
              My1 = MyArry3(RdNo)
              RdNo = Mid$(MyNo, 2, 1)
              My10 = MyArry2(RdNo)

              If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر"
              If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر"
              If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة"

              If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd
              If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd

              GetTxt = My100 + My1 + My10

              If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My11
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11
              End If

              If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My12
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12
              End If

              If (i = 0) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      Mybillion = GetTxt + " مليار"
                  Else
                      Mybillion = GetTxt + " مليارات"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران"
                  End If
              End If

              If (i = 3) And (GetTxt <> "") Then

                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyMillion = GetTxt + " مليون"
                  Else
                      MyMillion = GetTxt + " ملايين"
                      If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان"
                  End If
              End If

              If (i = 6) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyThou = GetTxt + " ألف"
                  Else
                      MyThou = GetTxt + " آلاف"
                      If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف"
                      If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان"
                  End If
              End If

              If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt
              If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt
          End If

          i = i + 3
      Loop

      If (Mybillion <> "") Then
          If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd
      End If

      If (MyMillion <> "") Then
          If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd
      End If

      If (MyThou <> "") Then
          If (MyHun <> "") Then MyThou = MyThou + MyAnd
      End If

      If MyFraction <> "" Then
          If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then
              NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur
          Else
              NoToTxt = ReMark + MyFraction + " " + MySubCur
          End If
      Else
          NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur
      End If
  End Function

وعند استدعاء الكود 
PHP كود :
TextBox1.text = NoToTxt(TextBox1.text, "جنية", "قرش") 
لا شيء مستحيل
البحث
الرد }}}
تم الشكر بواسطة:
محمد بوقزاحة غير متصل
عضو مبدع
المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة : 1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
#3
22-01-17, 03:22 PM (آخر تعديل لهذه المشاركة : 22-01-17, 03:23 PM {2} بواسطة محمد بوقزاحة.)
جزاك الله خير ( لم يشتغل الكود ) نرفق لك صوره من الخطأ
صوره من الخطأ


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
thevirus غير متصل
عضو مبدع
المشاركات : 223
المواضيع 65
الإنتساب : Oct 2016
السمعة : 12
الشكر: 169
تم شكره 107 مرات في 77 مشاركات
#4
22-01-17, 03:33 PM (آخر تعديل لهذه المشاركة : 22-01-17, 03:33 PM {2} بواسطة thevirus.)
من الواضع انك قمت بتحديد نص فارغ
قم بربفع المشروع
لا شيء مستحيل
البحث
الرد }}}
تم الشكر بواسطة:
محمد بوقزاحة غير متصل
عضو مبدع
المشاركات : 205
المواضيع 112
الإنتساب : Feb 2016
السمعة : 1
الشكر: 22
تم شكره 78 مرات في 52 مشاركات
#5
22-01-17, 03:41 PM
انا جربت اكواد من قيل ونفس المشكلة اعاني منها هي اخر درهم 
هذه صوره توضح لك انا اخر درهم لم يحتسب  555       الصحيح         خمسمائة وخمسة وخمسون درهم 
في الكود      ستة وخمسون درهم
البحث
الرد }}}
تم الشكر بواسطة:
thevirus غير متصل
عضو مبدع
المشاركات : 223
المواضيع 65
الإنتساب : Oct 2016
السمعة : 12
الشكر: 169
تم شكره 107 مرات في 77 مشاركات
#6
22-01-17, 03:54 PM
(22-01-17, 03:41 PM)محمد بوقزاحة كتب : انا جربت اكواد من قيل ونفس المشكلة اعاني منها هي اخر درهم 
هذه صوره توضح لك انا اخر درهم لم يحتسب  555       الصحيح         خمسمائة وخمسة وخمسون درهم 
في الكود      ستة وخمسون درهم

قم بإرفاق المشروووووووع
لا شيء مستحيل
البحث
الرد }}}
تم الشكر بواسطة:
tryold غير متصل
عضو مبدع
المشاركات : 93
المواضيع 0
الإنتساب : Sep 2013
السمعة : 13
الشكر: 609
تم شكره 120 مرات في 70 مشاركات
#7
22-01-17, 05:01 PM
الكود صحيح  ما فية اي مشكلة

وهذا مثال على السريع


الملفات المرفقة
.zip   NumberToWords.zip (الحجم : 82.09 ك ب / التحميلات : 633)
Mish3l
البحث
الرد }}}
تم الشكر بواسطة:
Jamil Alanesi غير متصل
عضو جديد
المشاركات : 1
المواضيع 0
الإنتساب : Aug 2021
السمعة : 0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
#8
Heart  12-08-21, 09:03 AM (آخر تعديل لهذه المشاركة : 12-08-21, 09:12 AM {2} بواسطة Jamil Alanesi.)
مطلوب كود التفقيط  في ملف  txt
مطلوب كود التفقيط (تحويل الارقام إلى حروف) في ملف txt وبالامكان تحميلة او في ملف مضغوط
البحث
الرد }}}
تم الشكر بواسطة:
abomustafa غير متصل
عضو جديد
المشاركات : 1
المواضيع 0
الإنتساب : Jun 2024
السمعة : 0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
#9
15-09-24, 03:18 PM (آخر تعديل لهذه المشاركة : 15-09-24, 03:20 PM {2} بواسطة abomustafa.)
(22-01-17, 03:22 PM)محمد بوقزاحة كتب : جزاك الله خير (  لم يشتغل الكود ) نرفق لك صوره من الخطأ
صوره من الخطأ

حلها بسيط
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = NoToTxt(TextBox1.Text, "دينار", "فلس")
    End Sub
(22-01-17, 01:48 PM)thevirus كتب :
(22-01-17, 01:20 PM)محمد بوقزاحة كتب : ارجوا المساعدة في اعطائي كود لتحويل الارقام الى حروف
ملاحظة االارقام  هى ارقام ماليه مثلاً   45,564.231
خمسة واربعون الف وخمسمائة واربعة وستون دينار ومئتان وواحد وثلاثون درهم لا غير
ارجوا المساعدة في اسرع وقت ممكن 
وجزاءكم الله كل الخير
تفضل اخي  
المصدر (RamyEmad)
تنشئ ميديول وتحطها فيه لكي تستدعيها على مستوى البرنامج
كود :
Function NoToTxt(ByVal TheNo As Double, ByVal MyCur As String, ByVal MySubCur As String) As String
      Dim MyArry1(0 To 9) As String
      Dim MyArry2(0 To 9) As String
      Dim MyArry3(0 To 9) As String
      Dim MyNo As String = ""
      Dim GetNo As String = ""
      Dim RdNo As String = ""
      Dim My100 As String = ""
      Dim My10 As String = ""
      Dim My1 As String = ""
      Dim My11 As String = ""
      Dim My12 As String = ""
      Dim GetTxt As String = ""
      Dim Mybillion As String = ""
      Dim MyMillion As String = ""
      Dim MyThou As String = ""
      Dim MyHun As String = ""
      Dim MyFraction As String = ""
      Dim MyAnd As String = ""
      Dim i As Integer
      Dim ReMark As String = ""


      If TheNo > 999999999999.99 Then

      End If


      If TheNo = 0 Then
          NoToTxt = "صفر"
          Exit Function
      End If

      MyAnd = " و"
      MyArry1(0) = ""
      MyArry1(1) = "مائة"
      MyArry1(2) = "مائتان"
      MyArry1(3) = "ثلاثمائة"
      MyArry1(4) = "أربعمائة"
      MyArry1(5) = "خمسمائة"
      MyArry1(6) = "ستمائة"
      MyArry1(7) = "سبعمائة"
      MyArry1(8) = "ثمانمائة"
      MyArry1(9) = "تسعمائة"

      MyArry2(0) = ""
      MyArry2(1) = " عشر"
      MyArry2(2) = "عشرون"
      MyArry2(3) = "ثلاثون"
      MyArry2(4) = "أربعون"
      MyArry2(5) = "خمسون"
      MyArry2(6) = "ستون"
      MyArry2(7) = "سبعون"
      MyArry2(8) = "ثمانون"
      MyArry2(9) = "تسعون"

      MyArry3(0) = ""
      MyArry3(1) = "واحد"
      MyArry3(2) = "اثنان"
      MyArry3(3) = "ثلاثة"
      MyArry3(4) = "أربعة"
      MyArry3(5) = "خمسة"
      MyArry3(6) = "ستة"
      MyArry3(7) = "سبعة"
      MyArry3(8) = "ثمانية"
      MyArry3(9) = "تسعة"
      '======================
      GetNo = Format(TheNo, "000000000000.00")

      i = 0
      Do While i < 15

          If i < 12 Then
              MyNo = Mid$(GetNo, i + 1, 3)
          Else
              MyNo = "0" + Mid$(GetNo, i + 2, 2)
          End If

          If (Mid$(MyNo, 1, 3)) > 0 Then

              RdNo = Mid$(MyNo, 1, 1)
              My100 = MyArry1(RdNo)
              RdNo = Mid$(MyNo, 3, 1)
              My1 = MyArry3(RdNo)
              RdNo = Mid$(MyNo, 2, 1)
              My10 = MyArry2(RdNo)

              If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر"
              If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر"
              If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة"

              If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd
              If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd

              GetTxt = My100 + My1 + My10

              If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My11
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11
              End If

              If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My12
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12
              End If

              If (i = 0) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      Mybillion = GetTxt + " مليار"
                  Else
                      Mybillion = GetTxt + " مليارات"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران"
                  End If
              End If

              If (i = 3) And (GetTxt <> "") Then

                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyMillion = GetTxt + " مليون"
                  Else
                      MyMillion = GetTxt + " ملايين"
                      If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان"
                  End If
              End If

              If (i = 6) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyThou = GetTxt + " ألف"
                  Else
                      MyThou = GetTxt + " آلاف"
                      If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف"
                      If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان"
                  End If
              End If

              If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt
              If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt
          End If

          i = i + 3
      Loop

      If (Mybillion <> "") Then
          If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd
      End If

      If (MyMillion <> "") Then
          If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd
      End If

      If (MyThou <> "") Then
          If (MyHun <> "") Then MyThou = MyThou + MyAnd
      End If

      If MyFraction <> "" Then
          If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then
              NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur
          Else
              NoToTxt = ReMark + MyFraction + " " + MySubCur
          End If
      Else
          NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur
      End If
  End Function

وعند استدعاء الكود 
PHP كود :
TextBox1.text = NoToTxt(TextBox1.text, "جنية", "قرش") 
(15-09-24, 03:18 PM)abomustafa كتب :
(22-01-17, 03:22 PM)محمد بوقزاحة كتب : جزاك الله خير (  لم يشتغل الكود ) نرفق لك صوره من الخطأ
صوره من الخطأ

حلها بسيط
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = NoToTxt(TextBox1.Text, "دينار", "فلس")
    End Sub
(22-01-17, 01:48 PM)thevirus كتب :
(22-01-17, 01:20 PM)محمد بوقزاحة كتب : ارجوا المساعدة في اعطائي كود لتحويل الارقام الى حروف
ملاحظة االارقام  هى ارقام ماليه مثلاً   45,564.231
خمسة واربعون الف وخمسمائة واربعة وستون دينار ومئتان وواحد وثلاثون درهم لا غير
ارجوا المساعدة في اسرع وقت ممكن 
وجزاءكم الله كل الخير
تفضل اخي  
المصدر (RamyEmad)
تنشئ ميديول وتحطها فيه لكي تستدعيها على مستوى البرنامج
كود :
Function NoToTxt(ByVal TheNo As Double, ByVal MyCur As String, ByVal MySubCur As String) As String
      Dim MyArry1(0 To 9) As String
      Dim MyArry2(0 To 9) As String
      Dim MyArry3(0 To 9) As String
      Dim MyNo As String = ""
      Dim GetNo As String = ""
      Dim RdNo As String = ""
      Dim My100 As String = ""
      Dim My10 As String = ""
      Dim My1 As String = ""
      Dim My11 As String = ""
      Dim My12 As String = ""
      Dim GetTxt As String = ""
      Dim Mybillion As String = ""
      Dim MyMillion As String = ""
      Dim MyThou As String = ""
      Dim MyHun As String = ""
      Dim MyFraction As String = ""
      Dim MyAnd As String = ""
      Dim i As Integer
      Dim ReMark As String = ""


      If TheNo > 999999999999.99 Then

      End If


      If TheNo = 0 Then
          NoToTxt = "صفر"
          Exit Function
      End If

      MyAnd = " و"
      MyArry1(0) = ""
      MyArry1(1) = "مائة"
      MyArry1(2) = "مائتان"
      MyArry1(3) = "ثلاثمائة"
      MyArry1(4) = "أربعمائة"
      MyArry1(5) = "خمسمائة"
      MyArry1(6) = "ستمائة"
      MyArry1(7) = "سبعمائة"
      MyArry1(8) = "ثمانمائة"
      MyArry1(9) = "تسعمائة"

      MyArry2(0) = ""
      MyArry2(1) = " عشر"
      MyArry2(2) = "عشرون"
      MyArry2(3) = "ثلاثون"
      MyArry2(4) = "أربعون"
      MyArry2(5) = "خمسون"
      MyArry2(6) = "ستون"
      MyArry2(7) = "سبعون"
      MyArry2(8) = "ثمانون"
      MyArry2(9) = "تسعون"

      MyArry3(0) = ""
      MyArry3(1) = "واحد"
      MyArry3(2) = "اثنان"
      MyArry3(3) = "ثلاثة"
      MyArry3(4) = "أربعة"
      MyArry3(5) = "خمسة"
      MyArry3(6) = "ستة"
      MyArry3(7) = "سبعة"
      MyArry3(8) = "ثمانية"
      MyArry3(9) = "تسعة"
      '======================
      GetNo = Format(TheNo, "000000000000.00")

      i = 0
      Do While i < 15

          If i < 12 Then
              MyNo = Mid$(GetNo, i + 1, 3)
          Else
              MyNo = "0" + Mid$(GetNo, i + 2, 2)
          End If

          If (Mid$(MyNo, 1, 3)) > 0 Then

              RdNo = Mid$(MyNo, 1, 1)
              My100 = MyArry1(RdNo)
              RdNo = Mid$(MyNo, 3, 1)
              My1 = MyArry3(RdNo)
              RdNo = Mid$(MyNo, 2, 1)
              My10 = MyArry2(RdNo)

              If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر"
              If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر"
              If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة"

              If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd
              If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd

              GetTxt = My100 + My1 + My10

              If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My11
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11
              End If

              If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then
                  GetTxt = My100 + My12
                  If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12
              End If

              If (i = 0) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      Mybillion = GetTxt + " مليار"
                  Else
                      Mybillion = GetTxt + " مليارات"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران"
                  End If
              End If

              If (i = 3) And (GetTxt <> "") Then

                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyMillion = GetTxt + " مليون"
                  Else
                      MyMillion = GetTxt + " ملايين"
                      If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون"
                      If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان"
                  End If
              End If

              If (i = 6) And (GetTxt <> "") Then
                  If ((Mid$(MyNo, 1, 3)) > 10) Then
                      MyThou = GetTxt + " ألف"
                  Else
                      MyThou = GetTxt + " آلاف"
                      If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف"
                      If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان"
                  End If
              End If

              If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt
              If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt
          End If

          i = i + 3
      Loop

      If (Mybillion <> "") Then
          If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd
      End If

      If (MyMillion <> "") Then
          If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd
      End If

      If (MyThou <> "") Then
          If (MyHun <> "") Then MyThou = MyThou + MyAnd
      End If

      If MyFraction <> "" Then
          If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then
              NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur
          Else
              NoToTxt = ReMark + MyFraction + " " + MySubCur
          End If
      Else
          NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur
      End If
  End Function

وعند استدعاء الكود 
PHP كود :
TextBox1.text = NoToTxt(TextBox1.text, "جنية", "قرش") 
جزاك الله خير اشتغل وكلشي تمام ... لكن خلل بسيط عند كتابة رقم مليار يقوم بتحويله هكذا ( واحد مليارات دينار) بدل من مليار
انا ممنون منك اخي الكريم
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 815 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 777 07-02-25, 07:57 PM
آخر رد: الورد2
  طريقه تحويل اى قاعده بيانات الى ملف dll فى المشروع خالد كامل1 1 634 31-01-25, 10:21 PM
آخر رد: Kamil
  تحويل معادلة اكسل أحمد فتح الرحمن 1 473 29-01-25, 11:09 PM
آخر رد: أحمد فتح الرحمن
  [VB.NET] تحويل لغة الأرقام في فيجوال ستوديو AboBattal 2 382 12-11-24, 08:11 AM
آخر رد: أبو خالد الشكري
  [VB.NET] تحويل من hexadecimal الى ASCII aminesori 2 364 07-11-24, 11:18 PM
آخر رد: aminesori
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 550 07-11-24, 09:15 PM
آخر رد: modymody300894
  تحويل الكود الى اداه بوحمد 2 384 15-10-24, 10:05 AM
آخر رد: بوحمد
Lightbulb [سؤال] تحويل صورة الى ملف Pdf ackore 8 757 27-09-24, 07:51 PM
آخر رد: محمد مسافر
  السلام عليكم - محتاج كود لوحة الارقام في شاشة paid cash Hamza8484 1 393 13-08-24, 10:23 AM
آخر رد: تركي الحلواني

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


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