[[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;