'Bambino-01 SERTXD("B01",CR) 'report program number @4800baud 'In View,Options,Editor set the Serial Terminal to open after a download 'or open the Serial Terminal and turn on Bambino. #PicAxe 20M2 #no_data 'Bambino-01 Test eyeLEDs, whiskerLEDs and speaker '----------------------------------------------------------------- Rationale: 'The program makes a sound and toggles the four orange LEDs. 'This uses ' - the Speaker and red Mouth LED, ' - the four orange LEDs '================================================================= SYMBOL VoiceLedpin_ =c.5 'low =>LED on SYMBOL eyeLedLpin_ =c.2 'low =>LED on SYMBOL eyeLedRpin_ =b.1 'low =>LED on SYMBOL GwhiskerLedLpin_ =c.3 'low =>Ground whisker LED on SYMBOL GwhiskerLedRpin_ =b.3 'low =>Ground whisker LED on 'B0 parameter for SOUND initialise: HIGH eyeLedLpin_ 'make output and turn off HIGH eyeLedRpin_ 'make output and turn off HIGH GwhiskerLedLpin_ 'make output and turn off HIGH GwhiskerLedRpin_ 'make output and turn off start: LET B0 = B0 + 1 'increment B0, 'when the byte variable B0 reaches 255 it will increment to 0 SOUND VoiceLedpin_,(B0,2) 'make a sound TOGGLE eyeLedLpin_ 'alter eyeL TOGGLE eyeLedRpin_ 'alter eyeR TOGGLE GwhiskerLedLpin_ 'alter whiskerL TOGGLE GwhiskerLedRpin_ 'alter whiskerR GOTO start 'loop back to start '=================================================================