1 Attachment(s)
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
