[[2018b/Member]]

#contents
**作成したプログラム(AAA) [#g2fac14c]
#define M_T    250
#define M_T1   500
#define M_T2    1414
#define M_T3    1000
#define M_T4   1500
#define M_T5   3750
#define M_T6   550
#define M_T7   914



#define SP 30

#define STP Wait(M_T)
#define STP1 Wait(M_T1)
#define STP2 Wait(M_T2)
#define STP3 Wait(M_T3)
#define STP4 Wait(M_T4)
#define STP5 Wait(M_T5)
#define STP6 Wait(M_T6)
#define STP7 Wait(M_T7)

#define TIS Off(OUT_BC);Wait(500)

#define SSM OnFwd(OUT_BC,SP);STP;TIS         //500
#define MDR OnRev(OUT_BC,SP);STP;TIS

#define SSM1 OnFwd(OUT_BC,SP);STP1;TIS        //1000
#define MDR1 OnRev(OUT_BC,SP);STP1;TIS

#define SSM2 OnFwd(OUT_BC,SP);STP2;TIS        //1414
#define MDR2 OnRev(OUT_BC,SP);STP2;TIS

#define SSM3 OnFwd(OUT_BC,SP);STP3;TIS         //2000
#define MDR3 OnRev(OUT_BC,SP);STP3;TIS

#define SSM4 OnFwd(OUT_BC,SP);STP4;TIS         //3000
#define MDR4 OnRev(OUT_BC,SP);STP4;TIS       



#define SSM5 OnFwd(OUT_BC,SP);STP7;TIS         //914
#define MDR5 OnRev(OUT_BC,SP);STP7;TIS      


#define MMGR OnFwd(OUT_B,SP);OnRev(OUT_C,SP);STP6;TIS;
#define HMGR OnFwd(OUT_C,SP);OnRev(OUT_B,SP);STP6;TIS;



#define PD RotateMotor(OUT_A,50,-40);Wait(1000);  //ペンを下ろす
#define PU RotateMotor(OUT_A,50,40);Wait(1000);  //ペンを上げる

 task main ()

    SSM3;TIS;PU;MDR1;TIS;HMGR;TIS;PD;SSM3;TIS;PU;                          
    HMGR;TIS;HMGR;TIS;SSM1;TIS;HMGR;TIS;HMGR;TIS;PD;
    SSM1;TIS;PU;MDR1;TIS;MMGR;MMGR;TIS;PD;
    SSM3;TIS;PU;HMGR;TIS;HMGR;PD;SSM1;TIS;PU;SSM3;
    TIS;HMGR;TIS;HMGR;TIS;SSM1;TIS;
    HMGR;TIS;HMGR;TIS;PD;SSM4;TIS;PU;TIS;HMGR;TIS;HMGR;

    SSM4;TIS;PD;SSM3;TIS;PU;HMGR;TIS;HMGR;TIS;PD;TIS;SSM1;TIS;PU;TIS;HMGR;TIS;HMGR;TIS;PD;SSM3;TIS;PU;HMGR;TIS;HMGR;TIS;PD;SSM1;TIS;PU;
    MDR3;TIS;HMGR;TIS;HMGR;TIS;PD;SSM3;TIS;PU;HMGR;HMGR;HMGR;
    MDR;TIS;PD;SSM1;TIS;PU;SSM5;TIS;HMGR;HMGR;TIS;PD;SSM2;TIS;PU;




**作成したプログラム3(test) [#va527989]
#define M_T    500
#define M_T1   1000
#define M_T2    1414
#define M_T3    2000
#define M_T4   3000
#define M_T5   3750
#define M_T6   550
#define M_T7   914



#define SP 30

#define STP Wait(M_T)
#define STP1 Wait(M_T1)
#define STP2 Wait(M_T2)
#define STP3 Wait(M_T3)
#define STP4 Wait(M_T4)
#define STP5 Wait(M_T5)
#define STP6 Wait(M_T6)
#define STP7 Wait(M_T7)

#define TIS Off(OUT_BC);Wait(500)

#define SSM OnFwd(OUT_BC,SP);STP;TIS         //500
#define MDR OnRev(OUT_BC,SP);STP;TIS

#define SSM1 OnFwd(OUT_BC,SP);STP1;TIS        //1000
#define MDR1 OnRev(OUT_BC,SP);STP1;TIS

#define SSM2 OnFwd(OUT_BC,SP);STP2;TIS        //1414
#define MDR2 OnRev(OUT_BC,SP);STP2;TIS

#define SSM3 OnFwd(OUT_BC,SP);STP3;TIS         //2000
#define MDR3 OnRev(OUT_BC,SP);STP3;TIS

#define SSM4 OnFwd(OUT_BC,SP);STP4;TIS         //3000
#define MDR4 OnRev(OUT_BC,SP);STP4;TIS       



#define SSM5 OnFwd(OUT_BC,SP);STP7;TIS         //914
#define MDR5 OnRev(OUT_BC,SP);STP7;TIS      


#define MMGR OnFwd(OUT_B,SP);OnRev(OUT_C,SP);STP6;TIS;
#define HMGR OnFwd(OUT_C,SP);OnRev(OUT_B,SP);STP6;TIS;



#define PD RotateMotor(OUT_A,50,-80);Wait(1000);  //ペンを下ろす
#define PU RotateMotor(OUT_A,50,80);Wait(1000);  //ペンを上げる

 task main ()

   SSM3;TIS;PU;MDR1;TIS;HMGR;TIS;PD;SSM3;TIS;PU;                          
    HMGR;TIS;HMGR;TIS;SSM1;TIS;HMGR;TIS;HMGR;TIS;PD;
    SSM1;TIS;PU;MDR1;TIS;MMGR;MMGR;TIS;PD;
    SSM3;TIS;PU;HMGR;TIS;HMGR;PD;SSM1;TIS;PU;SSM3;
    TIS;HMGR;TIS;HMGR;TIS;SSM1;TIS;
    HMGR;TIS;HMGR;TIS;PD;SSM4;TIS;PU;TIS;HMGR;TIS;HMGR;

    SSM4;TIS;PD;SSM3;TIS;PU;HMGR;TIS;HMGR;TIS;PD;TIS;SSM1;TIS;PU;TIS;HMGR;TIS;HMGR;TIS;PD;SSM3;TIS;PU;HMGR;TIS;HMGR;TIS;PD;SSM1;TIS;PU;
    MDR3;TIS;HMGR;TIS;HMGR;TIS;PD;SSM3;TIS;PU;HMGR;HMGR;HMGR;
    MDR;TIS;PD;SSM1;TIS;PU;SSM5;TIS;HMGR;HMGR;TIS;PD;SSM2;TIS;PU;

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS