µC PIC18F45K22/interner Oszillator/Genauigkeit

[Da Mo (Gast)]

Ich habe ein kleines Programm für den µC PIC18F45K22 geschrieben, um die 
Genauigkeit des internen Oszillator zu testen. Das Ziel waren 8 
blinkende Leuchtdioden auf dem PORTC, mit einer Leucht- und Dunkelzeit 
von 1s. Laut den Berechnungen, müsste dies auch funktionieren, aber die 
Messung mit dem Oszilloskop ergab jedoch 1,040s.

Liegt der Fehler an meinem Programm oder an der Ungenauigkeit des 
internen Oszillator?

Vielen Dank!

int counter=0;

void init()
{
 /*Oscillator*/
 OSCCON.SCS0=1;
 OSCCON.SCS1=1;
 OSCCON.OSTS=0;
 OSCCON.IRCF0=1;
 OSCCON.IRCF1=1;
 OSCCON.IRCF2=0;
 /*Timer2*/
 T2CON.T2CKPS0=0;
 T2CON.T2CKPS0=0;
 T2CON.TMR2ON=1;
 T2CON.T2OUTPS0=0;
 T2CON.T2OUTPS1=0;
 T2CON.T2OUTPS2=0;
 T2CON.T2OUTPS3=0;
 PR2=0xFA;
 /*Interrupt*/
 INTCON.GIE=1;
 INTCON.PEIE=1;
 PIE1.TMR2IE=1;
 /*Port C*/
 TRISC=0x00;
 LATC=0x00;
}

void interrupt()
{
  if(PIR1.TMR2IF==1)
  {
   counter++;
   PIR1.TMR2IF=0;
   TMR2=0;
  }
}

void main()
{
 init();
  do
 {
  if(counter==1000) //Eingabe der Leucht- und Dunkelzeit in ms
  {
   LATC=~LATC;
   counter=0;
  }
 }
 while(1);
}

[Chris (Gast)]

Du hast zwei Fehlerquellen, eine in deinem Kopf, und die andere in der
Interruptroutine, bzw ist auch case 1).

[Da Mo (Gast)]

Hallo Chris,

ich kann deinen Worten leider nicht folgen!?

[Chris (Gast)]

Ich nehme an, du hast den Timer auf 1024µS eingestellt.
1024 * 1000 = 1.024 S. Da du den Timer aber auf 0 stellst TMR2=0 in der
Interrupt, neme ich mal an, daß das auch wieder ca 16 µS sind, also ca
16ms + 1024ms = 1030ms.  Anstelle von 16µS können das aber auch 26µS 
sein,
oder aber auch die Ungenauigkeit des Osc. Man braucht da schon ein 
Glaskugel
dafür. Nimm lieber sowas, 
http://www.piclist.com/techref/piclist/codegen/delay.htm , aber poste 
deinen Code sowie die Zeitrechnung.

[Anja (Gast)]

Da Mo schrieb:
> Liegt der Fehler an meinem Programm

Da Mo schrieb:
> PR2=0xFA;

das sind 251 Takte (und nicht 250) bis zum Überlauf!!!

Gruß Anja

[Anja (Gast)]

Da Mo schrieb:
> TMR2=0;

das darf natürlich auch nicht sein. Der Zähler könnte ja schon weiter 
gezählt haben.
Außerdem ist die Abfrage im Hauptprogramm "counter==1000" auch 
gefährlich.
Was machst Du wenn deine Interruptroutine den Zähler schon auf 1001 
gesetzt hat?
Ich würde das Handling des Counters komplett in die Interruptroutine 
legen und ggf. ein Flag setzen um die "Sekundentask" abzuarbeiten.

Gruß Anja

[usuru (Gast)]

stell den internen Oscillator auf 250 kHz (Datenblatt ab S.27), mach 
Deinen Flankenwechsel und füge so viele NOPs an, um eine gut messbare 
Zeit zu bekommen. Alle Befehle (in Assembler) benötigen 1 Takt, mit 
Ausnahme des GOTO

loop:
   BSF LATC, 0
   BCF LATC, 0
   NOP
   NOP
   NOP
   NOP
   NOP
   NOP
   GOTO loop

benötigt 10 Takte, bei 250 kHz also 40 µsec, Du hast dann also 25 kHz am 
Ausgang, das kannst Du leicht messen.

Erfahrungsgemäss ist die Genauigkeit der internen Oscillatoren bei den 
PICs um 1% (siehe auch Datenblatt ab S.520), man kann den Oscillator bei 
vielen PICs aber mit dem Register OSCTUNE trimmen.

[Chris (Gast)]

Ein Programm dafür könnte so aussehen , WDT ausgeschaltet und
clk von 4Mhz angenommen. Speicher für RAM A1 , A2, A3 zuweisen.

#define LED LATC,0

    BANKSEL LATC
    clrf  LATC
    BANKSEL TRISC
    clrf  TRISC
    BANKSEL LATC
main:
    movlw 1          ; init delay
loop:
    call DELAY_1S_W  ; 99997 clk = 1 Sek
    ; call DELAY_1S_8 ; für 8Mhz clk semicolon entfernen
    bsf  LED         ;     1 clk +
    call DELAY_1S_   ; 99998 clk +
    ; call DELAY_1S_8 ; für 8Mhz clk semicolon entfernen
    movlw .46        ;     1 clk = 1 Sek
    bcf  LED         ;     1 clk +
    goto loop        ;     2 clk +


DELAY_1S_8
    NOP
DELAY_1S   ; 99999 Clock cycles
    NOP
DELAY_1S_  ; 99998 Clock cycles
    MOVLW    D'46'
DELAY_1S_W ;
    MOVWF    A3
DELAY_1S_2
    MOVLW    D'189'
    MOVWF    A2
DELAY_1S_1
    MOVLW    D'37'
    MOVWF    A1
DELAY_1S_0
    DECFSZ   A1,F
    GOTO    DELAY_1S_0
    DECFSZ  A2,F
    GOTO    DELAY_1S_1
    DECFSZ  A3, F
    GOTO    DELAY_1S_2
    RETURN