With help from Rob Curtis
it is a good way to count pin_b7s but when you forget your finger on it 8)) it counts by it self I don't want it (when you count a wheels spin it is slow. ok decreasing debounce_delay works but when wheel stops on the button you couldn't see the spins count ) for my job my code is better than yours 8))
-- name : counter.jal -- authors : M.YALIN DUYUR & ROB CURTIS -- date : August 2000 include 16f84_4 include jlib include jseven port_b_direction = all_output port_a_direction = all_output var byte a, b, c, d, x var byte pincount var byte debounce_delay pincount = 0 debounce_delay = 5 a = 0 b = 0 c = 0 d = 0 procedure display (byte in d4, byte in d3, byte in d2, byte in d1) is port_a = 0b_0111 port_b = seven_from_digit (d4) delay_1ms (5) port_a = 0b_1011 port_b = seven_from_digit (d3) delay_1ms (5) port_a = 0b_1101 port_b = seven_from_digit (d2) delay_1ms (5) port_a = 0b_1110 port_b = seven_from_digit (d1) delay_1ms (5) end procedure procedure count is a = a + 1 if a == 10 then a = 0 b = b + 1 end if if b == 10 then b = 0 c = c + 1 end if if c == 10 then c = 0 d = d + 1 end if if d == 10 then d = 0 end if end procedure -- Thanks ROB procedure TestPort is pin_b7_direction = input if pin_b7 & pincount < debounce_delay then pincount = pincount + 1 if pincount == debounce_delay then Count end if else pincount = 0 end if end procedure forever loop TestPort display (d, c, b, a) end loop
Hi I want to make 4 digit Counter(counter.JAL) But I cant convert the file (counter.JAL)to hex file please E-mail me the Hex file by E-mail My E-mail:email@example.com+
|file: /Techref/piclist/jal/counter-mydrb.htm, 2KB, , updated: 2005/3/15 05:02, local time: 2018/8/16 01:00,
|©2018 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?|
<A HREF="http://www.piclist.com/techref/piclist/jal/counter-mydrb.htm"> PIC JAL IO Routine Counter</A>
|Did you find what you needed?|
PICList 2018 contributors:
o List host: MIT, Site host massmind.org, Top posters @20180816 RussellMc, Van Horn, David, Sean Breheny, David C Brown, Isaac M. Bavaresco, Bob Blick, Neil, John Gardner, Denny Esterline, Brent Brown,
* Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
Welcome to www.piclist.com!