سوال در مورد textbox و آرایه

[maminb]

سلام.

اگه ممکنه کد زیر را برایم قرار دهید:
یک تکست باکس دارم که میخواهم کد اسکی هر کاراکتر آن، درون یکی از خانه های آرایه ای که تعداد عناصرش برابر تعداد کاراکتر های وارد شده است، یعنی


dim amin(len(textbox1.text)) as string
ریخته شود.

واقعا ممنون میشم اگه در این مورد هم کمکم کنید.

[maminb]

اگه ممکنه یکی زودتر جواب بده! خیلی اضطراریه!

[sari-1369]

Dim A(TextBox1.TextLength - 1) As Integer
For i = 1 To TextBox1.TextLength
A(i - 1) = Asc(Mid(TextBox1.Text, i, 1))
Next

[Computer.Programmer]

دوست عزیز با قطعه کد زیر میتونی این کارو بکنی.




Dim arr() As Char = Me.TextBox1.Text.ToCharArray()



موفق باشی

[sari-1369]

دوست عزیز با قطعه کد زیر میتونی این کارو بکنی.




Dim arr() AsChar = Me.TextBox1.Text.ToCharArray()

موفق باشی

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

[Computer.Programmer]

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


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




Dim f(Me.TextBox1.TextLength - 1) As Byte
For i = 0 To Me.TextBox1.TextLength - 1
f(i) = Asc(Me.TextBox1.Text.Chars(i))
Next



موفق باشید