字符画

haifutw

    QQ字符画
是一个文字型字符画生成软件,并且还有聊天辅助之功效。
它不仅能生成文字型字符画，还收集了很多经典的聊天语句、个性签名等。
其中“傻瓜形字符画转换功能”也是QQ字符画的一大特色，
可以转换用户输入的任何文字，用户可以自由选择或修改生成字符画的字符。
方便、实用、小巧，从此让生活变得更精彩 ^_^ !

  

子程序名	返回值类型	公开	备 注
_按钮_转换_被单击

变量名	类 型	静态	数组	备 注
y	整数型
x	整数型
n	整数型
h	整数型
分割数组	文本型		0
白色字符	文本型
黑色字符	文本型
n1	整数型

如果 (取文本长度 (组合框_空白字符.内容) ＝ 1)  ' ——-————判读【白色字符】是否为单字节文字，比如.，、如果是就加一个空格补充为双字节，
白色字符 ＝ 组合框_空白字符.内容 ＋ “ ”
如果 (取文本长度 (组合框_空白字符.内容) ＝ 0)
白色字符 ＝ “  ”
白色字符 ＝ 组合框_空白字符.内容


如果 (取文本长度 (组合框_填充字符.内容) ＝ 1)  ' ——-————判读【黑色字符】是否为单字节文字，比如.，、如果是就加一个空格补充为双字节，
黑色字符 ＝ 组合框_填充字符.内容 ＋ “ ”
如果 (取文本长度 (组合框_填充字符.内容) ＝ 0)
黑色字符 ＝ “  ”
黑色字符 ＝ 组合框_填充字符.内容


编辑框_显示.内容 ＝ “”
延迟 (1)
画板1.可视 ＝ 真
编辑框_输入.内容 ＝ 到全角 (编辑框_输入.内容)
如果 (单选框横向转换.选中 ＝ 真)
如果真 (_启动窗口.左边 ＜ -10)
_启动窗口.左边 ＝ 1
延迟 (5)
如果 (取文本长度 (编辑框_输入.内容) × 77 ＞ _启动窗口.宽度)  ' ................ 调整窗口.............
判断循环首 (_启动窗口.宽度 ＜ 取文本长度 (编辑框_输入.内容) × 77 且 _启动窗口.宽度 ＜ 取屏幕宽度 ())
如果 (_启动窗口.左边 ＞ 1 且 _启动窗口.左边 ＋ _启动窗口.宽度 ＜ 取屏幕宽度 ())
_启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 30
_启动窗口.左边 ＝ _启动窗口.左边 － 15

如果 (_启动窗口.左边 ≤ 1)
_启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 15


_启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 15
_启动窗口.左边 ＝ _启动窗口.左边 － 15

延迟 (1)  ' 不加延时 窗口显示不全
判断循环尾 ()



如果 (取屏幕宽度 () ＜ 1400 且 取文本长度 (编辑框_输入.内容) ＞ 12)
编辑框_显示.对齐方式 ＝ 0
编辑框_显示.对齐方式 ＝ 1

