+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50962)
كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - new_programer - 17-01-25
السلام عليكم جميعا اخوانى الكرام
لدى حقل باركود يحتوى على كود الصنف + رقم
مثال
100-1
100-2
200-1
200-2
200-3
محتاج طريقة زيادة واحد على الرقم بعد علامة -
بدلالة الرقم اللى على اليمين
RE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - dr.programming - 17-01-25
توضيح أكثر !!
RE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - أبو خالد الشكري - 17-01-25
أضف في النافذة Button1 وكذلك TextBox1
ثم جرب الكود التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim originalText As String = TextBox1.Text
Dim parts() As String = originalText.Split("-"c)
If parts.Length = 2 Then
Dim leftPart As String = parts(0)
Dim rightPart As Integer
If Integer.TryParse(parts(1), rightPart) Then
rightPart += 1
Dim newText As String = $"{leftPart}-{rightPart}"
TextBox1.Text = newText
End If
End If
End SubRE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - new_programer - 18-01-25
[attachment=30005]عذرا. استاذي الكود لا يعمل
محتاج فقط ذيادة الرقم بعد العلامة -
حسب الرقم الموجود فى حقل الكود كما بالصورة
1001-5
RE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - new_programer - 18-01-25
Dim numar As Double
If Double.TryParse(TextBox1.Text, numar) Then
Dim rmndr As Double
rmndr = numar Mod 1
If rmndr = 0 Then
Else
TextBox2.Text = Split(CStr(TextBox1.Text), ".")(1)
End If
End If
محتاح تعديل الكود بدل ال "."
"-"
RE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - Zuhare - 18-01-25
فين كود الاخ أبو خالد الشكري لماذا لم تستخدمه فالحل كان فيه واذا كنت بتقصد ان الناتج يظهر في TextBox2 فهذا نفس الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim originalText As String = TextBox1.Text
Dim parts() As String = originalText.Split("-"c)
If parts.Length = 2 Then
Dim leftPart As String = parts(0)
Dim rightPart As Integer
If Integer.TryParse(parts(1), rightPart) Then
rightPart += 1
Dim newText As String = String.Format("{0}-{1}",leftPart,rightPart)
'Dim newText As String = $"{leftPart}-{rightPart}"
TextBox2.Text = newText
End If
End If
End SubRE: كيف ايجاد أعلى رقم بعد علامة محددة.لحقل الباركود - new_programer - 20-01-25
شكرا جدا استاذتي
Zuhare
الكود يعمل جيدا
ازاى ممكن اجلب اعلي باركود للصنف من قاعدة البيانات