PIC Minuten Counter funktioniert nicht.

[Raphael M. (runnerschreck92)]

Hallo zusammen,

für eine Leiterplatte die ich erstelle benötige ich einen Minuten 
Counter/Timer.
Diesen habe ich mithilfe von Variablen erstellt.
Das Restliche Programm läuft einwandfrei.
Nur zählt der Zäher meiner Meinung nach nicht hoch und bleibt bei 0 
stehen.

Die Magnetventile aus der ersten IF abfrage ziehen einwandfrei an.
Alle anderen nicht, da der Zähler wohl immer auf 0 bleibt.

Hier mal der ausschnitt aus dem Programm:

  If count4m=0 then      
    High  Magnet1
    Low    Magnet2
    Low   Magnet3
    Low   Magnet4    
  endif
  If count4m=1 then        
    Low    Magnet1
    Low    Magnet2
    Low   Magnet3
    Low   Magnet4  
  endif
  If count4m=2 then      
    Low    Magnet1
    High  Magnet2
    Low   Magnet3
    Low   Magnet4  
  endif
  If count4m=3 then    
    Low    Magnet1
    Low    Magnet2
    Low   Magnet3
    Low   Magnet4  
  endif
  If count4m=4 then      
    Low    Magnet1
    Low    Magnet2
    High  Magnet3
    Low   Magnet4  
  endif
  If count4m=5 then        
    Low    Magnet1
    Low    Magnet2
    Low   Magnet3
    Low   Magnet4
  endif
  If count4m=6 then      
    Low    Magnet1
    Low    Magnet2
    Low   Magnet3
    High   Magnet4
  endif
  If count4m=7 then    
    Low    Magnet1
    Low    Magnet2
    Low   Magnet3
    Low   Magnet4
  endif
  pause 250
  let countms = countms +1
  if countms = 239 then
    let counts = counts +1
    countms=0
  endif
  if counts = 59 then
    let countm = countm +1
    counts=0
  endif
  if countm = 3 then
    let count4m = count4m +1
    countm=0
  endif
  if count4m = 8 then
    count4m=0
  endif

  Goto      CheckCPR

Alle 4 Minuten soll es in die nächste IF abfrage gehen.
Das Programm wird in MPLAB in Basic geschrieben.
Es wäre Spitze wenn mir hier jemand helfen könnte.


Gruß

[Harald (Gast)]

Keine Ahnung. Basic habe ich zuletzt als 11jähriger Junge programmiert. 
Mach mal die Pause auf 25. Vielleicht ist es nur so langsam, dass Du 
nichts mitkriegst.

[Raphael M. (runnerschreck92)]

Die Pause auf 25ms zu reduzieren halte ich für wenig sinnvoll.
Ich kann es später aber mal kurz Testen.

Jemand noch eine andere Lösung?
Bzw sollte ich eventuell ganz anderes vorgehen? Timer des Pics nutzen 
usw.
PIC ist ein 16F877A und läuft mit 4MHz.

[Harald (Gast)]

Raphael M. schrieb:
> ie Pause auf 25ms zu reduzieren halte ich für wenig sinnvoll

Gut. Deine Sache. Leider sieht man nicht, was nach dem Sprung "  Goto 
CheckCPR" passiert. Also zu wenig infos.

Übringens: Dein Programmierstil ist auch für Basic wirklich 
grottenschlecht.

Viel Glück noch.

[Chris B. (dekatz)]

Viele offene Fragen.
Was macht den <pause 250> überhaupt??
Und wieso muss <countms> genau 239 sein um 1 Sekunde zu erhalten?
Und wo wurde <countms> definiert sowie wo/wie initialisiert?

[rfischer (Gast)]

welchen Compiler nutzt du denn? Melabs?
Poste bitte das ganze Programm, so weiß man auch mit wieviel MHz dein 
PIC
läuft. Magnetventile und Releis sind träge, 250 mS sind schon kurz.

[Chris B. (dekatz)]

Wenn der Wert mit <pause> 250ms beträgt und nach 239 Durchläufen die 
Sekunde hochgezählt wird, dauert das 59,75 Sekunden bis <counts> um 1 
erhöht wird!?!? Dann hängt das Programm bis zur 2. IF-Abfrage ca. 4 
Stunden bei der 1. IF rum....

[Karl H. (kbuchegg)]

Raphael M. schrieb:

> Nur zählt der Zäher meiner Meinung nach nicht hoch und bleibt bei 0
> stehen.

Welcher Zähler? Du hast massenhaft Zähler in deinem Programm.
Und wie hast du festgestellt, dass er (welcher Zähler auch immer) bei 0 
stehen bleibt? Hast du dir die Zahlenwerte im laufenden Betrieb schon 
mal angesehen - alle Zähler, da ja einer vom anderen abhängt?

[Raphael M. (runnerschreck92)]

Chris B. schrieb:
> Wenn der Wert mit <pause> 250ms beträgt und nach 239 Durchläufen die
> Sekunde hochgezählt wird, dauert das 59,75 Sekunden bis <counts> um 1
> erhöht wird!?!? Dann hängt das Programm bis zur 2. IF-Abfrage ca. 4
> Stunden bei der 1. IF rum....

"Brett vor dem Kopf"
Darf natürlich nur 4 Durchläufe machen!
Nun läuft es super ;)

Danke