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

[sinavb]

سلام دوستان من می خوام توی لیبیل تعداد کاراکترهای درون یک تکس باکس رو نشون بدم و هر 60 تا کاراکتر رو یه واحد بدونه
مثلا :

60(1)
61(2)
.
.
.
120 (2)
125(3)

[mohammadian7]

سلام
این کد به c# است فکر میکنم باید از len برای بدست آوردن تعداد کاراکتر در vb استفاده کنی

txtNumChar.Text = txtMessage.TextLength.ToString();
int a;
a = Convert.ToInt32(txtNumChar.Text);
a /= 60;
txtNumSms.Text = a.ToString();
int b;
b = a;
b += 1;
b *= 60;
txtMax.Text = b.ToString();

[knight-rak]

درست متوجه نشدم چی میخوای
اما اگر میخوای تعداد کاراکتر ها رو بدست بیاری از تابع len() برای اینکار استفاده میشه

و برای جدا کردن هر کدوم از کاراکتر ها درون یه تکستباکس و قرار دادنش توی یه آرایه یا هر چیز دیگه از تابع mid() استفاده میشه

موفق باشید ....

[Slytherin]

همان طوری که دوستان گفتند با Len تعداد کاراکتر ها را به دست بیاوید و سپس آن را تقسیم بر 60 تقسیم صحیح (بدون باقی مانده) کنید و جواب را به علاوه 1 کنید.

[knight-rak]

میشه قسمت دوم رو یکم بشکافین و بیشتر توضیح بدید » شما میخواین که هر 60 تا رو سیستم 1 بدونه ؟ میتونم بپرسم واسه چه کاری میخواید ؟

موفق باشید ....

[farzinf]

سلام دوست عزیز از تابع Len استفاده کنید تعداد کاراکتر ها را بر می گرداند و بعد یک بار تعداد را تقسیم صحیح کنید بر 60 که تعداد واحد ها را بدهد (هر 60 کارکتر یک واحد ) و اگر می خواهید تعداد کارکتر هایی که باقی مانده و به 60 نرسیده که یک واحد شوند را بدست آورد Mod (باقی مانده ) بگیرید

[M.T.P]

Function ChrUnit() As Long
ChrUnit = Len(Text1.Text) \ 60
If Not Len(Text1.Text) Mod 60 = 0 Then
ChrUnit = ChrUnit + 1
End If
End Function

در ضمن اگه واسه ارسال اس ام اس فارسی میخواین فکر کنم هر پیامک فارسی 70 کاراکتر باشه.

[sinavb]

ممنون دوست عزیز درست می فرمایید فارسی هر 70 تاست اصلا حواسم نبود برای سیستم ارسال اس ام اس می خوام
می خوام بر اساس متنی که مشتری می خواد براش تبلیغات بشه محاسبه کنه چند تا اس ام اس میشه و پولش رو حساب کنه

[sinavb]

فقط دوست عزیز این کد بالا رو یذره توضیح میدی که چکارا باید باهاش بکنم مجا قرارش بدم

[javadt]

تابع بالا برات محاسبه می کنه و برات تعداد رو بر می گردونه
فقط اگر برای اس ام اس می خوای 60 رو به 70 تغییر بده و Text1 هم همون تکستی هست که متن اس ام اس رو توش می نویسند
Private Sub Command1_Click()
MsgBox ChrUnit
End Sub

[returnx]

من یک تابع نوشتم کار تابع Len رو انجام میده گفتم شاید شما هم بخواهید بدونید تابع Len چطور کارکتر ها رو میشمره ، برای همین براتون گذاشتم:

Function mylen(stri As String) As Integer
stri = stri & "$"
Dim txt_end As Boolean
Dim counter As Integer
Dim token As String * 1
counter = 1
While txt_end <> True
token = Mid(stri, counter, 1)
If token = "$" Then
txt_end = True
Else
counter = counter + 1
End If
Wend
mylen = counter - 1
End Function

[sinavb]

Function ChrUnit() As Long
ChrUnit = Len(Text1.Text) \ 60
If Not Len(Text1.Text) Mod 60 = 0 Then
ChrUnit = ChrUnit + 1
End If
End Function

در ضمن اگه واسه ارسال اس ام اس فارسی میخواین فکر کنم هر پیامک فارسی 70 کاراکتر باشه.
دوست عزیز کدتون اشتباه وقتی من روی کامند کلیک می کنم فقط عدد 1 رو نشون می ده

[_behnam_]

نه من تست کردم کد آقای M.T.Pدرسته

[sinavb]

والا من کد ایشون رو توی General کپی کردم بعدم توی msg box فراخوانیش کردم فقط عدد 1 رو نشون می ده

[M.T.P]

دوست من درسته.
این نمونه دقیقا مشابه کاراکتر شمار نوکیا هست.
در قالب پروژه:

[sinavb]

ممنون دوست عزیز