Tutorial Input Dengan Barcode Scanner di Delphi

Tutorial Input Dengan Barcode Scanner di Delphi merupakan sebuah program dimana untuk melakukan pemasukan data dengan menggunakan Barcode Scanner. Mengenai Delphi sendiri adalah sebuah bahasa pemrograman (Programming Language atau Development Language) yang digunakan untk merancang suatu aplikasi program. Delphi termasuk dalam pemrograman bahasa tingkat tinggi (high level language).

Maksud dari bahasa tingkat tinggi yaitu perintah-perintah programnya menggunakan bahasa yang mudah dipahami oleh manusia. Bahasa pemrograman Delphi disebut bahasa prosedural artinya mengikuti urutan tertentu. Dalam membuat aplikasi perintah-perintah, Delphi menggunakan lingkungan pemrograman visual.

Pemrograman Delphi dirancang untuk beroperasi dibawah sistem operasi Windows. Program ini mempunyai beberapa keunggulan, yaitu produktivitas, kualitas, pengembangan perangkat lunak, kecepatan kompiler, pola desain yang menarik serta diperkuat dengan bahasa perograman yang terstruktur dalam struktur bahasa perograman Object Pascal.

Kali saya akan berbagi sedikit ilmu tentang program Delphi, salah satunya tentang Barcode.  Karena Barcode Scanner sendiri sangatlah penting dan itu sampai sekarang masih dipakai di perusahaan – perusahaan besar untuk melakukan input data, contohnya dilakukan untuk input data stock barang, Input data pengiriman barang, input data pembelian dan masih banyak lagi.

Berikut contoh dasar Tutorial Input Dengan Barcode Scanner di Delphi yang pernah saya gunakan untuk membuat program barcode laporan pengiriman kurir.

Pertama : Buka Form baru

Kedua : Klik pada Toolbar Component Pallete dan pilih Edit lalu letakkan pada Form

Ketiga : Pilih Edit1 pada Form,  Klik pada Object Inspector Pilih Propertis - events -  double klik pada OnKeyPress jika sudah maka akan menampilkan kode seperti dibawah ini

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

end;

end.

Jika sudah menampakkan kode seperti diatas lalu tambahkan kode seperti dibawah ini

var textpesan : string; //variabel untuk menampilkan pesan

begin

if Key = #13 then //kondisi saat melakukan barcode (jika barcode ok maka lanjutkan)

  begin

    textpesan :='Yang anda barcode adalah '+Edit1.Text; //pesan yang ditampilkan saat dimulai barcode

    Application.MessageBox(PChar(textpesan),'Informasi Barcode',MB_OK or MB_ICONINFORMATION);

    Edit1.SelectAll; //jika diklik ok pada pesan makan edit1 akan diblok secara otomatis

  end;

end.

Keempat : RUN (F9)

Terimakasih telah membaca Tutorial Input Dengan Barcode Scanner di Delphi, semoga dapat membantu dan menambah wawasan anda khususnya program Delphi dan jika anda ingin mengembangkannya dengan menggunakan database anda juga dapat mempelajari tentang bagaimana cara Koneksi Database MySQL Ke Delphi Dengan Komponen Zeos.