+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] التعديل على الكود - رقم التسلسلي (/showthread.php?tid=22028)
التعديل على الكود - رقم التسلسلي - dubai.eig - 07-10-17
السلام عليكم ورحمة الله
اعزائي عندي كود الرقم التسلسلي شغال تمام
مع كل ضغطه يتغير الرقم من 001 و 002 وهكذا
ههذا الكود
كود :
TextBox1.Text = Format(TextBox1.Text + 1, "000" )عندي مشكله في حالت اضافت اي حرف امام الرقم مثلا
005TRC
يعطيني مسج
Conversion from string "010TRC" to type 'Double' is not valid.
لان مرات اريده يكون رقم عادي بدون حروف
ومرات اريد احط امام الرقم ثلاث حروف TRC
في نفس الوقت في حالت اني كتبت الحروف TRC اريد البرنامج يتعرف هل امام الارقام حروف او بدون حروف
كود :
if TextBox1.Text = "000TRC" Then
MsgBox("OK")
Else
MsgBox("NO")
End Ifاتمنى وصلت الفكرة وشكرا على على المساعدة
RE: التعديل على الكود - رقم التسلسلي - أحمد النجار - 07-10-17
للتاكد من اذا كانت القيمة رقمية كلها ام لا يمكن استخدام الدالة ()IsNumeric
فيصبح الكود كالتالي
if IsNumeric(TextBox1.Text) Then
MsgBox("OK")
Else
MsgBox("NO")
End If
RE: التعديل على الكود - رقم التسلسلي - a.ahmed - 07-10-17
PHP كود :
Mid$(TextBox1.Text, 1, 3) = Val(Mid$(TextBox1.Text, 1, 3) + 1).ToString("000")
RE: التعديل على الكود - رقم التسلسلي - dubai.eig - 08-10-17
(07-10-17, 09:31 PM)أحمد النجار كتب : للتاكد من اذا كانت القيمة رقمية كلها ام لا يمكن استخدام الدالة ()IsNumeric
فيصبح الكود كالتالي
if IsNumeric(TextBox1.Text) Then
MsgBox("OK")
Else
MsgBox("NO")
End If
شكرا لك نعم هو المطلوب بارك الله فيك
(07-10-17, 09:33 PM)a.ahmed كتب :PHP كود :
Mid$(TextBox1.Text, 1, 3) = Val(Mid$(TextBox1.Text, 1, 3) + 1).ToString("000")
فعلا الكود يعمل بشكل جيد
شكرا لك احسنت
RE: التعديل على الكود - رقم التسلسلي - dubai.eig - 08-10-17
تم ضبط الامر شكرا