Zwei Ports mit unterschiedlichen Funktionen ansprechen

[Leopold S. (leopold)]

Ich möchte mit Portb2 alle 20 sek. eine Led mit 200ms blitzen lassen und
parallel auf Portb3 alle 24 Std. für 30 sek. das Portb3 aktivieren.
Was muß ich in meinem Programm dafür ändern?
mfg
LS

[Daniel V. (danvet)]

Mit Bascom kenne ich mich leider nicht aus. Aber wenn ich deinen Code 
sehe, dann sollte er entweder genau das machen, was du möchtest (was ich 
aber stark bezweifle), oder aber du solltest dich eingehend mit µC und 
insbesondere mit der Programmierung beschäftigen.

Du brauchst einen Timer.

[Leopold S. (leopold)]

Mein problem ist nur da ich parallel 2 Schleifen habe, weis ich nicht ob 
nur eine Schleife abgearbeitet wird od. beide parallel?
mfg

[Daniel V. (danvet)]

Leopold S. schrieb:
> Mein problem ist nur da ich parallel 2 Schleifen habe, weis ich nicht ob
> nur eine Schleife abgearbeitet wird od. beide parallel?
> mfg

Wenn Bascom kein Multitasking umsetzt, wirst du in einer Schleife hängen 
bleiben (was ich stark vermute).

Du brauchst einen Timer!

[Peter D. (peda)]

Nimm nen Timerinterrupt mit dem kleinsten nötigen Intervall (200ms).
Zähl darin 2 Variablen für die 2 Prozesse und werte sie entsprechend 
aus.


Peter

[Vuvuzelatus (Gast)]

>Was muß ich in meinem Programm dafür ändern?

Fast alles. Insbesondere brauchst Du einen Timer.

[Karl (Gast)]

Ja, der Code funktioniert so nicht. Die erste "Do Loop" Schleife wird 
vom Programm nie verlassen, die zweite also nie ausgeführt. Wie meine 
Vorschreiber schon angemerkt haben, funktioniert das am besten über 
einen Timer. In Bascom kannst Du auch relativ leicht eine Softclock 
implementieren, über die man dann relativ ungenau (ohne Quarz) alle 24h 
oder alle 20s etwas tun lassen kann.

[Leopold S. (leopold)]

Sollte es so nicht auch funktionieren?
Habe neuen Bascomcode angehängt.
lg
LS

[Peter D. (peda)]

Ich versuche solche Aufgaben immer in ein Schema zu pressen, daß die 
Lösung möglichst universell ist.
Hier ein Beispiel, welches für beide Loops jeweils einen Zähler 
verwendet.
Damit ist es beliebig erweiterbar und beide laufen unabhängig 
voneinander. Man kann also die Zeiten getrennt ändern, ohne den anderen 
zu beeinfluusen.
Ich kann aber nur C:

#include <avr/io.h>
#define F_CPU   1e6
#include <util/delay.h>

//                      Access bits like variables:
struct bits {
  uint8_t b0:1, b1:1, b2:1, b3:1, b4:1, b5:1, b6:1, b7:1;
} __attribute__((__packed__));
#define SBIT_(port,pin) ((*(volatile struct bits*)&port).b##pin)
#define SBIT(x,y)       SBIT_(x,y)


#define PORT_B2         SBIT( PORTB, 2 )
#define DDR_B2          SBIT( DDRB,  2 )
#define PORT_B3         SBIT( PORTB, 3 )
#define DDR_B3          SBIT( DDRB,  3 )


int main()
{
  uint32_t t1 = 0;
  uint32_t t2 = 0;

  DDR_B2 = 1;
  DDR_B3 = 1;

  while( 1 ){                                   // main loop
    _delay_ms( 200 );                           // 0.2s tick

    switch( ++t1 ){                             // time loop 1:
      case 1:
                PORT_B2 = 1;
                break;
      case 2:
                PORT_B2 = 0;                    // off after 0.2s
                break;
      case (uint32_t)(20 / 0.2):
                t1 = 0;                         // repeat after 20s
                break;
    }

    switch( ++t2 ){                             // time loop 2:
      case 1:
                PORT_B3 = 1;
                break;
      case (uint32_t)(30 / 0.2):
                PORT_B3 = 0;
                break;                          // off after 30s
      case (uint32_t)(24 * 3600.0 / 0.2):
                t2 = 0;                         // repeat after 24h
                break;
    }
  }
}

