موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ تفقيط الأرقام باللغة الإنجليزية

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:06 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي تفقيط الأرقام باللغة الإنجليزية

كود:
Private Sub Command1_Click() 'first set up two arrays to convert numbers to words Dim BigOnes(9) As String Dim SmallOnes(19) As String 'and populate them BigOnes(1) = "Ten" BigOnes(2) = "Twenty" BigOnes(3) = "Thirty" BigOnes(4) = "Forty" BigOnes(5) = "Fifty" BigOnes(6) = "Sixty" BigOnes(7) = "Seventy" BigOnes(8) = "Eighty" BigOnes(9) = "Ninety" SmallOnes(1) = "One" SmallOnes(2) = "Two" SmallOnes(3) = "Three" SmallOnes(4) = "Four" SmallOnes(5) = "Five" SmallOnes(6) = "Six" SmallOnes(7) = "Seven" SmallOnes(8) = "Eight" SmallOnes(9) = "Nine" SmallOnes(10) = "Ten" SmallOnes(11) = "Eleven" SmallOnes(12) = "Twelve" SmallOnes(13) = "Thirteen" SmallOnes(14) = "Fourteen" SmallOnes(15) = "Fifteen" SmallOnes(16) = "Sixteen" SmallOnes(17) = "Seventeen" SmallOnes(18) = "Eighteen" SmallOnes(19) = "Nineteen" 'format the incoming number to guarantee six digits 'to the left of the decimal point and two to the right 'and then separate the dollars from the cents Text1.Text = Format(Text1.Text, "000000.00") Dollars = Left(Text1.Text, 6) Cents = Right(Text1.Text, 2) Words = "" 'check to make sure incoming number is not too large If Dollars > 999999 Then Text2.Text = "Dollar amount is too large" Exit Sub End If 'separate the dollars into chunks If Dollars = 0 Then Words = "Zero" Else 'first do the thousands Chunk = Left(Dollars, 3) If Chunk > 0 Then GoSub ParseChunk Words = Words & " Thousand" End If 'do the rest of the dollars Chunk = Right(Dollars, 3) If Chunk > 0 Then GoSub ParseChunk End If End If 'concatenate the cents and display If Cents = 0 Then Cents = "No" Words = Words & " and " & Cents & "/100" Text2.Text = Words Exit Sub ParseChunk: digits = Mid(Chunk, 1, 1) If digits > 0 Then Words = Words & " " & SmallOnes(digits) & " Hundred" End If digits = Mid(Chunk, 2, 2) If digits > 19 Then leftdigit = Mid(Chunk, 2, 1) rightdigit = Mid(Chunk, 3, 1) Words = Words & " " & BigOnes(leftdigit) If rightdigit > 0 Then Words = Words & " " & SmallOnes(rightdigit) End If Else If digits > 0 Then Words = Words & " " & SmallOnes(digits) End If End If Return End Sub
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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