[娱乐]Hope黑白动画

HOPE2021 · 发表于 2021-10-7 09:15:22

@Echo off
Mode Con: Cols=48 Lines=4
Color 0f
Chcp 936 > Nul
Title Hope Art Studio
@Goto :StartUp
:StartUp
Echo.
Echo. Please
Echo. Wait
For /l %%i in (1,1,144) do Call :Set_Bs
Set "Hope=Hope"
For /l %%i in (1,1,22) do Call :Set_Hope
Set "Studio=Studio"
For /l %%i in (1,1,21) do Call :Set_Studio
Set "Arrow[1]=^<"
For /l %%i in (1,1,11) do Call :Set_Arrow1
Set "Arrow[2]=^>"
For /l %%i in (1,1,11) do Call :Set_Arrow2
Cls
@Goto :Main
:Main
Set /p String=%Bs_% %Arrow[1]%%Hope%%Studio%%Arrow[2]% <Nul
Call :Sleep 512
Set /p String=%Bs_% %Arrow[1]% %Hope%%Studio% %Arrow[2]% <Nul
Call :Sleep 512
Set /p String=%Bs_% %Arrow[1]% %Hope%%Studio% %Arrow[2]% <Nul
Call :Sleep 512
Set /p String=%Bs_%%Arrow[1]% %Hope%%Studio% %Arrow[2]%<Nul
Call :Sleep 512
@Goto :Main
:Set_Bs
Set "Bs_=%Bs_%"
@Goto :Eof
:Set_Hope
Set "Hope= %Hope% "
@Goto :Eof
:Set_Studio
Set "Studio= %Studio% "
@Goto :Eof
:Set_Arrow1
Set "Arrow[1]=%Arrow[1]% ^<"
@Goto :Eof
:Set_Arrow2
Set "Arrow[2]=%Arrow[2]% ^>"
@Goto :Eof
:Sleep <Num>
For /l %%i in (1,1,%i) Do (
Set ReturnKey=1
)
@Goto :Eof

复制代码

By Hope2021
谢谢

zzz19760225 · 发表于 2021-10-7 09:42:20

这个也可以，还加上闪的那种。嘿嘿

HOPE2021 · 发表于 2021-10-7 09:46:09

回复 2# zzz19760225

还加上闪的那种

指什么?

zzz19760225 · 发表于 2021-10-7 09:51:03

本帖最后由 zzz19760225 于 2021-10-7 10:06 编辑

名字上下层交错闪白花点
蛮好蛮好，学习了学习了
有空作为样本抄写一部分
配上声音那个，可以做批处理动画了，要是模块化，可以做成简单软件，卖给业余居家的人，制作家庭简单影视，描述家庭情况或启蒙教育子女。

要一块钱那种，下载要原版的，就得去作者那里，一元微信，支付宝，或邮政，个人码什么的，简单又便宜。
全国大部分没多少钱，又喜欢丰富家庭生活，大有人在，但是必须得去别人的网络网站。单机的可以家内小群体记忆回忆，生日什么的各种纪念日可以有情淡泊的展示。总之我个人感觉需求量很大。

HOPE2021 · 发表于 2021-10-7 09:55:55

回复 4# zzz19760225
谢谢您的建议,将来会继续改进.

HOPE2021 · 发表于 2021-10-7 10:15:30

本帖最后由 HOPE2021 于 2021-10-7 10:19 编辑

回复 4# zzz19760225

可以做成简单软件

