version 3.00 cm_version 2.0 platform CM-150 o // param_text:标题:第二阶段 独角仙 例子程序 o // param_text:最初发布:2013/11/21 o // param_text:最后修改:2013/11/21 o // param_text:[使用方法] o // param_text:机器人会根据传感器的值运动。 o main o begin o // param_text:机器人首先会播放乐曲。 o load param_dest:cm:18 param_src:buzzertime_num:255 o load param_dest:cm:17 param_src:melody_num:3 o wait param_src:cm:18 lop:> param_src:buzzertime_num:0 rop:then - o load param_dest:var:黑色检测值 param_src:dec_num:400 o while(1) o begin o // param_text:播放用于检测掌声的乐曲。 o load param_dest:cm:18 param_src:buzzertime_num:255 o load param_dest:cm:17 param_src:melody_num:12 o wait param_src:cm:18 lop:> param_src:buzzertime_num:0 rop:then - o // param_text:把声音检测次数设为0。 o load param_dest:cm:5 param_src:timer_num:8 o wait param_src:cm:5 lop:> param_src:timer_num:0 rop:then o load param_dest:cm:19 param_src:dec_num:0 - o // param_text:用3秒钟时间检测掌声。 o load param_dest:cm:5 param_src:timer_num:24 o wait param_src:cm:5 lop:> param_src:timer_num:0 rop:then o // param_text:用掌声次数决定速度。 o if param_src:cm:19 lop:> param_src:dec_num:0 rop:then o begin o load param_dest:var:行驶速度 param_src:dec_num:800 o end o else o begin o load param_dest:var:行驶速度 param_src:dec_num:500 o end - o // param_text:用10秒钟时间沿着黑线移动。 o load param_dest:cm:5 param_src:timer_num:79 o while param_src:cm:5 lop:> param_src:dec_num:0 rop:then o begin o if param_src:cm:13 lop:< param_src:var:黑色检测值 rop:&& param_src:cm:15 lop:> param_src:var:黑色检测值 rop:then o begin o // param_text:左侧传感器检测到黑线,向左转。 o compute param_dest:aux:1:68 param_src:dir_num:1024 aop:+ param_src:dec_num:0 o compute param_dest:aux:2:68 param_src:dir_num:1024 aop:+ param_src:var:行驶速度 o end o elseif param_src:cm:13 lop:> param_src:var:黑色检测值 rop:&& param_src:cm:15 lop:< param_src:var:黑色检测值 rop:then o begin o // param_text:右侧传感器检测到黑线,向右转。 o compute param_dest:aux:1:68 param_src:dir_num:0 aop:+ param_src:var:行驶速度 o compute param_dest:aux:2:68 param_src:dir_num:0 aop:+ param_src:dec_num:0 o end o else o begin o // param_text:其他情况下前进。 o compute param_dest:aux:1:68 param_src:dir_num:0 aop:+ param_src:var:行驶速度 o compute param_dest:aux:2:68 param_src:dir_num:1024 aop:+ param_src:var:行驶速度 o end o end o compute param_dest:aux:1:68 param_src:dir_num:0 aop:+ param_src:dec_num:0 o compute param_dest:aux:2:68 param_src:dir_num:0 aop:+ param_src:dec_num:0 o end o end