藍森林首頁 | 返回主頁 | 本站地圖 | 站內搜索 | 聯繫信箱 |
 您目前的位置:首頁 > 自由軟件 > 技術交流 > 應用編程


    

藍森林 http://www.lslnet.com 2006年6月6日 10:18


如何把TC2。0中的代碼轉換成VC++中編程。

下面這個是我編的一個小遊戲,在TC2。0中編譯正常,但在VC++中就說沒有圖形系統函數。
#define UP 0x4800
#define DOWN 0x5000
#define LEFT 0x4b00
#define RIGHT 0x4d00
#include "conio.h"
#include "time.h"
#include "stdlib.h"
#include "stdio.h"
int k[17][24]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
               0,1,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,
               0,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,1,1,1,0,0,
               0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,
               0,3,1,1,1,1,0,1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,0,0,
               0,1,0,0,1,0,1,0,0,0,0,1,0,1,1,1,0,0,0,0,0,0,0,0,
               0,1,1,1,1,1,6,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,
               0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,1,1,1,1,0,
               0,1,1,1,1,1,1,1,1,1,1,5,1,1,1,0,1,0,0,1,0,0,0,0,
               0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,4,0,0,1,0,0,0,0,
               0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,1,1,1,1,0,1,1,0,
               0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,0,0,
               0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,
               0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,1,3,1,1,1,1,1,0,0,
               0,2,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
               0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,
               0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,};
void main()
{int i,j,key,num;
aa: clrscr();
num=0;
textcolor(GREEN);
gotoxy(14,1);
cprintf("%c(UP) %c(DOWN) %c(LEFT) %c(RIGHT) ESC(QUIT)\n",24,25,27,26);
textcolor(RED);
for(i=4;i<21;i++)
   for(j=20;j<44;j++)
      if(k[i-4][j-20]==0)
         {gotoxy(j,i);
          cprintf("%c",219);
          }
      else if(k[i-4][j-20]!=1)
           {gotoxy(j,i);
            cprintf("%d",k[i-4][j-20]);
            }
textcolor(YELLOW);
i=5;
j=21;
gotoxy(j,i);
cprintf("\1");
gotoxy(33,5);
cprintf("7");
do
  {key=bioskey(0);
   sound(200);
   delay(1000);
   nosound();
   switch(key)
    {case DOWN:{if(k[i-4+1][j-20]==0)continue;
              if(k[i-4+1][j-20]!=1)num+=k[i-4+1][j-20];
              textcolor(YELLOW);
              gotoxy(j,i++);
              printf(" ");
              gotoxy(j,i);
              cprintf("\1");gotoxy(33,5);
              if(k[i-4][j-20]==7&&num==14)
                 {clrscr();printf("yes\n");exit(0);}
              else if(num!=7&&k[i-4][j-20]==7){clrscr();printf("%d\n",num);delay(1000);goto aa;}
              break; }
     case UP:{if(k[i-4-1][j-20]==0)continue;
              if(k[i-4-1][j-20]!=1)num+=k[i-4-1][j-20];
              textcolor(YELLOW);
              gotoxy(j,i--);
              printf(" ");
              gotoxy(j,i);
              cprintf("\1");gotoxy(33,5);
              if(k[i-4][j-20]==7&&num==14)
                 {clrscr();printf("yes\n");exit(0);}
              else if(num!=7&&k[i-4][j-20]==7){clrscr();printf("%d\n",num);delay(100000);goto aa;}
              break; }
     case LEFT:{if(k[i-4][j-20-1]==0)continue;
              if(k[i-4][j-20-1]!=1)num+=k[i-4][j-20-1];
              textcolor(YELLOW);
              gotoxy(j--,i);
              printf(" ");
              gotoxy(j,i);
              cprintf("\1");gotoxy(33,5);
              if(k[i-4][j-20]==7&&num==14)
                 {clrscr();printf("yes\n");exit(0);}
              else if(num!=7&&k[i-4][j-20]==7){clrscr();printf("%d\n",num);delay(1000);goto aa;}
              break; }
     case RIGHT:{if(k[i-4][j-20+1]==0)continue;
              if(k[i-4][j-20+1]!=1)num+=k[i-4][j-20+1];
              textcolor(YELLOW);
              gotoxy(j++,i);
              printf(" ");
              gotoxy(j,i);
              cprintf("\1");gotoxy(33,5);
              if(k[i-4][j-20]==7&&num==14)
                 {clrscr();printf("yes\n");exit(0);}
              else if(num!=7&&k[i-4][j-20]==7){clrscr();printf("%d\n",num);delay(1000);goto aa;}
              break; }
     default :exit(0);
     }
  }while(1);
}



Copyright © 1999-2000 LSLNET.COM. All rights reserved. 藍森林網站 版權所有。 E-mail : webmaster@lslnet.com