Hi
ich habe mich jetzt schon seit Tagen durch alle möglichen Foren und
Tutorials geschlagen, aber mien Conrad-Servo läuft einfach nicht !?
Die Harware im Anhang (100kb), sämtliche Kontakte habe ich überprüft,
die Spannung ist durch einen 7805 konstant auf 5.00V.
Hier mein Code, der laut internet in dieser Art und Weise schon oft
funktioniert hat .... vielleicht kann mir ja hier jemand helfen.
1 | $regfile = "m8def.dat"
|
2 | $crystal = 8000000
|
3 |
|
4 | Config Portc.0 = Output
|
5 | Config Portd = Input
|
6 | Pind.6 = 1
|
7 | Pind.7 = 1
|
8 |
|
9 | Config Servos = 1 , Servo1 = Pinc.0 , Reload = 10
|
10 | Enable Interrupts
|
11 |
|
12 | Dim W As Byte
|
13 | 'Mittelstellung ????
|
14 | W = 70
|
15 | Servo(1) = W
|
16 |
|
17 | Do
|
18 | If Pind.6 = 0 Then Incr W
|
19 | If Pind.7 = 0 Then Decr W
|
20 | Servo(1) = W
|
21 | Loop
|
bei keinem der beiden Taster regiert der Servo
wenn ich ihn von Hand verdrehe und an 5V anschliesse stellt er sich
automatisch immer auf die gleich position zurück - so zirka 15° vorm
Anschlag.
Wo liegt der Fehler bei der ganzen Sache?
Ich habe jetzt mehrere Tage herumprobiert, auch ohne die Bascom-Funktion
zu benutzen (alle 20ms ein 1-2ms Signal, usw), aber ohne Erfolg.
MfG
joshy