تبدیل کلمه به کد اسکی

[karbon2010]

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

[CRazYFULL]

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

کد:

Asc("H")

انجام ميشه
تابع Asc يک کراکتر از رشته رو ميگيره و کد اسکی مربوط رو برميگردونه

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

کد:

Chr("72")

استفاده ميشه
تابع Chr کد اسکی رو ميگيره و کراکتر مربوط رو برميگردونه

و برای تبديل يک رشته کامل به کد اسکی با استفاده از حلقه و تابع Mid اين کار رو انجام ميديد

مثال:

کد:

Dim I As Integer, A As String
A = "salam"
For I = 1 To Len(A)
Text1 = Text1 & Asc(Mid(A, I, 1)) & " "
Next

برای فهم بيشتر يک کتاب در مورد کار با تابع ها بخونيد

[saelozahra]

ببخشید بر عکس این برنامه چی ؟
میشه کاری کرد که اسکی رو تشخیص بده و ترجمه اش کنه و کلمه رو تحویل بده ؟
ممنون

[Ghoghnus]

کد:

For i = 65 To 88

a = (Chr(i))
Text1.Text = Replace(Text1.Text, i, a)
Next