TC 中的汉字技术

2016-02-19 12:41 3 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);
  }
  点这里下载

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

延伸阅读
标签: ASP
  隧道技术基础 隧道技术是一种通过使用互联网络的基础设施在网络之间传递数据的方式。使用隧道传递的数据(或负载)可以是不同协议的数据 桢(此字不正确)或包。隧道协议将这些其它协议的数据桢或包重新封装在新的包头中发送。新的包头提供了路由信息,从而使封 装的负载数据能够通过互联网络传递。 被封装的数据包在隧道的两个端点之...
  Delphi中实现汉字拼音声母查询,unit代码如下: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     List...
标签: Web开发
利用JavaScript通过URL方式向后台代码传值是一种经常用到的手段,但在传递汉字时经常会出现字符不全或变成乱码的问题,其原因是由于客户端IE浏览器的编码方式为GB2312(简体中文版WINDOWS的默认设置),而后台的C#代码使用utf8编码(创建WEB工程的默认配置)。 网上有很多方案解决该问题,如将web.config的编码方式改为GB2312、在客户端通过esc...
标签: 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...

经验教程

809

收藏

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