@ 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
Seven segment display 1 digit For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 K1 var portb.0 K2 var portb.1 K3 var portb.2 start var porta.0 stops var porta.1 K1=0 :K2=0:k3=0 while(1) if(!start and stops) then K1=1 K2=1 K3=0 pause 3000 repeat K1=1 K2=0 K3=1 until(!stops) endif K1=0 K2=0 K3=0 pause 10
Wye-delta Motor Controll For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 lamp var portb sw1 var porta.0 sw2 var porta.1 lamp=0 while(1) if(!sw1) then gosub speed1 pause 50 endif if(!sw2) then gosub speed2 pause 50 endif pause 10 wend end speed1: lamp =$80 pause 200 while(sw2) lamp = lamp
Shift left – shift right value For Basic PRO Compiler Read More »
@ device pic16f877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 speaker var portb.0 sw1 var porta.0 flg_set var bit speaker =0 flg_set =0 while(1) if(!sw1) then pause 150 toggle flg_set while(!sw1):wend endif gosub sounds pause 10 wend end sounds: if(flg_set)then pause 10 sound speaker,[100,10]’100 =(1-127 generate frequency 78.74-10
Sound frequency 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
Increment-decrement value For Basic PRO Compiler Read More »
@ device PIC16F877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 sw1 var porta.0 sw2 var porta.1 sw3 var porta.2 lamp1 var portb.0 lamp2 var portb.1 lamp1=0 lamp2=0 while(1) if(!sw1 and sw2 and sw3) then repeat lamp1=1 lamp2=0 pause 10 until(!sw3):endif if(sw1 and !sw2 and sw3) then repeat lamp1=0
Forverse – Reverse Control For Basic PRO Compiler Read More »
@ device PIC16F877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 lamp var portb.0 sw1 var porta.0 lamp=0 while(1) if(!sw1) then pause 10 toggle lamp while(!sw1):wend endif pause 10 wend end
Basic Toggle Control For Basic PRO Compiler Read More »
define osc 4 define adc_bits 8 trisb =$00 trisa =$ff adcon1 = 7 lamp var portb start var porta.0 stops var porta.1 lamp =0 loop: if start=0 then repeat pause 10 lamp=$ff until stops=0 ‘ if constrain true out off loop endif lamp =$00 pause 10 goto loop end
Basic input-output For Basic PRO Compiler Read More »
define osc 4 define adc_bits 8 trisb =$00 lamp var portb.0 low lamp loop: high lamp pause 1000 low lamp pause 1000 goto loop end
Output bit For Basic PRO Compiler Read More »
// Generator frequency 100 Hz with Timer0 For Pic16f877 // //#include “D:\MICRO_PICC_Group\timer\timer_0\timer_0_100hz.h” #include <16F877.h> #device adc=8 #FUSES NOWDT,XT //No Watch Dog Timer #use delay(clock=4000000) int1 time; #int_RTCC void RTCC_isr(void) { output_toggle(pin_b0); /* time =!time; if(time==1){ output_high(pin_b0); } if(time==0){ output_low(pin_b0); }*/ set_timer0(236); } void main() { setup_adc_ports(NO_ANALOGS); setup_adc(ADC_OFF); setup_psp(PSP_DISABLED); setup_spi(SPI_SS_DISABLED); setup_timer_0(RTCC_INTERNAL|RTCC_DIV_256); setup_timer_1(T1_DISABLED); setup_timer_2(T2_DISABLED,0,1); enable_interrupts(INT_RTCC); enable_interrupts(GLOBAL);
Timer 0 mode timer For CSS Compiler Read More »
