|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
 『楼 主』:
再来个彩色的小动画[己更新为调用函数]
使用 LLM 解释/回答一下
未及细做，先发了：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在六楼已更新至调用函数（最大程度上简化化码）
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"
set "f3=for /l %%i in (1,1,40) do"
set "f4=for /l %%i in (1,1,5) do"
set "sp=set /p= <nul"
:begin
set /a m=%random%%%16
call,color 0%%clo:~%m%,1%%
cls&echo.&call,echo
echo.
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
goto begin
:lp
set /a n=%random%%%16
call,set c=%%clo:~%n%,1%%
Last edited by zw19750516 on 2008-4-24 at 05:32 PM ]
Not yet fully done, posted first:
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Updated to the function call on the sixth floor (simplifying the code to the greatest extent)
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"
set "f3=for /l %%i in (1,1,40) do"
set "f4=for /l %%i in (1,1,5) do"
set "sp=set /p= <nul"
:begin
set /a m=%random%%%16
call,color 0%%clo:~%m%,1%%
cls&echo.&call,echo
echo.
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
goto begin
:lp
set /a n=%random%%%16
call,set c=%%clo:~%n%,1%%
Last edited by zw19750516 on 2008-4-24 at 05:32 PM ]
|
批处理之家新域名：www.bathome.net |
|
 2008-4-23 19:20 |
