立即注册
 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
广州大学城网业务调整

编程特效专帖 [复制链接] qrcode

查看: 5763 | 回复: 8

523066680
发表于: 2009-10-17 08:15:17 | 显示全部楼层

希望各位也能把自己贴上来分享一下,好东西适当加分。^_^
我将在此帖发一些TC编的小效果,
知道要有个人开头的,
所以来抛砖引玉了。

另外:
大家跟帖作品的效果,语言不限,但应该指出实现模式,谢谢。
跳转到指定楼层
523066680
发表于: 2009-10-17 08:18:25 | 显示全部楼层

第一个,彩色方块组成的蜿蜒曲线

WIN-TC下编译成功。  按任意键结束

  1. #include "graphics.h"
  2. #include "stdlib.h"
  3. #define closegr closegraph
  4. void initgr(void)
  5. {
  6.   int gd = DETECT, gm = 0;
  7.   registerbgidriver(EGAVGA_driver);
  8.   initgraph(&gd, &gm, "");
  9. }
  10. int main(void)
  11. {
  12.   void func(int xend,int cut,int sure);
  13.   initgr(); /* BGI初始化 */
  14.   outtext("Please wait...");
  15.   sleep(2);
  16.   while (1)
  17.   {
  18.     func(10,200,1);
  19.     func(9,0,-1);
  20.   }
  21.   getch();
  22.   closegr();
  23.   return 0;
  24. }
  25. void func(int xend,int cut,int sure)
  26. {
  27.   int i,fo,xnow,xnowb;
  28.   for (i=-xend;i<=xend;i++)
  29.   {
  30.     if (kbhit()) exit(1);
  31.     setcolor(i%15+1);
  32.     xnow=cut-sure*(i*i+1);
  33.     rectangle(xnow*2,300,xnow*2+30,350);
  34.     setfillstyle(1,i%15+1);
  35.     floodfill(xnow*2+1,300+1,i%15+1);
  36.     xnowb=i+20;
  37.     rectangle(200,xnowb*15,230,xnowb*15+28);
  38.     for (fo=0;fo<=1000;fo++) {delay(5);}
  39.     printf("\\n\\n");
  40.   }
  41. }
复制代码



不知道这里空间是否紧张 ,21k,我就上传一个了哈

换了一下
  1. #include "graphics.h"
  2. #define closegr closegraph
  3. void initgr(void)
  4. {
  5.   int gd = DETECT, gm = 0;
  6.   registerbgidriver(EGAVGA_driver);
  7.   initgraph(&gd, &gm, "");
  8. }
  9. int main(void)
  10. {
  11.   void func(int xend,int cut,int sure);
  12.   initgr(); /* BGI初始化 */
  13.   outtext("Please wait...");
  14.   sleep(2);
  15.   while (1)
  16.   {
  17.     func(10,200,1);
  18.     func(9,0,-1);
  19.   }
  20.   getch();
  21.   closegr();
  22.   return 0;
  23. }
  24. void func(int xend,int cut,int sure)
  25. {
  26.   int i,fo,xnow,xnowb;
  27.   for (i=-xend;i<=xend;i++)
  28.   {
  29.     if (kbhit()) exit(1);
  30.     setcolor(i%15+1);
  31.     xnow=cut-sure*(i*i+1);
  32.     rectangle(xnow*3,300,xnow*3+30,350);
  33.     setfillstyle(1,i%15+1);
  34.     floodfill(xnow*3+1,300+1,i%15+1);
  35.     xnowb=i+20;
  36.     rectangle(300,xnowb*15,330,xnowb*15+28);
  37.     floodfill(300+1,xnowb*15+1,i%15+1);
  38.     for (fo=0;fo<=1000;fo++) {delay(5);}
  39.     printf("\\n\\n");
  40.   }
  41. }
复制代码

duandai.rar

21 KB, 下载次数: 0

头像被屏蔽
soso627
发表于: 2009-10-17 13:24:09 | 显示全部楼层

我是路过的,呵呵
523066680
发表于: 2009-10-18 18:47:13 | 显示全部楼层

cscript模仿电影名单渐显效果

没人帮忙是吧。那我自个儿写咯
这个比较容易实现,是个用cscript做的效果,xp下保存为vbs


if wscript.arguments.count = 0 then
  createobject("wscript.shell").run _
  "cmd /c title Hi~ cn-dos &mode con cols=50 lines=6 & "&_
  " cscript //nologo " &chr(34) &wscript.scriptname &chr(34) &" isme"
  wscript.quit
