[转载]一个有趣的小程序 ConsoleCool 改进
信息来源： JIURL/**********************************************
Author: JIURL
Email: [email]jiurl@mail.china.com[/email]
Homepage1: [url]http://jiurl.yeah.net[/url]
Homepage2: [url]http://jiurl.cosoft.org.cn/jiurl[/url]
/**********************************************
#include <stdio.h>
#include <windows.h>
#include <stdlib.h>
void main()
{
HANDLE hOut;
hOut=GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
int i;
int interval=10000;
while(1){
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
if(rand()%10==0) SetConsoleTextAttribute(hOut,FOREGROUND_INTENSITY|FOREGROUND_GREEN);
if(rand()%2) printf(" ");
else printf("%d",rand()%2);
for(i=0;i<interval;i++)
{
__asm nop
}
}
return;
}
效果图
[img]http://jiurl.nease.net/cn/document/ConsoleCool+/ConsoleCool+.gif[/img]
源代码及程序下载地址
[url]http://jiurl.nease.net/cn/document/ConsoleCool+/ConsoleCool+.zip[/url] 俺来贴个delphi的：
//仿照JIURL的程序写的
//Sirius QQ：53297714
//05.09.10
program ConsoleCool_Delphi;
{$APPTYPE CONSOLE}
uses
Windows,
SysUtils;
var
hOut:THandle;
Interval,i:integer;
begin
Interval:=10000;
hOut:=GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
Randomize;
While True do
begin
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
if (Random(10000) mod 10)=0 then
SetConsoleTextAttribute(hOut,FOREGROUND_INTENSITY or FOREGROUND_GREEN);
if (Random(10000) mod 2)=1 then Write(' ')
else Write(Random(10000) mod 2);
for i:=0 to Interval do
asm nop;
end;
end;
end.
页:
[1]