Beste iedereen!
Na lang prutsen, prielen, ergernis, en herprogrammeren van mijn mega werkt mijn robot eindelijk!(althans, de servos)
Uiteindelijk lag het gewoon aan mijn servos. Ik had de potmeters niet ver genoeg doorgeduwd, zodat ze af en toe toch meedraaiden. Nu wat verder doorgeduwd, nu de potmeters maar met secondelijm vastgezet, en ja hoor, ze deden het! Bedankt iedereen voor de hulp, uiteindelijk lag het gewoon aan mezelf.
Dit is de code die er nu in zit:
code:
Cls
Cursor Off
Config Servos = 2 , Servo1 = Portd.3 , Servo2 = Portd.4 , Reload = 20
Config Rc5 = Pind.2 , Timer = 2
Config Portd.3 = Output , Portd.4 = Output
Enable Interrupts
Dim Adres As Byte , Commando As Byte
Servo(1) = 75
Servo(2) = 75
Lcd "Ruststand"
Do
Getrc5(adres , Commando)
Select Case Commando
Case 38
Cls
Lcd "Ruststand"
Servo(1) = 75
Servo(2) = 75
Case 32
Cls
Lcd "Vooruit"
Servo(1) = 50
Servo(2) = 100
Case 16
Cls
Lcd "Rechtsaf"
Servo(1) = 75
Servo(2) = 100
Case 17
Cls
Lcd "Linksaf"
Servo(1) = 50
Servo(2) = 75
Case 33
Cls
Lcd "Achteruit"
Servo(1) = 100
Servo(2) = 50
End Select
Loop
Het is even om te testen, je kunt hem besturen met de afstandsbediening van onze oude tv met de pijltje-naar-boven, pijltje-naar-onder, pijltje-naar-links, pijltje-naar-rechts en OK-knop.
EDIT: nu het volgende probleem: de grip. Vooruit en achteruit gaan prima, alleen het sturen gaat slecht, doordat mijn houten(ja, ik kon geen andere vinden
) wielen geen grip hebben. Wat raden jullie aan als wielen (graag van huis-tuin-en-keuken-dingen
), of iets voor om het hout heen als 'band'?
[Bericht gewijzigd door Beroepsprutser op 26 augustus 2008 16:31:03]
