Help needed with Select Case?

[jessey]

Happy New Year everyone!

Thanks so much tenaja, Jerson & Darrel

Hi Darrel,

Your code sure looks good, I can't wait to try it out. I'm at a friends place visiting for a while so I can't try it out until I get home but it'll be the first thing on my to do list.....

Thanks Again
jessey

combocount VAR BYTE

Enter_Access_Code:
	select_dtmf = 1	          ' Enable the data output from the MT8870
	Pause 1		          ' Pause 1 mS to let data settle
	dtmf_digit = (PORTB >> 4) ' Read the top nibble of PORTB for DTMF data

	' Use LOOKUP to change the DTMF data to an ASCII character
	LookUp dtmf_digit, ["_1234567890*#ABCD"], dtmf_digit

dtmf_wait2:					
	IF dtmf_ready Then dtmf_wait2	' Loop here until DTMF signal stops
	select_dtmf = 0			' Disable the MT8870 data output

' access code is 2457316

    IF (combocount = 0) AND (dtmf_digit = 2) THEN GoodKey
    IF (combocount = 1) AND (dtmf_digit = 4) THEN GoodKey
    IF (combocount = 2) AND (dtmf_digit = 5) THEN GoodKey
    IF (combocount = 3) AND (dtmf_digit = 7) THEN GoodKey
    IF (combocount = 4) AND (dtmf_digit = 3) THEN GoodKey
    IF (combocount = 5) AND (dtmf_digit = 1) THEN GoodKey
    IF (combocount = 6) AND (dtmf_digit = 6) THEN GoodKey
    combocount = 0     'invalid keypress
IF k = 0 THEN listen

GoodKey:
    combocount = combocount + 1
 IF combocount = 6 THEN
    access_code = is_verified 
    FreqOut DTMF_out, 500, 800  ' Play 3 tones to confirm to the caller that
    PAUSE 100                   ' the correct access code has been entered
    FreqOut DTMF_out, 500, 800
    PAUSE 100
    FreqOut DTMF_out, 500, 800
 ENDIF
IF k = 0 THEN listen

[Darrel Taylor]

There ya go.
With no PIC or compiler in front of you .... Pretty good!

Just a couple comments for when you get home.

Make sure the program can't accidently "Fall" into the GoodKey routine.
If it does fall-in, it was a bad key, so you definately don't want to run the GoodKey routine.

And the example has seven digits.

IF combocount = 7 THEN have a

Happy New Year!