Arsip: memfungsikan keyboard spt keypad Hp

 
user image
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 ????
user image
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 ????
user image
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ÿ¥²';
user image
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:
user image
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
user image
more 14 years ago

abichoy

lagi buat program karaoke neh....
user image
more 14 years ago

abichoy

lagi buat program karaoke pakai neh.... udah bisa blom..???
user image
more 14 years ago

abichoy

lagi buat program karaoke pakai remote neh.... udah bisa blom..???
user image
more 14 years ago

abichoy

@mas_kofa : maaf postingnya lewat hp... jadi double2 neh :)
user image
more 14 years ago

DelphiExpert

hahaha... ... ngga' paham saya kaitannya program karaoke ama emulator keyboard hape
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com