Schiebetür Steuerung

[Patzi (Gast)]

Guten Tag,

ich bin gerade dabei eine Elektrische Schiebetür zu Automatisieren , bin 
aber leider noch Anfänger was IQ angeht . Habe es bist jetzt geschafft 
das es Auf/Zu fährt aber jetzt ist meine Frage wie kann ich es mit der 
Zeit steuern wie z.B. wenn innerhalb von 10 sec. der Endschalter nicht 
erreicht wird das Automatisch abschaltet, der ein Klemmschutz ist 
mechanisch realisiert nur ich möchte nicht das der Motor dann durchläuft 
wenn er denn Endschalter nicht erreicht. Leider ist es nicht möglich mit 
einem or und waitms denn da wird ja der komplette Controller gestoppt 
und der Endschalter ist Außerfunktion. Und wie ist es möglich das die 
Öffnungszeit zu Realisieren ohne den ganzen Controller in dieser Zeit zu 
blockieren? Was ich noch gerne wissen möchte ist es gut wenn man als 
Verriegelung die 2 Ausgänge im Start Befehle gibt das nicht erneut 
gestartet werden kann, oder gibt es da bessere alternativen denn  in der 
warte Zeit wäre es ja möglich erneut Zu starten! Was eigentlich egal 
wäre da die Türe durch den Endschalter abgeschaltet wird wenn sie offen 
ist ?(Die Schütze werden Hardwareseitig auch verriegelt.) Als Motor 
dient ein 24v dc Motor der umgepolt wird.

Meinen Code füge ich bei soweit funktioniert er!

würde mich auf verschiedene Lösungsvorschläge freuen

LG

avr.device = atmega328p         //Controller-Typ festlegen
avr.clock = 8000000          //Dem Compiler mitteilen mit welcher Taktrate der Controller läuft
avr.stack = 64            //Den Programmstack einstellen


#define Auf as PortD.5
#define Zu as PortD.6
#define Autobefehl as PortD.2
#define EndschalterOffen as PortD.3
#define EndschalterZU as PortD.4
#define HandOffen as PortD.1


Auf.mode = output,low                              //Tür Auf als Ausgang
Zu.mode   = output,low                           //Tür ZU als Ausgang
Autobefehl.mode   = input,pullup                   //Auf/Zu Automaik als Eingang, Pullup einschalten
EndschalterOffen.mode   = input,pullup            //Endschalter wenn Türe Offen (NC) als Eingang, Pullup einschalten
EndschalterZU.mode   = input,pullup                //Endschalter wenn Türe ZU (NC) als Eingang, Pullup einschalten
HandOffen.mode   = input,pullup                    //Handschaltung Tür auf und offen bleiben als Eingang, Pullup einschalten


'Automatik
do


if (Autobefehl = 0) and (EndschalterZU = 1) and (EndschalterOffen = 1) then     //Darf nur starten wenn die Tür auch geschlossen ist,
                                           //und ein Startbefehel kommt und Endschalteroffen nicht gedrückt ist.
Auf = 1
endif


if Auf = 1 and (EndschalterOffen = 0)  then            // Soll Stoppen wenn Auf aktiv ist wenn Endschlalteroffen gedrückt ist odernach 10000ms.
Auf = 0
endif


loop

[Route_66 H. (route_66)]

Patzi schrieb:
> mit
> einem or und waitms denn da wird ja der komplette Controller gestoppt

Patzi schrieb:
> das die
> Öffnungszeit zu Realisieren ohne den ganzen Controller in dieser Zeit zu
> blockieren?

Die Zauberworte heissen TIMER und INTERRUPT.
Damit baut man einen Zustandsautomaten.
Dein Controller kann so, viele Dinge "scheinbar" gleichzeitig tun!

[Patzi (Gast)]

Danke für deine Antwort leider nimmt er nur waitms die anderen 
funktionieren nicht in der Syntax auch delay nicht!!
Hättest du auch noch eine andere Idee?


lg

[Hubert G. (hubertg)]

Du solltest schreiben mit welcher Entwicklungsumgebung du arbeitest. 
Dann tut man sich mit hinweisen leichter.

[Marc V. (Firma: Vescomp) (logarithmus)]

Patzi schrieb:
> Meinen Code füge ich bei soweit funktioniert er!

 Möglich, nur wie ?

Patzi schrieb:

 if (Autobefehl = 0) and (EndschalterZU = 1) and (EndschalterOffen = 1) 
 then     //Darf nur starten wenn die Tür auch geschlossen ist,
          //und ein Startbefehel kommt  und Endschalteroffen nicht gedrückt ist.

 So macht man das aber nicht - Tür soll immer aufgehen können - was
 ist wenn etwas oder jemand dazwischen klemmt ?

