大概1年前些过程序生成字库的程序，今天又要用到了，结果找了半天找不到，只好再重新写一遍了，这个就是当时参考的教程，很不错的。
显示：
1BPP_VB
1BPP_VC
4BPP_VB
4BPP_VC
写入
1BPP_VB
4BPP_VB
------------------------------------------------------------------------------------------------------------------
转自：tgb论坛，原地址
在原理篇中已经讲解了字库的原理，下面从字库显示开始讲解如何用VB编写字库程序。
1BPP仍然借用这个图： 行 ２进制数 转换为１６进制|_|_|_|_|_|_|_|_| ０ ００００００００ ０|_|_|_|X|X|_|_|_| １ ０００１１０００ １８|_|_|X|_|_|X|_|_| ２ ００１００１００ ２４|_|X|_|_|_|_|X|_| ３ 以下省略…………|_|X|_|_|_|_|X|_| ４ ……………………|_|X|X|X|X|X|X|_||_|X|_|_|_|_|X|_||_|X|_|_|_|_|X|_| ８ …… 一共８Byte1、首先要打开ROM：Dim sRomName as String 定义一个字符串来存放ROM路径sRomName = "你存放ROM的绝对路径，比如：E:/0001.gba"Open sRomName For Binary as #1 在１号工作区以２进制方式打开ROM2、把字模数据读到数组以便处理Dim bTileArray(7) as Byte 定义一个8Byte的数组用于存放字模数据Get #1,字模开始地址,bTileArray 从１号工作区的字模开始地址处，获取字模数据3、虚拟一部分调色板Dim bPalID as Byte 定义一个Byte变量存放颜色编号Dim iPalCol(1) as Integer 虚拟一部分调色板iPalCol(0) = 0x00 将虚拟调色板的０号颜色设为黑iPalCol(1) = 0xFFFFFF 将１号颜色设为白4、按顺序把每个２进制位的值提取出来Dim bTile as Byte 临时存放1byte字模数据Dim iX,iY as Integer 定义两个整数变量记录当前在字模里的坐标For iY = 0 To 7 设定循环，这里表示字模纵向有８行bTile = bTileArray(iY) 临时存放１Byte数据，方便处理For iX = 0 To 7 设定循环，这里表示字模横向有８列bPalID = bTile/256 获取最高点的２进制位的值，作为编号5、虚拟GBA硬件的索引过程Pictrue1.Pset(iX,iY),RGB(iPalCol(bPalID))上面这句是：用编号索引到虚拟调色板iPalCol的bPalID号颜色，再把这个颜色画到图象框控件Picture1的（iX,iY）点上。6、将临时数据左移１位，这样第２高的２进制位就变最高位bTile = (bTile and 0x7F) * 27、继续处理下面的数据Next iXNext iY8、关闭工作区和ROMClose #1这里的程序只能处理１个字模，如果要１次显示多个字模就要多设定一个字数循环，并让数据读取的首地址根据字数递增而递增。
上面1BPP的程序写成VC MFC的格式，就是这个（原理是一模一样的）：1、打开ROMCString sRomName="E:/rom.gba";CFile Rom;Rom.Open(_T(sRomName),CFile::modeReadWrite|CFile::shareDenyNone)获取图象框的“设备上下文”（Device Content），下面画点的时候要用。CWnd *pImg=GetDlgItem(IDC_STATIC) 获取图象框指针CDC *pDC=pImg->GetDC(); 获取图象框DC2、读取TILEBYTE bTileArray[8];Rom.Seek(字模开始地址,CFile::begin);Rom.Read(bTileArray,8);3、虚拟调色板BYTE bPalID;int iPalCol[2]={0x00,0xFFFFFF};4、提取编号BYTE bTile;for(int iY=0;iY<7;iY++){ bTile=bTileArray[iY]; for(int iX=0;iX<7;iX++) { bPalID=bTile/256;5、索引颜色并画点 pDC->SetPixel(iX,iY,RGB(iPalCol(bPalID)));6、移位操作 bTile=(bTile & 0x7F) * 2; }}7、关闭ROMRom.Close();……省略一些扫尾工作，不影响正常的显示
4BPP1、打开ROM：Dim sRomName as StringsRomName = "E:/0001.gba"Open sRomName For Binary as #12、把字模数据读到数组（4*8=32，一共要读32Byte）Dim bTileArray(31) as Byte 32Byte的数组用于存放字模数据Get #1,字模开始地址,bTileArray3、虚拟调色板Dim bPalIDLeft,bPalIDRight as ByteDim iPalCol(1) as IntegeriPalCol(0) = 0x00 黑色iPalCol(1) = 0xFFFFFF 白色iPalCol(2) = 0xD0D0D0 灰色iPalCol(3) = ………………iPalCol(15) = …… 4BPP能表示0~15这16个数，可以根据需要赋值4、按顺序把每4个２进制位的值提取出来Dim bTile as Byte Dim iX,iY as Integer For iY = 0 To 7 For iX = 0 To 7 Step 2bTile = bTileArray(iY*4+iX/2) 临时存放１byte，1Byte=8bit，含2个PixelbPalIDRight = (bTile and 0xF0)/16 获取前4Bit的值，作为右边像素点的颜色编号5、处理后4BitbPalIDLeft = bTile and 0x0F 6、虚拟GBA硬件的索引过程Pictrue1.Pset(iX,iY),RGB(iPalCol(bPalIDLeft)) 画左边的像素点Pictrue1.Pset(iX+1,iY),RGB(iPalCol(bPalIDRight)) 画右边的像素点7、继续处理下面的数据Next iXNext iY8、关闭工作区和ROMClose #1
4BPP VCCString sRomName="E:/rom.gba";CFile Rom;Rom.Open(_T(sRomName),CFile::modeReadWrite|CFile::shareDenyNone);CWnd *pImg=GetDlgItem(IDC_STATIC);CDC *pDC=pImg->GetDC();BYTE bTileArray[32];Rom.Seek(字模开始地址,CFile::begin);Rom.Read(bTileArray,32);BYTE bPalIDLeft,bPalIDRight;int iPalCol[16]={0x00,0xFFFFFF,0xD0D0D0,……根据需要设定颜色，这里仍然是白底黑字、带灰色阴影};BYTE bTile;for(int iY=0;iY<7;iY++){ for(int iX=0;iX<7;iX+=2) { bTile=bTileArray(iY*4+iX/2); bPalIDRight=(bTile & 0xF0)/16; bPalIDLeft=bTile & 0x0F; pDC->SetPixel(iX,iY,RGB(iPalCol(bPalIDLeft))); pDC->SetPixel(iX+1,iY,RGB(iPalCol(bPalIDRight))); }}Rom.Close();
1BPP VB篇字模写入过程1、先要用程序画一个中文字符2、根据字库原理，把字符转换为2进制数据串3、把数据串写进ROM用程序实现上面过程1、在图象框画字符设定字体大小、字体名With Picture1.Font.Size = 9.Name = "宋体"End With设定前景色，这里是字体的颜色，设为白色Picture1.ForeColor = White设定背景色，这里设为黑色。Picture1.BackColor = Black在图象框画字符Picture1.Print "你要写入字库的字，比如'我'字"2、按顺序获取像素点颜色，并转换为2进制串Dim iPixelCol as Integer '用于存放获取的像素点颜色Dim bTileArray[7] as Byte '用于存放字模2进制串Dim bTile as Byte '用于临时存放8个2进制位（1Byte）Dim iX,iY as Integer '用于存放坐标For iY = 0 to 7 纵向８行循环For iX = 0 to 7 横向８列循环获取像素点颜色值iPixelCol = Picture1.Point(iX,iY)转换为2进制数据If iPixelCol<>0 Then 如果像素点不是黑色bTile = (bTile+1)*2 给最低位赋值为1（因为白色是1号颜色）并左移1位Else 如果是黑色bTile = (bTile+0)*2 给最低位赋值0（黑色是0号颜色）并左移1位End IfNext iX 转换下一个像素点bTileArray[iY] = bTile 把临时存放的8个2进制位放到2进制串里bTile = 0 把bTile的8个位清0，以便进行下一行的转换Next iY 进入下一行的转换3、把2进制串写入ROM打开ROMDim sRomName as StringsRomName = "E:/rom.gba"Open sRomName For Binary as #1写入Put #1,新字模开始地址,bTileArray关闭ROMClose #1
4BPP VB篇With Picture1.Font.Size = 9.Name = "宋体"End WithPicture1.ForeColor = WhitePicture1.BackColor = BlackPicture1.Print "我"Dim iPixelCol as IntegerDim bTileArray[31] as ByteDim bTile as ByteDim iX,iY as IntegerFor iY = 0 to 7For iX = 0 to 7 Step 2iPixelCol = Picture1.Point(iX+1,iY) 右边的像素点If iPixelCol<>0 ThenbTile = (bTile+1)*16ElsebTile = (bTile+0)*16End IfiPixelCol = Picture1.Point(iX,iY) 左边的像素点If iPixelCol<>0 ThenbTile = bTile+1ElsebTile = bTile+0End IfbTileArray[iY*4+iX/2] = bTilebTile = 0Next iXNext iYDim sRomName as StringsRomName = "E:/rom.gba"Open sRomName For Binary as #1Put #1,新字模开始地址,bTileArrayClose #1如果要做字的阴影效果，只需要：１、把背景模式设定为“透明”２、先把前景色设定为灰色３、画１个向右下偏移１像素的灰色字符４、把前景色设定为白色５、画白色字符６、在转换的时候加入对阴影的处理
