myctrl.txt

数据结构课程设计 描述如下: 现有一个大小为Map_Long * Map_Width的方格地图（每一方格尺寸为BoxSize * BoxSize）

/*****************************************************************/
/*                自 定 义 图 形 方 面 的 控 件                  */ 
/*  声明: 允许用户引用、扩充其中的函数,但在使用时,请标明版权信息!*/                       
/*                 (C) PhiL Cheng Soft 2007                      */                             
/*****************************************************************/


int SlBar_item=5; 				    /***********************************/
int ScrollBar(int x1,int y1,int block,int clear)    /*   该控件作者: PhiL Cheng        */
{int width,key,tmpx,tmpy;			    /*      ScroolBar入参表            */
 width=135/block;				    /* 坐标(x1,y1)		       */
 key=0;						    /* 活动块活动区间 block	       */
 if (SlBar_item>=block-1) SlBar_item=0;		    /* 是否在结束后清除 clear	       */
 setcolor(LIGHTGREEN);				    /***********************************/
 line(x1+1,y1,x1+159,y1);
 line(x1+1,y1+15,x1+160,y1+15);
 line(x1,y1+1,x1,y1+14);
 line(x1+160,y1+1,x1+160,y1+14);
 line(x1+12,y1+1,x1+12,y1+15);
 line(x1+148,y1+1,x1+148,y1+14);
 
 line(x1+3,y1+8,x1+10,y1+8);
 line(x1+150,y1+8,x1+157,y1+8);
 line(x1+3,y1+8,x1+6,y1+6);
 line(x1+3,y1+8,x1+6,y1+10);
 line(x1+158,y1+8,x1+155,y1+6);
 line(x1+158,y1+8,x1+155,y1+10);

 setcolor(GREEN);
 line(x1+3,y1+16,x1+161,y1+16);
 line(x1+161,y1+3,x1+161,y1+16);
 sb1:   setfillstyle(1,LIGHTGREEN);
 	setcolor(GREEN);
	if (SlBar_item==block-1) 
	{bar3d(x1+SlBar_item*width+13,y1+3,x1+144,y1+12,2,1);}
	
 	else bar3d(x1+13+width*SlBar_item,y1+3,x1+10+width*(1+SlBar_item),y1+12,2,1);

	key=bioskey(0);
         if (key==LEFT1 || key==LEFT2 || key==LEFT3)
	 	{setfillstyle(1,LIGHTBLUE);
         	 setcolor(LIGHTBLUE);
		 bar(x1+1,y1+1,x1+11,y1+14);
		 setcolor(5);
		 line(x1+3,y1+8,x1+10,y1+8);
 		 line(x1+3,y1+8,x1+6,y1+10);
 		 line(x1+3,y1+8,x1+6,y1+6);
		 delay(18000);
                 setfillstyle(1,BLACK);
 	 	 setcolor(BLACK);
                 bar(x1+1,y1+1,x1+11,y1+14);
		 setcolor(LIGHTGREEN);
		 line(x1+3,y1+8,x1+10,y1+8);
 		 line(x1+3,y1+8,x1+6,y1+10);
 		 line(x1+3,y1+8,x1+6,y1+6);}
	 else if (key==RIGHT1 || key== RIGHT2 || key==RIGHT3)
		{setfillstyle(1,LIGHTBLUE);
         	 setcolor(LIGHTBLUE);
		 bar(x1+149,y1+1,x1+159,y1+14);
		 setcolor(5);
		 line(x1+150,y1+8,x1+157,y1+8);
 		 line(x1+158,y1+8,x1+155,y1+6);
 		 line(x1+158,y1+8,x1+155,y1+10);
		 delay(18000);
                 setfillstyle(1,BLACK);
 	 	 setcolor(BLACK);
                 bar(x1+149,y1+1,x1+159,y1+14);
		 setcolor(LIGHTGREEN);
		 line(x1+150,y1+8,x1+157,y1+8);
 		 line(x1+158,y1+8,x1+155,y1+6);
 		 line(x1+158,y1+8,x1+155,y1+10);}
	 setfillstyle(1,BLACK);
 	 setcolor(BLACK);
	 if (SlBar_item==block-1) 
		{bar3d(x1+SlBar_item*width+13,y1+3,x1+144,y1+12,2,1);}
 	 else bar3d(x1+13+width*SlBar_item,y1+3,x1+10+width*(1+SlBar_item),y1+12,2,1);
	 switch(key)
		{case LEFT1: if(SlBar_item!=0) SlBar_item--;goto sb1;
		 case RIGHT1:if(SlBar_item<block-1) SlBar_item++;goto sb1;
 		 case LEFT2: if(SlBar_item!=0) SlBar_item--;goto sb1;
		 case RIGHT2:if(SlBar_item<block-1) SlBar_item++;goto sb1;        
 		 case LEFT3: if(SlBar_item!=0) SlBar_item--;goto sb1;
		 case RIGHT3:if(SlBar_item<block-1) SlBar_item++;goto sb1; }
	if (clear)
		{setfillstyle(1,BLACK);
	         setcolor(BLACK);
		 
 	         bar3d(x1+13+width*SlBar_item,y1+3,x1+10+width*(1+SlBar_item),y1+12,2,1);
 	         line(x1+1,y1,x1+159,y1);
 	         line(x1+1,y1,x1+159,y1);
	         line(x1+1,y1+15,x1+160,y1+15);
 	         line(x1,y1+1,x1,y1+14);
 	         line(x1+160,y1+1,x1+160,y1+14);
 	         line(x1+12,y1+1,x1+12,y1+15);
 	         line(x1+148,y1+1,x1+148,y1+14);
 	         line(x1+3,y1+16,x1+161,y1+16);
	         line(x1+161,y1+3,x1+161,y1+16);
 	         line(x1+3,y1+8,x1+10,y1+8);
 	         line(x1+150,y1+8,x1+157,y1+8);
 	         line(x1+3,y1+8,x1+6,y1+6);
 	         line(x1+3,y1+8,x1+6,y1+10);
 	         line(x1+158,y1+8,x1+155,y1+6);
 	         line(x1+158,y1+8,x1+155,y1+10);}
      else
		{setfillstyle(1,LIGHTGREEN);
		 setcolor(GREEN);
		 bar3d(x1+13+width*SlBar_item,y1+3,x1+10+width*(1+SlBar_item),y1+12,2,1);}
return key;
}