ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 2 از 2
  1. #1
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    سورس تبدیل عدد به حروف در vb.net

    سورس تبدیل عدد به حروف در VB.NET


    PrivateFunction a2h(ByVal st AsString) AsString
    Dim i, l AsInteger, sign, s(9), sa(4), s11, s12, s21, s22, s31, s32, s41, s42 AsString
    Dim b, o, o2, o3, o5, o4, c AsString
    If st = ""ThenReturn""
    sign = Strings.GetChar(st, 1)
    st = Math.Abs(Val(st)).ToString
    If sign = "+"Then
    If st <> "0"Then sign = "مثبت "
    ElseIf sign = "-"Then
    If st <> "0"Then sign = "منفی "
    Else
    sign = ""
    EndIf
    l = st.Length
    DoWhile l > 3
    s(i) = Strings.Right(st, 3)
    i = i + 1
    st = Strings.Left(st, l - 3)
    l = st.Length
    Loop
    s(i) = st
    For i = 0 To 4
    b = Strings.GetChar(Strings.Right("000" + s(i), 3), 1)
    o = ""
    SelectCase b
    Case"1"
    o = "یکصد"
    Case"2"
    o = "دویست"
    Case"3"
    o = "سیصد"
    Case"4"
    o = "چهارصد"
    Case"5"
    o = "پانصد"
    Case"6"
    o = "ششصد"
    Case"7"
    o = "هفتصد"
    Case"8"
    o = "هشصد"
    Case"9"
    o = "نهصد"
    EndSelect
    o2 = o
    b = Strings.GetChar(Strings.Right("000" + s(i), 3), 2)
    If b <> "1"Then
    o = ""
    SelectCase b
    Case"2"
    o = "بیست"
    Case"3"
    o = "سی"
    Case"4"
    o = "چهل"
    Case"5"
    o = "پنجاه"
    Case"6"
    o = "شصت"
    Case"7"
    o = "هفتاد"
    Case"8"
    o = "هشتاد"
    Case"9"
    o = "نود"
    EndSelect
    ElseIf b = "1"Then
    c = Strings.GetChar(Strings.Right("000" + s(i), 3), 3)
    o = ""
    SelectCase c
    Case"0"
    o = "ده"
    Case"1"
    o = "یازده"
    Case"2"
    o = "دوازده"
    Case"3"
    o = "سیزده"
    Case"4"
    o = "چهارده"
    Case"5"
    o = "پانزده"
    Case"6"
    o = "شانزده"
    Case"7"
    o = "هفده"
    Case"8"
    o = "هجده"
    Case"9"
    o = "نوزده"
    EndSelect
    EndIf
    o3 = o
    If b <> 1 Then
    c = Strings.GetChar(Strings.Right("000" + s(i), 3), 3)
    o = ""
    SelectCase c
    Case"1"
    o = "یک"
    Case"2"
    o = "دو"
    Case"3"
    o = "سه"
    Case"4"
    o = "چهار"
    Case"5"
    o = "پنج"
    Case"6"
    o = "شش"
    Case"7"
    o = "هفت"
    Case"8"
    o = "هشت"
    Case"9"
    o = "نه"
    EndSelect
    EndIf
    o4 = ""
    If b = "1"Then
    If o2 <> ""And o3 <> ""Then o4 = " و "
    sa(i) = o2 + o4 + o3
    Else
    o4 = ""
    o5 = ""
    If o2 <> ""And (o3 <> ""Or o <> "") Then o4 = " و "
    If o3 <> ""And o <> ""Then o5 = " و "
    sa(i) = o2 + o4 + o3 + o5 + o
    EndIf
    Next
    If sa(4) = ""Then s41 = ""Else s41 = " تریلیون"
    If sa(3) = ""Then s31 = ""Else s31 = " میلیارد"
    If sa(2) = ""Then s21 = ""Else s21 = " میلیون"
    If sa(1) = ""Then s11 = ""Else s11 = " هزار"
    If s41 <> ""And (sa(3) <> ""Or sa(2) <> ""Or sa(1) <> ""Or sa(0) <> "") Then s42 = " و "Else s42 = ""
    If s31 <> ""And (sa(2) <> ""Or sa(1) <> ""Or sa(0) <> "") Then s32 = " و "Else s32 = ""
    If s21 <> ""And (sa(1) <> ""Or sa(0) <> "") Then s22 = " و "Else s22 = ""
    If s11 <> ""And sa(0) <> ""Then s12 = " و "Else s12 = ""
    If st = "0"ThenReturn"صفر"
    Return sign + sa(4) + s41 + s42 + sa(3) + s31 + s32 + sa(2) + s21 + s22 + sa(1) + s11 + s12 + sa(0)
    EndFunction
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  2. 1
  3. #2
    layegh110
    كاربر عادي
    تاریخ عضویت
    2013 Dec
    نوشته ها
    2
    5
    0
    سلام
    ممنون. من قبلا یکی نوشته بودم. همه چیزش درست کار می کرد بجز اینکه در عددی که توش عدد 9میلیارد بود، یه دفعه "نُه" رو بجای میلیارد توی ردیف هزار می نوشت و اول فقط مینوشت میلیارد..... ضمن اینکه این یکی تعداد کدهاش کمتره. ممنون
نمایش نتایج: از 1 به 2 از 2

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2