Svenska ElektronikForumet

Kod: Markera allt

unsigned short current_duty, old_duty;

void IO() {
     TRISA = 0;
     TRISB = 0b00000011;
     PORTA = 0;
     PORTB = 0;
     PWM1_Init(5000);
}

void main() {
  CMCON = 0x07;
  IO();
  current_duty  = 16;

  PWM1_Start();                       // start PWM1
  PWM1_Set_Duty(current_duty);        // Set current duty for PWM1

  while (1) {                         // endless loop
    if (RB0_bit) {                    // button on RA0 pressed
      Delay_ms(40);
      current_duty++;                 // increment current_duty
      PWM1_Set_Duty(current_duty);
     }

    if (RB1_bit) {                    // button on RA1 pressed
      Delay_ms(40);
      current_duty--;                 // decrement current_duty
      PWM1_Set_Duty(current_duty);
     }

    Delay_ms(5);                      // slow down change pace a little
  }
}

Kod: Markera allt

0 1 mikroCPIC1618.exe -MSF -DBG -pP16F648A -DL -O11111114 -fo4 -N"C:\Users\Pajn\Pic\in out test c\iotc.mcppi" -SP"C:\Program Files (x86)\Mikroelektronika\mikroC PRO for PIC\defs\" -SP"C:\Program Files (x86)\Mikroelektronika\mikroC PRO for PIC\Uses\P16\" -SP"C:\Users\Pajn\Pic\in out test c\" "iotc.c" "__Lib_Math.mcl" "__Lib_MathDouble.mcl" "__Lib_System.mcl" "__Lib_Delays.mcl"  
0 125 All files Preprocessed in 15 ms  
0 121 Compilation Started iotc.c
8 324 Undeclared identifier 'PWM1_Init' in expression iotc.c
16 324 Undeclared identifier 'PWM1_Start' in expression iotc.c
17 324 Undeclared identifier 'PWM1_Set_Duty' in expression iotc.c
23 324 Undeclared identifier 'PWM1_Set_Duty' in expression iotc.c
29 324 Undeclared identifier 'PWM1_Set_Duty' in expression iotc.c
0 102 Finished (with errors): 13 aug 2009, 21:09:00 iotc.mcppi

Kod: Markera allt

void IO() {
     TRISA = 0;
     TRISB = 0b00000011;
     PORTA = 0;
     PORTB = 0;
}

void main() {
  CMCON = 0x07;
  IO();
  asm {
 
    BSF PCON,3// ; clear bit 3 of pcon (OSCF) for 4 kHz operation.

    MOVLW 0xFF //;PWM value
    MOVWF PR2 //Denna förstår jag inte riktigt men jag tror den väljer pwm modulen, rätt?

    MOVLW 230 //; ~10% (låg är aktiv)
    MOVWF CCPR1L

    //;note, I'm ignoring the duty cycle LSBs at CCP1CON<5:4>

    BCF TRISB,3// ;make CCP1 an output
    BSF T2CON,2// ;enable timer 2
    BSF T2CON,1// ;1:16 prescaler

    BSF CCP1CON,3
    BSF CCP1CON,2 //;configure CCP1 for PWM
  }
}

Kod: Markera allt

unsigned int rgb[3]={500,100,1000}; //Någon fiffig färg
unsigned int pwm_counter=0;

void run_pwm()
{
 if(counter<rgb[0]) PORTA.F0=1; else PORTA.F0=0;
 if(counter<rgb[1]) PORTA.F1=1; else PORTA.F1=0;
 if(counter<rgb[2]) PORTA.F2=1; else PORTA.F2=0;
 pwm_counter++;
 if(pwm_counter > 1023)pwm_counter=0;
}