Algoritmia - código fuente

unit Main;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  Memo1.Lines.Add('Escanea un código de barras...');

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  // Verifica si la tecla presionada es Enter

  if Key = VK_RETURN then

  begin

    // Procesa el código de barras leído

    Memo1.Lines.Add('Código de barras leído: ' + InputBox('Código de barras', 'Ingrese el código', ''));

  end;

end;

end.

import java.awt.event.KeyEvent;

import java.awt.event.KeyListener;

import javax.swing.JFrame;

import javax.swing.JTextArea;

public class BarcodeScannerDemo extends JFrame implements KeyListener {

    private JTextArea textArea;

    public BarcodeScannerDemo() {

        super("Barcode Scanner Demo");

        textArea = new JTextArea("Escanea un código de barras...\n");

        add(textArea);

        setSize(400, 300);

        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        setLocationRelativeTo(null);

        addKeyListener(this);

        setVisible(true);

    }

    public static void main(String[] args) {

        new BarcodeScannerDemo();

    }

    @Override

    public void keyTyped(KeyEvent e) {

        // No se utiliza en este ejemplo

    }

    @Override

    public void keyPressed(KeyEvent e) {

        // No se utiliza en este ejemplo

    }

    @Override

    public void keyReleased(KeyEvent e) {

        // Verifica si la tecla presionada es Enter

        if (e.getKeyCode() == KeyEvent.VK_ENTER) {

            // Procesa el código de barras leído

            String barcode = javax.swing.JOptionPane.showInputDialog(this, "Ingrese el código de barras:");

            textArea.append("Código de barras leído: " + barcode + "\n");

        }

    }

}