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


Tidak ada komentar:

Posting Komentar

Entri Populer