کار با اعداد در تکست باکس vb.net

[ILYA20]

با سلام و درود خدمت دوستان

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

تکست باکس بیشتر از 16 رقم اعداد رو قبول نکنه (فقط به اعداد فیلتر بشه جز اعداد چیزی قبول نکنه)

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

دستور هم اینه مثلا شما این اعداد رو در نظر بگیرید 1234567891234567 این تعداد 16 تا اعداد هست مثلا تعریف کنیم اگر در هفتمین و هشتمین نوشته مثلا شماره های 9 8 بود یک خروجی نشون بده یا 01 بود یک دستوری که تعریف میکنیم اونو نشون بده

راهنمایی لطفا :قلب:

[sehm67]

تکست باکس بیشتر از 16 رقم اعداد رو قبول نکنه (فقط به اعداد فیلتر بشه جز اعداد چیزی قبول نکنه)

از قسمت properties تکست باکس مورد نظر
Maxlength را مساوی 16 و یا هر عددی ک مد نظرتونه وارد نمایید.


تکست باکس فقط اعداد را قبول میکنه


Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
e.Handled = True
End If
End If
End Sub




دستور هم اینه مثلا شما این اعداد رو در نظر بگیرید 1234567891234567 این تعداد 16 تا اعداد هست مثلا تعریف کنیم اگر در هفتمین و هشتمین نوشته مثلا شماره های 9 8 بود یک خروجی نشون بده یا 01 بود یک دستوری که تعریف میکنیم اونو نشون بده


از دستور mid استفاده نمایید

[ILYA20]

از قسمت properties تکست باکس مورد نظر
Maxlength را مساوی 16 و یا هر عددی ک مد نظرتونه وارد نمایید.


تکست باکس فقط اعداد را قبول میکنه


Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
e.Handled = True
End If
End If
End Sub




از دستور mid استفاده نمایید

سپاسگذارم

در خصوص دستور mid برای نیاز ما میتونید کدی قرار بدید

[sehm67]

سپاسگذارم

در خصوص دستور mid برای نیاز ما میتونید کدی قرار بدید

خواهش. برای تشکر و سپاس از دکمه تشکر کردن استفاده نمایید.

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

[ILYA20]

خواهش. برای تشکر و سپاس از دکمه تشکر کردن استفاده نمایید.

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

برای درک بهتر نیاز به دستور دارم متاسفانه جستجو های بنده نتیجه ای نداشت به همین خاطرمطرح کردم

[sehm67]

برای درک بهتر نیاز به دستور دارم متاسفانه جستجو های بنده نتیجه ای نداشت به همین خاطرمطرح کردم


Dim i as integer
i = 123456
Msgbox(Mid(i,1,2))

[sehm67]

برای درک بهتر نیاز به دستور دارم متاسفانه جستجو های بنده نتیجه ای نداشت به همین خاطرمطرح کردم


Dim i as integer
i = 123456
Msgbox(Mid(i,1,2))

مفهوم عدد 1 اینه که از اولین کاراکتر شروع میکنه به خوندن و تا 2 کاراکتر به جلو میره و عدد مورد نظر رو بهتون برمیگردونه
اگه متوجه نشدید بگید تا بیشتر توضیح بدم
موفق باشید

[ILYA20]

Dim i as integer
i = 123456
Msgbox(Mid(i,1,2))

مفهوم عدد 1 اینه که از اولین کاراکتر شروع میکنه به خوندن و تا 2 کاراکتر به جلو میره و عدد مورد نظر رو بهتون برمیگردونه
اگه متوجه نشدید بگید تا بیشتر توضیح بدم
موفق باشید

منظور من دستور شرطی بود که اگر اعداد هفتمی به عنوان مثال 1 بود و هشتمی 0 یک خروجی نشون بده در غیر ایصورت اگر هفتی 2 بود و هشتمی 5 یک خروجی دیگه

[sehm67]

منظور من دستور شرطی بود که اگر اعداد هفتمی به عنوان مثال 1 بود و هشتمی 0 یک خروجی نشون بده در غیر ایصورت اگر هفتی 2 بود و هشتمی 5 یک خروجی دیگه

میتونید همین کد رو بصورت شرطی بنویسید
تو بگید که اگه عدد هفتم مساوی 1 بود و هشتم صفر بود بهتون پیغام بده
میتونید از چند Mid استفاده کنید
اگه Mid مساوی 1 بود خروجی بده صفر
اگه Mid دوم مساوی 2 بود خروجی بده 1
کمی تلاش کنید به نتیجه میرسید

[ILYA20]

میتونید همین کد رو بصورت شرطی بنویسید
تو بگید که اگه عدد هفتم مساوی 1 بود و هشتم صفر بود بهتون پیغام بده
میتونید از چند Mid استفاده کنید
اگه Mid مساوی 1 بود خروجی بده صفر
اگه Mid دوم مساوی 2 بود خروجی بده 1
کمی تلاش کنید به نتیجه میرسید

درود دوباره


دستوری که استفاده کردیم


Dim num As Long
num = textbox1.Text
Dim out As String
out = Mid(num, 7, 8)
If out = "05" Or out = "50" Then
OtLog.AppendText(Environment.NewLine & "zero an five"))
ElseIf out = "08" Or out = "80" Then
OtLog.AppendText(Environment.NewLine & "zero and eight")
end if



مثلا اگر در تکست باکس اعداد 123456011234567 رو وارد کنیم خروجیمون "011234567" هست در حالی که ما نیاز داریم فقط خروجیمون هفتمین و هشتمین اعداد وارد شده باشه یعنی "01"

[ILYA20]

متاسفانه کلا درست کار نمیکنه من درست تست نکرده بودم این دستور مثلا بعد از هفتمین عدد هر چی هست نشون میده تا اخر در صورتی که ما نیاز داریم فقط هفت و هشت رو نشون بده

[ILYA20]

دوستان عزیز نظری ندارند ؟

[ILYA20]

مشکل حل شد با دستور زیر :



Dim out = textbox1.Text.Substring(6, 2)
MessageBox.Show(out)


:چشمک: