开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 输入法编程 > 查看源码
ziku.~pa
资源名称：单片机系统中的汉字显示（拼音输入法源码）.rar　[点击查看]
上传用户：zgnl100
上传日期：2010-01-16
资源大小：1629k
文件大小：6k
源码类别：

输入法编程

开发平台：

C/C++

ziku.~pa：源码内容
  1. unit ziku;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, ComCtrls, ExtCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Label1: TLabel;
  13.     BitBtn1: TBitBtn;
  14.     Memo1: TMemo;
  15.     Label2: TLabel;
  16.     Label5: TLabel;
  17.     Animate1: TAnimate;
  18.     Timer1: TTimer;
  19.     Memo2: TMemo;
  20.     Label3: TLabel;
  21.     SpeedButton1: TSpeedButton;
  22.     Timer2: TTimer;
  23.     Label4: TLabel;
  24.     Memo3: TMemo;
  25.     Label6: TLabel;
  26.     procedure BitBtn1Click(Sender: TObject);
  27.     procedure Timer1Timer(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure Timer2Timer(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   Form1: TForm1;
  39. implementation
  40. uses math;
  41. var avifilename:byte;
  42. {$R *.DFM}
  43.  function translate(str:string):string;
  44. var st:string;
  45.        num:integer;
  46.        trans:string;
  47.  begin
  48.         st:=str;
  49.         trans:='';
  50.        for num:=1 to 4 do
  51.        begin
  52.          case  st[num] of
  53.                         '0':trans:=trans+'                ';
  54.                         '1':trans:=trans+'            11';
  55.                         '2':trans:=trans+'        11    ';
  56.                         '3':trans:=trans+'        1111';
  57.                         '4':trans:=trans+'    11        ';
  58.                         '5':trans:=trans+'    11    11';
  59.                         '6':trans:=trans+'    1111    ';
  60.                         '7':trans:=trans+'    111111';
  61.                         '8':trans:=trans+'11            ';
  62.                         '9':trans:=trans+'11        11';
  63.                         'A':trans:=trans+'11    11    ';
  64.                         'B':trans:=trans+'11    1111';
  65.                         'C':trans:=trans+'1111        ';
  66.                         'D':trans:=trans+'1111    11';
  67.                         'E':trans:=trans+'111111    ';
  68.                         'F':trans:=trans+'11111111';
  69.                                               end;
  72.               end;
  73.           translate:=trans;
  74.   end;
  75. procedure  TForm1.BitBtn1Click(Sender:  TObject);
  77. var  hzk16:file  of  char  ;
  78.         i:array[1..32]  of  char;
  79.         j:longint;
  80.         p:array[1..32] of byte;
  81.         q:array[1..16] of longint;
  82.         k:string;
  83.         w:word;
  84.         count:longint;
  85.         n:integer;
  86.         m:integer;
  87.         sss:string;
  88.         canshu:longint;
  89.         stemp:string;
  90. begin
  91.        // assignfile(hzk16,'hzk16');
  92.       assignfile(hzk16,'hzk24h');
  93.           FileMode  :=  0;
  94.         reset(hzk16);
  95.         k:=edit1.text;
  97.         j:=((ord(k[1])-161)*94+(ord(k[2])-161))*32;
  98.       seek(hzk16,j);
  99.     memo1.Text:='';
  100.     memo2.text:='';
  101.     memo3.text:='';
  102.     memo1.Lines.add(' ');
  103.     n:=1;
  104.     label5.caption:='';
  105.     sss:='';
  106.     for  count:=1  to  32  do
  107.     begin
  108.         read(hzk16,i[n]);
  109.         stemp:=inttohex(ord(i[n]),2)+'H';
  110.         if ((n mod 8)<>0 )then stemp:=stemp+',';
  111.         if stemp[1]>'9' then stemp:='0'+stemp;
  112.         sss:=sss+stemp;
  113.         if n mod 8=0 then sss:=sss+char(13)+char(10);
  114.         label5.caption:=label5.caption+inttohex(ord(i[n]),2);
  115.         n:=n+1;
  116.         if  (n  mod  2=1)  then
  117.         begin
  118.         memo1.Lines.Add(label5.caption+'        '+translate(label5.caption));
  119.         label5.caption:='';
  120.         end;
  121.     end;
  122.        memo2.text:=sss;
  123.      for n:=1 to 32 do
  124.      begin
  125.           if n mod 2=1 then p[((n+1) div 2)]:=ord(i[n]);
  126.           if n mod 2=0 then p[((n) div 2)+16]:=ord(i[n]);
  128.      end;
  129.          for n:= 1 to 16 do
  130.             begin
  131.                  q[n]:=p[n]*256+p[n+16];
  133.             end;
  134.            sss:='';
  135.         for m:=1 to 16 do
  136.         begin
  137.             w:=0;
  138.               case m  of
  139.                 1: count:=$8000;
  140.                 2: count:=$4000;
  141.                 3:count:=$2000;
  142.                 4:count:=$1000;
  143.                 5:count:=$800;
  144.                 6:count:=$400;
  145.                 7:count:=$200;
  146.                 8:count:=$100;
  147.                 9:count:=$80;
  148.                 10:count:=$40;
  149.                 11:count:=$20;
  150.                 12:count:=$10;
  151.                 13:count:=$8;
  152.                 14:count:=$4;
  153.                 15:count:=$2;
  154.                 16:count:=$1;
  155.                   end;
  156.         for   n:=1 to 16 do
  157.         begin
  159.                 case  n of
  160.                 1: canshu:=$8000;
  161.                 2: canshu:=$4000;
  162.                 3:canshu:=$2000;
  163.                 4:canshu:=$1000;
  164.                 5:canshu:=$800;
  165.                 6:canshu:=$400;
  166.                 7:canshu:=$200;
  167.                 8:canshu:=$100;
  168.                 9:canshu:=$80;
  169.                 10:canshu:=$40;
  170.                 11:canshu:=$20;
  171.                 12:canshu:=$10;
  172.                 13:canshu:=$8;
  173.                 14:canshu:=$4;
  174.                 15:canshu:=$2;
  175.                 16:canshu:=$1;
  176.                   end;
  177.             if (q[n] and count)<>0 then
  178.             begin
  179.            w:=w+ canshu;
  180.              end;
  182.          end;
  183.           stemp:=copy(inttohex(w,4),1,2)+'H';
  184.          stemp:=stemp+',';
  185.         if stemp[1]>'9' then stemp:='0'+stemp;
  186.         sss:=sss+stemp;
  187.           stemp:=copy(inttohex(w,4),3,2)+'H';
  188.         if ((2*m mod 8)<>0 )then stemp:=stemp+',';
  189.         if stemp[1]>'9' then stemp:='0'+stemp;
  190.         sss:=sss+stemp;
  192.         if m mod 4=0 then sss:=sss+char(13)+char(10);
  193.         label5.caption:=label5.caption+inttohex(ord(i[n]),2);
  196.                      end;
  197.              memo3.text:=sss;        
  198.         system.close(hzk16);
  199. end;
  201. procedure TForm1.Timer1Timer(Sender: TObject);
  203. begin
  204. case avifilename of
  205.    1: animate1.commonavi:=avicopyfile;
  206.    2: animate1.commonavi:=avicopyfiles;
  207.    3: animate1.commonavi:=aviemptyrecycle;
  208.    4: animate1.commonavi:=avifindcomputer;
  209.    5: animate1.commonavi:=avifindfolder;
  210.    6: animate1.commonavi:=avirecyclefile;
  211. end;
  212. avifilename:=avifilename+1;
  213. if avifilename=7 then avifilename:=1;
  214.  animate1.active:=true;
  216. end;
  218. procedure TForm1.FormCreate(Sender: TObject);
  219. begin
  220. avifilename:=1;
  221. animate1.active:=true;
  222. bitbtn1.click;
  223. end;
  225. procedure TForm1.Timer2Timer(Sender: TObject);
  226. begin
  227.  speedbutton1.Caption:=timetostr(now);
  228. end;
  230. end.