بدست آوردن کارکتر کد حروف فارسی و انگلیسی

[ArianProg]

با سلام .

کسی میدونه چطوری میشه مثلا برای حرف "A" کد اسکی رو بدست آورد ؟

من دستور کانورتش رو میخواستم.

سوال دیگم اینکه چطور برای حروف فارسی مثلا "س" یونیکد معادل آن رو بدست بیارم ؟

دستور تبدیل اینو هم بگین.

ممنون.

[فرید نجفلو]

کسی میدونه چطوری میشه مثلا برای حرف "A" کد اسکی رو بدست آورد ؟


Dim AsciiNum = asc("A")


چطور برای حروف فارسی مثلا "س" یونیکد معادل آن رو بدست بیارم ؟

اینو تا اونجایی که من می دونم باید با یه تابع حرف به حرف تبدیل کنی:متفکر:
من قبلا تابع این کا رو داشتم اگه پیداش کردم می دم

[gilsoft]

سلام دوست عزیز
فکر کنم کدهای زیر مشکل شما رو برطرف می کنه :متفکر:

کسی میدونه چطوری میشه مثلا برای حرف "A" کد اسکی رو بدست آورد ؟ من دستور کانورتش رو میخواستم.
TextBox1.Text = Asc("A")


سوال دیگم اینکه چطور برای حروف فارسی مثلا "س" یونیکد معادل آن رو بدست بیارم ؟TextBox1.Text = AscW("س")

[فرید نجفلو]

اگه خودتون بخواین تابع تبدیل بسازید کد تون چیزی شبیه این میشه"

Public Function EnToFa(Character As Char, Shift As Boolean) As String
Dim InPutChr As String = Character.ToString.ToLower
Select Case InPutChr
Case "a"
If Shift Then Return "َ" Else Return "ش"
Case "b"
If Shift Then Return "إ" Else Return "ذ"
Case "c"
If Shift Then Return "ژ" Else Return "ز"
Case "d"
If Shift Then Return "ِ" Else Return "ی"
Case "e"
If Shift Then Return "ٍ" Else Return "ث"
Case "EN"
Return "Farsi"
Case Else
Return Character.ToString
End Select