Peter

[Karl (Gast)]

So könnte es z.B mit BASCOM aussehen. 1s schafft der 8-Bit Timer des 
Tiny nicht, da sind nur ms drin.

Zum Thema Timer und Bascom siehe hier:

http://www.rn-wissen.de/index.php/Bascom_und_Timer

Zur Berechnung des Timers siehe hier:

http://www.dieelektronikerseite.de/Tools/Timer-Rechner.htm

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 0
$framesize = 24

Dim Millisekunden As Integer                                '2ms
Dim Sekunden As Integer                                     '2s

Config Portb.2 = Output                                     
Config Portb.3 = Output                                   

Config Timer0 = Timer , Prescale = 256
On Timer0 Zaehler
Enable Timer0
Start Timer0

Enable Interrupts

Do

Select Case Millisekunden

   Case 10000:                                              '20s
      Toggle Portb.2
      Incr Sekunden
   Case 10100:                                              '20s + 200ms
      Toggle Portb.2

End Select


Select Case Sekunden

   Case 43200:                                              '24h
      Toggle Portb.3
   Case 43215                                               '24h+30s
      Toggle Portb.3
      Sekunden = 0

End Select

Loop

Zaehler:

   If Millisekunden > 10100 Then Millisekunden = 0
   Incr Millisekunden

Return

End

[Karl (Gast)]

Sehe gerade, dass in der zweiten Case-Anweisung die Sekunden nicht 
richtig berechnet sind. Kann man ja leicht anpassen.

[Leopold S. (leopold)]

Hallo!
Mit meinem letzten Code würde das nicht gehen?
Kannst du mir den Select case bzw. erklären od. kommentieren?
Wo liegt der Fehler bei den Sekunden?
mfg
LS

[Leopold S. (leopold)]

Hallo
Ich rechne 24x60x60/2 =43200 plus 30 sek =43215
daher find ich keinen Fehler bei den Sekunden
mfg
LS

[Peter D. (peda)]

Leopold S. schrieb:
> Ich rechne 24x60x60/2 =43200 plus 30 sek =43215
> daher find ich keinen Fehler bei den Sekunden

Kann Bascom konstante Ausdrücke nicht gefälligst selber ausrechnen?

Unter C habe ich es mir abgewöhnt, den Taschenrechner zu bemühen. Ich 
schreib immer nur die Rechnung hin und lasse es den Compiler ausrechnen.

Es geschieht ja schon zur Compilezeit, d.h. für den MC wird kein 
zusätzlicher Code erzeugt.
Und die Compilezeit verlängert sich auch nicht spürbar.


Peter

[Karl (Gast)]

So sollte es stimmen. Die Sekunden wurden nur alle 20s (und nicht alle 
2s) hochgezählt.

Bezgl. SELECT CASE siehe hier:

http://avrhelp.mcselec.com/index.html?select_case_end_select.htm

Ob Dein Code funktioniert, habe ich nicht ausprobiert. Wollte nur 
zeigen, wie es mit einem TIMER aussehen könnte. Die Werte könnte 
natürlich auch BASCOM berechnen.

Ansonsten kann man in BASCOM auch immer die Simulation bemühen:

http://avrhelp.mcselec.com/index.html?program_simulate.htm

Man sollte dabei die Zahl der Sekunden beschränken, sonst sitzt man 
tagelang vorm Rechner. ;-)

...
Do

Select Case Millisekunden

   Case 1000:                                               '2s
      Incr Sekunden
   Case 10000:                                              '20s
      Toggle Portb.2
   Case 10100:                                              '20s + 200ms
      Toggle Portb.2

End Select
...