Hallo!
Ich habe folgendes Problem. Wie in der angehängten Software wird ein Servo von einem ATtiny 13 gesteuert um damit auf der Modellbahn Weichen, oder Tore zu steuern. Mit den Potis werden die Endlagen eingestellt, die eigentlich eingehalten werden sollen.
Nun ist es beim Einschalten aber so, daß das Servo kurz über die Eine Endlage zuckt um dann in der gewünschten Lage stehen zu bleiben.
Kann man dies irgendwie unterdrücken??? Oder liegt das am Servo generell? Kenne dieses Phänomän noch gut von der Lenkung meines Ferngesteuerten Auto beim Einschalten, nur macht es hier nichts aus, da keine mechanische Endlage in der Mittelstellung erreicht wird.
Kann man das vierhindern, indem ich den zuerst auf high oder low lege und dann erst als Servo freigebe???
Hat vielleicht noch jemand eine Idee, wie ich das verwendete kleine Conrad-Servo langsamer aber dennoch gleichmäßig laufen lassen kann?
Evtl. ein kleines Beispiel?
Viele Grüße
und schon mal danke für Eure Mithilfe
Sven
Code:
'-----------------------------------------------------------------------------------------
'name : Schuppentor_Servotiny13.bas
'copyright : (c) 2007 SZ
'purpose : Endlage über Potis einstellbar
' Ansteuerrung über PB1
'micro : TINY13
'Minimum : 35 for most small Conrad-Servos
'-----------------------------------------------------------------------------------------
$regfile = "attiny13.dat" ' specify the used micro
$crystal = 9600000 ' used crystal frequency
'$baud = 19200 ' use baud rate
'$sim
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
'--------------------------Config AD - Wandler--------------------------------------
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'For this chip you can use the additional param :
'Config Adc = Single , Prescaler = Auto, Reference = Internal
'The reference param may be :
'OFF : AREF, internal reference turned off
'AVCC : AVCC, with external capacitor at AREF pin
'INTERNAL : Internal 2.56 voltage reference with external capacitor ar AREF pin
Enable Interrupts 'Ist nötig
Config Portb.0 = Output 'Servoausgang
Config Pinb.1 = Input 'Auf/ZU
Config Pinb.2 = Input 'Jumper
Config Debounce = 20 'Tastenentprellung 20ms
'Interne Pullup Widerstände einschalten
Portb.1 = 1
Portb.2 = 1
Dim Minimum As Byte
Dim Maximum As Byte
Dim Spg_p1 As Word
Dim Sresult As Word
Dim Flag As Bit
'-----------------------------Sub Deklaration-------------------------------------
Declare Sub Poti_1
Declare Sub Poti_2
Start Adc
Flag = 0
Minimum = 35 'Rechter Anschlag
Maximum = 155 'Linker Anschlag
Do
Gosub Taster_up
Loop
End
'*******************************************************************************
Taster_up:
'Debounce Pinb.1 , 1 , Pr 'try this for branching when high(1)
Debounce Pinb.1 , 1 , Aus_up , Sub 'Taster offen
Debounce Pinb.1 , 0 , Ein_up , Sub 'Taster gedrückt
Return
'*******************************************************************************
'Unterprogramm Taste Up
Ein_up:
Gosub Poti_1
Return
'*******************************************************************************
'Unterprogramm Taste Up
Aus_up:
Gosub Poti_2
Return
'*******************************************************************************
Sub Poti_1
Spg_p1 = Getadc(2) 'Spannung an Poti
Sresult = Spg_p1 / 8
Sresult = Sresult + 35
If Sresult < 35 Then
Servo(1) = Minimum
End If
If Sresult = 35 Then
Servo(1) = Sresult
End If
If Sresult > 35 Then
Servo(1) = Sresult
End If
If Sresult > 155 Then
Servo(1) = Maximum
End If
End Sub
'*******************************************************************************
Sub Poti_2
Spg_p1 = Getadc(3) 'Spannung an Poti
Sresult = Spg_p1 / 8
Sresult = Sresult + 35
If Sresult < 35 Then
Servo(1) = Minimum
End If
If Sresult = 35 Then
Servo(1) = Sresult
End If
If Sresult > 35 Then
Servo(1) = Sresult
End If
If Sresult > 155 Then
Servo(1) = Maximum
End If
End Sub
Zitieren
Zitat von Hessibaby
Lesezeichen