中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-19 12:51

欢迎新会员 homebai　 RSS
共 47,998 篇主题 / 350,071 篇帖子 / 今日 0 篇 / 48,212 位会员

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

楼主 [原创]应ppdos的要求，发一个画正弦的bat 发表于 2007-01-13 22:22　·　中国北京中国科学院研究生院

scriptor

银牌会员

★★★

积分 1,187
发帖 555
注册 2006-12-21 07:35
UID 74129
性别男

状态离线

@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 ]

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
PPdos	+2	2007-01-14 06:53

第 2 楼发表于 2007-01-13 22:30　·　中国广东广州天河区电信

everest79

金牌会员

★★★★

一叶枝头，万树皆春

积分 2,564
发帖 1,127
注册 2006-12-25 22:57
UID 74552
性别男

状态离线

这样子来



@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

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
PPdos	+2	2007-01-15 05:02

第 3 楼发表于 2007-01-13 22:33　·　中国北京中国科学院研究生院

scriptor

银牌会员

★★★

积分 1,187
发帖 555
注册 2006-12-21 07:35
UID 74129
性别男

状态离线

你的想法我试过了

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

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

呵呵

第 4 楼发表于 2007-01-13 22:33　·　中国北京中国科学院研究生院

scriptor

银牌会员

★★★

积分 1,187
发帖 555
注册 2006-12-21 07:35
UID 74129
性别男

状态离线

你的很有意思
呵呵

收藏了

第 5 楼发表于 2007-01-13 22:47　·　中国湖北武汉教育网

boluor

初级用户

★★

积分 129
发帖 54
注册 2007-01-04 01:03
UID 75376
性别男
来自武大信息学部

状态离线

收藏了

第 6 楼发表于 2007-01-13 23:30　·　中国广东广州天河区电信

everest79

金牌会员

★★★★

一叶枝头，万树皆春

积分 2,564
发帖 1,127
注册 2006-12-25 22:57
UID 74552
性别男

状态离线

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

第 7 楼发表于 2007-01-13 23:56　·　中国北京联通

9527

银牌会员

★★★

努力做坏人

积分 1,185
发帖 438
注册 2006-08-28 12:00
UID 61449
来自北京

状态离线

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



@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