Coding Program Cek Tombol keyboard dengan Delphi 7

Program ini ane buat ketika hendak membeli Laptop

kebetulan Laptop 2nd makanya perlu ekstra hati-hati heee

tujuanya adalah untuk mengetahui  berfungsi atau tidak keyboard laptop tersebut

konsep yang diambil adalah dengan pemanfatan nilai bali dari Key yang ada pada Procedure OnkeyDown

dengan Syntax berikut

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

Edit2.Text:=(FloatToStr(key));

end;

jika tombol pada keyboard ditekan maka akan memberikan nilai balik bertipe Word yang kemudian ditangkap dan ditampilkan nilainya pada edit2

konsep yang sangat sederhana sekali akan tetapi memberikan hasil yang oktimal.

selain itu, untuk memperlengkap tanggapan dari tanggapan fungsi nilai tombol bisa ditambahkan pada event onkeypress dengan listing code SBB:

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

begin

Timer1.Enabled:=true;

Edit1.Text:=(Key);

Memo1.SetFocus;

{if not(Key in ['a'..'z','0'..'9']) then exit else

 } lbnama.Caption:=Key;

lbjudul.Caption:='Anda Menekan Tombol';

lbstatus.Caption:='Kondisi Normal';

end;

dengan komponen yang disediakan adalah memo, edit1, edit2, label

berikut screen shootnya

untuk Download program aplikasi dan source code nya klik link dibawah ini

Download Aplikasi Cek Tombol V.1.5