GetCommand:
CLS
PRINT : PRINT
PRINT " 1. Power on/off"
PRINT " 2. Channel Up"
PRINT " 3. Channel Down"
PRINT " 4. Volume Up"
PRINT " 5. Volume Down"
PRINT " ESC To exit program"
PRINT " Please select a command >"
CommandPoll:
a$ = INKEY$
IF a$ = "" THEN GOTO CommandPoll
IF a$ = CHR$(27) THEN SYSTEM | ' Exit the program on ESC keypress | ||
IF a$ < "1" OR a$ > "5" THEN GOTO GetCommand ' Is input valid? | |||
PRINT : PRINT |
|
|
|
PRINT "Command sent." | ' Tell user command will be sent. | ||
a = VAL(a$) | ' Convert selection to a number, 1 to 5 | ||
NumPulses = Array(a) |
| ' Look up no. of pulses for this command | |
'The variable NumPulses now has the number of infrared pulses to form this remote
'control command. Download this many "t" characters to the 4071 which causes it to
'trigger that many pulses in Burst mode.
a$ = STRING$(NumPulses, "t") | ' Form a string with NumPulses number |
'of "t" chars in it. I.e., if
'Numpulses=3, then a$="ttt"
PRINT #1, a$; | ' Dump the "t"'s to the 4071 |
'The 4071 will now trigger a burst for each "t" char we sent it. After the 4071
'executes each "t" command, it will return a prompt character (">"). We wish to wait
'until after all prompts have come in, since that's when the 4071 has finished
'processing the last "t". The GetResponse1 subroutine has a
'accomplish this purpose.
| GOSUB GetResponse1 | ' Wait for and get response from 4071 to a$ |
| GOTO GetCommand | ' Go get another remote control command |
| ||
| ||
' | SUBROUTINES | |
| ||
| ||
' The subroutines needed for this example are listed in Appendix A
80
BK Precision 4071 User Manual Rev.2.2
