2005/C4/しほ

#define A OUT_A
#define B OUT_B
sub high()
{
      OnFwd(A) ;
      SetPower(A,OUT_HALF);
      Wait(30);
      OnRev(A);
      SetPower(A,OUT_LOW); 
      OnRev(B);
      Wait(150);
      SetPower(B,OUT_HALF);
      OnRev(A);    
      SetPower(A,OUT_FULL);
      Wait(40);
      Off(A);
      Off(B);
}
sub low()
{
      OnFwd(A) ;
      SetPower(A,OUT_HALF);
      Wait(50);
      Off(A);
      OnRev(B);
      Wait(150);
      SetPower(B,OUT_HALF);
      OnRev(A);    
      SetPower(A,OUT_FULL);
      Wait(50);
      Off(A);
      Off(B);
}
sub throw one()
{     
      OnFwd(A) ;
      SetPower(A,OUT_HALF);
      Wait(50);
      Off(A);
      OnFwd(B);
      SetPower(B,OUT_HALF);
      Wait(50);
      Off(B);
      OnRev(A);    
      SetPower(A,OUT_FULL);
      Wait(50);
      Off(A);
}
sub throw two()
{
      OnFwd(A) ;
      SetPower(A,OUT_HALF);
      Wait(30);
      OnRev(A);
      SetPower(A,OUT_LOW); 
      OnFwd(B);
      SetPower(B,OUT_HALF);
      Wait(50);
      Off(B); 
      OnRev(A);    
      SetPower(A,OUT_FULL);
      Wait(40);
      Off(A);
}
sub throw three()
{ 
      OnFwd(B);
      SetPower(B,OUT_HALF);
      Wait(50);
      Off(B);     
}           
task main()
{ 
     int i;
     for(i=1;i=9;i++){
     if(i<=3){
     high();
     throw one();}
     if((i>3)&&(i<=6)){
     low();
     throw two();}
     if((i>6)&&(i<=9)){
     high();
     throw three();}}
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-07 (火) 11:13:25 (4939d)