ابجد

[.:KeihanCPU:.]

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

[mehdad.koulab]

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

[.:KeihanCPU:.]

بیشتر توضیح بده

[مهران رسا]

ببین منظورت اینه !!



TXT.Text = 0
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)

Select Case a

Case "Ç": TXT.Text = Val(TXT.Text) + 1
Case "È": TXT.Text = Val(TXT.Text) + 2
Case "Ì": TXT.Text = Val(TXT.Text) + 3
Case "Ï": TXT.Text = Val(TXT.Text) + 4
Case "å": TXT.Text = Val(TXT.Text) + 5
Case "æ": TXT.Text = Val(TXT.Text) + 6
Case "Ò": TXT.Text = Val(TXT.Text) + 7
Case "Í": TXT.Text = Val(TXT.Text) + 8
Case "Ø": TXT.Text = Val(TXT.Text) + 9
Case "í": TXT.Text = Val(TXT.Text) + 10
Case "˜": TXT.Text = Val(TXT.Text) + 20
Case "á": TXT.Text = Val(TXT.Text) + 30
Case "ã": TXT.Text = Val(TXT.Text) + 40
Case "ä": TXT.Text = Val(TXT.Text) + 50
Case "Ó": TXT.Text = Val(TXT.Text) + 60
Case "Ú": TXT.Text = Val(TXT.Text) + 70
Case "Ý": TXT.Text = Val(TXT.Text) + 80
Case "Õ": TXT.Text = Val(TXT.Text) + 90
Case "Þ": TXT.Text = Val(TXT.Text) + 100
Case "Ñ": TXT.Text = Val(TXT.Text) + 200
Case "Ô": TXT.Text = Val(TXT.Text) + 300
Case "Ê": TXT.Text = Val(TXT.Text) + 400
Case "Ë": TXT.Text = Val(TXT.Text) + 500
Case "Î": TXT.Text = Val(TXT.Text) + 600
Case "Ð": TXT.Text = Val(TXT.Text) + 700
Case "Ö": TXT.Text = Val(TXT.Text) + 800
Case "Ù": TXT.Text = Val(TXT.Text) + 900
Case "Û": TXT.Text = Val(TXT.Text) + 1000

End Select

Next i



دستورات بالا رو می تونی در رویداد Change کنترل Text1 بنویسی ...