سؤال فى برمجة جهاز الباركود - نسخة قابلة للطباعة

سؤال فى برمجة جهاز الباركود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=47657)

سؤال فى برمجة جهاز الباركود - خالد كامل1 - 19-12-23

السلام عليكم ورحمة الله وبركاته

اخوانى الاحبه اتمنى من الله ان كتونوا جميعا بصحه جيده

عندى تكست بوكس استعمله فى قراءه جهاز قراءة الباركود يقرأ ممتاز ولكن عند اضافه كود فى حدث التكست شانج يقرأ رقم واحد

اين المشكله هل فى برمجه الكود او مشكله فنيه

RE: سؤال فى برمجة جهاز الباركود - Taha Okla - 19-12-23

وعليكم السلام ورحمة الله وبركاته

أرفق الأكواد المستخدمة حتى يتم تحليل الكود ومعرفة أين المشكلة..

RE: سؤال فى برمجة جهاز الباركود - خالد كامل1 - 20-12-23

(19-12-23, 10:51 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

أرفق الأكواد المستخدمة حتى يتم تحليل الكود ومعرفة أين المشكلة..

كود :

       Dim dt_products2 As New DataTable

        Dim da As New OleDbDataAdapter

        dt_products2.Clear()

        da = New OleDbDataAdapter("select pro_code from products where pro_code = '" & pro_code.Text & "' ", con)

        'da.Fill(dt_products2)

        'If con.State = 1 Then con.Close()

        'con.Open()

        If pro_code.Text = "" Then

            Exit Sub

        End If

        If da.Fill(dt_products2) = 0 Then

            'For i = 0 To dt_products.Rows.Count - 1

            MsgBox("لا يوجد هذا الصنف")

        Else

            'If i <> pro_code.Text Then

            Dim cmd As New OleDbCommand

            With cmd

                .Connection = con

                If con.State = 1 Then con.Close()

                con.Open()

                .CommandType = CommandType.Text

                .CommandText = "select pro_code,pro_name,pro_sheraa from products where pro_code= @pro_code"

                .Parameters.AddWithValue("@pro_code", OleDbType.VarChar).Value = pro_code.Text

                Dim dr As OleDbDataReader = cmd.ExecuteReader

                'If con.State = 1 Then con.Close()

                'con.Open)

                'While dr.Read

                dr.Read()

                pro_name.Text = dr.Item(1)

                pro_price.Text = dr.Item(2)

                dr.Close()

                'End While

            End With

            'pro_code.Text = ""

        End If

        'con.Close()

        'pro_code.Text = ""

        con.Close()

RE: سؤال فى برمجة جهاز الباركود - Taha Okla - 20-12-23

الكود المرفق لا يوجد به مشكلة برمجية ،،
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox
اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
..... ......
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub

If pro_code.Text.Trim() = "" Then Exit Sub

''''  تضيف بعدها كود القراءة والتحقق

أو في حدث KeyDown أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub

If pro_code.Text.Trim() = "" Then Exit Sub

''''  تضيف بعدها كود القراءة والتحقق

RE: سؤال فى برمجة جهاز الباركود - خالد كامل1 - 20-12-23

(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،،
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox
اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
..... ......
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub If pro_code.Text.Trim() = "" Then Exit Sub '''' تضيف بعدها كود القراءة والتحقق

أو في حدث KeyDown أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub If pro_code.Text.Trim() = "" Then Exit Sub '''' تضيف بعدها كود القراءة والتحقق

افادك واكرمك الله اخى الكريم

(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،،
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox
اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
..... ......
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub If pro_code.Text.Trim() = "" Then Exit Sub '''' تضيف بعدها كود القراءة والتحقق

أو في حدث KeyDown أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :

كود :

If (e.KeyCode <> Keys.Enter) Then Exit Sub If pro_code.Text.Trim() = "" Then Exit Sub '''' تضيف بعدها كود القراءة والتحقق

اخى الكريم هل يمكنك الاطلاع على تلك
http://vb4arb.com/vb/thread-47629.html

RE: سؤال فى برمجة جهاز الباركود - new_programer - 23-12-23

السلام عليكم

ممكن نتشارك فى موضوع واحد
لحل مشاكل تصميم وطباعة الباركود
ويكون مرجع لاستخدامة

انا عندى موضوع. تم طرحة

وكذلك عندى برنتر باركود للتجرىة

RE: سؤال فى برمجة جهاز الباركود - HALIM ELEULMA - 05-01-24

لكود الذي قدمته يحاول استعراض بيانات من جدول products باستخدام رمز المنتج كمعرّف. يبدو أن هناك استعلامين SQL مختلفين مستخدمين للبحث عن نفس المعلومات.

لكن، المشكلة الرئيسية هنا تكمن في الاستخدام المتضارب لـ OleDbDataAdapter و OleDbCommand في هذا السياق. يجب التأكد من استخدام الأدوات المناسبة لتنفيذ استعلامات SQL واسترداد البيانات من قاعدة البيانات.

المشكلة الأخرى قد تكون في استخدام Exit Sub في حالة عدم وجود رمز المنتج. قد يكون هذا هو السبب الذي يجعل البرنامج يخرج دون الانتهاء من العملية.