Thema: Softwareroutine

Eine Frage vorweg. Soll der AVR noch andere Funktionen
während des Waertens auf die Eingabe erfüllen? VG Micha

ne eigentlich nicht....
das ganze geht darum den ladezustand von 2 accus zu überwachen die werte per RS 232 Auszugeben und ggf. den einen oder den anderen accu zu laden.

es soll eine manuelle abfrage per rs 232 möglich sein und ein manuelles umschalten auf laden per RS232 und per taster.

sollte diese anfrage nicht kommen so soll 1 mal pro stunde automatisch die spannung geprüft werden und entschieden werden ob geladen werden muss oder nicht....

Dann wirst Du um Timer- und Interruptprogrammierung nicht
drumrumkommen. VG Micha

Hi,
wie genau soll die Zeit den sein?

Hier mal ein Beispiel

Code:

$regfile = "M168Pdef.dat"                                   'es handelt sich um einen ATmega168P
$crystal = 3686400                                          'der eingebauter RC-Oszillator läuft mit 3,6864 Mhz
$hwstack = 100                                              'im Speicher werden für den Hardware-Stack 100 Byte reserviert
$swstack = 100                                              'im Speicher werden für den Software-Stack 100 Byte reserviert
$framesize = 100                                            'im Speicher werden für den Frame 100 Byte reserviert
$baud = 19200


S1 Alias Pind.2                                             'Schalter 1 an Port D2 (Taster)
Config S1 = Input                                           ' als eingang festlegen
Pind.2 = 1                                                  'Pullup einschalten


'Timer einstellen
'Frequenz-Teiler 1,8,64,256 or 1024
Config Timer1 = Timer , Prescale = 1024
'3686400 / 1024 = 3600 impulse/sek


'Variable festlegen
Dim Sekunde As Byte , Minute As Byte
Sekunde = 0
Minute = 0


'Unterprogramme Declarieren
Declare Sub Prog1                                           'Unterprog. 1
Declare Sub Prog2                                           'Unterprog. 2


Do

   If S1 = 0 Then                                           'Wenn S1 gedrückt
      Call Prog1                                            'und Unterprog. 1 Starten
   End If


   If Timer1 >= 3600 Then
      Incr Sekunde                                          'Sekunden werden gezählt bis 60
      Print "Sekunden: " ; Sekunde
      Timer1 = 0
   End If


   If Sekunde >= 60 Then
      Incr Minute
      Print "Minuten: " ; Minute                            'Minuten Zähler, Sekunden auf 0 setzen
      Sekunde = 0
   End If


   If Minute >= 60 Then                                     'Bei 60 Minuten, Unterprog 2 starten und Minuten auf = setzen
      Minute = 0
      Call Prog2
   End If

Loop



End



Sub Prog1                                                   'Unterprog. 1

   Bitwait S1 , Set                                         'warten bis Taster S1 losgelassen wird

   Print
   Print "Taster S1 wurde gedrueckt"
   Print

   Sekunde = 0                                              'Zeit auf 0 setzen
   Minute = 0

End Sub



Sub Prog2                                                   'Unterprog. 2

   Print
   Print "Prog2 gestartet"
   Print

   Sekunde = 0                                              'Zeit auf 0 setzen
   Minute = 0

End Sub

Timer 1 läuft und zählt sekunden hoch, diese zählen minuten hoch bis Taster 1 gedrückt wird oder 60 Minuten gezählt sind.

Bei Taster startet Prog1 und Zeit wird wieder auf 0 gestellt
Bei 60 min startet Prog2 und Zeit wird wieder auf 0 gestellt

ACHTUNG: Quarz richtig einstellen!!! und Timer anpassen falls andere Quarz verwendet wird