Tutorials

@ device pic16f877 define osc 4 define adc_bits 8 Include “MODEDEFS.bas” DEFINE ADC_SAMPLEUS 100 DEFINE SHIFT_PAUSEUS 100 ADCON1 = 7 TRISA =$ff trisb =$00 ‘=======output=======’ dat vAR portb.0 clk vAR portb.1 latch vAR portb.2 relay VAR portb.3 ‘======input=========’ enter vAR porta.0 chg VAR porta.1 hour var byte minute var byte second var byte prsc1 var […]

@ device pic16f877 define osc 4 define adc_bits 8 adcon1 = 7 trisa = $ff trise = $00 trisc = $00 trisd = $00 digit var byte num var word disp var byte num =00 while(1) digit = num dig 0 lookup digit,[$3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f],disp portd = disp high portc.0 pause 5 low portc.0 digit = num

@ device pic16f877 define osc 4 ‘sevent segment common Anode define adc_bits 8 main: adcon1 = 7 trisa = $ff trisd = $00 disp var portd num var byte num =0 while(1) for num = 0 to 9 lookup num,[$40,$79,$24,$30,$19,$12,$02,$78,$00,$10],disp pause 500 next num wend end