TC 中的汉字技术

2016-02-19 12:41 6 1 收藏

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的TC 中的汉字技术,希望大家看完后能赶快学习起来。

【 tulaoshi.com - 编程语言 】

/*--------本程序由sunny整理完成-----------*/
  ***  基于DOS平台,在Turbo c2.0中调试通过 **
  ***   原码见于http://sunny1979.icpcn.com           http://tchome.icpcn.com     ***/#include "conio.h"
  #include "stdio.h"
  #include "graphics.h"
  #include "stdlib.h"
  #include "dos.h"void *buffer;
  FILE *fp;void hz(int x,int y,int a,int COL,int b,char *s)
  {
   int ROW;
   char buffer[32];
   register m,n,i,j,k;
   unsigned char qh,wh;
   unsigned long offset;
   ROW=COL;
   while(*s)
    {
     qh=*(s)-0xa0;
     wh=*(s+1)-0xa0;
     offset=(94*(qh-1)+(wh-1))*32L;
     fseek(fp,offset,SEEK_SET);
     fread(buffer,32,1,fp);
     for (i=0;i16;i++)
     for(n=0;nROW;n++)
     for(j=0;j2;j++)
     for(k=0;k8;k++)
     for(m=0;mCOL;m++)
     if (((buffer[i*2+j](7-k))&0x1)!=NULL)
       putpixel(x+8*j*COL+k*COL+m,y+i*ROW+n,b);
     s+=2;
     x+=a;
     }
  }main()
  {
   int GD=DETECT,GM;
   initgraph(&GD,&GM,"");
   if ((fp=fopen("hzk16","rb"))==NULL)
       { printf("Can't open haz16,Please add it");
      getch(); closegraph(); exit(0);
       }
  hz(342,245,25,1,4,"确定");
  getch();
  closegraph();
          close(fp);
          clrscr();
          exit(0);
  }
  点这里下载

来源:http://www.tulaoshi.com/n/20160219/1601525.html

延伸阅读
标签: Web开发
利用JavaScript通过URL方式向后台代码传值是一种经常用到的手段,但在传递汉字时经常会出现字符不全或变成乱码的问题,其原因是由于客户端IE浏览器的编码方式为GB2312(简体中文版WINDOWS的默认设置),而后台的C#代码使用utf8编码(创建WEB工程的默认配置)。 网上有很多方案解决该问题,如将web.config的编码方式改为GB2312、在客户端通过esc...
  Delphi中实现汉字拼音声母查询,unit代码如下: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     List...
标签: 电脑入门
在使用word2007的时候是否遇到过输入法只能打英文,不能输入中文。使用ctrl+space或者ctrl+shift也无法切换出中文输入法。 其实这是word2007的设置问题,解决方法如下: 1.打开一个word文本,选中左上角的圆圈,点击word选项 2.选项打开之后,选择高级,然后把输入法处于活动状态的钩钩去掉.
标签: ASP
  选择电影院和上映时间 这部分代码让用户来选择看什么时间的电影,所有的记录根据前一页所选的电影来决定。在这里来选择电影院和上映时间. movie_id = Request("movie") sqlQuery = "SELECT title FROM movie WHERE Movie_id = " & movie_id set rsMovie = conn.Execute(sqlQuery) movie_title = rsMovie(...
标签: ASP
  第一节: WAP的潜能 这些日子,我们常听到WAP技术,一种手机上网的技术。从技术上讲,移动电话不可能和PC来竞争,移动电话的屏幕只能容下 很少的字符,它的带宽也是很受限制,而且输入也很笨拙。那我为什么还要 介绍它了,嘿嘿,这里有两个主要的我认为WAP一定有 成功的因素。 随处性: 只要你有手机,你到哪里都可以访问w...

经验教程

583

收藏

5
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部