Help needed with Select Case?
Hello Everyone,
I'm having problems with a Select Case routine that I'm hoping someone can help me understand why I can't get any If-Then-Else-Endif statements to work in it. I just modified the example program (remotext.bas) that came with my LAB-XT Telephony Experimenter's Board so that it will require the caller to enter an access number within a specified time in order to use the remote functions of the answering machine.
The Select Case below works good but if the caller doesn't enter "8", "9" or "0" then he could try different sequences of the remaining numbers and possibly gain access. I'd like to be able to use "If-Then-Else-Endif" statements so that if any of the remaining numbers are pressed out of sequence then the variable for that number will be set to 2 which would make it impossible to gain access unless the caller hangs up then try's again. I'd like to be able to use this If-Then-Else-Endif below for all the Case statements but for some reason that I can't figure out, it just won't work? I even tried using GOSUB's to use the If-Then-Else-Endif's but still no go. I'm including the whole program in an attachment if that'll help. Any help will be greatly appreciated.
Thanks
jessey
Code:Case "1" IF (A=0) AND (B=1) AND (C=1) AND (D=1) AND _ (E=1) AND (F=0) AND (G=1) THEN A=1 ELSE A=2 ENDIF
This works but I'd like to be able to add If-Then-Else-Endif's
Code: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 Select Case dtmf_digit ' Take action based on the dtmf digit '6th # in the correct sequence --- 1 = A Case "1" IF (A=0) AND (B=1) AND (C=1) AND (D=1) AND _ (E=1) AND (F=0) AND (G=1) THEN A=1 '1st # in the correct sequence --- 2 = B Case "2" IF (A=0) AND (B=0) AND (C=0) AND (D=0) AND _ (E=0) AND (F=0) AND (G=0) THEN B=1 '5th # in the correct sequence --- 3 = C Case "3" IF (A=0) AND (B=1) AND (C=0) AND (D=1) AND _ (E=1) AND (F=0) AND (G=1) THEN C=1 '2nd # in the correct sequence --- 4 = D Case "4" IF (A=0) AND (B=1) AND (C=0) AND (D=0) AND _ (E=0) AND (F=0) AND (G=0) THEN D=1 '3rd # in the correct sequence --- 5 = E Case "5" IF (A=0) AND (B=1) AND (C=0) AND (D=1) AND _ (E=0) AND (F=0) AND (G=0) THEN E=1 '7th # in the correct sequence --- 6 = F Case "6" IF (A=1) AND (B=1) AND (C=1) AND (D=1) AND _ (E=1) AND (F=0) AND (G=1) THEN F=1 '4th # in the correct sequence --- 7 = G Case "7" IF (A=0) AND (B=1) AND (C=0) AND (D=1) AND _ (E=1) AND (F=0) AND (G=0) THEN G=1 Case "8" A=2 ' If the #8 key is pressed then it's a no go Case "9" A=2 ' If the #9 key is pressed then it's a no go Case "0" A=2 ' If the #0 key is pressed then it's a no go End Select IF (A=1) AND (B=1) AND (C=1) AND (D=1) AND _ (E=1) AND (F=1) AND (G=1) THEN access_code = is_verified ' remote functions will work now 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
Bookmarks