Include “modedefs.bas” @ Device PIC16F877,XT_OSC,WDT_off,PWRT_off,PROTECT_off ,BOD_Off define adc_bits 8 define osc 4 DEFINE LCD_DREG PORTD DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTD DEFINE LCD_RSBIT 1 DEFINE LCD_EREG PORTD DEFINE LCD_EBIT 0 S1 VAR PORTA.0 ‘set mode S2 VAR PORTA.1 ‘set hour 0-23 S3 VAR PORTA.2 ‘set minute 0-59 S4 VAR PORTA.3 ‘set second 0-59 s5 var […]
I2c bus for ds1307 For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 trisb =$0f L1 var portb.6 L2 var portb.7 i var byte on interrupt goto int intcon = %10010000 low L1 low L2 start: toggle L1 pause 500 goto start end disable int: toggle L2 pause 100 intcon.1 = 0 ‘ Clear flag resume ‘ Return to
External interrupt For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 define adc_clock 3 define adc_sampleus 50 Define LCD_DREG PORTD ‘ Define LCD connections Define LCD_DBIT 4 Define LCD_RSREG PORTD Define LCD_RSBIT 1 Define LCD_EREG PORTD Define LCD_EBIT 0 RW var portd.2 low RW ‘LCD R/W low = write trisa = $ff trisd = $00 adcon1 =
pulse width moduration(PWM) for lcd 2 line For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 Define LCD_DREG PORTD ‘ Define LCD connections Define LCD_DBIT 4 Define LCD_RSREG PORTD Define LCD_RSBIT 1 Define LCD_EREG PORTD Define LCD_EBIT 0 RW var portd.2 low RW ‘LCD R/W low = write trisa = $ff trisd = $00 adcon1 = 0 num var byte LCDOUT $FE,1,”lcd_read”
Analog to dugital 8 bits For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 Define LCD_DREG PORTD ‘ Define LCD connections Define LCD_DBIT 4 Define LCD_RSREG PORTD Define LCD_RSBIT 1 Define LCD_EREG PORTD Define LCD_EBIT 0 RW var portd.2 low RW ‘LCD R/W low = write trisa = $ff trisd = $00 adcon1 = 7 SW1 VAR PORTA.0 SW2 VAR
Lcd Module Display 2 line For Basic PRO Compiler Read More »
define adc_bits 8 define osc 4 trisb = %00000000 L1 var portb.0 low L1 pause 2000 ‘ delay 2000 ms = 2 second main: high L1 pause 1000 Low L1 pause 1000 goto main end
Lcd Module Display 1 line For Basic PRO Compiler Read More »
@ 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
Seven segment display 4 digit for shift 595 For Basic PRO Compiler Read More »
@ 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
Seven segment display 4 digit For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 adcon1 = 7 trisa = $ff trise = $00 trisc = $00 trisd = $00 digit var byte num var byte disp var byte num =00 loop: digit = num dig 0 lookup digit,[$3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f],disp portd = disp high porte.0 pause 5 low porte.0 digit = num
Seven segment _2digit_cathode For Basic PRO Compiler Read More »
@ device pic16f877 define osc 20 define adc_bits 8 adcon1 = 7 trisa = $ff trise = $00 trisc = $00 trisd = $00 digit var byte num var byte disp var portd num =12 loop: gosub display goto loop end display: digit = num dig 0 lookup digit,[$40,$79,$24,$30,$19,$12,$02,$78,$00,$10],disp high porte.0 pause 1 low porte.0
Seven segment _2digit_anode For Basic PRO Compiler Read More »
