25-07-22, 06:39 PM
احبتى فى الله السلام عليكم
اريد من حضراتكم طريقه الحاق جهاز باركود ببرنامج مصمم بالفيجوال vb.net وقراءة البيانات من الجهاز وماهى الكودات المطلوبه ولكم منى الف تحيه وشكر
25-07-22, 06:39 PM
25-07-22, 07:13 PM
وعليكم السلام ورحمة الله وبركاته
--
لا تحتاج أي كود ..
فقط وصل جهاز الباركود بالكمبيوتر وانتظر حتى يتم التعرف عليه أو عرفه اذا كانه معه تعريفات ..
--
للتأكد من أنه تم التعرف وأصبح جاهز للعمل:
افتح أي مستند نصي مثلاً : ووجه اضعة البراكود على أي باركود واضغ على زر الادخال في الجهاز ان كان يحتوي على زر ... أو هو سيقوم بذلك ان لم يحتوي على زر الادخال.
..
--
لا تحتاج أي كود ..
فقط وصل جهاز الباركود بالكمبيوتر وانتظر حتى يتم التعرف عليه أو عرفه اذا كانه معه تعريفات ..
--
للتأكد من أنه تم التعرف وأصبح جاهز للعمل:
افتح أي مستند نصي مثلاً : ووجه اضعة البراكود على أي باركود واضغ على زر الادخال في الجهاز ان كان يحتوي على زر ... أو هو سيقوم بذلك ان لم يحتوي على زر الادخال.
..
25-07-22, 08:10 PM
اخى افادك الله وشكرا علىسرعه الاستجابه ولكن كيف احدد التكستبوكس المفروض فيه التقاط البار كود
مثلا فى فاتوره مبيعات او فاتوره مشتريات
مثلا فى فاتوره مبيعات او فاتوره مشتريات
26-07-22, 12:09 AM
عدل الكود التالي بما يناسب عمل، فهو الشكل النموذجي لوضع الاكواد :
في حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Select() ' هذا الكود لتجعل هذا النص افتراضياً بجرد اظهار النافذة
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If TextBox1.TextLength < 3 Then Exit Sub ' إذا كان طول النص المدخل أقل من رقم محدد لا يعمل كود البحث
' ثم تكتب هنا كود البحث
' ثم كود ادخال البيانات على مربعات الاظهار عندك أو الجداول
End Subفي حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..
28-07-22, 04:23 AM
أخي العزيز
جهاز الباركود لايحتاج إلى أي كود
اما بالنسبة لتحديد المؤشر فهذا الكود استخدمه
جهاز الباركود لايحتاج إلى أي كود
اما بالنسبة لتحديد المؤشر فهذا الكود استخدمه
PHP كود :
كود :
Dim P As New Point(Button1.Location.X + Button1.Width / 2, Button1.Location.Y + Button1.Height / 2)
Cursor.Position = Button1.Parent.PointToScreen(P)
28-07-22, 12:05 PM
ملاحظة أخرى ...
اجعل المتغير الخاص بالباركود من نوع Double
كود :
Dim txtBarcode As Double
txtBarcode = TextBox1.Text