溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何實現(xiàn)炫酷的批處理BAT走字特效源碼

發(fā)布時間:2021-09-29 17:17:56 來源:億速云 閱讀:245 作者:iii 欄目:開發(fā)技術

這篇文章主要介紹“如何實現(xiàn)炫酷的批處理BAT走字特效源碼”,在日常操作中,相信很多人在如何實現(xiàn)炫酷的批處理BAT走字特效源碼問題上存在疑惑,小編查閱了各式資料,整理出簡單好用的操作方法,希望對大家解答”如何實現(xiàn)炫酷的批處理BAT走字特效源碼”的疑惑有所幫助!接下來,請跟著小編一起來學習吧!

@echo off&setlocal enabledelayedexpansion
mode con: cols=87 lines=15
title code by foxjl 2007-12-1 kemok4.com
color 1a
set long=43,minus=43
set,=^
我們,是一群執(zhí)著的批處理愛好者^
在色彩斑斕的WINDOWS下,開啟CMD這扇深邃的窗口^
曾經(jīng)挑燈夜戰(zhàn),曾經(jīng)徹夜不眠^
我們之所以如此似癡若狂,是因為我們深知:^
尺有所短、寸有所長,CMD不同凡響^
我們精益求精,力求完美^
所有的努力,只為了用最簡潔的語言,編寫最具實用性的代碼^
億速云kemok4.com^
高手匯聚、資料齊全、是新手入門的福地、老手晉級的樂園^
不求最大、但求最好、展現(xiàn)批處理的無窮魅力、一切精彩,盡在~~億速云~~                 演示完畢。再見!!
:start
echo.
for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 , 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 , 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 , 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 , 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 , 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 , 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 , 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 , 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 , 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 , 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
(if "%%i"=="," (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
 if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)
 )
)
call :delay 700
echo\&echo\
for /l %%z in (1,1,255) do (
if not !long! equ 0 set /a long-=1
for /l %%j in (1,1,87) do (set/p=<nul)
for /l %%k in (1,1,!long!) do (set/p= <nul)
set /a longn+=1
set /a longs=longn-43
set /a remnant=255-43
if !longn! lss 43 (set/p=!,:~0,%%z!<nul) else (
 if !longn! geq !remnant! (
  set /a minus-=1
  set /a minuss=minus*2
  for /l %%l in (1,1,!minus!) do (set/p= <nul)
  for /l %%j in (1,1,!minuss!) do (set/p=<nul)
  call set/p=%%,:~!longs!,43%%<nul
  ) else (
  call set/p=%%,:~!longs!,43%%<nul
  )
 )
call :delay 40 修改這個數(shù)字可以調(diào)整走字的速度.
)
call :delay 700&exit
:delay
for /l %%i in (1,1,%1) do (error>nul 2>nul)
goto :eof

動畫效果很不錯,象電視里的飛字幕.很有觀賞性.

真是開了眼了 set ,=^ 再把每句最后加個^符號,就可以把它們都賦值給變量,?這是什么原理? 并且最后一句末尾又沒有^符號?
不過,飛字幕部分,代碼似乎可以更簡潔.

來看看第二版的代碼

:
@echo off&setlocal enabledelayedexpansion
title code by 泛濫棏慌° 2007-12-1 kemok4.com
mode con: cols=87 lines=15
for /l %%l in (1 1 42) do set "ko= !ko!"
color 1a&echo\&set,=!ko!^
我們,是一群執(zhí)著的批處理愛好者^
在色彩斑斕的WINDOWS下,開啟CMD這扇深邃的窗口^
曾經(jīng)挑燈夜戰(zhàn),曾經(jīng)徹夜不眠^
我們之所以如此似癡若狂,是因為我們深知:^
尺有所短、寸有所長,CMD不同凡響^
我們精益求精,力求完美^
所有的努力,只為了用最簡潔的語言,編寫最具實用性的代碼^
億速云kemok4.com^
高手匯聚、資料齊全、是新手入門的福地、老手晉級的樂園^
不求最大、但求最好、展現(xiàn)批處理的無窮魅力、一切精彩,盡在~~億速云~~                 演示完畢。再見??!
for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 , 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 , 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 , 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 , 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 , 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 , 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 , 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 , 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 , 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 , 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
(if "%%i"=="," (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
 if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)
))
call :delay 700&echo\&echo\
for /l %%l in (1 1 255) do (
  set /p=!,:~0,43!<nul
  call :delay 40 修改這個數(shù)字可以調(diào)整走字的速度.
  for /l %%j in (1,1,87) do (set/p=<nul)
  set ,=!,:~1!
)
call :delay 700&exit
:delay
for /l %%i in (1,1,%1) do (error>nul 2>nul)
goto :eof

到此,關于“如何實現(xiàn)炫酷的批處理BAT走字特效源碼”的學習就結束了,希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習,快去試試吧!若想繼續(xù)學習更多相關知識,請繼續(xù)關注億速云網(wǎng)站,小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>

向AI問一下細節(jié)

免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權內(nèi)容。

AI