Mendapatkan kode ASCII dari tombol dengan Delphi

Postingan kali ini ane mau bahas tentang kode ASCII pada tombol, dan cara mencarinya dengan menggunakan program sederhana ini. Tentunya dibuat menggunakan Delphi. Jadi bagi agan-agan yg masih bingung gak perlu repot menghafalkan, bisa-bisa kagak doyan makan.. Wkakakaa..... :D
Sebelumnya perlu diketahui terlebih dahulu tentang ASCII.

Apa itu ASCII ?

ASCII (American Standard Code For Information Interchange) merupakan kode standar yang digunakan dalam pertukaran informasi pada Komputer. Kode ASCII ini seperti Hex dan Unicode tetnamunapi ASCII lebih bersifat universal.

Jumlah kode ASCII adalah 255 kode.
Kode ASCII 0 - 127 merupakan kode ASCII untuk manipulasi teks
kode ASCII 128 - 255 merupakan kode ASCII untuk manipulasi grafik.

Kode ASCII sendiri dapat dikelompokkan lagi kedalam beberapa bagian :

• Kode yang tidak terlihat simbolnya seperti :

          Kode 10 (Line Feed)
          Kode 13 (Carriage Return)
          Kode 8 (Tab)
          Kode 32 (Space)

• Kode yang terlihat simbolnya seperti abjad (A..Z), numerik (0..9), karakter khusus (~!@#$%^&*()_+?:”{})

• Kode yang tidak ada di keyboard namun dapat ditampilkan. Kode ini umumnya untuk kode-kode grafik.

Kode ASCII ini digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 0000 0000 hingga 1111 1111.

Tak perlu bertele-tele langsung saja buat programnya.. :D

• Tambahkan 2 Label pada Form
• Seting Properties Form KeyPreview menjadi TRUE
• Pada Form Event OnKeyDown,masukkan source code berikut :
  

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br />   Shift: TShiftState);<br /> begin<br /> Label1.Caption:= IntToStr(Key);<br /> end;
Source Code Lengkap :

unit Unit1;<br /> <br /> interface<br /> <br /> uses<br />   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />   Dialogs, StdCtrls;<br /> <br /> type<br />   TForm1 = class(TForm)<br />     Label1: TLabel;<br />     Label2: TLabel;<br />     procedure FormKeyDown(Sender: TObject; var Key: Word;<br />       Shift: TShiftState);<br />   private<br />     { Private declarations }<br />   public<br />     { Public declarations }<br />   end;<br /> <br /> var<br />   Form1: TForm1;<br /> <br /> implementation<br /> <br /> {$R *.dfm}<br /> <br /> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br />   Shift: TShiftState);<br /> begin<br /> Label1.Caption:= IntToStr(Key);<br /> end; <br /> end.
Hasil Sreenshot Program :



Contoh screenshot di atas ane tekan tombol Esc, dan muncul kode ascii nya yaitu 27.

Mudah kan buatnya..!!! sekarang gak perlu mikir berapa kode ASCII tombol tinggal jalankan program langsung tekan tombol, dan munculah kodenya.. Hehehe... :D

Program + Source Code dapat di download di SINI