[游戏娱乐] 批处理 7 段数码管

neorobin

@echo off & setlocal enabledelayedexpansion & color 0a
set LF=^


for /l %%i in () do (
    set /a "t=!time:~-4,1!" & set /a "t ^= x, x ^= t"
    if !t! neq 0 (
        set /a "c = ^!^!(x-2)"
        set /a "b = ^!^!(x-5)&^!^!(x-6)"
        set /a "a = (^!^!(x-1) & ^!^!(x-4)) << 1"
        set /a "d = (a >> 1 & ^!^!(x-7)) << 1"
        set /a "g = ^!(^!x | ^!(x-1) | ^!(x-7)) << 1"
        set /a "f = (^!(x&3) | ^!^!(x&~3)) & ^!^!(x-7)"
        set /a "e = ~x & 1 & ^!^!(x-4)"

        set "O= !a!!LF!!f! !b!!LF! !g!!LF!!e! !c!!LF! !d!"
        set "O=!O:1=|!" & set "O=!O:2=-!" & cls & echo !O:0= !
    )
)
复制代码

数码管时钟

set "_c="c = !!(x-2)""
set "_b="b = !!(x-5)^&!!(x-6)""
set "_a="a = (!!(x-1) ^& !!(x-4)) ^<^< 1""
set "_d="d = (!!(x-1) ^& !!(x-4) ^& !!(x-7)) ^<^< 1""
set "_g="g = !(!x ^| !(x-1) ^| !(x-7)) ^<^< 1""
set "_f="f = (!(x^&3) ^| !!(x^&~3)) ^& !!(x-7)""
set "_e="e = ~x ^& 1 ^& !!(x-4)""
@echo off & setlocal enabledelayedexpansion & color 0a & mode 33,5
set "__=0" & set "_= "
for /l %%i in () do (
    set /a "t=!time:~-2,1!" & set /a "t ^= z, z ^= t"
    if !t! neq 0 (
        set "O=" & set "i=0"
        for %%L in ("_ a _" "f _ b" "_ g _" "e _ c" "_ d _") do (
            for %%d in (0 _ 1 _ : _ 3 _ 4 _ : _ 6 _ 7 _ : _ 9) do (
                if "%%d" geq "0" (
                    set "tm=!time: =0!" & set "x=!tm:~%%d,1!"
                    for %%_ in (%%~L) do set /a !_%%_! & set "O=!O!!%%_!"
                ) else if "!i!%%d"=="1:" (set "O=!O!.") else set "O=!O! "
            )
            set /a "i^=1"
        )
        set "O=!O:1=|!" & set "O=!O:2=-!" & cls & set "O=!O:0= !"
        <nul set /p=!O:~0,-1!
    )
)
复制代码

Linuxer

漂亮~~~效果不错啊。。。看起来好难理解。。

523066680

回复 2# Linuxer


    我们欣赏就可以了

CrLf

回复 3# 523066680


    卧槽，为毛你能加 6 技术分！我只有 +1 的选项，填其他的就超过限制

523066680

回复 4# CrLf


    因为我是两个区的斑竹……

CrLf

回复 5# 523066680


    噢，原来是这样啊，好吧
管理以下版块: BAT求助&讨论, 原创BAT代码, PowerShell

523066680

回复 6# CrLf


    还有注册时间……

CrLf

回复 7# 523066680


    妈蛋，早出生了不起啊，拼爹呢这是

xxpinqz

我觉得这个号注册时间也很早的，为啥连pb都加不了。。。。

CrLf

回复 9# xxpinqz


    速度申请斑竹、贵宾或技术组之类的任意头衔
    我说咱几个是不是跑题了

xxpinqz

回复 10# CrLf


    跑题不要紧，只要心意真。


天书啊，完全看不懂。