ايران ويج

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

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

کد: 
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

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

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

کد: 
For i = 65 To 88

a = (Chr(i))

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

Next

karbon2010

CRazYFULL

saelozahra

Ghoghnus