OC na PIC-u

[Milan_kg]

Pozdrav svima,
da li je neko radio sa Output compare na PIC-u?

Modul sam po sebi nije komplikovan ali ne uspevam par dana da ga nateram da radi

Ideja mi je da ga koristim za duzinu step impulsa za koracne motore.
Treba mi da kada se software-ski trigeruje da napravi single step 50uS

[vojinilic]

Milane,

evo koda za jedan impuls sirine 50us. Kada se zavrsi impuls, generise se interapt.

PHP Code:

    LIST P=12F683
    #INCLUDE "P12F683.INC"
    

;*****    CONFIGURATION WORD  *****
    __CONFIG    _INTOSCIO & _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _BOD_ON & _IESO_OFF & _FCMEN_OFF


;***********************
;* KORISNICKI REGISTRI *
;***********************
W_TEMP                EQU        0x20
STATUS_TEMP            EQU        0x21
PULSE_WIDTH_HI            EQU        0x23
PULSE_WIDTH_LO            EQU        0x24

    ORG    0x00
    GOTO    INIT

; ***** INTERAPT RUTIN *****

    ORG    0x04

    MOVWF    W_TEMP                    ;COPY W TO TEMP REGISTER
    SWAPF    STATUS,W                ;SWAP STATUS TO BE SAVED INTO W
                            ;SWAPF ARE USED BECAUSE THEY DO NOT AFFECT STATUS BITS
    BCF    STATUS,RP0                ;SELECT BANK 0
    MOVWF    STATUS_TEMP                ;SAVE STATUS TO BANK ZERO STATUS_TEMP REGISTER

    BTFSS    PIF1,CCP1IF                ;ISPITIVANJE INTERAPTA OD CCP modula
    GOTO    INTEND
    BCF    PIR1, CCP1IF                ; OCISTI CLEAR ON MATCH flag

;***** OVDE SE PISE PROGRAM KOJI SE IZVRSAVA KADA SE ZAVRSI GENERISANJE IMPULSA *****


INTEND
    SWAPF    STATUS_TEMP,W                ;SWAP STATUS_TEMP REGISTER INTO W (SETS BANK TO ORIGINAL STATE)
    MOVWF    STATUS                    ;MOVE W INTO STATUS REGISTER
    SWAPF    W_TEMP,F                ;SWAP W_TEMP
    SWAPF    W_TEMP,W                ;SWAP W_TEMP INTO W
    RETFIE                        ;RETURN FROM INTERRUPT

; ***** INICIJALIZACIJA MIKROKONTROLERA *****
INIT
    BSF    STATUS,RP0                ;SELECT BANK 1
    MOVLW    B'01110001'                ;INTERNI OSCILATOR 8MHz
    MOVWF    OSCCON
    BCF    STATUS,RP0                ;SELECT BANK 0
    MOVLW    07H
    MOVWF    CMCON0                    ;ISKLJUCI KOMPARATORSKI MODUL. 
    BSF    STATUS,RP0                ;SELECT BANK 1
    MOVLW    B'00000'
    MOVWF    TRISIO                
    BCF    STATUS,RP0                ;SELECT BANK 0
    CLRF    GPIO
    BCF    PIR1,CCP1IF
    BSF    INTCON,GIE                ;GLOBAL INTERRUPT ENABLE.

; ***** SIRINA IMPULSA = 50US ******    
    MOVLW    0x00
    MOVWF    PULSE_WIDTH_HI
    MOVLW    0xc7
    MOVWF    PULSE_WIDTH_LO

    MOVLW    B'00000001'
    MOVWF    T1CON                    ; TMR1 RADI U FREE RUNNING MODU. NEMA DELJENJA TAKTA    

LAB2    MOVF    PULSE_WIDTH_HI,W
    MOVWF    CCPR1H
    MOVF    PULSE_WIDTH_LO,W
    MOVWF    CCPR1L
    CLRF    TMR1H
    CLRF    TMR1L        
    BCF    PIR1,CCP1IF
    MOVLW    B'00001001'                ;COMPARE MODULE. CLEAR ON COMPARE MATCH
    MOVWF    CCP1CON    
    BSF    PIE1, CCP1IE                ; OMOGUCI INTERAPT CCP-A        

