资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

如何实现批处理实现乱雨纷飞-创新互联

这篇文章主要介绍“如何实现批处理实现乱雨纷飞”,在日常操作中,相信很多人在如何实现批处理实现乱雨纷飞问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何实现批处理实现乱雨纷飞”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

成都创新互联是专业的错那网站建设公司,错那接单;提供成都做网站、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行错那网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

废话少说,直接先上一个特效代码

@echo off&mode con cols=42 lines=20&color 02
set m=1&set v=1
set code==^^^&%%%^:!$#^>^<:=~*()@"'`;\|-_+?,.ghijklmnopqrstuvwxyz0123456789abcdef
setlocal enabledelayedexpansion
:begin
set /a num=%random%%%40+1,num1=num,num=200/num
title 乱雨纷飞,当前雨量:%num1%
:lp
set /a a=%random%%%63,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (set "b=!a!") else (set "b= ") 
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto lp
set /a x+=1,w+=1
if %x% equ 40 call :lop
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
if %w% equ 100 (set w=0&goto begin) else (set n=0&goto lp)
:lop
set /a a=%random%%%15+1
set a=!code:~-%a%,1!
color 0!a!&set x=0

有小伙伴说了,为什么不把它改成下落 101010 的呢?那样的话不是像黑客帝国里的画面了码???

好吧,我们来把他实现

@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
set code=123456789abcdef
set m=1&set v=1
title 黑客帝国数码雨 by bat-zw19750516
:begin
set /a a=%random%%%2,b=%random%%%3
if %b% neq 0 (set b=%a%) else (set "b= ") 
set str=%str%%b%
set /a n+=1
if %n% lss 40 goto begin
set /a m+=1,x+=1
if %m% geq 20 set /a v+=1 
set str%m%=%str%
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
if %x% equ 20 call :lp
set str=&set n=0
goto begin
:lp
set /a a=%random%%%15,x=0
set a=!code:~%a%,1!
color 0%a%

当然上面的是高手写的,我们来看个新手简单完成的样子

@echo off
title 黑客帝国数码雨效果
color 02
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (1,1,80) do (
set Down%%i=0
)
:heike
for /l %%j in (1,1,80) do (
set /a guxing%%j-=1
if !guxing%%j! LSS 0 (
set /a hanye%%j=!random!%%4
set /a guxing%%j=!random!%%15+10
)
if "!hanye%%j!" == "1" (
set /a shu=!random!%%2
set /p=!shu!

到此,关于“如何实现批处理实现乱雨纷飞”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!


文章标题:如何实现批处理实现乱雨纷飞-创新互联
网站链接:http://cdkjz.cn/article/hpooe.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220