قراءة باركود

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

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

الموضوع بأختصار في مكان الحدث اللي هتكتب فية الكود اللي هيستدعي أسم الصنف من خلال باركود الصنف

ياعني أية ؟؟؟؟؟ هقولك

لو حضرتك فتحت النوت باد مثلا وجبت أسكانر الباركود ووقفت المؤشر بتاع الماوس علي صفحة النوت باد وقريت بالاسكانر الباركود

أية اللي هيحصل

هتلاقي أسكانر الباركود كتب رقم الباركود علي النوت باد وبعد كدة نزل السطر اللي بعدة يعني أية نزل السطر اللي بعدة ياعني ضغط علي مفتاح أنتر أتوماتيك

يبقي نفهم من كدة أية أنك عشان تستخدم الباركود في برنامجك تحط كود أستدعاء الصنف في حدث الكي بريس

مثال

هتكتب الباركود للصنف في تكست بوكس واحد

يبقي هتيجي في حدث الكي بريس بتاع التيكست بوكس واحد وتكتب الكود

If KeyAscii = 13 Then

تكتب هنا كود أستدعاء الصنف جملة السيلكت

End If

ملحوظة رقم 13 هنا معناة أذا المستخدم ضغط علي مفتاح أنتر أعمل كذا والمستخدم هنا المقصود بية أسكانر الباركود

ويارب أكون قدرت أفيدك

Mohmed Helmy كتب:

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

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

الموضوع بأختصار في مكان الحدث اللي هتكتب فية الكود اللي هيستدعي أسم الصنف من خلال باركود الصنف

ياعني أية ؟؟؟؟؟ هقولك

لو حضرتك فتحت النوت باد مثلا وجبت أسكانر الباركود ووقفت المؤشر بتاع الماوس علي صفحة النوت باد وقريت بالاسكانر الباركود

أية اللي هيحصل

هتلاقي أسكانر الباركود كتب رقم الباركود علي النوت باد وبعد كدة نزل السطر اللي بعدة يعني أية نزل السطر اللي بعدة ياعني ضغط علي مفتاح أنتر أتوماتيك

يبقي نفهم من كدة أية أنك عشان تستخدم الباركود في برنامجك تحط كود أستدعاء الصنف في حدث الكي بريس

مثال

هتكتب الباركود للصنف في تكست بوكس واحد

يبقي هتيجي في حدث الكي بريس بتاع التيكست بوكس واحد وتكتب الكود

If KeyAscii = 13 Then

تكتب هنا كود أستدعاء الصنف جملة السيلكت

End If

ملحوظة رقم 13 هنا معناة أذا المستخدم ضغط علي مفتاح أنتر أعمل كذا والمستخدم هنا المقصود بية أسكانر الباركود

ويارب أكون قدرت أفيدك

اخ محمد كلامك منطقي وصح بس الجهاز اللي انا شغال عليه انا عايز لما اعمل سكان يطلع اسم الصنف

معرفش اذا وصلك معنى كلامي ولا لأ

انا عندي فايل بقرأ منه الاصناف والباركود والسعر وكده كل اللي عايزه برنامج صغير لما اعمل سكان للباركود يطلعلي اسم الصنف بتاعه

اقتباس

If KeyAscii = 13 Then

تكتب هنا كود أستدعاء الصنف جملة السيلكت

End If

كما قال لك الاخ محمد عن طريق جمله الاستعلام تقدر تحصل علي جميع البيانات :)

بالتوفيق

اشكر الاخ محمد حلمي

والاخ mgm على مشاركتهم

كلامكم صحيح ونجح مع التجربه

بس انا عايز اعمل تعديل بسيط وهو اني اول ما اعمل سكان يطلع السم الصنف على طول من غير ما ادوس enter

يعني نفس الكاشير اللي في السوبر ماركت هوا بيمرر السلعه بس على السكانر وكل البيانات بتظهر على طول من دون الحاجه انو يدوس enter او اي زرار غير كده

ممكن تساعدوني ولكم جزيل الشكر على اهتمامكم

انت اساسا مش هتدوس انتر جهاز الاسكانر بيدوس انتر بعد القراءه

اقتباس

انت اساسا مش هتدوس انتر جهاز الاسكانر بيدوس انتر بعد القراءه

بعض الاجهزة تكون هذه الخاصية فيها غير مفعلة او قد تكون TAB بدل Enter .لذا فهو بحاجة الى قراءة دليل الاستخدام الخاص بقارئ الباركود وتفعيل الانتر .

اقتباس

بعض الاجهزة تكون هذه الخاصية فيها غير مفعلة او قد تكون TAB بدل Enter .لذا فهو بحاجة الى قراءة دليل الاستخدام الخاص بقارئ الباركود وتفعيل الانتر .

لم اكن اعرف هذا وكنت سأعتمد عليه في مشروعي

إذاً ما هي الطريقة المُثلى للتعامل مع الباركود اخي طارق ؟؟

TareqVB كتب:

بعض الاجهزة تكون هذه الخاصية فيها غير مفعلة او قد تكون TAB بدل Enter .لذا فهو بحاجة الى قراءة دليل الاستخدام الخاص بقارئ الباركود وتفعيل الانتر .

في حاله خاصيه tab نفس الطريقه ولكن استبدل رقم 13 برقم 9 وهو رقمKeyAscii الخاص ب Tab

للأسف الجهاز عندي لا يقبل انه يظهر اسم الصنف الا لما ادوس انتر ونا كنت عايز انه يشتغل بمجرد اني اعمل سكان بدون الضغط على اي زر

على العموم شكرا ليكم جميعا وعلى محاولة المساعده

وصلنا لنص الطريق وباقي النص التاني

السلام عليكم...

كل أجهزة الـ Barcode Scanners التي رأيتها يوجد معها "دليل ضبط" (Configuration Guide) و الذي يحتوي على مجموعة كبيرة من الـ Barcodes التي تستخدم في ضبط خصائص و طريقة عمل الـ Scanner أو الـ Reader.

مثلاً يوجد Barcode لتمكين إرسال الرمز 13 بعد الكود (Enable CR suffix) و آخر لتعطيل هذه الميزة (Disable CR Suffix). و لتمكين هذه الميزة (إرسال قيمة المفتاح Enter بعد الكود) يكفي أن نجعل الـ Scanner أو الـ Reader يقرأ الكود الخاص بـ Enable CR Suffix.

و بالمثل توجد أكواد أخرى لجعل الـ Scanner يرسل رموزاً أخرى قبل أو بعد الكود.

نرجو الاستفادة و السلام.

الأخ ناجي

شكرا على مشاركتك ولكن ممكن توضيح

او مساعده بالكود اذا امكن؟

اذا كان طول حثل الاصنفاف موحد مثلا 10 خانات او ارقام فيمكنك الاعتماد على هذا الطول .

او استخدام الحدث Change فعند كتابة او قراءة اي حرف يتم تغيير الصنف حتى تصل للمطلوب .

المشكله يا اخ طارق ان الرقم بتاع الباركود مكون من 3 خانات

والباركود نفسه تحس انه اكبر من كده لأنه لما حددت انه يكون 3 خانات كان بيقرأ اول رقم بس

يعني لما كان الكود(101) كتب الرقم واحد بس

If Len(Trim(Text1.Text)) <> 3 Then

يااخي الموضوع بسيط وزي ماقال الاخnajy يوجد كتيب مع الجهاز

وانا صادفتني نفس المشكلة مع احد العملاء لان جهازه كان افتراضيا القارئ لايعمل انتر

وحليتها من خلال الكتيب بتمرير رمز البار كود الخاص بتفعيل الانتر (في اكتيب بتلاقي مجموعة من رموز البار كود كل واحد له ويظيفة)

ولا تنسى في رمز لاستعادة الاعدادات الافتراضية مثلا باسم (recall defult) بحيث اذا رخبط في الجهاز اعمل استعادة

لا يوجد في هذا الجهاز هذه الخاصيه

استخدم الكود التالي في الحدث Text1_Change

If Len(Trim(Text1.Text)) = 3 Then


الاستعلام


End If