VBA字符画-好玩-esASCII-Art

Moneky · 发表于 2019-5-6 18:36

本帖最后由 Moneky 于 2019-5-9 01:22 编辑

用vba生成字符画。
原理简述：

找一种等宽字体，这里找的是“幼圆”
用代码输出常用字符的点数，用点数÷（字宽×自高）得到百分比，将这个百分比与256级灰度相对应——同一个灰度会有多个字符对应，但也有一些灰度没有字符对应，没有对应的灰度值特殊处理——直接等于离它最近的灰度值
将图片数据读入数组，并转为灰度图
为了缩小字符画尺寸，每2×2个点为一组，计算256级灰度平均值
根据平均值查找对应的字符
OK

20190508 更新

现在支持PNG图片显示和处理，另外，采用了另一种方式获取图像数据。

20190509 更新

支持GIF播放
支持半透明PNG

下面是效果图：

扑腾 · 发表于 2019-5-6 19:12

支持原创，谢谢分享，顺便占座

lele6809 · 发表于 2019-5-6 19:13

有点意思

zopey · 发表于 2019-5-6 20:04

输出256字符比单元格一一上色速度快的多，可以尝试动画效果。

aecn · 发表于 2019-5-6 22:10

有意思，支持分享

Moneky · 发表于 2019-5-7 12:09

zopey 发表于 2019-5-6 20:04
输出256字符比单元格一一上色速度快的多，可以尝试动画效果。

嗯，空了试试，初步想法。用代码分解gif，然后逐帧显示。

cp121ok · 发表于 2019-5-7 13:11

厉害了。。。

零零度 · 发表于 2019-5-7 14:54

好玩，学习了

shaokui123 · 发表于 2019-5-7 21:20

支持原创，谢谢分享

HHAAMM · 发表于 2019-5-7 22:00

国内第一个用Excel制作的mv
http://club.excelhome.net/thread-711357-1-1.html
(出处: ExcelHome技术论坛)

这个我是将视频分解成图片，然后读取每一张图片相应点的色值转换成相应字符保存起来。播放的时候按顺序读取放到画面中。
链接中文件控制不了音频与播放速度同步，只是玩一玩没有深入研究音频问题。

		自动登录	找回密码
密码			免费注册

[原创] VBA字符画-好玩-esASCII-Art

评分