استفاده از این محتوا رایگان میباشد

چارا برای خلق ارزش و توسعه مهارت های درونی و رشد استعدادها و جایی برای انجام پروژهای برنامه نویسی هست، هدف ما پیاده سازی ایده شما و توسعه مهارت های فردی کاربران برای ارتقا و اجرای هدفمندانه کسب و کارها میباشد بیشتر آموزش های سایت به صورت رایگان در اختیار شما هستند اما برای دسترسی به همه آموزش ها نیازمند تهیه عضویت ویژه سایت ما میباشید.

تبدیل اعداد انگلیسی به فارسی بیسیک فور اندروید

تبدیل اعداد انگلیسی به فارسی بیسیک فور اندروید

[codesyntax lang=”vbnet”]
Public Sub enToFa(text As String) As String
Private persianChars() As String = Array As String("\u06f0", "\u06f1", "\u06f2", "\u0663", "\u06f4", "\u06f5", "\u06f6", "\u06f7", "\u06f8", "\u0669")
Dim builder As StringBuilder
builder.Initialize
For i =0 To text.Length-1
If IsNumber(text.CharAt(i)) Then
Dim ind As String =text.charAt( i)
Dim indint As Int = ind
builder.append(UnescapeUnicode(persianChars(indint)))
Else
builder.Append(text.charAt( i))
End If
Next
Return builder.ToString
End Sub
[/codesyntax]
گرفتن مدت زمان یک ویدیو بیسیک فور اندروید
رسم نیم دایره دایره کامل بیسیک فور اندروید
, , ,

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

این قسمت نباید خالی باشد
این قسمت نباید خالی باشد
لطفاً یک نشانی ایمیل معتبر بنویسید.
شما برای ادامه باید با شرایط موافقت کنید

فهرست