10 'TEN-COUNT 20 PWM2,135:WAIT90 30 FOR I=1 TO 10 40 PWM2,50:WAIT90 50 PWM2,145:WAIT10 60 PWM2,135:WAIT90 70 NEXT 80 END IN(2)にモーションセンサーを接続。 鳴らし方をちょっと変更。 10 'AutoBell 20 LED0:PWM2,220:WAIT60 30 @I:IFIN(2)=1GOTO@I:ELSELED1 40 @W:IFIN(2)=0GOTO@W:ELSELED0 50 PWM2,230:WAIT10 60 PWM2,235:WAIT30 70 PWM2,220:WAIT90 80 GOTO@I