Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

servo steuern / finde denkfehler nicht Kategorie: Programmierung Basic (von michl - 7.10.2009 0:37)
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board
ich fühl mich grad ein klein wenig blöd... ich find meinen denkfehler nicht. vom kratzen hab ich inzwischen
eine glatze.

ich habe einen modelcraft rs-2 servo angeschlossen an meinem c-control pro 128 app. board
(rot an +5v, braun an masse, orange an port c.0)

ich wollte jetzt einfach mal den servo von links nach rechts fahren lassen und zurück in einer endlosschleife.
das ganze funktioniert nicht, der servo zuckt nur gelegentlich hin und her, tut aber nicht, was er soll.
nur finde ich leider den denkfehler nicht und kann meinen scheinbar fehlerhaften code nicht korrigieren.
kann mir einer sagen, wo hier der fehler liegt?

Dim zaehler As Integer

Sub main()
    Port_DataDirBit(16,PORT_OUT)

    Do While (True)
        links()
        rechts()
    End While

End Sub

Sub links()
    zaehler = 0
    Do While (zaehler < 51)
        zaehler = zaehler + 1
        Port_WriteBit(16,PORT_ON)
        AbsDelay(1)
        Port_WriteBit(16,PORT_OFF)
        AbsDelay(19)
    End While
End Sub

Sub rechts()
    zaehler = 0
    Do While (zaehler < 51)
        zaehler = zaehler + 1
        Port_WriteBit(16,PORT_ON)
        AbsDelay(2)
        Port_WriteBit(16,PORT_OFF)
        AbsDelay(18)
    End While
End Sub

ps: der motor funktioniert, mit einem heruntergeladenen demo-programm funktioniert er zwar zittrig,
aber ansonsten tadellos.


    Antwort schreiben


Antworten:

kommando zurück - fehler entdeckt (von michl - 7.10.2009 4:05)
    Re: kommando zurück - fehler entdeckt (von UlliS - 7.10.2009 9:29)
        Re: kommando zurück - fehler entdeckt (von michl - 7.10.2009 12:50)
            Re: kommando zurück - fehler entdeckt (von michl - 7.10.2009 15:12)