+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23730)
كيف أعرض البينات بعد قراءة الباركود - Abdh111 - 07-02-18
السلام عليكم ورحمة الله وبركاته
أسأل الله العظيم رب العرش الكريم أن يمتعكم جميعا بالصحة والعافية في الدنيا والآخرة
سؤالي
أريد تصميم شاشة مبيعات تعمل بالباركود لكني لا أعرف في أي حدث يوضع الكود لاظهار تفاصيل الصنف
أظن خطأ وضعه في Text Change
الخلاصة : أريد تمرير الرقم داخل Txtbox1 عن طريق جهاز الباركود فيتم عرض تفاصيل الصنف المباع
RE: كيف أعرض البينات بعد قراءة الباركود - طالب برمجة - 07-02-18
غالبا جهاز الباركود يضع كود Enter في نهاية الرقم
وتستطيع اقتناصه بالكود التالي وكأنك ضغط على زر إنتر داخل مربع النص
PHP كود :
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
MsgBox("أحضر البيانات")
End If
End Sub
RE: كيف أعرض البينات بعد قراءة الباركود - Abdh111 - 07-02-18
(07-02-18, 06:33 PM)طالب برمجة كتب : غالبا جهاز الباركود يضع كود Enter في نهاية الرقمجزاك الله خيرا أخي الكريم / طالب برمجة
وتستطيع اقتناصه بالكود التالي وكأنك ضغط على زر إنتر داخل مربع النص
PHP كود :
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
MsgBox("أحضر البيانات")
End If
End Sub
لكن انت تري في السوبر ماركت الكاشير يمرر الصنف علي الباركود فتظهر كل بيانات الصنف بدون الضغط علي اي زرار
هذا ما أريد فعله
لكن في الكود الذي تكرمت وأرسلته لي اظن يلزم ضغط زر انتر
RE: كيف أعرض البينات بعد قراءة الباركود - طالب برمجة - 07-02-18
لا يلزم ضغط زر انتر
اقرأ مشاركتي مرة أخرى بتركيز
RE: كيف أعرض البينات بعد قراءة الباركود - Abdh111 - 07-02-18
(07-02-18, 06:45 PM)طالب برمجة كتب : لا يلزم ضغط زر انتر
اقرأ مشاركتي مرة أخرى بتركيز
جزاك الله خيرا اخي الكريم / طالب برمجة
وجاري التجربة
RE: كيف أعرض البينات بعد قراءة الباركود - حريف برمجة - 07-02-18
الباركود له عمليتين وهي كالتالي :
1- يقرأ الباركود ويضع الرقم في مكان المؤشر .
2- يضغط زر انتر تلقائي بعد قراءة الباركود .
يجب عليك وضع المؤشر في التكست الخاص برقم الباركود فقط ،، والباقي من عمل جهاز الباركود .
بمعنى آخر كأنك كتبت الرقم في التكست الخاص برقم الباركود ومن ثم ضغطت انتر .
RE: كيف أعرض البينات بعد قراءة الباركود - ahmad omar - 17-04-18
(07-02-18, 07:02 PM)حريف برمجة كتب : الباركود له عمليتين وهي كالتالي :
1- يقرأ الباركود ويضع الرقم في مكان المؤشر .
2- يضغط زر انتر تلقائي بعد قراءة الباركود .
يجب عليك وضع المؤشر في التكست الخاص برقم الباركود فقط ،، والباقي من عمل جهاز الباركود .
بمعنى آخر كأنك كتبت الرقم في التكست الخاص برقم الباركود ومن ثم ضغطت انتر .
ما هو الكود للباركود و كيف يتم اخذ البيانات من داتا وانا اريد كود لما احدد رقم الباركود يضيف تلقائي في داتا جريد فيو تفاصيل الصنف
RE: كيف أعرض البينات بعد قراءة الباركود - ملهمـ - 18-04-18
أخي الكريم
من الخطأ الذي يقع فيه الكثير هو وضع كود الباركود في حدث التكست تشينج
الحدث المفروض يتم وضعه في حدث Leave
أي عند المغادرة
لأن الباركود يقوم بالقراءة والإرسال يعني مرتين
وهذا مثال بسيط للكود لتصلك فكرتي
كود :
Dim last As Integer
If ItemBarCode.Text <> Nothing Then
Dim dt As New DataTable
Dim da As New SqlClient.SqlDataAdapter
dt.Clear()
da = New SqlClient.SqlDataAdapter("select * ,(SELECT Avg(UnitePrice) FROM ExpQtyUnite where DrugName = Items.Item_Name ) as t from Items where State='true' and Item_Bar Like '%" & ItemBarCode.Text & "%' ", SqlConn)
' da = New SqlClient.SqlDataAdapter("select * FROM Items where ItemBarcode = '" & ItemBarCode.Text & "'", SqlConn)
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim r As DataRow = dt.Rows(0)
If DataGridView1.Rows(last).Cells(0).Value = dt.Rows(0).Item("Item_Code") Then
DataGridView1.Rows(last).Cells(7).Value = CDbl(DataGridView1.Rows(last).Cells(7).Value) + 1
Else
DataGridView1.Rows.Add()
last = DataGridView1.Rows.Count - 1
DataGridView1(0, last).Value = dt.Rows(0).Item("Item_Code")
DataGridView1(1, last).Value = dt.Rows(0).Item("Item_Name")
DataGridView1(2, last).Value = dt.Rows(0).Item("Item_Bar")
DataGridView1(6, last).Value = dt.Rows(0).Item("Item_Price")
DataGridView1(7, last).Value = 1
'Calc()
' Calc()
End If
End If
ItemBarCode.Clear()
End If
'