hello.bak

PALM程序设计入门

   Buf[1]=CountCheckSum1(XSPEED,v);
   Buf[2]=XSPEED;
   Buf[3]=(v>>8) & 0xff;
   Buf[4]= v & 0xff;
 do{
      WriteABuffer(Buf,5);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}
//-----------------------------------------
Boolean YSpeed(int v)
{
   char Buf[5];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(YSPEED,v);
   Buf[2]=YSPEED;
   Buf[3]=(v>>8) & 0xff;
   Buf[4]= v & 0xff;
 do{
      WriteABuffer(Buf,5);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}
//-----------------------------------------
Boolean ZSpeed(int v)
{
   char Buf[5];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(ZSPEED,v);
   Buf[2]=ZSPEED;
   Buf[3]=(v>>8) & 0xff;
   Buf[4]= v & 0xff;
 do{
      WriteABuffer(Buf,5);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}

//-----------------------------------------
Boolean XHome(void )
{
   char Buf[3];
   char data,i=0;

   HomePara(400,100,0,0);

   Buf[0]=0xff;
   Buf[1]=XHOMESERCH;
   Buf[2]=XHOMESERCH;
 do{
      WriteABuffer(Buf,3);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}
//-----------------------------------------
Boolean YHome(void )
{
   char Buf[3];
   char data,i=0;
   HomePara(400,100,0,0);

   Buf[0]=0xff;
   Buf[1]=YHOMESERCH;
   Buf[2]=YHOMESERCH;
 do{
      WriteABuffer(Buf,3);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}
//-----------------------------------------
Boolean ZHome(void )
{
   char Buf[3];
   char data,i=0;
   HomePara(400,100,0,0);

   Buf[0]=0xff;
   Buf[1]=ZHOMESERCH;
   Buf[2]=ZHOMESERCH;
 do{
      WriteABuffer(Buf,3);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;


}
//-----------------------------------------
Boolean XLp(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(XLP,posi);
   Buf[2]=XLP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   Xabs=posi;
   return True;
}
//-----------------------------------------
Boolean YLp(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(YLP,posi);
   Buf[2]=YLP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   Yabs=posi;
   return True;
}
//-----------------------------------------
Boolean ZLp(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(ZLP,posi);
   Buf[2]=ZLP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   Zabs=posi;
   return True;
}

//-----------------------------------------
Boolean XDecP(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(XDECP,posi);
   Buf[2]=XDECP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;

}
//-----------------------------------------
Boolean YDecP(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(YDECP,posi);
   Buf[2]=YDECP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True; 
}
//-----------------------------------------
Boolean ZDecP(long posi)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(ZDECP,posi);
   Buf[2]=ZDECP;
   Buf[3]=(posi>>24) & 0xff;
   Buf[4]=(posi>>16) & 0xff;
   Buf[5]=(posi>>8) & 0xff;
   Buf[6]=posi & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
//-----------------------------------------
Boolean ZMovP(long pulse)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(ZMOVP,pulse);
   Buf[2]=ZMOVP;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
//-----------------------------------------
Boolean ZMovN(long pulse)
{
   char Buf[7];
   char data,i=0;


   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(ZMOVN,pulse);
   Buf[2]=ZMOVN;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
Boolean ZMov(long pulse)
{
    if(AbsFlag)    	
		pulse=pulse-Zabs;

    if(pulse>0)
    {
    	if(ZMovP(abs(pulse)))
        {
        	Zabs=Zabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(ZMovN(abs(pulse)))
        {
        	Zabs=Zabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else return True;
}

Boolean ZMovR(long pulse)
{
    
    if(pulse>0)
    {
    	if(ZMovP(abs(pulse)))
        {
        	Zabs=Zabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(ZMovN(abs(pulse)))
        {
        	Zabs=Zabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else return True;
}
//-----------------------------------------
Boolean XMovP(long pulse)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(XMOVP,pulse);
   Buf[2]=XMOVP;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
//-----------------------------------------
Boolean XMovN(long pulse)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(XMOVN,pulse);
   Buf[2]=XMOVN;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}

Boolean XMovR(long pulse)
{

    if(pulse>0)
    {
    	if(XMovP(abs(pulse)))
        {
        	Xabs=Xabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(XMovN(abs(pulse)))
        {
        	Xabs=Xabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else return True;
}

Boolean XMov(long pulse)
{
    if(AbsFlag)    	
		pulse=pulse-Xabs;

    if(pulse>0)
    {
    	if(XMovP(abs(pulse)))
        {
        	Xabs=Xabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(XMovN(abs(pulse)))
        {
        	Xabs=Xabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else return True;
}
//-----------------------------------------

Boolean YMovP(long pulse)
{
   char Buf[7];
   char data,i=0;

   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(YMOVP,pulse);
   Buf[2]=YMOVP;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
//-----------------------------------------
Boolean YMovN(long pulse)
{
   char Buf[7];
   char data,i=0;


   Buf[0]=0xff;
   Buf[1]=CountCheckSum1(YMOVN,pulse);
   Buf[2]=YMOVN;
   Buf[3]=(pulse>>24) & 0xff;
   Buf[4]=(pulse>>16) & 0xff;
   Buf[5]=(pulse>>8) & 0xff;
   Buf[6]=pulse & 0xff;
 do{
      WriteABuffer(Buf,7);
      if( !ReadABuffer(&data,(DWord)1) )  return False;
      i++;
      if( i>10 && (char)data!=(char)0xf0) return False;
   } while(data!=(char)0xf0);
   return True;
}
Boolean YMov(long pulse)
{
    if(AbsFlag)  	
		pulse=pulse-Yabs;

    if(pulse>0)
    {
    	if(YMovP(abs(pulse)))
        {
        	Yabs=Yabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(YMovN(abs(pulse)))
        {
        	Yabs=Yabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else return True;
}

Boolean YMovR(long pulse)
{

    if(pulse>0)
    {
    	if(YMovP(abs(pulse)))
        {
        	Yabs=Yabs+pulse;
            return True;
        }
        else
        	return False;
    }
    else if(pulse<0)
    {
    	if(YMovN(abs(pulse)))
        {