السلام عليكم ورحمه الله وبركاته
اخواني الاعزاء ارجوا من حضراتكم ان تفيدوني بكود يقوم بفتح
خزينة لبرنامج سوبرماركت
حيث تتصل هذه الخزينة بالحاسب عن طريف فتحة سيريال
وهي عبارة عن درج يوضع به النقود بعد كل عملية بيع
ارجوا السرعة لضيق الوقت
وجزاكم الله خيرا
لا احد يعرف
اين انتم يا مبرمجين
تفضل عزيزي
طبعا لازم تدخل الكومبوننت MSCOM
بعدين حط هذا الكود في المكان إلي تريد يفتح فيه الدرج
ولازم تحدد رقم البورت
Com1
Com2
ومهم تحط خيار إذا فيه كاشير ولا لا .... لأنه لو مافيه يعمل رن إرور
تحياتي
MSComm1.CommPort = PortTow If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If MSComm1.Output = Chr$(12) MSComm1.PortOpen = False
الأخ العزيز راشد جزاك الله خيرا وزادك علما
سوف اجرب الكود وارد عليك
السلام عليكم ورحمه الله وبركاته
الأخ راشد قمت بتجربة الكود بعد اضافة الاداه ولكنه لا يعمل
فلماذا
هل تأكدت من رقم منفذ السيريل ... ؟؟؟
لو ترفقلي الكود كيف كتبته يمكن أساعدك ....
الكود شغال 100% أستخدمه من سنوات ....
أسف علي تأخري ها هو الكود مرفق
أخي العزيز الكود شغال تمام ...
قد تكون المشكلة في أحد الأمور التالية :
1. رقم منفذ البورت .
2. نوعية الكاش درو فقد يكون يعمل بمشغل درايفر خاص .
أريدك أن تلقي نظره على هذا الموقع وتذهب لقسم المنتجات وتصف نوعية الكاش دروا :
www.eposintl.com
يوجد في هذا الموقع الدعم الفني تستطيع ارسال نوعية الكاش درو الذي تملكه إذا كان موجود في قائمة الأنواع التي معهم وسيقوم الدعم الفني بموافاتك بكود الـ VB .
تحياتي وتنمنياتي لك بالتوفيق ....
جزاك الله خيرا
سوف ادخل إلي هذا الموقع واخبرك بالنتيجة
يجب معرفة ال command الذى يستقبلة ال controller الموجود فى دائرة ماكينة الكاش دروا
ولتحديد الكوماند يجب معرفة ماركة الماكينة ورقم الموديل
بالنسبة لكود استاذ راشد فهو صحيح ولكن يحتاج الى تعديل الكوماند ليناسب الماكنية
التعديل فى هذا السطر
MSComm1.Output = Chr$(12)