|
|
huahua0919
银牌会员
积分 1608
发帖 780
注册 2007-10-7
状态 离线
|
|
|
2008-4-23 19:26 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 3 楼』:
再加一点变化：
使用 LLM 解释/回答一下
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"
set "f3=for /l %%i in (1,1,40) do"
set "sp=set /p= <nul"
:begin
set /a m=%random%%%16
call,color 0%%clo:~%m%,1%%
cls&echo.&echo
echo.
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%%b%&findstr /a:%c% .* "%a%%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%%a%&findstr /a:%c% .* "%b%%a%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
goto begin
:lp
set /a n=%random%%%16
call,set c=%%clo:~%n%,1%%
del /q %a% %b% %a%%b% %b%%a% 2>nul
Last edited by zw19750516 on 2008-4-23 at 10:45 PM ]
```batch
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"
set "f3=for /l %%i in (1,1,40) do"
set "sp=set /p= <nul"
:begin
set /a m=%random%%%16
call,color 0%%clo:~%m%,1%%
cls&echo.&echo
echo.
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%%b%&findstr /a:%c% .* "%a%%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%%a%&findstr /a:%c% .* "%b%%a%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f3% %sp%
call :lp
%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul
%f2% %sp%
call :lp
%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul
%f3% %sp%
goto begin
:lp
set /a n=%random%%%16
call,set c=%%clo:~%n%,1%%
del /q %a% %b% %a%%b% %b%%a% 2>nul
```
Last edited by zw19750516 on 2008-4-23 at 10:45 PM ]
|
批处理之家新域名：www.bathome.net |
|
|
2008-4-23 22:36 |
|
|
plp626
银牌会员
钻石会员
积分 2278
发帖 1020
注册 2007-11-19
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
建议兄把代码精简下，这样的代码很重复：
不然那个colstr函数白写了
It is suggested that brother simplify the code. Such code is too repetitive: otherwise, the colstr function is written in vain.
|
山外有山，人外有人；低调做人，努力做事。
进入网盘(各种工具)~~ 空间~~cmd学习 |
|
|
2008-4-23 22:43 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 5 楼』:
使用 LLM 解释/回答一下
我不要那个函数，不怎么好用，我还是自己来写个吧。
I don't want that function. It's not very useful. I'll write one myself.
|
批处理之家新域名：www.bathome.net |
|
|
2008-4-23 22:46 |
|
|
plp626
银牌会员
钻石会员
积分 2278
发帖 1020
注册 2007-11-19
状态 离线
|
|
|
2008-4-23 22:56 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 7 楼』:
更新至函数：
使用 LLM 解释/回答一下
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
:begin
set /a m=%random%%%16
if "%m%"=="0" goto begin
call,color 0%%clo:~%m%,1%%
cls&echo.&echo
echo.
call :lp 20 %%a%% 40
call :lp 20 %%b%% 40
call :lp 20 %%a%% 40
call :lp 20 %%b%% 40
call :lp 10 %%a%%%%b%% 40
call :lp 10 %%b%%%%a%% 40
call :lp 10 %%a%%%%b%% 40
call :lp 10 %%b%%%%a%% 40
call :lp 20 %%a%% 20
call :lp 10 %%b%% 40
call :lp 20 %%b%% 20
call :lp 10 %%a%% 40
call :lp 10 %%a%%
call :lp 10 %%b%% 40
call :lp 10 %%a%%
call :lp 10 %%b%% 40
call :lp 10 %%b%%
call :lp 10 %%a%% 40
call :lp 10 %%b%%
call :lp 10 %%a%% 40
goto begin
:lp
set /a m=%random%%%16
if "%m%"=="0" goto lp
for /l %%i in (1,1,%1) do set /p= <nul>%2&findstr /a:%m% .* "%2*" 2>nul
for /l %%i in (1,1,%3) do set /p= <nul
del /q %a% %b% %a%%b% %b%%a% 2>nul
Last edited by zw19750516 on 2008-4-26 at 12:18 PM ]
```@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
:begin
set /a m=%random%%%16
if "%m%"=="0" goto begin
call,color 0%%clo:~%m%,1%%
cls&echo.&echo
echo.
call :lp 20 %%a%% 40
call :lp 20 %%b%% 40
call :lp 20 %%a%% 40
call :lp 20 %%b%% 40
call :lp 10 %%a%%%%b%% 40
call :lp 10 %%b%%%%a%% 40
call :lp 10 %%a%%%%b%% 40
call :lp 10 %%b%%%%a%% 40
call :lp 20 %%a%% 20
call :lp 10 %%b%% 40
call :lp 20 %%b%% 20
call :lp 10 %%a%% 40
call :lp 10 %%a%%
call :lp 10 %%b%% 40
call :lp 10 %%a%%
call :lp 10 %%b%% 40
call :lp 10 %%b%%
call :lp 10 %%a%% 40
call :lp 10 %%b%%
call :lp 10 %%a%% 40
goto begin
:lp
set /a m=%random%%%16
if "%m%"=="0" goto lp
for /l %%i in (1,1,%1) do set /p= <nul>%2&findstr /a:%m% .* "%2*" 2>nul
for /l %%i in (1,1,%3) do set /p= <nul
del /q %a% %b% %a%%b% %b%%a% 2>nul
Last edited by zw19750516 on 2008-4-26 at 12:18 PM ]
```
|
批处理之家新域名：www.bathome.net |
|
|
2008-4-24 17:28 |
|
|
rootkit
初级用户
积分 63
发帖 32
注册 2007-12-21
状态 离线
|
『第 8 楼』:
什么是牛人？
使用 LLM 解释/回答一下
楼上就是！
不过，怎么还在目录下生成 一个怪怪的文件--○●
The upstairs is it! But, why is there still a strange file generated under the directory -- ○●
|
|
|
2008-4-24 18:12 |
|
|
moniuming
银牌会员
永远的菜鸟
积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
Originally posted by zw19750516 at 2008-4-24 17:28:
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
:begin
set /a m=%random%%%16
call if "%m%"=="0& ...
call if "%m%"=="0" goto begin
Last edited by moniuming on 2008-4-25 at 01:44 PM ]
Originally posted by zw19750516 at 2008-4-24 17:28:
@echo off&color 0c&mode con cols=45 lines=5&title 小动画
set a=●&set b=○&set clo=0123456789abcdef
:begin
set /a m=%random%%%16
call if "%m%"=="0& ...
call if "%m%"=="0" goto begin
Last edited by moniuming on 2008-4-25 at 01:44 PM ]
|
|
|
2008-4-25 13:39 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
|
|
2008-4-25 14:03 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
|
|
2008-4-25 14:10 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
『第 12 楼』:
使用 LLM 解释/回答一下
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑
可能也只是我的显示器或电脑坏了 :(
This... Does it modify something? After running this script, the font in the system has changed, becoming darker and rounder, a bit like Microsoft YaHei. Maybe it's just my monitor or computer is broken :(
|
|
|
2008-4-25 15:19 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 13 楼』:
使用 LLM 解释/回答一下
Originally posted by tireless at 2008-4-25 15:19:
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑
可能也只是我的显示器或电脑坏了 :(
绝对不会，你仔细看下lp函数部分，就是输出显示，你这个问题应该是你系统出了什么毛病。
Last edited by zw19750516 on 2008-4-25 at 03:36 PM ]
Originally posted by tireless at 2008-4-25 15:19:
This... Does it modify something? After running this script, the font in the system changed, becoming darker and rounder, a bit like Microsoft YaHei
Maybe it's just my monitor or computer that's broken :(
Absolutely not, you take a close look at the lp function part, which is just output display. Your problem should be something wrong with your system.
Last edited by zw19750516 on 2008-4-25 at 03:36 PM ]
|
批处理之家新域名：www.bathome.net |
|
|
2008-4-25 15:33 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
『第 14 楼』:
使用 LLM 解释/回答一下
咦！好了。离开了会电脑，再回来就好了。。。按照这个思路推理好像就是我的眼睛的问题了 -_-#
Hey! Okay. After leaving the computer and coming back, it's fine... According to this line of reasoning, it seems like it's a problem with my eyes -_-#
|
|
|
2008-4-25 17:03 |
|
|
jfm034
新手上路
积分 16
发帖 8
注册 2006-12-7
状态 离线
|
『第 15 楼』:
使用 LLM 解释/回答一下
新手上路。
看着有点头晕。
看来得好好学习。。
Newcomer here.
It's a bit dizzying to look at.
It seems I need to study hard.
|
|
|
2008-4-29 17:43 |
|
