Servosteuerung

---

Fernsteuerservos benötigen Steuerimpulse mit Impulslängen zwischen 1 ms und 2 ms. Die genaue Impulsdauer steuert die Servoposition. Zwischen den einzelnen Impulsen sollte eine Wartezeit von 20 ms liegen.

 

Bei einer Übertragungsrate von 4800 Baud beträgt eine Bitlänge 0,2083 ms. Beim Senden der passenden Bytes lassen sich einzelne 1-Bits hintereinander legen, sodass Impulse der Länge 5 * 0,2083 ms = 1,04 ms bis 9 * 0,2083 ms = 1,88 ms entstehen. Damit sind fünf diskrete Positionen einstellbar, die stabil stehen bleiben.

Private Sub Command3_Click()
 OpenString = "COM" + Text1.Text + ":4800,N,8,1"
 i = OPENCOM(OpenString)
 If i = 0 Then MsgBox ("Schnittstelle nicht verfügbar")
End Sub

Private Sub Option1_Click()
  Dat = 5
End Sub

Private Sub Option2_Click()
  Dat = 6
End Sub

Private Sub Option3_Click()
  Dat = 7
End Sub

Private Sub Option4_Click()
 Dat = 8
End Sub

Private Sub Option5_Click()
  Dat = 9
End Sub

Private Sub Timer1_Timer()
    If Dat = 5 Then Byt = 240
    If Dat = 6 Then Byt = 224
    If Dat = 7 Then Byt = 192
    If Dat = 8 Then Byt = 128
    If Dat = 9 Then Byt = 0
    If (Dat > 0) And (Dat < 10) Then SENDBYTE Byt
End Sub

zurück
weiter