|
'***************************************
program Tone
'*****
Sub Procedure _A
Sound_Play(227,100)
End sub
'*****
Sub Procedure _B
Sound_Play(202,100)
End sub
'*****
Sub Procedure _C
Sound_Play(190,100)
End sub
'*****
Sub Procedure _D
Sound_Play(170,100)
End sub
'*****
Sub Procedure _E
Sound_Play(152,100)
End sub
'*****
Sub Procedure _F
Sound_Play(143,100)
End sub
'*****
Sub Procedure _G
Sound_Play(127,100)
End sub
'*****
Sub Procedure _HiA
Sound_Play(114,100)
End sub
'***************************************
Main:
TrisB = %11111111 'Set all the pins in PortB to input
TrisA = %00011111
CMCON = %00000111
Sound_init(PortA,0)
'***************************************
While TRUE
If Testbit(PortB,0)= 0 Then
_A
End If
'*****
If Testbit(PortB,1)= 0 Then
_B
End If
'*****
If Testbit(PortB,2)= 0 Then
_C
End If
'*****
If Testbit(PortB,3)= 0 Then
_D
End If
'*****
If Testbit(PortB,4)= 0 Then
_E
End If
'*****
If Testbit(PortB,5)= 0 Then
_F
End If
'*****
If Testbit(PortB,6)= 0 Then
_G
End If
'*****
If Testbit(PortB,7)= 0 Then
_HiA
End If
'*****
Wend
End.
'***************************************
|
Robodyssey Systems manufactures Robot Kits including Autonomous Mobile
Walking Robots, Wheeled Robots, Talking Robots, Expressive Robots, and
Social Robots. We also sell Robotics Accessories including Nexcell NiMH AA
Rechargeable Batteries, Nexcell NiMH AAA Rechargeable Batteries, Battery Holders,
Velcro Straps for Battery Packs, Battery Chargers, Robot Grippers, Hobby Servos,
Servos Modified for Continuous Rotation, Tail Wheels for all Rolling Robotic Platforms,
Polyurethane Skate Wheels with Servo Adapter Hubs, Sharp IR Sensors and Adjustable
Sensor Brackets, Sensor Cables, and Programming Cables. All of our Robot Kits
can be purchased as easy to assemble robot kits or as fully assembled stationary
or mobile robots. Robodyssey uses 1/8 inch aluminum and acetyl for most all of
our mobile robot components and robotics accessories. We provide classroom
training for teachers interested in integrating robotics, computer programming
and electronics into the classroom.
We hope you enjoy our web site. Feel free to use any robotic resources.
Robodyssey is your complete solution for Educational Robotics as well as Hobby Robotics.
|