Page 344 - Amphibionics : Build Your Own Biologically Inspired Robot
P. 344

Amphibionics 07  3/24/03  9:13 AM  Page 323
                                                                                   PROGRAM 7.9
                        turn_right:
                                                                                   remote-sonar.bas
                                                                                   program listing
                          high enable_left  Chapter 7 / Turtletron: Build Your Own Robotic Turtle
                          high reverse_left                                        (continued)
                          high enable_right
                          high forward_right
                        return
                        '------------------------------------------------------------------------------------------------------------------------------


                        sr_sonar:

                          pulsout trigger,1
                          pulsin echo,1,dist_raw
                          dist_inch = (dist_raw/conv_inch)
                          pause 10


                        return

                        end


                        :100000000629A0008417800484138E010C1C8E0026                PROGRAM 7.10
                        :100010002320031901292320031901292320012961                remote-sonar.hex file
                        :10002000A0008F200C080D0403190129FB20841364                listing
                        :100030002008800664001C281D288C0A03198D0FD7
                        :100040001A288006012920088E0601308C008D01B7
                        :10005000000820050E06031D08008C0A03198D0FE9
                        :100060002828080064004220031832284D20083058
                        :100070008F004E2042208E0C3D288F0B39284E20B9
                        :100080000E080800220884002008841780048413C6
                        :1000900000051F192006FF3E08001F171F0D063917
                        :1000A0008C005C208D008C0A5C201F1FB0281F1361
                        :1000B0008C000230C720B02800308A000C0882076C
                        :1000C000013475340334153400343C340C34D934E1
                        :1000D0008F00220884002009902084138F080319C0
                        :1000E0000129F03091000E0880389000F030910323
                        :1000F0000319910003198F03031901297F28932005

                                                                                                 323
   339   340   341   342   343   344   345   346   347   348   349