alwa7eed قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل عندي سؤال واتمنى معرفته عن البار كود كيف يتم تركيبه وتعريفة والاستفادة منه علما انني لم امارس هذه الخاصية نهائيا لو سمحتو هل يتكرم احد ان يشرح لي كيف ابدأ وكيف ابدأ وشكرا جزيلاً 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 نقلا من موضوع للاخ طارق حنيدق فى الفريق العربي الموضوع من هنا هى وسيلة بسيطة لتعريف الارقام يسهل معها استعادة الرقم بجهاز قارئ للباركود ومنذ اختراعه له استخدامات عديدة المخازن الكارنيهات والبطاقات وايضا فى السوبرماركت حيث انه يوفر الوقت باستخدام جهاز القارئ ومنه يعطى اسم الصنف وسعرة واى بيانات اخرى وما على المستخدم الكاشير الا ان يدخل الكمية فقط وبالتالى يكون استخدام الموضوع له اهمية واهميته فى الاكسس اننا كمبرمجين اكسس لانحب ان نلجأ الى حلول برمجية من خارج الاكسس لحبنا الاكسس هذا اولا ثم اعتقاد منى والله اعلم اننا لسنا فى حاجة الى حلول من خارج الاكسس والا نبحث عن لغة برمجة اخرى وان كنت من واقع خبرتى لايوجد مايضاهى الاكسس من حيث سهولة الاستخدام وواقعية التنفيذ وخاصة مع دخول ADO و SQL2000 ( مع احترامى الشديد لمبرمجى اوراكل ودلفى ) و المثال المرفق لطارق و استخدم فيه اداه وضعها ابو هاجر و لكي يعمل المثال لابد أولا من تسجيل الocx المرفق و ذلك من قائمة Tools ActivexControls register و تختار الملف و أترك التعقيب للأخ طارق نفسه و رابط الموضوع لااصلي موجود اعلاه لمزيد من التفاصيل barcodex.rar رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 و بالمرة تشوفوا صورته :) رابط هذا التعليق شارك More sharing options...
alwa7eed قام بنشر سبتمبر 30, 2003 الكاتب مشاركة قام بنشر سبتمبر 30, 2003 السلام عليكم ورحمة الله وبركاته اشكركم على الرد السريع واشكر اهتمامكم وارجو ان تتحملوني اذا كان اي استفسار سألجأاليكم وشكرا اساتذتي الافاضل رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 السلام عليكم شكرا لكل من ساهم في موضوع الباركود وخصوصا صاحب المثال أخي طارق ، فقد صممت برنامجا للحضور انطلاقا من هذا المثال وهو الآن من البرامج الأساسية بالشركة وقد كفانا عذاب الإدخال الشهري وأخطاء الإدخال وشكاوي الموظفين ممن لا يريحهم نتائج خارج الدوام "OV" . من الأفكار التي طبقتها هو عمل بطاقات ثبوتية للموظفين واستخدام وجه البطاقة في الدخول وظهرها في الخروج . ويمنع منعا باتا استخدام لوحة المفاتيح في الإدخال إلا في حالة ضيقة جدا كضياع البطاقة مثلا ، ولكن استخدام لوحة المفاتيح يكون عن طريق صندوق نص آخر وبكلمة مرور وذلك لسد كل الثغرات للتلاعب بالمعلومات . من الأمور التي أتعبتني بحق هو كيف أجعل البرنامج يتعرف على مصدر الإدخال ، لوحة المفاتيح أو القارئ ، وذلك لأن الكمبيوتر لا يفرق بين الإثنين . حتى فكرت في طريقة لإجبار البرنامج على التمييز بينهما وذلك باحتساب سرعة الإدخال بين رقم وآخر بمعنى لو كان عندنا رقم موظف 102 فسأقوم بدراسة فرق الوقت بين إدخال 1 و 0 وكذلك بين 0 و 2 . فواجهتني مشكلة تشكيك فريق تقنية المعلومات أنه يوجد من يملك سرعة الإدخال مما لن ينفع معها هذا الحقل ، ولكن لأنه لم يوجد حل آخر وكنت شبه مقتنق أن القارئ سوف يكون سريعا جدا مقارنة مع الموظف تم تطبيق الفكرة ونجحت نجاحا مدهشا ولم يستطع أحدا اللحاق بالقارئ . البرنامج ملك للشركة فاسمحوا لي بعدم نشره . دوشتكم :) . تحياتي . 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 البرنامج ملك للشركة فاسمحوا لي بعدم نشره . بالطيع هذه حالة سنتعرض لها كثيرا فكثير من الاعمال لن يمكننا نشرها كاملة و لكن يكفي الاحابة علي تساؤل أو طريقة عمل جزء من الكود عند الحاجة و أنتهز هذه الفرصة لأوؤكد أنه فى مثل هذه الحالات نرجو عدم الالحاح من أحد أو محاولة احراج صاحب البرنامج و انما الاكتفاء بالاستفسار العلمي البحت نعود لموضوعنا انا عندي استفسارات بخصوص البرنامج هل جهاز الماسح الضوئي نفسه يأتي معه اداة ، ام استخدمت الاداة السابقة ؟؟ و بدون دعاية :) هل تم تفضيل نوع من الاجهزة بعينه ؟؟ ثانيا لحساب الفرق بين الادخالات للرقم 102 هل هو كود Onchange لمربع النص ؟؟ فعلي ما أذكر ان هذا الكود لم يكن متاحا لمربعات النص قبل الاكس بي رابط هذا التعليق شارك More sharing options...
ابوشاهر قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 الاخ ابوهادي والاخوان جميعا السلام عليكم ياليت ثم ياليت ان توضح طريقة عمل الباركود من البداية الى النهاية وعلى شكل خطوات والله اني محتاج لمثل ذلك وممكن في غيري من الاخوان . شاكرا لكم جميعا :yess: رابط هذا التعليق شارك More sharing options...
ابن مسقط قام بنشر أكتوبر 1, 2003 مشاركة قام بنشر أكتوبر 1, 2003 السلام عليكم ورحمة الله وبركاته شكراً للجميع على هذه المعلومات القيمة :yess: الاخ الأستاذ/ أبو هادي ما هي اللغة التي أستخدمتها في برنامجك ؟ أم انك استخدمت الأكسس ؟ رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أكتوبر 1, 2003 مشاركة قام بنشر أكتوبر 1, 2003 السلام عليكم الأسئلة لأخي محمد : هل جهاز الماسح الضوئي نفسه يأتي معه اداة ، ام استخدمت الاداة السابقة ؟؟ و بدون دعاية هل تم تفضيل نوع من الاجهزة بعينه ؟؟ لحساب الفرق بين الادخالات للرقم 102 هل هو كود Onchange لمربع النص ؟؟ لا ، لا أداة مع الماسح واستخدمت الأداة السابقة . تم اختيار قارئ عن طريق النت وتم التركيز على أنه يمكن استخدامه بحمله باليد ويوضع على طاولة ويعلق على الجدار كذلك . حساب الفرق عن طريق حدث On Key Press . السؤال للأخ أبو شاهر : ياليت ثم ياليت ان توضح طريقة عمل الباركود من البداية الى النهاية وعلى شكل خطوات الرد للأخ محمد طاهر : و أترك التعقيب للأخ طارق نفسه و رابط الموضوع لااصلي موجود اعلاه لمزيد من التفاصيل السؤال للأخ ابن مسقط : ما هي اللغة التي أستخدمتها في برنامجك ؟ أم انك استخدمت الأكسس ؟ أكسسسسسسسسسس وبس :) تحياتي . رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أكتوبر 2, 2003 مشاركة قام بنشر أكتوبر 2, 2003 السلام عليكم الأحداث لمعرفة الدخول من الخروج وذلك بعد أن أضيف علامة + للدخول و - للخروج على رقم الموظف في البطاقة فقط وأقوم بتغطية العلامات عند الطباعة . علما أن أرقام الموظفين المبني عليها الكود تتكون من 3 خانات رقمية فقط . فارق الوقت والمعرف هنا بالـ Gap ممكن يختلف من جهاز لآخر ، قد يحتاج لتقليله أو زيادته . Option Compare Database Dim InTime As Single Const Gap As Double = 0.02 Private Sub txtBadgeNo_BeforeUpdate(Cancel As Integer) Select Case Right(Me.txtBadgeNo.Text, 1) Case "+" Me.GrpInOut = 1 Me.txtBadgeNo = Left(Me.txtBadgeNo.Text, Len(Me.txtBadgeNo.Text) - 1) Case "-" Me.GrpInOut = 2 Me.txtBadgeNo = Left(Me.txtBadgeNo.Text, Len(Me.txtBadgeNo.Text) - 1) End Select End Sub Private Sub txtBadgeNo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Timer - InTime > Gap Then Me.txtBadgeNo.Tag = "" Me.txtBadgeNo.Tag = Right(Me.txtBadgeNo.Tag, 4) Me.txtBadgeNo.Text = Me.txtBadgeNo.Tag Me.txtBadgeNo.Tag = "" End If End Sub Private Sub txtBadgeNo_KeyPress(KeyAscii As Integer) Select Case Chr(KeyAscii) Case "0" To "9", "+", "-" If Me.txtBadgeNo.Tag = "" Then InTime = Timer If Timer - InTime <= Gap Then Me.txtBadgeNo.Tag = Me.txtBadgeNo.Tag & Chr(KeyAscii) InTime = Timer Else Me.txtBadgeNo.Tag = Chr(KeyAscii) InTime = Timer End If Case Else Me.txtBadgeNo.Tag = "" End Select End Sub تحياتي . رابط هذا التعليق شارك More sharing options...
ha98 قام بنشر أكتوبر 2, 2003 مشاركة قام بنشر أكتوبر 2, 2003 أخي العزيز بوهادي كيف حالك أنت والاخوان جميعا طيب لو تكرمت ممكن تقول لي لو أحب أن أعمل مثل ماعملت أنا احتاج لإيش ؟ مثلا ترتب لي على شكل خطوات ماهي الأدوات اللازمة لعمل مثل هذا البرنامج تحياتي لك رابط هذا التعليق شارك More sharing options...
tarekh قام بنشر أكتوبر 2, 2003 مشاركة قام بنشر أكتوبر 2, 2003 السلام عليكمورحمة الله وبركاته بالنسبة للباركود انا شايف ان الموضوع حلو وابو هادى قام بالواجب انا شفت جهاز الباركود يركب مع الكيبورد لكن الجديد الى شفته واعجبنى كثيرا دخول الموظفين من خلال بصمة اليد ووقفت اتابع دخول الموظفين يضع الموظف صباعه فتظهر الصورة للموظف ويسجل موعد الدخول ولكن ملفت نظرى ان عملية الدخول للموظفين اسرع فى الباركود رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أكتوبر 2, 2003 مشاركة قام بنشر أكتوبر 2, 2003 السلام عليكم البصمة وما أدراك .. لقد قامت إحدى الشركات بعمل تجربة واستدعينا 5 موظفين من مختلف الإدارات والنتيجة كانت مذهلة حيث فشل الجهاز بالتعرف على بصمة 3 من 5 !!. ولكن يوجد بديل لنفس الفكرة تقريبا وهي قارئ كف اليد وهي أفضل بكثير من البصمة حيث هنا يقوم الجهاز بالتعرف على قياس اليد وليس البصمة ، ولكن يبقى هناك نسبة خطأ في التعرف على الكف كذلك . عموما يبقى الباركود في نظري أفضل الحلول . - سرعة فائقة . - لا تحتاج إلى أجهزة إضافية . - لا صيانة . - طباعة البطاقات من خلال طابعة دسك جت ( يعني التكلفة لا تذكر ) . تحياتي . رابط هذا التعليق شارك More sharing options...
ابوشاهر قام بنشر أكتوبر 2, 2003 مشاركة قام بنشر أكتوبر 2, 2003 (معدل) والله ياخوان تراني مافهمت شي من اللي قلتوه :lol: هل الكلام السابق عن طباعة الملصقات او كيف يقوم الباركود بالقراءة وماهو السبب في تعدد ملصقات الباركود تحياتي تم تعديل أكتوبر 3, 2003 بواسطه ابوشاهر رابط هذا التعليق شارك More sharing options...
ابوشاهر قام بنشر أكتوبر 3, 2003 مشاركة قام بنشر أكتوبر 3, 2003 :( رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أكتوبر 4, 2003 مشاركة قام بنشر أكتوبر 4, 2003 (معدل) السلام عليكم اخواني الأعزاء جميعا .. أود أن أنوه أني هنا في الموضوع مشارك كغيري في إبداء الرأي وبطرح تجربتي . فآمل أن لا يزعل أحد علي وخصوصا الأخوين ha98 و أبو شاهر . فالحقيقة أنا لا أقوم عادة بشرح أمثلتي في مواضيعي فكيف بي أن أقوم بشرح برنامج متكامل قد اعتذرت عن عرضه ، ومع ذلك أنا وضعت أمامكم أصعب كود قمت بكتابته في هذا البرنامج . ولكن أود أن أجيب لمن تاه في دوشة الكلام أن هذه الأداة حتى تستفيد منها فمن المؤكد أنت تحتاج إلى ملصق أو بطاقة تحتوي على رسم الباركود وكذلك أنت في حاجة إلى قارئ الباركود حتى تتمكن من قراءة هذا الملصق :d . أود لو يقوم أحدكم بتصميم نموذج يحتوي فقط على خانة رقم الموظف وليسمه txtBadgeNo ثم يقوم بلصق الكود الذي وضعته سابقا وليقم بالتجارب ويخبرنا بالنتائج وسوف أتواصل معكم بحل أي مشكلة تنتج عن الكود . تحياتي . تم تعديل أكتوبر 4, 2003 بواسطه أبو هادي رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر نوفمبر 28, 2003 مشاركة قام بنشر نوفمبر 28, 2003 هنا اسئلة مختلفة بخصوص البار كود (Bar Code) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.