#CONFIG __config _BODEN_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _XT_OSC #ENDCONFIG DEFINE OSC 4 CMCON=7 ADCON1 = 7
'Pic16f877A TRISA=%00101111 TRISB=%00011111 TRISC=%10000001 TRISD=%11100000 TRISE=%00000111 PORTA=0 PORTB=0 PORTC=%00110000 PORTD=%00011111 PORTE=0 INDEX VAR BYTE SAYI VAR BYTE SYMBOL DIGITA =PORTD.0 SYMBOL DIGITB =PORTD.1 symbol DIGITC =PORTD.2 SYMBOL DIGITD =PORTD.3 SYMBOL DIGITE =PORTC.4 SYMBOL DIGITF =PORTC.5 SYMBOL DIGITG =PORTD.4
BASLA: INDEX=0:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=1:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=2:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=3:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=4:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=5:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=6:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=7:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=8:GOSUB AL:GOSUB EKRAN pause 1000 INDEX=9:GOSUB AL:GOSUB EKRAN pause 1000 goto basla AL: LOOKUP INDEX,[64,121,36,48,25,18,2,120,0,16,127],SAYI :RETURN EKRAN: DIGITA=SAYI.0:DIGITB=SAYI.1 DIGITC=SAYI.2:DIGITD=SAYI.3 DIGITE=SAYI.4:DIGITF=SAYI.5 DIGITG=SAYI.6 RETURN
IF GPIO.2= 0 THEN ATT= 1 : LED= 0 : T1CON= 0 ENDIF
DEFINE OSC 4 DEFINE OSCCAL_1K 1 #CONFIG #LIST_12F675 __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _BODEN_OFF #ENDCONFIG TRISIO= %00000001 : GPIO= 0 : CMCON= 7 : VRCON.7= 0 : ANSEL= %00110011 : ADCON0= %10000011 OPTION_REG.7= 0 : WPU= %00000000 DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 3 DEFINE ADC_SAMPLEUS 50 RAW VAR WORD LAP VAR WORD Time VAR WORD 70 SN VAR BYTE GPIO.2= 1 SYMBOL LED= GPIO.1 SYMBOL ATT= GPIO.5 : ATT= 0 PAUSE 300 Start: ; *#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* ADCIN 0,RAW LAP =((RAW)*/50)/5 + 5 ; Calcul CNT: ;-------------------------------------------------------------------------- pause 100 Time= LAP T1CON= %00000001 'Timer Divide by 1/1 active SN= 0 ATT= 0 ;-------- LED= 1 CNT1: ;------------------------------------------------------------------------- TMR1H= $0B : TMR1L= $DC ' Timer Preset Value ' Interrupt 500mS Time PIR1.0= 0 ' Flag Zeroing WHILE PIR1.0= 0 IF GPIO.2= 0 THEN ATT= 1 : LED= 0 : T1CON= 0 ENDIF WEND SN= 1-SN : IF SN= 1 THEN CNT1 Time= Time -1 IF Time >0 THEN CNT1 ATT= 1 : LED= 0 : Pause 300 ATT= 0 end