中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]应ppdos的要求，发一个画正弦的bat

scriptor
银牌会员

积分 1187
发帖 555
注册 2006-12-21
状态离线

『楼主』: [原创]应ppdos的要求，发一个画正弦的bat

@echo off

:lp
for /l %%a in (1,1,4) do (
for /l %%i in (0,1,%%a) do (
>>con set/p= <nul)
echo *
ping -n 0 127.1>nul
)
for /l %%a in (4,-1,1) do (
for /l %%k in (0,1,%%a ) do (>>con set/p= <nul)
echo *
ping -n 0 127.1>nul
)
goto :lp

可惜只能竖着输出，你们改进一下。

[ Last edited by scriptor on 2007-1-13 at 09:34 AM ]

此帖被 +2 点积分点击查看详情

2007-1-13 22:22

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 2 楼』:

这样子来

@ECHO OFF

SETLOCAL ENABLEDELAYEDEXPANSION

SET P1=A&SET P2=_&SET XYZ=1,2,19&SET ZYX=20

:TOP

FOR /L %%a IN (%XYZ%) DO (

FOR /L %%b IN (1,1,78) DO (

SET /A xyz1=%ZYX%-%%a,xyz2=%ZYX%+%%a

IF %%b EQU !xyz1! (

SET /P=%P1%<nul) ELSE (

IF %%b EQU !xyz2! (

SET /p=%P1%<nul) ELSE (

IF %%a%%b EQU 1977 (

SET /P=%P1%<nul) ELSE (

SET /p=%P2%<nul)

)

)

)

ECHO.)

IF NOT %XYZ:~-1% EQU 1 (SET XYZ=17,-2,1&&SET ZYX=58&&GOTO TOP)

pause>nul

此帖被 +2 点积分点击查看详情

2007-1-13 22:30

scriptor
银牌会员

积分 1187
发帖 555
注册 2006-12-21
状态离线

『第 3 楼』:

你的想法我试过了

我不能解决的是，怎么让他一个接一个的输出

所以就弄了一个竖直输出的

呵呵

2007-1-13 22:33

scriptor
银牌会员

积分 1187
发帖 555
注册 2006-12-21
状态离线

『第 4 楼』:

你的很有意思
呵呵

收藏了

2007-1-13 22:33

boluor
初级用户

积分 129
发帖 54
注册 2007-1-4
来自武大信息学部
状态离线

『第 5 楼』:

收藏了

2007-1-13 22:47

(382553030)

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 6 楼』:

原来想弄个画字的出来，结果太复杂没搞好，不过这个还可以

2007-1-13 23:30

9527
银牌会员

努力做坏人

积分 1185
发帖 438
注册 2006-8-28
来自北京
状态离线

『第 7 楼』:

这样会更好玩，修改楼主的

@echo off&setlocal&cls

:lp

for /l %%a in (1,1,4) do (

for /l %%i in (0,1,%%a) do (

set/p=  <nul)

if %%a equ 1 echo * ^│^│

if %%a equ 2 echo * ^│ 

if %%a equ 3 set/p=<nul&echo ^│ *

if %%a equ 4 set/p=<nul&echo ^│^│ * 

ping -n 0 127.1>nul

)

for /l %%a in (4,-1,1) do (

for /l %%k in (0,1,%%a ) do (set/p=  <nul)

if %%a equ 1 echo * ^│^│

if %%a equ 2 echo * ^│ 

if %%a equ 3 set/p=<nul&echo ^│ *

if %%a equ 4 set/p=<nul&echo ^│^│ * 

ping -n 0 127.1>nul

)

goto :lp