画板1.宽度 ＝ (取文本长度 (编辑框_输入.内容) ＼ 2 ＋ 取文本长度 (编辑框_输入.内容) ％ 2) × 13  ' 除以2得到每个文字的个数+余数 *每个文字占的13个像素。
画板1.清除 (, , , )
画板1.定位写出 (1, 1, 编辑框_输入.内容)
计次循环首 (取文本长度 (编辑框_输入.内容) × 6 ＋ 1, )  ' 这个循环是填充字符画最上面那一行的代码。
编辑框_显示.加入文本 (白色字符)
计次循环尾 ()
计次循环首 (12, y)  ' 循环12次，就是生成12行。
编辑框_显示.加入文本 ( #换行符 ＋ 白色字符)  ' 这个如果是填充每行的第一个字符的
' 这个循环是填充每行的，并判断是文字区域还是空白区域。
计次循环首 (取文本长度 (编辑框_输入.内容) × 6, x)  ' 每个字节占6个像素（6个点）一个文字占两个字节，
如果 (画板1.取点 (x, y) ＝ #白色 )
编辑框_显示.加入文本 (白色字符)
编辑框_显示.加入文本 (黑色字符)
' 调试输出 (画板1.取点 (x, y))
计次循环尾 ()
' 调试输出 (“第”, y, “行”)
计次循环尾 ()
计次循环首 (编辑框_显示.高度 ＼ 12 － 14, h)  ' 整除后得到整个[编辑框_显示]的行数，在减去【不可不信】占得13行就OK了
编辑框_显示.加入文本 ( #换行符 )
' 调试输出 (编辑框_显示.高度 ＼ 12)
计次循环尾 ()
编辑框_显示.加入文本 (“ 欢迎交流 作者QQ 574783833”)
' ———————————————————————往下是否则———————————————————————————————
' 画板1.宽度 ＝ 26
编辑框_显示.对齐方式 ＝ 1
如果 (取文本长度 (编辑框_输入.内容) × 77 ＞ _启动窗口.高度)  ' ——————↓————————调整窗口———
判断循环首 (_启动窗口.高度 ＜ 取文本长度 (编辑框_输入.内容) × 77 ＋ 80 且 _启动窗口.高度 ＜ 取屏幕高度 () － 30)
如果 (_启动窗口.顶边 ＞ 5 且 _启动窗口.顶边 ＋ _启动窗口.高度 ＜ 取屏幕高度 () － 30)
_启动窗口.高度 ＝ _启动窗口.高度 ＋ 20
_启动窗口.顶边 ＝ _启动窗口.顶边 － 10

如果 (_启动窗口.顶边 ≤ 5)
_启动窗口.高度 ＝ _启动窗口.高度 ＋ 15


_启动窗口.高度 ＝ _启动窗口.高度 ＋ 15
_启动窗口.顶边 ＝ _启动窗口.顶边 － 15

延迟 (1)  ' 不加延时 窗口显示不全
判断循环尾 ()

' —————————————————————————————————————↑————————调整窗口————

画板1.宽度 ＝ 单字宽度 ＋ 1  ' 11是一个字的固定宽度。
画板1.高度 ＝ 单字高度 ＋ 1  ' 11是一个字的固定宽度。
计次循环首 (取文本长度 (编辑框_输入.内容) ÷ 2, n)
画板1.清除 (, , , )
画板1.定位写出 ( (单字宽度 － 11) ÷ 2 ＋ 1, (单字高度 － 11) ÷ 2 ＋ 1, 取文本中间 (编辑框_输入.内容, n ＋ n － 1, 2))
计次循环首 (单字高度, y)  ' ——————————————————竖向。
编辑框_显示.加入文本 ( #换行符 )
计次循环首 (单字宽度, x)  ' ——————————————————横向。
如果 (画板1.取点 (x, y) ＝ #白色 )
编辑框_显示.加入文本 (白色字符)
编辑框_显示.加入文本 (黑色字符)
' 调试输出 (画板1.取点 (x, y))
计次循环尾 ()
' 调试输出 (“第”, y, “行”)
计次循环尾 ()
计次循环尾 ()
画板1.可视 ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_转换_被单击<br /> .局部变量 y, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 h, 整数型<br /> .局部变量 分割数组, 文本型, , "0"<br /> .局部变量 白色字符, 文本型<br /> .局部变量 黑色字符, 文本型<br /> .局部变量 n1, 整数型<br /> <br /> .如果 (取文本长度 (组合框_空白字符.内容) ＝ 1)  ' ——-————判读【白色字符】是否为单字节文字，比如.，、如果是就加一个空格补充为双字节，<br />     白色字符 ＝ 组合框_空白字符.内容 ＋ “ ”<br /> .否则<br />     .如果 (取文本长度 (组合框_空白字符.内容) ＝ 0)<br />         白色字符 ＝ “  ”<br />     .否则<br />         白色字符 ＝ 组合框_空白字符.内容<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (取文本长度 (组合框_填充字符.内容) ＝ 1)  ' ——-————判读【黑色字符】是否为单字节文字，比如.，、如果是就加一个空格补充为双字节，<br />     黑色字符 ＝ 组合框_填充字符.内容 ＋ “ ”<br /> .否则<br />     .如果 (取文本长度 (组合框_填充字符.内容) ＝ 0)<br />         黑色字符 ＝ “  ”<br />     .否则<br />         黑色字符 ＝ 组合框_填充字符.内容<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 编辑框_显示.内容 ＝ “”<br /> 延迟 (1)<br /> 画板1.可视 ＝ 真<br /> 编辑框_输入.内容 ＝ 到全角 (编辑框_输入.内容)<br /> <br /> .如果 (单选框横向转换.选中 ＝ 真)<br />     .如果真 (_启动窗口.左边 ＜ -10)<br />         _启动窗口.左边 ＝ 1<br />         延迟 (5)<br /> <br />     .如果真结束<br />     .如果 (取文本长度 (编辑框_输入.内容) × 77 ＞ _启动窗口.宽度)  ' ................ 调整窗口.............<br />         .判断循环首 (_启动窗口.宽度 ＜ 取文本长度 (编辑框_输入.内容) × 77 且 _启动窗口.宽度 ＜ 取屏幕宽度 ())<br />             .如果 (_启动窗口.左边 ＞ 1 且 _启动窗口.左边 ＋ _启动窗口.宽度 ＜ 取屏幕宽度 ())<br />                 _启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 30<br />                 _启动窗口.左边 ＝ _启动窗口.左边 － 15<br /> <br />             .否则<br />                 .如果 (_启动窗口.左边 ≤ 1)<br />                     _启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 15<br />                 .否则<br /> <br />                     _启动窗口.宽度 ＝ _启动窗口.宽度 ＋ 15<br />                     _启动窗口.左边 ＝ _启动窗口.左边 － 15<br /> <br />                 .如果结束<br /> <br />             .如果结束<br />             延迟 (1)  ' 不加延时 窗口显示不全<br />         .判断循环尾 ()<br />     .否则<br /> <br />     .如果结束<br /> <br />     .如果 (取屏幕宽度 () ＜ 1400 且 取文本长度 (编辑框_输入.内容) ＞ 12)<br />         编辑框_显示.对齐方式 ＝ 0<br />     .否则<br />         编辑框_显示.对齐方式 ＝ 1<br />     .如果结束<br /> <br />     画板1.宽度 ＝ (取文本长度 (编辑框_输入.内容) ＼ 2 ＋ 取文本长度 (编辑框_输入.内容) ％ 2) × 13  ' 除以2得到每个文字的个数+余数 *每个文字占的13个像素。<br />     画板1.清除 (, , , )<br />     画板1.定位写出 (1, 1, 编辑框_输入.内容)<br /> <br /> <br />     .计次循环首 (取文本长度 (编辑框_输入.内容) × 6 ＋ 1, )  ' 这个循环是填充字符画最上面那一行的代码。<br />         编辑框_显示.加入文本 (白色字符)<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (12, y)  ' 循环12次，就是生成12行。<br /> <br />         编辑框_显示.加入文本 (#换行符 ＋ 白色字符)  ' 这个如果是填充每行的第一个字符的<br /> <br />         ' 这个循环是填充每行的，并判断是文字区域还是空白区域。<br />         .计次循环首 (取文本长度 (编辑框_输入.内容) × 6, x)  ' 每个字节占6个像素（6个点）一个文字占两个字节，<br />             .如果 (画板1.取点 (x, y) ＝ #白色)<br />                 编辑框_显示.加入文本 (白色字符)<br />             .否则<br />                 编辑框_显示.加入文本 (黑色字符)<br />             .如果结束<br />             ' 调试输出 (画板1.取点 (x, y))<br />         .计次循环尾 ()<br />         ' 调试输出 (“第”, y, “行”)<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (编辑框_显示.高度 ＼ 12 － 14, h)  ' 整除后得到整个[编辑框_显示]的行数，在减去【不可不信】占得13行就OK了<br />         编辑框_显示.加入文本 (#换行符)<br />         ' 调试输出 (编辑框_显示.高度 ＼ 12)<br /> <br />     .计次循环尾 ()<br />     编辑框_显示.加入文本 (“ 欢迎交流 作者QQ 574783833”)<br /> <br />     ' ———————————————————————往下是否则———————————————————————————————<br /> .否则<br />     ' 画板1.宽度 ＝ 26<br />     编辑框_显示.对齐方式 ＝ 1<br /> <br />     .如果 (取文本长度 (编辑框_输入.内容) × 77 ＞ _启动窗口.高度)  ' ——————↓————————调整窗口———<br />         .判断循环首 (_启动窗口.高度 ＜ 取文本长度 (编辑框_输入.内容) × 77 ＋ 80 且 _启动窗口.高度 ＜ 取屏幕高度 () － 30)<br />             .如果 (_启动窗口.顶边 ＞ 5 且 _启动窗口.顶边 ＋ _启动窗口.高度 ＜ 取屏幕高度 () － 30)<br />                 _启动窗口.高度 ＝ _启动窗口.高度 ＋ 20<br />                 _启动窗口.顶边 ＝ _启动窗口.顶边 － 10<br /> <br />             .否则<br />                 .如果 (_启动窗口.顶边 ≤ 5)<br />                     _启动窗口.高度 ＝ _启动窗口.高度 ＋ 15<br />                 .否则<br /> <br />                     _启动窗口.高度 ＝ _启动窗口.高度 ＋ 15<br />                     _启动窗口.顶边 ＝ _启动窗口.顶边 － 15<br /> <br />                 .如果结束<br /> <br />             .如果结束<br />             延迟 (1)  ' 不加延时 窗口显示不全<br />         .判断循环尾 ()<br /> <br />     .否则<br />         ' —————————————————————————————————————↑————————调整窗口————<br />     .如果结束<br /> <br />     画板1.宽度 ＝ 单字宽度 ＋ 1  ' 11是一个字的固定宽度。<br />     画板1.高度 ＝ 单字高度 ＋ 1  ' 11是一个字的固定宽度。<br /> <br />     .计次循环首 (取文本长度 (编辑框_输入.内容) ÷ 2, n)<br />         画板1.清除 (, , , )<br />         画板1.定位写出 ((单字宽度 － 11) ÷ 2 ＋ 1, (单字高度 － 11) ÷ 2 ＋ 1, 取文本中间 (编辑框_输入.内容, n ＋ n － 1, 2))<br /> <br />         .计次循环首 (单字高度, y)  ' ——————————————————竖向。<br /> <br />             编辑框_显示.加入文本 (#换行符)<br /> <br />             .计次循环首 (单字宽度, x)  ' ——————————————————横向。<br />                 .如果 (画板1.取点 (x, y) ＝ #白色)<br />                     编辑框_显示.加入文本 (白色字符)<br />                 .否则<br />                     编辑框_显示.加入文本 (黑色字符)<br /> <br />                 .如果结束<br />                 ' 调试输出 (画板1.取点 (x, y))<br />             .计次循环尾 ()<br />             ' 调试输出 (“第”, y, “行”)<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> <br /> .如果结束<br /> 画板1.可视 ＝ 假

gaoqing

正好需要！