Bascom Motor mit Taster steuern

[(unknown) (Gast)]

Hallo

Ich möchte mir mit einem ATmega32 eine Steuerung für ein Fahrgeschäft 
bauen. den Avr programmiere ich mit Bascom. Jetzt möchte ich, dass ich 
mit einem Taster den Motor so lange laufen lassen kann, wie ich den 
Taster drücke oder bis der Motor einen Endschalter schaltet.
Ich habe scho versucht mit einer while-wend Schleife, dass hat aber 
nicht richtig funkioniert.

Hat jemand einen Denkanstoss oder ein Programmschnipsel für mich??

Vielen Dank!

[Kluchscheißernder N. (kluchscheisser)]

Taster, Motor, Bascom... - Habe ich hier mal gesehen:
Beitrag "Re: Eine kleine Frage zur Programmierung"

MfG

[(unknown) (Gast)]

Vielen Dank für den Link. Aber da ich noch blutiger Anfänger in diesen 
Thema bin, hilft mir das nicht viel weiter...

[Karl H. (kbuchegg)]

Chris B. schrieb:

> Taster drücke oder bis der Motor einen Endschalter schaltet.
> Ich habe scho versucht mit einer while-wend Schleife, dass hat aber
> nicht richtig funkioniert.
>
> Hat jemand einen Denkanstoss oder ein Programmschnipsel für mich??

Poste deinen Code!

Im Prinzip ist dein Gedankengang ja gar nicht schlecht.
Der Motor soll laufen, solange nicht gilt ( Taster ist losgelassen oder 
Endschalter ist erreicht )

Wahrscheinlich hast du dich irgendwo bei den UND ODER NICHT vertan.
Das passiert schon mal, weil wir Menschen im täglich Leben bei 
derartigen Dingen sehr schlampig agieren.

In diesem Zusammenhang ist auch der De'Morgan wichtig


    ( NICHT A ) UND ( NICHT B )  <==>  NICHT( A ODER B )

[(unknown) (Gast)]

Oke underdessen habe ich es selber geschafft.... Habe den Fehler selber 
gefunden. Habe vergessen den Endschalter ausserhalb der While-Wend 
Schleife vergessen abzufragen


Hier der funktionierende Code

Aufsteigen:

Do

While Taster_auf = 0                            'Taster abfrage
Motor_start = 1
If Stop_auf = 0 Then                            'Endschalter abfrage
Motor_start = 0
return
End If
Wend

Motor_start = 0

If Stop_auf = 0 Then                            'Endschalter abfrage
Motor_start = 0
return
End If
If Stop_auf = 1 Then Exit Do
Loop

Return

[Karl H. (kbuchegg)]

zumindest solltest du den Code einrücken, damit man besser sieht, wie 
die einzelnen Verschachtelungsebenen sind:

Aufsteigen:

Do

  While Taster_auf = 0                            'Taster abfrage
    Motor_start = 1
    If Stop_auf = 0 Then                            'Endschalter abfrage
      Motor_start = 0
      return
    End If
  Wend

  Motor_start = 0

  If Stop_auf = 0 Then                            'Endschalter abfrage
    Motor_start = 0
    return
  End If
  If Stop_auf = 1 Then Exit Do
Loop

Return

den letzten Teil deiner Funktion solltest du dir noch einmal genauer 
ansehen. Und auch die do - Loop ist ein wenig sinnlos, wenn sowieso auf 
jeden Fall aus der Loop ausgestiegen wird.

  M

was spricht gegen

Aufsteigen:

  if Stop_auf = 0 then                ' Wenn das Rollo schon oben ist
    return                            ' kann der Benutzer drücken soviel er will
  endif                               ' wir kümmern uns nicht darum

  if Taster_auf = 0 then              ' will der Benutzer nach oben?
    Motor_start = 1                   ' dann erfüllen wir ihm den Wunsch
  else
    Motor_start = 0                   ' Nein? dann eben nicht
  endif

return

Die Funktion ist so ausgelegt, (wie deine auch) dass sie von einer 
anderen Stelle regelmässig aufgerufen werden muss.