شاشة قارئ الباركود و عرض المعلومات.

[أبو معاذ]

السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي  و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.

[mo7ammed]

وعليكم السلام،

اخي العزيز عمليتها ليست معقدة، حيث ربط قارئي الباركود لا يحتاج لأي كود، هو عبارة قارئي يقرأ الكود الموجود على المنتج وعادة هو ما يكون رقم المنتج المخزن في البرنامج، ومن ثم يضعه في TEdit يكون عليه ال focus، ومن ثم تقوم بقراءة رقم المنتج الذي ادخل وتبحث عنه في بياناتك ومن ثم عرضه واضافته الى فاتورة الشراء.

يعني سواء قمت بإدخال رقم المنتج في الخانة المخصصة له يدوياً من خلال لوحة المفاتيح او تلقائياً من خلال قارئي الباركود، البرنامج لن يفرق بين الطرقتين، لذلك الموضوع غير معقد ولا يحتاج برمجة مخصصة.

ابدأ بالعمل وتوكل على الله، وفي حال حدوث اي مشكلة يمكنك سردها هنا وسوف تجد العديد من الاعضاء يعطوك اجابات

[أبو معاذ]

بارك الله فيك على الإجابة ،
لكن هذا ليس مقصودي.

هناك شاشات خاصة  (و ليس قارئ الباركود العادي)و بها قارئ الكودبار.
تلصق في الجدار ،
والزبون يقوم بإمرار المنتج لوحده.

[mo7ammed]

نفس الطريقة.

هناك في بعض المتاجر الكبيرة، يكون بار كود متاح مع شاشة للزبائن لمعرفة الاسعار، هل هذا المطلوب؟

وفي زيارة لاوربا، دخلت متجر وكان هناك مكان يتيح للزبائن دفع الحساب بأنفسهم، من خلال تمرير المنتجات على بار كود، ومن ثم الدفع ببطاقة الفيزا، دون تدخل من عمال المتجر.

كل الحالات تقريبا تعمل بنفس الطريقة، ولا تحتاج لبرمجة خاصة للباركود، لكن البرمجة للشاشة نفسها فقط.

ممكن في حالة وجود باركود للزبائن لمعرفة الاسعار فقط، اذا كان يتيح استدعاء api من عنوان ما، يمكن ان تقوم ببرمجة API تاخد رقم المنتج وترجع السعر، وقارئي الباركود نفسها يقوم بباقي العمل.

[justnick]

السلام عليكم ورحمة الله وبركاته
هل فى امكانية ان تقوم بتصويرها ؟
صورة فقط من اجل ان الكلام يكون متطابق لما هو عندك

عندنا فى مصر فى المتاجر الكبيرة وبعيدا عن كمبيوتر الكاشير بيكون فيه شاشة وقارئ باركود 
متوصلين بكمبيوتر حتى لو صغير جدا "مش بيكون ظاهر للذبون"
عليه ويندوز
وعليه نسخة من شاشة الاستعلام
والشاشة بتكون فيها فورم fullscreen
بمجرد تمرير المنتج على القارئ
بيجيب اسمه وسعره 
ويعرضه على الشاشة 
لو قدرت اصور شاشة هنا فى احد المتاجر سوف اقوم بارفاق الصورة 
وربما ارفاق مثال عملي لما اقصده بدلفي
بالتوفيق باذن الله

[seddik_xp]

السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي  و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.

أجهزة Vérificateur de prix ( Price checker ) أعمل بحث في غوغل متوفرة في الجزائر

  H418da2e176a44238b0afdc4df9543bf8P.jpg (الحجم : 247.67 ك ب / التحميلات : 24)

[أبو معاذ]

السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي  و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.

أجهزة Vérificateur de prix ( Price checker ) أعمل بحث في غوغل متوفرة في الجزائر

جميل
بارك الله فيك ،
هذا ما كنت أبحث عنه.

[justnick]

PHP كود :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    EnteredBarcode: string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Self.KeyPreview:= True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
   Key:= #0;
    if Trim(EnteredBarcode) <> '' then
     begin
       ShowMessage('Go and find Item with ' + EnteredBarcode);
       EnteredBarcode:= '';
     end;
  end
  else
  begin
    EnteredBarcode:= EnteredBarcode+ Key;
    Key:= #0;
  end;
end;

end.