منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ياريت مساعدة سريعة بالله عليكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ياريت مساعدة سريعة بالله عليكم (/showthread.php?tid=46189)



ياريت مساعدة سريعة بالله عليكم - hanylever - 08-06-23

صممت برنامج مبيعات لسوبرماركت البرنامج كويس وعجب العميل جدا بس فى مشكلة واحدة 
العميل اشترى اجهزة NCR AllInOne 
فيها شاشة العميل اللى بتظهر الاجمالى 
الشاشة متوصلة USB من جوه الجهاز وانا بصراحة مش عارف اتعامل معاها نهائى
ياريت اى مساعدة من الاخوة الافاضل عشان اشغل الشاشة دى


RE: ياريت مساعدة سريعة بالله عليكم - dr.programming - 08-06-23

مساء الخير
أخى الفاضل
أولا الموضوع استفزنى جدااا .. طبعا استفزنى استفزاز المبرمجين و لا أقصد شئ سيئ لا سمح الله
ثانيا كلنا هنا معك ان شاء الله
بس ليا كام سؤال مهمين لنصل الى نتيجة فعالة
أولا: الشاشة الـ mini بيظهر عليها ايه data بمجرد تشغيل الجهاز .. و هل بيحصل exchang للداتا عند تشغيل برنامجك ؟
ثانيا : اتصالها بالجهاز زى ما ذكرت usb فهل لها تعريف أو درايف أو sdk مع الجهاز ؟
منتظر ردك .. و ارسل لى رسالة هنا ع الخاص للتواصل .. و ان شاء الله بمجرد ان نصل الى النتيجة الفعالة نضع الأمر كله هنا ليستفيد منه زملائنا


RE: ياريت مساعدة سريعة بالله عليكم - hanylever - 09-06-23

اولا بشكر حضرتك على اهتمامك ومساعدك
الشاشة اول ما الجهاز بيشتغل بتكتب الفيرجن بتاعها بس وبعد كدة بتطفى
الجهاز فى بانل خاصة بية من خلالها تقدر تجرب الشاشة وتكتب عليها اى حاجه ودا اكدلى ان الشاشة شغالة كويس ومتعرفة وملهاش اى تعريف او درايف
فى حد قبل كدة كان ادانى كود اتعمل بيه مع الشاشة دى بس الكود خاص بمدخل السريال فمشتغل مع الشاشة دى لانها USB
دا الكود اللى كان عندى
Sub TERMINAL_DISPLAY(ByVal MSG As String)
       Dim COM_PORT As String = "COM4"
       Try
           SP = New SerialPort(COM_PORT, 9600, Parity.None, 8, StopBits.One)
           SP.Open()
           ' to clear the display
           SP.Write(Convert.ToString(ChrW(12)))

           ' first line goes here
           SP.WriteLine(" TOTAL : " & MSG & "  JD")

           ' 2nd line goes here

           SP.WriteLine((ChrW(13) & "WELCOME..."))

           SP.Close()
           SP.Dispose()
           SP = Nothing
       Catch ex As Exception

       End Try

    End Sub


RE: ياريت مساعدة سريعة بالله عليكم - aljzazy - 09-06-23

لتشغيل شاشة العميل المتصلة بالكمبيوتر عبر USB من خلال برنامجك في Visual Basic ، ستحتاج إلى العثور على مكتبة مناسبة أو SDK توفرها الشركة المصنعة لجهاز عرض العميل. ستتضمن هذه المكتبة أو SDK عادةً وظائف وطرق تتيح لك التحكم في العرض ، مثل إظهار الرسائل وتغيير السطوع وتحديث المحتوى.

فيما يلي الخطوات العامة التي يجب اتباعها:

حدد الشركة المصنعة وطراز جهاز العرض الخاص بالعميل.
قم بزيارة موقع الشركة المصنعة على الويب وابحث عن مجموعة أدوات تطوير البرامج (SDK) أو مكتبة أو وثائق مخصصة للتحكم في عرض العميل.
قم بتنزيل وتثبيت SDK أو المكتبة ، باتباع الإرشادات المتوفرة.
في مشروع Visual Basic الخاص بك ، قم بإضافة مرجع إلى SDK أو المكتبة. قد يتضمن ذلك إضافة ملف DLL أو استيراد مساحة اسم محددة.
راجع الوثائق أو الأمثلة المتوفرة مع SDK لفهم الوظائف والأساليب المتاحة للتحكم في العرض.
استخدم الوظائف والأساليب المتوفرة في التعليمات البرمجية لـ Visual Basic للتفاعل مع عرض العميل.


RE: ياريت مساعدة سريعة بالله عليكم - dr.programming - 10-06-23

الأخ الفاضل  aljzazy
أفادكم الله بعلم وفير
هذا ما ذكرته للأخ هانى الحل فى الـ sdk






و بعد بحث و مراسلة لشركة NCR
وجدت مديولات كاملة ..
هذا الرابط

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



RE: ياريت مساعدة سريعة بالله عليكم - ayman7662 - 12-09-24

سلام عليكم مفيش حد بيرد عليا فى دعمى لعمل برنامج الكاشير فاجوال ستوديو مع اس كيوال

سلام عليكم مفيش حد بيرد عليا فى دعمى لعمل برنامج الكاشير فاجوال ستوديو مع اس كيوال