end if
:rem Made by if(e_x)ist@cn-dos
set inp=wscript.stdin
set put=wscript.stdout
dim str(6)
str(0)=" W W W . C N - D O S . N E T "
str(1)=" B A T H O M E  "
str(2)=" L x m x n  "
str(3)=" E v e r e s t 7 9 "
str(4)=" N e t B e n T o n "
str(5)=" I F _ E X I S T "
str(6)=" H u a h u a 0919 "

for each strx in str
  call EchoInRnd(replace(space(len(strx))," ","-"),strx)
  call EchoInRnd(strx,strx)
  call EchoInRnd(strx,space(len(strx)))
  put.writeline
next

sub EchoInRnd(stra,strb)
dim x(100)
xlb=len(stra)
xla=xlb-1
for i = 0 to xlb
   x(i) = i
next
ln=stra
for i = xla to 0 step -1
   tn=int(rnd*i)
   ln=left(ln,x(tn)) & mid(strb,x(tn)+1,1) & right(ln,xla-x(tn))
        wscript.sleep 50
   put.write chr(13)
   put.write space((50-xlb)/2) & ln
   x(tn)=x(i)
next
end sub
523066680
发表于: 2009-11-1 21:03:56 | 显示全部楼层

【win-tc】画个心给你看

#include <Conio.h>
#include <graphics.h>
#include <math.h>
#define closegr closegraph
void initgr(void) /* BGI初始化 */
{
  int gd = DETECT, gm = 0; /* 和gd = VGA,gm = VGAHI是同样效果 */
  registerbgidriver(EGAVGA_driver);/* 注册BGI驱动后可以不需要.BGI文件的支持运行 */
  initgraph(&gd, &gm, "");
}
int main(void)
{
  float i,fo,fa,fb;
  int x,y,j;
  initgr(); /* BGI初始化 */
  sleep(2);
  fo=i=0.01;
  fa=8;fb=0;
    while (!kbhit())
    {
      x=cos(i)*fo*10+300;
      y=sin(i)*fo*10+300;
      putpixel(x,y,5);
      for (j=0;j<1000;j++) {delay(1);}
      if (i<6.28) {i+=0.005;} else {i=0.01;}
      if (fa>0) {fa-=0.01;fo=fa;} else {fb+=0.01;fo=fb;}
      if (fb>=8) {break;}
    }
  getch();
  closegr(); /* 恢复TEXT屏幕模式 */
  return 0;
}

523066680
发表于: 2009-11-1 21:14:43 | 显示全部楼层

画朵花

#include "Conio.h"
#include "graphics.h"
#include "math.h"
#include "stdlib.h"
#define closegr closegraph

void initgr(void) /* BGI初始化 */
{
  int gd = DETECT, gm = 0;
  registerbgidriver(EGAVGA_driver);
  initgraph(&gd, &gm, "");
}
struct {int x,y;} o;
int main(void)
{
  float i,ia,ib,fo,fa,fb,delta;
  int x,y,j,big=20,small=0,out=0,color;
  initgr(); /* BGI初始化 */
  sleep(2);

  o.x=o.y=300;
  fo=i=0.1;
  fa=small;fb=big;
  delta=0.5;
  printf("%f",delta);
  randomize();
    while (!kbhit())
    {
      x=cos(i)*fo*10+o.x;
      y=sin(i)*fo*10+o.y;
      putpixel(x,y,5);
      for (j=0;j<1000;j++) {delay(1);}
      if (i<=6.28) {i+=0.01;} else {i=0.01;}
      if (fa<big) {fa+=delta;fo=fa;} else {fb-=delta;fo=fb;}
      if (fb<=small) {fa=0;fb=20;o.x=x;o.y=y;if (out<23) out++; else break;}
    }
  getch();
  closegr();
  return 0;
}
523066680
发表于: 2009-12-7 10:37:06 | 显示全部楼层

[table=791px][tr][td][/table]
头像被屏蔽
业务办理
发表于: 2010-1-19 23:02:37 | 显示全部楼层

号外号外:广东移动在2008年1月3号取消了5元100M,10元300M的GPRS套餐,不过本店可以通过移动内部办理,目前还可以办理

每月10元包300M的GPRS套餐(全广东移动用户)性价比超高,办理从速.一次性办理,长期使用.只收手续费8元。

淘宝网店 安全快捷~。如有打扰,请见谅。

咨询QQ:99639398

在校大学生尝试创业,淘宝新店诚信开张,竭诚为您服务 !

绝对真实,不含防腐剂!
ps现在办理送彩铃!
tsl0617
发表于: 2010-1-27 12:23:32 | 显示全部楼层

支持下
快速回复 返回顶部 返回列表