Od kilku godzin próbuje zrozumieć dlaczego ten układ nie chce działać.
Podłączyłem atmege do zasilania, a do jej pinu C.5 podłączyłem kabelek Signal od serwa. Serwo do zasilania i GND (napięcie stabilizowane 5V).
Wszystko ładnie pięknie - przy podłączeniu zasilania serwo wykonuje jakiś ruch, jednak serwo według programu (napisanego w oparciu o help z bascoma) powinno obracać się o 1 radian(a raczej o 1/255) na sekundę.
Podłączyłem wyświetlacz, żeby sprawdzić czy program się wykonuje. I tak wykonuje się, zwiększa liczbę i serwo powinno chodzić - a nie chodzi... Tak, więc podłączenie jest poprawne (sprawdzałem kilka razy multimetrem).
Pewnie wina leży w kodzie, kod poniżej:
Próbowałem też zamienić zasilacz z tego (9V 0,3A) na akumulator. Ciągle to samo, tylko nie potrzebnie się stabilizator grzeje jak szalony...
Podłączyłem atmege do zasilania, a do jej pinu C.5 podłączyłem kabelek Signal od serwa. Serwo do zasilania i GND (napięcie stabilizowane 5V).
Wszystko ładnie pięknie - przy podłączeniu zasilania serwo wykonuje jakiś ruch, jednak serwo według programu (napisanego w oparciu o help z bascoma) powinno obracać się o 1 radian(a raczej o 1/255) na sekundę.
Podłączyłem wyświetlacz, żeby sprawdzić czy program się wykonuje. I tak wykonuje się, zwiększa liczbę i serwo powinno chodzić - a nie chodzi... Tak, więc podłączenie jest poprawne (sprawdzałem kilka razy multimetrem).
Pewnie wina leży w kodzie, kod poniżej:
$regfile = "m8def.dat"
$crystal = 4000000
Config Servos = 1 , Servo1 = Portc.5 , Reload = 10
Config Portc = Output
Enable Interrupts
Dim I As Byte
Do
For I = 0 To 100
Servo(1) = I
Cls
Upperline
Lcd "Dzien dobry!"
Lowerline
Lcd "Pozycja: " ; I
Waitms 1000
Next
For I = 100 To 0 Step -1
Servo(1) = I
Cls
Upperline
Lcd " Dzien dobry!"
Lowerline
Lcd "Pozycja: " ; I
'pokazuje pozycje serwa
Waitms 1000
Next
Loop
EndPróbowałem też zamienić zasilacz z tego (9V 0,3A) na akumulator. Ciągle to samo, tylko nie potrzebnie się stabilizator grzeje jak szalony...
