EK-6 - 320Volt

EK-8ULTRASONİK UZAKLIK ÖLÇER-KAYNAK KODU001002003004005006007008009010011012013014015016017018019020021022023024025026027028029030031032033034035036037;********************************************************;; Ultrasonik Range Meter;; Device : PIC16F877;;********************************************************listp=pic16f877includep16f877.inc__config _hs_osc & _wdt_off & _pwrte_on & _lvp_off;**************** Label Definition ********************cblock h'20's_count;Send-out pulse count adrs_adj;Adjustment data addresss_adj_count;Rotate value save adrs_digit;Digit cont work addressg_time1 ;Guard timer address 1g_time2 ;Guard timer address 2p_countl;Propagation L cnt adrp_counth;Propagation H cnt adrdigit_cnt;Digit counter head adrdisp_ha;Digit head addressdisp_u;1st digit addressdisp_t;10th digit addressdisp_h;100th digit addressseg7_ha;7 segLED table head adrseg70;Pattern 0 set adrseg71;Pattern 1 set adrseg72;Pattern 2 set adrseg73;Pattern 3 set adrseg74;Pattern 4 set adrseg75;Pattern 5 set adrseg76;Pattern 6 set adrseg77;Pattern 7 set adrseg78;Pattern 8 set adr65