国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > BAT > 正文

炫酷的批處理BAT走字特效源碼

2020-06-09 13:59:33
字體:
來源:轉載
供稿:網友

先上第一版的代碼,
代碼肯定還存在BUG,先發上來給大家測試.

@echo off&setlocal enabledelayedexpansionmode con: cols=87 lines=15title code by foxjl 2007-12-1 www.jb51.netcolor 1aset long=43,minus=43set,=^我們,是一群執著的批處理愛好者^在色彩斑斕的WINDOWS下,開啟CMD這扇深邃的窗口^曾經挑燈夜戰,曾經徹夜不眠^我們之所以如此似癡若狂,是因為我們深知:^尺有所短、寸有所長,CMD不同凡響^我們精益求精,力求完美^所有的努力,只為了用最簡潔的語言,編寫最具實用性的代碼^武林站長站www.jb51.net^高手匯聚、資料齊全、是新手入門的福地、老手晉級的樂園^不求最大、但求最好、展現批處理的無窮魅力、一切精彩,盡在~~武林站長站~~                 演示完畢。再見!!:startecho.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 700echo/&echo/for /l %%z in (1,1,255) do (if not !long! equ 0 set /a long-=1for /l %%j in (1,1,87) do (set/p=<nul)for /l %%k in (1,1,!long!) do (set/p= <nul)set /a longn+=1set /a longs=longn-43set /a remnant=255-43if !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 修改這個數字可以調整走字的速度.)call :delay 700&exit:delayfor /l %%i in (1,1,%1) do (error>nul 2>nul)goto :eof

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

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

來看看第二版的代碼

:@echo off&setlocal enabledelayedexpansiontitle code by 泛濫棏慌° 2007-12-1 www.jb51.netmode con: cols=87 lines=15for /l %%l in (1 1 42) do set "ko= !ko!"color 1a&echo/&set,=!ko!^我們,是一群執著的批處理愛好者^在色彩斑斕的WINDOWS下,開啟CMD這扇深邃的窗口^曾經挑燈夜戰,曾經徹夜不眠^我們之所以如此似癡若狂,是因為我們深知:^尺有所短、寸有所長,CMD不同凡響^我們精益求精,力求完美^所有的努力,只為了用最簡潔的語言,編寫最具實用性的代碼^武林站長站www.jb51.net^高手匯聚、資料齊全、是新手入門的福地、老手晉級的樂園^不求最大、但求最好、展現批處理的無窮魅力、一切精彩,盡在~~武林站長站~~                 演示完畢。再見!!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 修改這個數字可以調整走字的速度.  for /l %%j in (1,1,87) do (set/p=<nul)  set ,=!,:~1!)call :delay 700&exit:delayfor /l %%i in (1,1,%1) do (error>nul 2>nul)goto :eof            
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 堆龙德庆县| 龙陵县| 博湖县| 蒙城县| 郁南县| 白玉县| 南召县| 桃园市| 偏关县| 湖州市| 华阴市| 濉溪县| 靖西县| 本溪| 亳州市| 吴忠市| 南部县| 高唐县| 上饶市| 彰武县| 邻水| 辛集市| 分宜县| 大兴区| 监利县| 吴忠市| 民乐县| 通州区| 兴海县| 株洲市| 巫山县| 揭西县| 牟定县| 建水县| 祁阳县| 多伦县| 赣州市| 北票市| 河津市| 甘孜县| 舒城县|