درخواست ماژول تبدیل حرف به عدد

[m2326499]

سلام و احترام

طبق نمونه زیر ، من دوتا تکست باکس دارم . اولی بافرمت Memo و دومی بافرمت Number
یه تابع یا ماژول میخام که از قبل برای این حروف ، عدد تعریف کرده باشیم مثلا (A=1 , B=2 , C=3 , D=4)
میخام به محض تایپ این حروف در تکست باکس اولی ، مجموع اعداد آنها را در تکست باکس دومی ، درج کنه

با سپاس فراوان از لطف همگی

[ehsanshahi]

در قسمت جستجو سرچ کن ...

[m2326499]

در قسمت جستجو سرچ کن ...
----------------------
اولا باید بهت خسته نباشید بگم
دوما بجای اسپم خیلی خوشکل و نازنینت که مطمنا خیلی هم بهش افتخار میکنی ، حداقل یه لینک میزاشتی

تشکر دوست عزیز ..............

[شاگرد آرام]

دوست عزیز به کد زیر مربوط به رویداد change کنترل description است این کد رو به فرمتون اضافه کنید هنگام تغییر تکست عدد هم تغییر میکنه می تونید تو رویداد های دیگه فرمتون هم بزارید بسته به استفاده شما .
دقت کنید اگه به محض تغییر متن می خواهید عدد تغییر کنه باید از پروپرتی text استفاده کنید همونطور که من استفاده کردم ولی اگه می خواهید زمانی تغییر کنه که تکست ثبت میشه پروپرتی تکست رو برداید

Private Sub Description_Change()
Dim m As Integer
m = 0
For t = 1 To Len(Description.Text)
Select Case Mid(Description.Text, t, 1)
Case "A":
m = m + 1
Case "B":
m = m + 2
Case "C":
m = m + 3
Case "D":
m = m + 4

End Select

Next
Number = m
End Sub

[m2326499]

سلام دوست عزیز (شاگرد آرام (http://barnamenevis.org/member.php?12223-%D8%B4%D8%A7%DA%AF%D8%B1%D8%AF-%D8%A2%D8%B1%D8%A7%D9%85))
با آرزوی قبولی طاعات شما

کاملا درست و عالی بود و بسیار خوب هم جواب داد :قلب::تشویق:
فقط میخاستم بدونم ایا راهی هست همین کدها رو بجای اینکه توی Form بنویسم ،بصورت ماژول دربیارم ؟
حتی اگه لازم باشه بجای رویداد on change بتونم از on click استفاده کنم
چون این تازه ابتدای کاره و هنوز خیلی دیگه مونده این پروژه رو تموم کنم

سپاسگذارم از لطفتون

[شاگرد آرام]

سلام به امکانش هست شما مقدار تکست رو به یک تابع ارسال کنید و خروجی رو ازتابع بگیرید و تابع رو در یک ماژول ذخیره کنید

public function tabdil(txt as string)as integer
Dim m As Integer
m = 0
For t = 1 To Len(txt)
Select Case Mid(txt, t, 1)
Case "A":
m = m + 1
Case "B":
m = m + 2
Case "C":
m = m + 3
Case "D":
m = m + 4

End Select

Next
tabdil= m
End function

[شاگرد آرام]

اینم نمونه پروژه

[m2326499]

باتشکر از دوستانی که تا الان کمک کردن ....
من حروف رو از انگلیسی به فارسی برگردوندم
فقط مشکل در حرف ی میباشد که عدد آن را تبدیل نمیکند

فکر کنم چون در محیط vba ، حرف ی بصورت ي نوشته میشود ، این مشکل پیش آمده

ممنون میشم اگه کسی راهی بلده ، همکاری کنه