+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] الرقم التسلسلي (/showthread.php?tid=21348)
الرقم التسلسلي - محمد مسافر - 11-08-17
السلام عليكم
جمعتكم مباركه ، عندي تاكس بوكس وبوتون
التاكس بوكس مرتبط بالبوتون عند كتابه الارقام في التاكس بوكس يظهر لي عدد الارقام كم عددها في البوتون مثلاً
تم كتابه 123456789 في التاكس بوكس ، اريد يظهر لي عدد الارقام 9 في البوتون وهكذاء
كمااتمنى في بدايه التاكس بوكس يكون الرقم 89967 كرقم ثابت
RE: الرقم التسلسلي - سعود الشامان - 11-08-17
وعليكم السلام ورحمة الله وبركاته
الكود بسيط هو
كود :
Button1.Text = TextBox1.Text.Lengthلتصبح أكواد مشروعك بهذا الشكل
كود :
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Button1.Text = TextBox1.Text.Length
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = TextBox1.Text.Length
End Sub
End Classأنصحك أن تستبدل TextBox بــ MaskedTextBox
وخصوصاً أنني أرى انك وضعت هذا الخيار لإدخال رقم المحمول أو رقم الجوال أو رقم الخلوي ( بإختلاف اللهجات )
هذا شرح كافي ووافي لاداة ماسكيد تيكست بوكس , مدة المقطع ربع ساعه
من المهندس : أحمد الزيني جزاه الله عنا خير جزاء
https://www.youtube.com/watch?v=9pBlYH0AJFo
RE: الرقم التسلسلي - محمد مسافر - 11-08-17
شكرا بس باقي حاجه
اذا ممكن اريد التاكس بوكس لايقبل كتابه الارقام اكثر من 19 رقم ليكون مصمصاً من رقم 1-19 فقط ويحسب لي العدد في اطار هذه الارقام فقط
كذلك نسخ الارقام من ملفات اخرى الى التاكس بوكس الخاص بالفورم
RE: الرقم التسلسلي - سعود الشامان - 11-08-17
اضغط على التيكست بوكس وعدل خاصية MaxLength
اجعل قيمتها عدد الحروف او الارقام اللذي تريده
اجعل قيمتها عدد الحروف او الارقام اللذي تريده
شوف الصوره
إقتباس :كذلك نسخ الارقام من ملفات اخرى الى التاكس بوكس الخاص بالفورم
سوالك الثاني ما قهمته ممكن توضحه اكثر
RE: الرقم التسلسلي - محمد مسافر - 13-08-17
السلام عليكم
هل بالامكان عند زياده العدد اكثر من عدد 19 رقم وايضاً في حال عدد اقل من عدد الارقام 19 يظهر لنا اشاره اكس خطاء معناه الكود غير صحيح
وبالعكس عندما يكون عدد الارقام عدد 19 رقم يظهر لنا اشاره صح
لاان فكره البرنامج الاصل ان عدد الارقام تكون 19 رقم فقط وكنوع من التسهيل اريد علامه ظاهره تسهل العمل وشكراً.
هذي هي الفكره الاخيره للبرنامج وشكراً لتعاونكم جميعاً .
RE: الرقم التسلسلي - sendbad100 - 13-08-17
السلام عليكم
PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Button1.Text = TextBox1.Text.Length
If TextBox1.Text.Length = 19 Then
Me.PictureBox2.Visible = True
Me.PictureBox3.Visible = False
Else
Me.PictureBox2.Visible = False
Me.PictureBox3.Visible = True
End If
End Sub
RE: الرقم التسلسلي - silverlight - 13-08-17
حتي لا يحدث أخطاء في التنفيذ يجب أن تضع الأتي في اعتبارك
أن المدخلات عبارة عن Integer
لكن ربما المخرجات قد تكون أحيانا عبارة عن Long
خاصة أنك تضيف رقم ثابت الي الرقم الذي يقوم المستخدم بكتابته
الأفضل لك أن تترك المستخدم يقوم بإدخال الأرقام كما يحلو له بشرط أن لا يتعدي طول String الخاص بهذه الأرقام عن 19 حرف كما تريد أنت ثم تاخذ الرقم الذي تم كتابته في التكست بوكس مهما كان طوله
و تأخذ منه عدد معين من الأرقام و تضيف علي يسارها الرقم الخاص بك
وفي النهاية تخرج برقم مسلسل للشريحة
ايضا ملاحظة أخيرة الباتون الذي يظهر عليه طول حروف الأرقام غير مفيد بالمرة و يمكنك استبداله بأي شئ اخر و ليكن Label1 مثلا
RE: الرقم التسلسلي - silverlight - 13-08-17
هذا حل أخر مختلف قليلا
افتح مشروع جديد و اضف الي الفورم الأتي
- باتون
- تكست بوكس
- ليبل
- ليبل
ثم اكتب الكود بالشكل التالي
أعتقد انك تستطيع تغيير الصورة ايضا بناء علي هذا الكود
الكود مكتوب بحيث يتجنب الاخطاء
PHP كود :
Public Class Form1
Private Function TryProvideSimCardNumber(ByRef source As String, func As Func(Of String, String)) As Boolean
While func IsNot Nothing
Dim src As String = System.Threading.Volatile.Read(source)
Dim dest As String = func(src)
If src = dest Then
Exit While
End If
If src = Threading.Interlocked.CompareExchange(source, dest, src) Then
Return True
End If
End While
Return False
End Function
Private Function TryProvideSimCardNumber(func As Func(Of String, String)) As String
Dim source As String = Nothing
Return TryProvideSimCardNumber(source, func)
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim func As Func(Of String, String) = Function(s)
Dim result As String = "89967"
result += s
Return result
End Function
If Me.TryProvideSimCardNumber(func) Then
Dim s As String = TextBox1.Text
Me.Label2.Text = func(s)
Label1.Text = func(s).Length
End If
End Sub
End Class