Patzi schrieb:
> Danke für deine Antwort leider nimmt er nur waitms die anderen
> funktionieren nicht in der Syntax auch delay nicht!!

 Vielleicht so ?

 Dim SysCnt As Word = 0
 Dim TuerCnt As Word = 0
 Dim TimeOut As Boolean = false

 SysInit()

 Avr.Interrupts.enable      '* Enable global Interrupts

 TuerAuf(100)                '*** 100 * 100ms  = 10000ms = 10sec für die Tür um aufzugehen
 
 Do
   
   
   if TimeOut Then
     ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         '*** 10sec sind ohne Endanschlag vorbei, tu etwas
         '...
     ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   EndIf
   
   if Auf = 1 and (EndschalterOffen = 0)  then    '***  Ich nehme an, daß jetzt die Tür zu ist ?
     Timer1.CmpA.Disable          '* Timer1 ausschalten
     Auf = 0
   EndIf
 
   '...
   '...
 Loop
  

Procedure SysInit()
'*****  Konfig Timer1  *****
 Timer1.Clock =  256            '* Clock divider auf 1: 256 (8 Mhz = 125ns * 256 = 32uSec)
 Timer1.CmpA.Value = 3124          '* Outputcompare-Register auf 3125 ( 3125 * 32uSec =100mS)
 Timer1.CmpA.Isr = timer1_compare        '* Compare-Interrupt aktivieren
 Timer1.CmpA.Clear.Enable          '* CTC-Mode aktivieren
EndProc

Procedure TuerAuf(xms As Word)
   TuerCnt = xms          '*** xms * 100ms
   TimeOut = false
   Auf = 1    '*** Tür auf (Beim Endanschlag wird Timer1 ausgeschaltet)
   Timer1.CmpA.Enable            '* Timer1 einschalten
EndProc

Isr timer1_compare fastauto    '*** Alle 100ms
If TuerCnt > 1 then      '*** Zählt rückwärts bis Null
TuerCnt--
elseif TuerCnt = 1 then
TuerCnt = 0
TimeOut = 1
endif
SysCnt++        '*** Zählt immer vorwärts
EndIsr

[Otto (Gast)]

Bascom?

[fop (Gast)]

Uff Bascom ist schon zu lange her bei mir. Vielleicht wollte ich es auch 
verdrängen :-)
Timer ist kein Basic Befehl, sondern der Name einer oder mehrerer 
Peripherieeinheiten in Deinem Mikrocontroller.
Diesem Ding kannst Du einen festen Takt vorgeben und der zählt einfach, 
egal was Dein Programm gerade macht. Und wenn Du hin und wieder den 
Zählerstand liest, könntest Du bestimmen, wieviel Zeit vergangen ist.
Da liegt nämlich die Kunst, die Zeit nicht zu vertrödeln, sondern im 
Programmablauf fort zu fahren. So kannst Du auf den Endschalter achten 
und nach einer festgelegten Zeit aufgeben.
Interrupts braucht es für Deine Aufgabe nicht unbedingt. Da Du 
vermutlich noch am Lernen bist, würde ich das Kapitel nach hinten 
verschieben.
Was Du Deinem Programm noch beibringen solltest ist eine sogenannte 
Entprellung der Eingänge. Auch dabei kann Dir ein Timer eine große Hilfe 
sein, um die Frage zu beantworten, ob der Eingang jetzt so richtig in 
einem Zustand ist oder nur so rumkaspert.
Nimm einen Timer mit möglichst vielen Bits. Mach Dich aber trotzdem auf 
einen sogenannten Timerüberlauf gefasst.

[Uwe S. (de0508)]

Hallo,

es handelt sich um die Entwicklungsumgebung LunaAVR.

TimerN und auch die Entprellung eines Ports (nach Peter Dannegger) kann 
man einfach über eine Hochsprachenimplementierung nutzen.

[Paul B. (paul_baumann)]

Otto schrieb:
> Bascom?

Das sieht eher pascal-lig aus mit den Proceduren drin. So, wie das hier 
auch:

Procedure Mittagessen
   uses Messer, Gabel, Löffel;
   var Schnitzel, Kartoffel, Möhre: real;

Begin
     Repeat
         Open Mund for Input as Stream #1;
     until Teller leer;
     Writeln (`Ich bin so satt, ich mag kein Blatt!`)
End.

Writeln (`MfG Paul`)

[Uwe S. (de0508)]

Nein Paul B,

Patzi hat sich schon im LunaAVR Forum mit der selben Fragestellung 
gemeldet und auch Lösungswege aufgezeigt bekommen, teilweise als PN.

Auch findet man hier einen kompletten Lernvorschlag, noch ohne 
Timernutzung.

Als erstes muss ein DEA "erzeugt" werden, der dann über eine "state 
machine" implementiert werden kann.