MAIN
    GOTO    MAIN

    END 


[npejcic]

Iako nisam pristalica instant rešenja, ipak, možda možeš da ga iskoristiš za "template", pa ćeš nakon toga da prilagodiš sebi inicijalno generisani kod.
U pitanju je MCC (code generator) koga možeš naći u sklopu MBLAB X-a, instaliraš ga kao plugin.
http://www.microchip.com/mplab/mplab-x-ide
http://www.microchip.com/mplab/mplab-code-configurator

[Milan_kg]

Pozdrav svima i srecna vam nova godina

Da ne otvaram novu temu....

Hteo sam da iskoristim OC modul da generisem ismpuls od 50us

Code:

for(i=0;i<10000;i++)
   {
       
       
       OC1TMR = 0;
       OC1CON1 = 0;
       OC1R = 10;
       OC1RS = 810;
       OC1TMR = 0;
       OC1CON1 = 0x1C04;
       
       
       __delay_us(1000);
   }

Na prvi pogled sve je ok ali kada se bolje pogleda prednja ivica nesto se cudno desava

Da li mozda neko zna gde je greska?

Pozdrav

[vojinilic]

Sta ti je cudno sa prednjom ivicom?

[Milan_kg]

Oznacio sam na slici

[vojinilic]

Jel to lazni impuls? Na njega mislis?

[Milan_kg]

Da da, bas na njega mislim.
Ne bi trebalo da je tu

[gorankg]

Koji PIC je u pitanju?

[Milan_kg]

PIC24FJ64GA204

[enaB]

Jesi probao ovako?

Code:

OC1CON1 = 0;
OC1TMR = 0;
OC1R = 10;
OC1RS = 810;

for(i=0;i<10000;i++)
{
  OC1TMR = 0;            //mozda i ovo da se izbaci iz petlje
  OC1CON1 = 0x1C04;
   
  __delay_us(1000);
}

[gorankg]

Ne treba ti ta petlja uopšte. Kada se desi OC prekid (zadnja ivica) potrebno je da zaustaviš OC modul. Dodaj još jedan tajmer na čiji ćeš prekid da omogućiš rad OC modula i to je sve.
Kako ti je podešen OC1CON2?

[Milan_kg]

Problem je resen.
Hvala gorankg, vojinilic, enaB

U petlji je ostalo samo :

Code:

for(i=0;i<100000;i++)
    {
        OC1CON1bits.OCM = 4;      
        __delay_us(300);
    }

Inace ova petlja mi je samo za probu.
Cela ideja sa OC modulima je da bila da imam mogucnost da pokrenem generisanje impulsa odredjene sirine a da se OC modul bavi spustanjem pina na 0 kada vreme istekne.
Ovo se naravno moze oradi i sa tajmerom ali nemam ni jedan slobodan a trebaju mi 3 pina za impulse.

Ovako je OC modul podesen:

Code:

void OC1_Initialize (void)
{
    // ENFLT0 disabled; ENFLT1 disabled; OCFLT2 disabled; ENFLT2 disabled; OCSIDL disabled; OCM Double Compare Single-Shot mode; OCFLT1 disabled; OCFLT0 disabled; OCTSEL FOSC/2; TRIGMODE Only Software;
    OC1CON1 = 0x1C04;
    // SYNCSEL None; TRIGSTAT disabled; DCB Start of instruction cycle; OCINV enabled; OCTRIG Trigger; OC32 disabled; FLTOUT disabled; OCTRIS disabled; FLTMD Cycle; FLTTRIEN disabled;
    OC1CON2 = 0x1080;
    // OC1RS 0;
    OC1RS = 0x0000;
    // OC1R 0;
    OC1R = 0x0000;
    
    gOC1Mode = OC1CON1bits.OCM;
}