BASCOM Problem In Unterprogramme springe und dort bleiben?

[Janiiix3 (Gast)]

Hallo Freunde,

ich bin am Verzweifeln, ich komme einfach nicht weiter. Ich habe vor mit 
einem Taster in div. Programme zu springen und dann dort auch zu bleiben 
so lange ich den Taster nicht erneut drücke... habt ihr eine Ahnung wie 
ich das am besten mache?! 0.o

ich war so vorgegangen...

$regfile = "2313def.dat"

Config Portb = Output
Config Portd = Output
Config Portb.3 = Input
Config Portb.2 = Input

Portb.2 = 1
Portb.3 = 1



Config Timer1 = Timer , Prescale = 8
Enable Timer1
On Timer1 Ein
Enable Interrupts

Do

if Pinb.3=0 then
goto Puls

Puls:

Portd.4=1
waitms 100
Pord.4=0
waitms 100

loop
end

Ein:
Toggle Portd.6

Return



'PB4= Magnetventil
'PB3= Taster_Dauer
'PB2=Taster_Puls

'LED1= PD6
'LED2= PD5
'LED3= PD4
'LED4= PD3
'LED5= PD2
'LED6= PD1
'LED7= PD0

[... (Gast)]

Guck mal nach Zustandsautomat bzw. state machine

[smufte (Gast)]

sicherlich nicht perfekt aber probier mal das

$regfile = "2313def.dat"
$crystal = 8000000

'Config Portb = Output  ???????????
Config Portd = Output
Config Pinb.3 = Input                                       'geändert
Config Pinb.2 = Input                                       'geändert

Portb.2 = 1
Portb.3 = 1


Config Debounce = 30

Config Timer1 = Timer , Prescale = 8
Enable Timer1
'On Timer1 Ein          '??????????
Enable Interrupts

Do
Debounce Pinb.2 , 0 , Puls , Sub
Debounce Pinb.3 , 0 , Woauchimmerhin , Sub
Loop


Puls:
Do
Portd.4 = 1
waitms 100
Portd.4=0
waitms 100
Loop Until Pinb.2 = 0
Return



Woauchimmerhin:
Do
'was es hier auch zu tun gibt
Loop Until Pinb.3 = 0
return



'PB4= Magnetventil
'PB3= Taster_Dauer
'PB2=Taster_Puls

'LED1= PD6
'LED2= PD5
'LED3= PD4
'LED4= PD3
'LED5= PD2
'LED6= PD1
'LED7= PD0

[Krapao (Gast)]

$regfile = "2313def.dat"

Config Portb = Output
Config Portd = Output
Config Portb.3 = Input
Config Portb.2 = Input

Portb.2 = 1
Portb.3 = 1

schalter = 0 ' aus

Config Timer1 = Timer , Prescale = 8
Enable Timer1
On Timer1 Ein
Enable Interrupts

Do
  ' Eingabe regelmäßig prüfen
  ' OHNE Entprellung!
  ' kann mit DEBOUNCE (s. BASCOM Manual AVR) drastisch verbessert werden
  if Pinb.3=0 then
    if schalter=0 then
      schalter=1 ' ein
    endif
  else
    if schalter=1 then
      schalter=0 ' aus
    endif
  end if

  ' Schalterstellung auswerten und agieren
  if schalter=1 then
    gosub Puls
  end if 
loop
end

' Aktionscode
Puls:
  Portd.4=1
  waitms 100
  Portd.4=0
  waitms 100
return

' Interrupt Service Routine für Timer1
Ein:
  Toggle Portd.6
Return

[Janiiix3 (Gast)]

was meinst du mit Schalter ? soll das eine Variable sein?

[Mirko B. (mirkob)]

Ich probiers mal in Pseudo-Bascom:


Main:
do
 if taste1=0 then
  gosub taste1                    <- evtl. Platz für entprellen
 end if                              Taster gegen Masse, Pin als Eingang
                                    und Pull-Up ein
 if taste2=0 then
  gosub taste2
 end if
loop

-----

taste1:

do

 {mache irgendwas}

loop until taste1=0
return


taste2:
do
 {mache irgendwas}
loop until taste2=0
return


Problem ist, dass wenn die "Taste" zu lange gedrückt wird, gleich wieder 
aus dem Unterprogramm gesprungen wird. Also evtl vor dem gosub ein 
waitms xxx einfügen

Mirko

[smufte (Gast)]

dann eben so

$regfile = "2313def.dat"
$crystal = 8000000

'Config Portb = Output  ???????????
Config Portd = Output
Config Pinb.3 = Input                                       'geändert
Config Pinb.2 = Input                                       'geändert

Portb.2 = 1
Portb.3 = 1


Config Debounce = 30

Config Timer1 = Timer , Prescale = 8
Enable Timer1
'On Timer1 Ein          '??????????
Enable Interrupts

main:
Do
Debounce Pinb.2 , 0 , Puls , Sub
Debounce Pinb.3 , 0 , Woauchimmerhin , Sub
Loop


Puls:
Do
Portd.4 = 1
waitms 100
Portd.4=0
waitms 100
Debounce Pinb.2 , 0 , main , Sub
Loop
Return



Woauchimmerhin:
Do
'was es hier auch zu tun gibt
Loop Until Pinb.3 = 0
return



'PB4= Magnetventil
'PB3= Taster_Dauer
'PB2=Taster_Puls

'LED1= PD6
'LED2= PD5
'LED3= PD4
'LED4= PD3
'LED5= PD2
'LED6= PD1
'LED7= PD0

[Hannes L. (hannes)]

Neben der Entprellung des Tasters brauchst Du noch die Flankenerkennung. 
Also das Erkennen, dass der Taster losgelassen und erneut betätigt 
wurde. Dies erreicht man durch zyklische Abfrage des Tastenports und 
Speichern des Zustandes, um durch Vergleich des alten und neuen 
Zustandes Änderungen zu erkennen.

Bei jeder damit erkannten Betätigungsflanke zählst Du eine 
Zustandsvariable hoch, anhand deren Wert Du zur entsprechenden Aktion 
verzweigst. Die Aktionen musst Du so organisieren, dass die 
Tastenabfrage nicht vernachlässigt wird, da bietet sich Statemachine 
und Multitasking an. Also statt mit Schleifen mit Zuständen 
arbeiten.

...