Admin sementara ini lagi banyak tugas nih. Maklum masa-masa sekolah, banyak tugas, Eits, tapi jangan dijadikan beban ya sahabat. Pasti kalau kalian sudah lulus, akan merindukan masa-masa sekolah, salah satunya ketemu si Dia... Hehehe
Nah, admin sementara lagi ada tugas Kerja Proyek, Skripsi ala SMK jurusan RPL. Yaps, KP admin menggunakan bahasa pemrograman Delphi 7 nih.
Iseng - iseng, admin mau bagikan bagaimana "Cara Membatasi Inputan Delphi Hanya Angka dan Huruf". Kalau berguna Alhamdulillah, kalau tidak juga bukan masalah sih. hehehe.
Check This Out... hehehehe
Membatasi Inputan Hanya Angka
Berikut coding yang admin praktekan :
procedure TFDataBuku.EdStokKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[#8, #13, '0'..'9']) then
begin
ShowMessage('Maaf Inputan Hanya Angka');
key := #0;
end;
end;
Hasilnya ketika ditekan (OnKeyPress) maka akan muncul kotak pesan sebagai berikut :
Penjelasan
#8 adalah kode ASCII backspace
#13 adalah kode ASCII enter
Membatasi Inputan Hanya Huruf
Berikut coding yang admin praktekan :
procedure TFDataBuku.EdJudulKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['a'..'z','A'..'Z',#8,#13,#32]) then
begin
key:=#0;
showmessage('inputan hanya huruf bro..');
end;
end;
Hasilnya ketika ditekan (OnKeyPress) maka akan muncul kotak pesan sebagai berikut :
Penjelasan
#8 adalah kode ASCII backspace
#13 adalah kode ASCII enter
#32 adalah kode ASCII space/spasi
Sekian deh, tutorial dari admin. Semoga bermanfaat, mohon maaf kalau penulisan banyak kesalahannya. Trims
Wassalamu'alaikum Wr. Wb.