[فاضل الحمود]

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

[abulayth]

السلام عليكم

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

يعطيك العافية

[فاضل الحمود]

اخي abulayth أشكرك جزيل الشكر لسرعة الرد ولكنني أريد أن اتعلم المزيد فهل هناك أداة يجب إضافتها للبرنامج وكيف ؟

وإذا عندك رابط كتاب أو شرح تفصيلي ياليت تزودنا به إذا سمحتم . لأني بحثت عن الطريق النت حتى تعبت لم أجد أي كتاب أو شرح إلا

للفيجوال بيسك دوت نت وشكرا

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

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

كما قال أخي أبو ليبث، جهاز قارئ الباركود (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

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

[فاضل الحمود]

اخي الكريم ناجي ابراهيم جزاك الله ألف خير لقد استفدت سابقا من نصائحك في بعض برامجي .

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

والثاني للباركود وشكرا .