Program Kode Ascii Keyboard Lazarus Free Pascal

Untuk membuat program kode ascii dari tombol keyboard yang kita tekan, kita perlu memahami even OnKeyDown dan OnKeyPress. Kedua event ini memang sama-sama dikirim saat tombol keyboard ditekan. Yang membedakan keduanya adalah jenis tombol yang ditekan.

Event OnKeyDown dikirim saat sembarang tombol keyboard ditekan. Event OnKeyPress dikirim saat tombol keyboard yang mempunyai tampilan di layar (karakter ASCII) dikirim. Sebagai contoh, bila anda menekan tombol ( F1 ), Sistem operasi (Windows, Linux, dsb) hanya akan mengirim event OnKeyDown. Namun bila anda menekan tombol ( A ), Sistem operasi  akan mengirim evemt OnKeyDown dan juga OnKeyPress.

Untuk lebih jelasnya mari kita buat program Kode Ascii Keyboard Lazarus Free Pascal. Dengan program ini anda bisa mencoba-coba tombol mana yang akan menghasilkan event OnKeyPress dan tombol mana yang menghasilkan kedua event tersebut.

Langkah-langkah komponen:
Buat 7 buah label pada form.

Langkah-langkah properties:
Label1:
Caption: Hasil OnKeyDown:

Label2:
Caption: Hasil OnKeyPress:

Label3:
Caption: Hasil Gabungan

Label4:
Caption: Hasil Gabungan Adalah Yang Benar!
Font colour: clRed
Font size: 11
Font style fsBold: True

Label5:
Caption: LKeydown
Name: LKeydown

Label6:
Caption: LKeypress
Name: LKeypress

Label7:
Caption: LGabungan
Name: LGabungan

Form1:
Name: FKodeAscii
Caption: Program Kode Ascii

Langkah-langkah events:
FKodeAscii:
Event OnKeyDown:
  LGabungan.Caption:=inttostr(key);
  LKeydown.Caption:=inttostr(key);

Event OnKeyPress:
  LGabungan.Caption:=inttostr(ord(key));
  LKeypress.Caption:=inttostr(ord(key));

Kalau sudah selesai semua maka tampilan visualnya kurang lebih seperti gambar di bawah ini:



Simpan pada folder kodeascii dan beri nama kodeascii.lpi dan ukodeascii.pas

Sedangkan source code lengkap ukodeascii.pas seperti di bawah ini:

unit ukodeascii;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TFKodeAscii }

TFKodeAscii = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
LKeyPress: TLabel;
LKeyDown: TLabel;
LGabungan: TLabel;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: char);
private
{ private declarations }
public
{ public declarations }
end;

var
FKodeAscii: TFKodeAscii;

implementation

{$R *.lfm}

{ TFKodeAscii }


procedure TFKodeAscii.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
LGabungan.Caption:=inttostr(key);
LKeydown.Caption:=inttostr(key)
end;

procedure TFKodeAscii.FormKeyPress(Sender: TObject; var Key: char);
begin
LGabungan.Caption:=inttostr(ord(key));
LKeypress.Caption:=inttostr(ord(key));
end;

end.

Pada program di atas ada fungsi baru yang belum pernah kita pelajari yaitu fungsi ORD.
Fungsi Ord mengembalikan nilai ASCII dari sebuah karakter.

Syntax:
ord(karakter);

Contoh:
ord('A'); //maka hasilnya adalah adalah 64

Cukup sekian panduan pembuatan Program Kode Ascii Keyboard Lazarus Free Pascal. Semoga dapat dipahami tentang kode-kode ascii dari tombol keyboard ini. Lalu apa fungsinya kita mempelajari ini, diantaranya berfungsi untuk memvalidasi data yang masuk pada sebuah komponen, dan diantara karakter yang paling terkenal adalah kode ascii dari tombol ENTER yaitu 13, nanti anda akan sering menggunakannya. See u...