大概1年前些过程序生成字库的程序，今天又要用到了，结果找了半天找不到，只好再重新写一遍了，这个就是当时参考的教程，很不错的。
显示：
写入
------------------------------------------------------------------------------------------------------------------
转自：tgb论坛，原地址
在原理篇中已经讲解了字库的原理，下面从字库显示开始讲解如何用VB编写字库程序。
1BPP
仍然借用这个图：
行 ２进制数 转换为１６进制
|_|_|_|_|_|_|_|_| ０ ００００００００ ０
|_|_|_|X|X|_|_|_| １ ０００１１０００ １８
|_|_|X|_|_|X|_|_| ２ ００１００１００ ２４
|_|X|_|_|_|_|X|_| ３ 以下省略…………
|_|X|_|_|_|_|X|_| ４ ……………………
|_|X|X|X|X|X|X|_|
|_|X|_|_|_|_|X|_|
|_|X|_|_|_|_|X|_| ８ …… 一共８Byte
1、首先要打开ROM：
Dim sRomName as String 定义一个字符串来存放ROM路径
sRomName = "你存放ROM的绝对路径，比如：E:/0001.gba"
Open sRomName For Binary as #1 在１号工作区以２进制方式打开ROM
2、把字模数据读到数组以便处理
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) * 2
7、继续处理下面的数据
Next iX
Next iY
8、关闭工作区和ROM
Close #1
这里的程序只能处理１个字模，如果要１次显示多个字模就要多设定一个字数循环，并让数据读取的首地址根据字数递增而递增。
上面1BPP的程序写成VC MFC的格式，就是这个（原理是一模一样的）：
1、打开ROM
CString 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(); 获取图象框DC
2、读取TILE
BYTE 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、关闭ROM
Rom.Close();
……省略一些扫尾工作，不影响正常的显示
4BPP
1、打开ROM：
Dim sRomName as String
sRomName = "E:/0001.gba"
Open sRomName For Binary as #1
2、把字模数据读到数组（4*8=32，一共要读32Byte）
Dim bTileArray(31) as Byte 32Byte的数组用于存放字模数据
Get #1,bTileArray
3、虚拟调色板
Dim bPalIDLeft,bPalIDRight as Byte
Dim iPalCol(1) as Integer
iPalCol(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 2
bTile = bTileArray(iY*4+iX/2) 临时存放１byte，1Byte=8bit，含2个Pixel
bPalIDRight = (bTile and 0xF0)/16 获取前4Bit的值，作为右边像素点的颜色编号
5、处理后4Bit
bPalIDLeft = bTile and 0x0F
6、虚拟GBA硬件的索引过程
Pictrue1.Pset(iX,RGB(iPalCol(bPalIDLeft)) 画左边的像素点
Pictrue1.Pset(iX+1,RGB(iPalCol(bPalIDRight)) 画右边的像素点
7、继续处理下面的数据
Next iX
Next iY
8、关闭工作区和ROM
Close #1
4BPP VC
CString 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(字模开始地址,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,RGB(iPalCol(bPalIDLeft)));
pDC->SetPixel(iX+1,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 If
Next iX 转换下一个像素点
bTileArray[iY] = bTile 把临时存放的8个2进制位放到2进制串里
bTile = 0 把bTile的8个位清0，以便进行下一行的转换
Next iY 进入下一行的转换
3、把2进制串写入ROM
打开ROM
Dim sRomName as String
sRomName = "E:/rom.gba"
Open sRomName For Binary as #1
写入
Put #1,新字模开始地址,bTileArray
关闭ROM
Close #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如果要做字的阴影效果，只需要：１、把背景模式设定为“透明”２、先把前景色设定为灰色３、画１个向右下偏移１像素的灰色字符４、把前景色设定为白色５、画白色字符６、在转换的时候加入对阴影的处理
原文链接：https://www.f2er.com/vb/261427.html