这是个远大的计划,需要上下求索.我只会一些界面设计,请参考[请在http://www.bathome.net/thread-60261-1-1.html下载配套的Colour.Exe]:

chcp 437
if "%1"=="" (
for %%a in ( FontSize:00100008
FontFamily:00000030
WindowSize:003d0050
ScreenColors:0000000f
CodePage:000001b5
ScreenBufferSize:003d0050
) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
>nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
)
start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
@Echo Off
Mode Con: Cols=80 Lines=30
Title Edit
Color 70
Chcp 936 > Nul
@Goto :Title
:Title
Colour 112
Set /p Title=# <Nul
Colour 15
Set /p Title=# F<Nul
Colour 8
Set /p Title=ile <Nul
Colour 112
Set /p Title=# <Nul
Call :TitleBar E dit
Call :TitleBar S earch
Call :TitleBar V iew
Call :TitleBar O ptions
Call :TitleBar H elp
Set /p Title=# <Nul
@Goto :Main
:Main
Colour 15
Set /p Main=＋<Nul
For /l %%i in (1,1,16) Do (
Set /p Main=—<Nul
)
Colour 112
Set /p Main=# UNTITLED <Nul
Colour 15
For /l %%i in (1,1,16) Do (
Set /p Main=—<Nul
)
Set /p Main=↑<Nul
For /l %%i in (1,1,26) Do (
Call :MainBar
)
Colour 15
Set /p Main=丨<Nul
Colour 31
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 15
Set /p Main=↓<Nul
Colour 112
Set /p Main=# Commands for manipulating files.<Nul
Colour 0
@Pause > Nul
@Exit /b 0
:TitleBar <FirstString> <String>
Colour 127
Set /p Title=%1<Nul
Colour 112
Set /p Title=%2 <Nul
@Goto :Eof
:MainBar
Colour 15
Set /p MainBar=丨<Nul
Colour 23
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 119
Set /p MainBar=■<Nul
@Goto :Eof

复制代码

zzz19760225 · 发表于 2021-10-7 10:33:05

本帖最后由 zzz19760225 于 2021-10-7 10:35 编辑

你太残忍了，我都忍不住去点击那个 edit 选项栏。你干嘛不显示tc2.0呢或者最好是debug。
我正想怎么弄个仿debug的汉字进制储存存取的，批处理伪数据存取。
不过计划嘛，总是比做的多，那是我的特征。

cmd1152 · 发表于 2021-10-7 10:48:37

回复 4# zzz19760225

服了你的商业头脑

HOPE2021 · 发表于 2021-10-7 11:46:02

回复 7# zzz19760225

Tc2.0

Tc2.0界面:
windows 7版:

chcp 437
if "%1"=="" (
for %%a in ( FontSize:00100008
FontFamily:00000030
WindowSize:003d0050
ScreenColors:0000000f
CodePage:000001b5
ScreenBufferSize:003d0050
) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
>nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
)
start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
@Echo Off
Mode Con: Cols=80 Lines=25
Title Turbo C
Color 70
Chcp 936 > Nul
@Goto :Title
:Title
Colour 124
Set /p Title=# ≡ <Nul
Call :TitleBar F ile
Call :TitleBar E dit
Call :TitleBar S earch
Call :TitleBar R un
Call :TitleBar C ompile
Call :TitleBar D ebug
Call :TitleBar P roject
Call :TitleBar O ptions
Set /p Title=# <Nul
Call :TitleBar W indow
Call :TitleBar H elp
@Goto :Main
:Main
Colour 31
Set /p Main=╔<Nul
For /l %%i in (1,1,16) Do (
Set /p Main=═<Nul
)
Colour 112
Set /p Main=# UNTITLED <Nul
Colour 31
For /l %%i in (1,1,13) Do (
Set /p Main=═<Nul
)
Set /p Main=1=[↑]╗<Nul
For /l %%i in (1,1,14) Do (
Call :MainBar
)
Colour 31
Set /p Main=║<Nul
Colour 31
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 31
Set /p Main=↓<Nul
Set /p Main=╚<Nul
For /l %%i in (1,1,38) Do (
Set /p Main=═<Nul
)
Set /p Main=╝<Nul
Colour 49
Set /p Main=╔<Nul
For /l %%i in (1,1,16) Do (
Set /p Main=═<Nul
)
Colour 62
Set /p Main=# Message <Nul
Colour 49
For /l %%i in (1,1,16) Do (
Set /p Main=═<Nul
)
Set /p Main=╗<Nul
For /l %%i in (1,1,4) Do (
Call :MessageBar
)
Set /p Main=╚<Nul
For /l %%i in (1,1,38) Do (
Set /p Main=═<Nul
)
Set /p Main=╝<Nul
Colour 116
Set /p Main=# F1<Nul
Colour 112
Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
Colour 0
Pause > Nul
@Exit /b 0
@Pause > Nul
:TitleBar <FirstString> <String>
Colour 124
Set /p Title=%1<Nul
Colour 112
Set /p Title=%2 <Nul
@Goto :Eof
:MainBar
Colour 31
Set /p MainBar=║<Nul
Colour 23
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 119
Set /p MainBar=■<Nul
@Goto :Eof
:MessageBar
Colour 49
Set /p MainBar=║<Nul
Colour 49
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 49
Set /p MainBar=║<Nul
@Goto :Eof

复制代码

Windows 10 版:

chcp 437
if "%1"=="" (
for %%a in ( FontSize:00100008
FontFamily:00000030
WindowSize:003d0050
ScreenColors:0000000f
CodePage:000001b5
ScreenBufferSize:003d0050
) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
>nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
)
start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
@Echo Off
Mode Con: Cols=80 Lines=25
Title Turbo C
Color 70
Chcp 936 > Nul
@Goto :Title
:Title
Colour 124
Set /p Title=# ≡ <Nul
Call :TitleBar F ile
Call :TitleBar E dit
Call :TitleBar S earch
Call :TitleBar R un
Call :TitleBar C ompile
Call :TitleBar D ebug
Call :TitleBar P roject
Call :TitleBar O ptions
Set /p Title=# <Nul
Call :TitleBar W indow
Call :TitleBar H elp
@Goto :Main
:Main
Colour 31
Set /p Main=＋<Nul
For /l %%i in (1,1,16) Do (
Set /p Main=—<Nul
)
Colour 112
Set /p Main=# UNTITLED <Nul
Colour 31
For /l %%i in (1,1,13) Do (
Set /p Main=—<Nul
)
Set /p Main=1-[↑]＋<Nul
For /l %%i in (1,1,14) Do (
Call :MainBar
)
Colour 31
Set /p Main=丨<Nul
Colour 31
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 31
Set /p Main=↓<Nul
Set /p Main=＋<Nul
For /l %%i in (1,1,38) Do (
Set /p Main=—<Nul
)
Set /p Main=＋<Nul
Colour 49
Set /p Main=＋<Nul
For /l %%i in (1,1,16) Do (
Set /p Main=—<Nul
)
Colour 62
Set /p Main=# Message <Nul
Colour 49
For /l %%i in (1,1,16) Do (
Set /p Main=—<Nul
)
Set /p Main=＋<Nul
For /l %%i in (1,1,4) Do (
Call :MessageBar
)
Set /p Main=＋<Nul
For /l %%i in (1,1,38) Do (
Set /p Main=—<Nul
)
Set /p Main=＋<Nul
Colour 116
Set /p Main=# F1<Nul
Colour 112
Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
Colour 0
Pause > Nul
@Exit /b 0
@Pause > Nul
:TitleBar <FirstString> <String>
Colour 124
Set /p Title=%1<Nul
Colour 112
Set /p Title=%2 <Nul
@Goto :Eof
:MainBar
Colour 31
Set /p MainBar=丨<Nul
Colour 23
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 119
Set /p MainBar=■<Nul
@Goto :Eof
:MessageBar
Colour 49
Set /p MainBar=丨<Nul
Colour 49
For /l %%i in (1,1,38) Do (
Set /p Main=# <Nul
)
Colour 49
Set /p MainBar=丨<Nul
@Goto :Eof

复制代码

zzz19760225 · 发表于 2021-10-7 12:01:20

回复 9# HOPE2021

居然真有！

HOPE2021 · 发表于 2021-10-7 12:02:27

回复 10# zzz19760225
路漫漫(曼曼)其修远兮,吾将上下而求索。

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

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[特效代码] [娱乐]Hope黑白动画

评分