Arsip: memfungsikan keyboard spt keypad Hp
more 14 years ago
sky47
rekan rekan gimana ya membuat inputan keyboard (0..9) tu seperti keypad hp.....jadi jika tombol 1 ditekan sekali jadi huruf a, 2x huruf b gitu....gambarannya persis seperti keypad hp itu ????
more 14 years ago
sky47
posting ke 2
rekan rekan gimana ya membuat inputan keyboard (0..9) tu seperti keypad hp.....jadi jika tombol 1 ditekan sekali jadi huruf a, 2x huruf b gitu....gambarannya persis seperti keypad hp itu ????
more 14 years ago
sikuper85
apakah yg seperti http://www.indowebster.com/Niru_Key_Handphone.html? (oya, ati2 ma virus, soalnya di kompi sini ga da antivir nya, jadi ga tau deh tu exe kena virus ga, sebelum diupload).
file .dfm nih...
object Form1: TForm1
Left = 192
Top = 114
BorderStyle = bsDialog
Caption = 'Ke-HP-HP-an ^_^'
ClientHeight = 74
ClientWidth = 194
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style =
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 92
Height = 13
Caption = 'Key yg dijinkan 0..9'
end
object Label2: TLabel
Left = 8
Top = 56
Width = 3
Height = 13
end
object Edit1: TEdit
Left = 8
Top = 24
Width = 177
Height = 21
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 160
Top = 40
end
end
file .pas nya...
unit KeyLikeHP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
CPos: byte;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
sacu1 : string = '0 ²1,.-!?²2abc²3def²4ghi²5jkl²6mno²7pqrs²8tuv²9wxyz²';
procedure resetTimer;
begin
if Timer1.Enabled then begin
Timer1.Enabled := False;
end;
Timer1.Enabled := True;
end;
procedure siapinKar;
begin
Label2.Caption := copy(sacu1, pos(key, sacu1)+1,
pos('²', copy(sacu1, pos(key, sacu1), Length(sacu1)))-2)+key;
CPos := 1;
resetTimer;
end;
begin
if key in then begin
if Label2.Caption = '' then begin
siapinKar;
end else begin
if pos(key, Label2.Caption) > 0 then begin
inc(CPos);
if CPos > Length(Label2.Caption) then begin
CPos := 1;
end;
Edit1.SelStart := Edit1.SelStart-1;
Edit1.SelLength := 1;
end else begin
siapinKar;
end;
end;
key := Label2.Caption[CPos];
resetTimer;
end else begin
if key <> chr(vk_back) then begin
key :=#0;
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption := '';
Timer1.Enabled := False;
end;
end.
males copas source? buka aja di http://www.indowebster.com/Niru_Key_Handphone_source_delphi.html
blom rapih sih... tapi... ^_^
bagian ini bisa diedit sesuai kebutuhan,
const
sacu1 : string = '0 ²1,.-!?²2abc²3def²4ghi²5jkl²6mno²7pqrs²8tuv²9wxyz²';
misal jadi gini,
const
sacu1 : string = '0 ²1,.-!?¿²2abcâäàåáæ窲3deféêë胲4ghiíïîì²5jkl£²'+
'6mnoñóôöò²7pqrs²8tuvûùúü²9wxyzÿ¥²';
more 14 years ago
mas_kofa
@sky47: posting ke 2 rekan rekan gimana ya membuat inputan keyboard (0..9) tu seperti keypad hp.....jadi jika tombol 1 ditekan sekali jadi huruf a, 2x huruf b gitu....gambarannya persis seperti keypad hp itu ????yg ini maksudnya apaan sich...???. :evil:
more 14 years ago
sky47
@master kofa : maksudnya tu repost mas kofa ....>_< jadi posting 2x smoga nggak dibanned....coz cuman pengen dapet tanggapan
@sikuper85 : siap terima kasih infonya nanti siap dicoba
more 14 years ago
DelphiExpert
hahaha... ... ngga' paham saya kaitannya program karaoke ama emulator keyboard hape
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Generate even
by delphicode in Tutorial & Community Project more 14 years ago - Pengelompokan data menggunakan Array
by telkom_1 in Tip n Trik Pemrograman more 16 years ago - Cara mindahin suatu file dari source yg satu ke yg lainnya
by denmasmr in Tip n Trik Pemrograman more 12 years ago - Cek syntax SQL pada delphi...gimana ya..?
by palapetir in MsSQL more 17 years ago - Window Always on Top for Ever !
by xerion in Tip n Trik Pemrograman more 17 years ago - OOT : MET TAON BARU n SUKSES SELALU BUAT FOXER MANIA
by sunariyo in OOT more 18 years ago - instalasi 3rd komponen
by grounders in Hal umum tentang Pascal Indonesia more 18 years ago - >>Ask<< Komponen TAB untuk form
by Rogeb_Shewrite in Hal umum tentang Pascal Indonesia more 17 years ago - Mail Merge
by agoes in Tip n Trik Pemrograman more 16 years ago - kasih point member
by jeepee in Kritik & Saran more 17 years ago