[ناجي إبراهيم]

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

كما قال أخي أبو ليبث، جهاز قارئ الباركود (Barcode Reader) هو محاكي للوحة المفاتيح، أي أنه يقرأ الشفرة الشريطية (Barcode) و يحولها إلى ما يقابلها من رموز (غالباً أرقام) ثم يرسلها إلى البرنامج على هيئة ضربات مفاتيح و كأنك أدخلتها يدوياً من لوحة المفاتيح، و أغلب قارئات الباركود بعد إرسال الباركود ترسل رمز المفتاح Enter (أي آسكي 13) و كأنك ضغطت المفتاح Enter من لوحة المفاتيح.

تشغيل قارئ الباركود لا يحتاج إلى أية برامج و لا عملية تنصيب: فقط أوصل القارئ بالحاسوب (غالباً عبر وصلة USB) و سيتعرف عليه النظام و يكون جاهزاً للعمل مباشرة.

بما أن إرسال قارئ الباركود للبيانات هو محاكاة لإرسال تلك الرموز من لوحة المفاتيح فإن تلك الرموز ترسل إلى النافذة النشطة، مثلاً إذا كان برنامج المفكرة أو برنامج Word هو النشط فستظهر أرقام الباركود فيه.

في برنامجك يمكنك استعمال الحدث KeyPress لمربع النص الخاص بالباركود لاقتناص رمز المفتاح Enter الذي يرسله قارئ الباركود لإجراء عملية البحث عن السجل الذي يحمل ذلك الرقم. مثلاً:

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim SqlStr As String

    If KeyAscii = 13 Then
        SqlStr = "SELECT * FROM table_name WHERE (barcode_field = '" & Text1.Text & "')"
        ' ...
        ' ...
        ' ...
    End If
End Sub

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