مشاهدة النسخة كاملة : barcode reader
khaledzoro
03-01-2006, 06:41 PM
ممكن حد يساعدني باي معلومة عن الباكود
واي skins لتغير شكل الفورم
حيث سوف استخدمة في مشروع ان شاء الله
بالله عليكم لا تبخلو عليا باي معلومة
ممكن اي حد يكلمني عن هذا الموضع علي الميل zozo_dodY@hotmail.com
ولكم جزيل الشكر
LaSer_26
03-01-2006, 08:47 PM
بالنسبه لل skin لقد وضعت موضوعين بخصوص هذا الشان وهذه الروابط
http://www.bramjnet.com/vb3/showthread.php?t=48642&highlight=skin
http://www.bramjnet.com/vb3/showthread.php?t=42789&highlight=skin
hooknet
03-13-2006, 10:34 AM
مشكورين يا شباب علي الموضوع
savage
03-13-2006, 04:48 PM
اخي الكريم هناك انواع من اجهزة البار كود فإ>ا اردت ان تقرء من جهاز فهو اما PS2
و يعمل عمل الكيبور
و لكي تقرء منه
في برنامجك
امتب هذا الكود
Dim BarCodeTxt As String
طبعا يجب ان يحتوي برنامجك على TextBox
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then ' اخر حرف مرسل من قارئ البار كود
BarCodeTxt = Text1.Text ' يعني ان الارسال انتهى و نستطيع تحميل القيمة المقروءة في متغير
End If
End Sub
اما في حالة كون القارء سيريال
Dim BarCodeTxt as String
Dim TByte as Byte
Open "Com4" for Binary access read as #1 'طبعا اذا كان القارئ لديك موصول على هذا المدخل او قم بتغيره الى رقم المدخ الموصول عليه القارئ
do until Chr$(TByte)=Chr$(13)
get #1,,,TByte
BarCodeTxt=BarCodeTxt+chr$(Tbyte)
Repeat
Close #1
ملاحظة قد لا تعمل هذه الدالة مع كل انواع الاجهزة
و لكنها مجربة على اجهزة 3m , panasonic B readers
اما في حالة اردت الكتابة بنظام البار كود فيجب عليك الحصول على برنامج تشفير خاص و خطوط بار كود و و طابعة
ارجو ان اكون قد وضحت الصورة لديك
