06-04-2022, 11:37 AM
(آخر تعديل لهذه المشاركة: 12-04-2022, 06:45 PM بواسطة Lam.Abdeldjalil.)
3 عارض الزبون Customer Display
![[صورة: K9De79.jpg]](https://imagizer.imageshack.com/img922/7551/K9De79.jpg)
هو جهاز يستعمل لعرض تفاصيل البيع من اسم المادة و سعرها مع الإجمالي
يوجد نوعين مشهورين في السوق شاشة ذات سطرين مع تكنولوجيةLED
وهذا هو الذي يتمحور عليه موضوعنا و النوع الثاني شاشة صغيرة مثل شاشة الجهاز
النوع الأول نجده في السوق بأحد المنافذ usb / Com
سوف نتعامل معها مثل درج النقود مع الأخذ بعين الاعتبار عدد الحروف و عدد الأسطر في الجهاز
مثال عندي جهاز بسطرين كل سطر فيه 20 حرف
* Lazarus
![[صورة: giphy.gif]](https://media.giphy.com/media/Dpm6BMzkkZgALNckum/giphy.gif)
معظم الأنواع تدعم أوامر ESC/POS
من مسح الشاشة، تحريك النص ، مدة العرض ، اللغة ...
مثال عن مسح الشاشة CLR
![[صورة: K9De79.jpg]](https://imagizer.imageshack.com/img922/7551/K9De79.jpg)
هو جهاز يستعمل لعرض تفاصيل البيع من اسم المادة و سعرها مع الإجمالي
يوجد نوعين مشهورين في السوق شاشة ذات سطرين مع تكنولوجيةLED
وهذا هو الذي يتمحور عليه موضوعنا و النوع الثاني شاشة صغيرة مثل شاشة الجهاز
النوع الأول نجده في السوق بأحد المنافذ usb / Com
سوف نتعامل معها مثل درج النقود مع الأخذ بعين الاعتبار عدد الحروف و عدد الأسطر في الجهاز
مثال عندي جهاز بسطرين كل سطر فيه 20 حرف
* Delphi
كود :
var line1,line2:string;
line1:='Product 1 price 200' ;
while Length(line1)<20 do
line1:=line1+' ';
line2:='Total : 500' ;
while Length(line2)<20 do
line2:=line2+' ';
ComPort.Connected:=true;
ComPort.WriteStr(line1);
ComPort.WriteStr(line2);
ComPort.Connected:=false;* Lazarus
كود :
ser.SendString(line1);
ser.SendString(line2);![[صورة: giphy.gif]](https://media.giphy.com/media/Dpm6BMzkkZgALNckum/giphy.gif)
معظم الأنواع تدعم أوامر ESC/POS
من مسح الشاشة، تحريك النص ، مدة العرض ، اللغة ...
مثال عن مسح الشاشة CLR
decimal=12
كود :
ComPort.WriteStr(#12);

![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)