گفتگو: تبدیل حروف به عدد [بایگانی]

butterfly8528

سه شنبه 24 دی 1387, 05:53 صبح

سلام به اساتید گل
من میخام محتوای یک تکست باکس که شامل چند حروف ( تعداد نامشخص ) است:

1- حرف به حرف به صورت جدا به یک عدد به انتخاب من تبدیل بشند ( مثلا در اضای a عدد 1 و در اضای b عدد 2 رو برگردونه ) ( که اگر محتوی تکست باکس ab بود عدد 12 برگردانده شود )

2- هر کدام از حروفها به صورت جدا به کد اسکی خو دشون برگردن ( مثلا در اضای a عدد 97 و در اضای b عدد 98رو بر گردونه ) ( که اگر محتوی تکست باکس ab بود عدد 9798 برگردانده شود )

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

نا گفته نمونه من یان رو واسه قفل نرم افزاری میخام ( مثل برنامه Photoshop )

لطفا هر کی میتونه کمک کنه :تشویق:

xxxxx_xxxxx

سه شنبه 24 دی 1387, 13:14 عصر

مواد لازم:

1- يك حلقه
2- تابع ASC
3- تابع Len
4- تابع Mid

موفق باشيد/

ƒxmahdi

سه شنبه 24 دی 1387, 13:44 عصر

2- هر کدام از حروفها به صورت جدا به کد اسکی خو دشون برگردن ( مثلا در اضای a عدد 97 و در اضای b عدد 98رو بر گردونه ) ( که اگر محتوی تکست باکس ab بود عدد 9798 برگردانده شود )
نمونه ای که براتون گذاشتم دقیقا همین کار را می کنه!

vahidiran

سه شنبه 24 دی 1387, 23:15 عصر

سلام به اساتید گل
من میخام محتوای یک تکست باکس که شامل چند حروف ( تعداد نامشخص ) است:

1- حرف به حرف به صورت جدا به یک عدد به انتخاب من تبدیل بشند ( مثلا در اضای a عدد 1 و در اضای b عدد 2 رو برگردونه ) ( که اگر محتوی تکست باکس ab بود عدد 12 برگردانده شود )

2- هر کدام از حروفها به صورت جدا به کد اسکی خو دشون برگردن ( مثلا در اضای a عدد 97 و در اضای b عدد 98رو بر گردونه ) ( که اگر محتوی تکست باکس ab بود عدد 9798 برگردانده شود )

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

نا گفته نمونه من یان رو واسه قفل نرم افزاری میخام ( مثل برنامه Photoshop )

لطفا هر کی میتونه کمک کنه :تشویق:

نا گفته نماند برای ساخت باست الگورتم های خاص خودش و استفاده کنی الگوریتم های دوطرفه و ....

butterfly8528

چهارشنبه 25 دی 1387, 06:05 صبح

خیلی ممنون
قسمت دوم حل شد .
ولی قسمت اولش هنوز مونده !!!
لطفا هرکی میتونه کمکم کنه !:متفکر:

ƒxmahdi

چهارشنبه 25 دی 1387, 08:22 صبح

فقط کافیه دستورات تحت Command1 برنامه قبل را به کد زیر تغییر بدی

Dim X As String
Text2.Text = ""
For i = 1 To Len(Text1.Text)
X = Mid(Text1.Text, i, 1)
X = Asc(X)
If Val(X) >= 97 And Val(X) <= 122 Then Text2.Text = Text2.Text & Val(X) - 96
Next i
این کد فقط واسه حروف کوچک اما اگر بخواهیم واسه حروف بزرگ هم کار کنه دستور if کد قبل را به کد زیر تغییر بده!

If Val(X) >= 65 And Val(X) <= 122 Then Text2.Text = Text2.Text & Val(X) - 64

موفق باشی ƒxmahdi

butterfly8528

جمعه 27 دی 1387, 06:21 صبح

ممنون از همتون
میشه در مورد الگوریتم ، انواعش و نحوه استفادش توضیح بدید ؟ :لبخندساده:

butterfly8528

سه شنبه 01 بهمن 1387, 01:33 صبح

بچه ها پس چی شد ؟:افسرده: