[خالد كامل1]

احبتى فى الله السلام عليكم

اريد من حضراتكم طريقه الحاق جهاز باركود ببرنامج مصمم بالفيجوال vb.net وقراءة البيانات من الجهاز وماهى الكودات المطلوبه ولكم منى الف تحيه وشكر

[Taha Okla]

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

--
لا تحتاج أي كود ..
فقط وصل جهاز الباركود بالكمبيوتر وانتظر حتى يتم التعرف عليه أو عرفه اذا كانه معه تعريفات ..
--
للتأكد من أنه تم التعرف وأصبح جاهز للعمل: 
افتح أي مستند نصي مثلاً : ووجه اضعة البراكود على أي باركود واضغ على زر الادخال في الجهاز ان كان يحتوي على زر ... أو هو سيقوم بذلك ان لم يحتوي على زر الادخال.
..

[خالد كامل1]

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

[Taha Okla]

عدل الكود التالي بما يناسب عمل، فهو الشكل النموذجي لوضع الاكواد  :

كود :

   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

في حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..

[نهى علي]

أخي العزيز
جهاز الباركود لايحتاج إلى أي كود
اما بالنسبة لتحديد المؤشر فهذا الكود استخدمه

PHP كود :

كود :
Dim P As New Point(Button1.Location.X + Button1.Width / 2, Button1.Location.Y + Button1.Height / 2)
        Cursor.Position = Button1.Parent.PointToScreen(P) 


[أبو خالد الشكري]

ملاحظة أخرى ...
اجعل المتغير الخاص بالباركود من نوع Double

كود :

Dim txtBarcode As Double
       txtBarcode = TextBox1.Text