Ejemplo: led parpadeante por interrupciones en BoostBasic.

por Pikitin Miér 26 Nov 2008 - 7:28

Los compiladores de SopurceBoost funcionan bien en Linux bajo Wine y bienen integrados por defecto en Piklab.

Este es un ejemplo hecho en BoostBasic, enciende y apaga un led por interrupciones:

Código:: #include '#include ' ' Basic sample for BoostBasic compiler. ' Use the "Led Block" plugin to see ' changing value on port B. ' ' Set configuration word (sample only, ajust for your particular case) #pragma DATA 0x2007, _WDT_OFF & _PWRTE_OFF & _RC_OSC_CLKOUT & _MCLRE_ON & _BOREN_ON & _LVP_OFF & _DATA_CP_OFF & _CP_OFF Sub interrupt() portb = portb + 1 intcon = intcon & ~(1 << T0IF) 'clear TMR0 overflow flag End Sub Sub main() trisb = 0 'configure port B portb = 0 'clear port B option_reg = 7 'set prescaler ' enable interrupts intcon = intcon | (1 << T0IE) 'enable TMR0 overflow bit intcon = intcon | (1 << GIE) 'set global interrupt bit ' endless loop Do while 1 Loop End Sub