Filter
Top Products
BK Precision 4070A User Manual Rev.2.2
80
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
PRINT " ESC To exit program"
PRINT
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 4070A 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 4070A
' The 4070A will now trigger a burst for each "t" char we sent it. After the 4070A
' 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 4070A has finished
' processing the last "t". The GetResponse1 subroutine has a time-out feature which will
' accomplish this purpose.
GOSUB GetResponse1 ' Wait for and get response from 4070A to a$
GOTO GetCommand ' Go get another remote control command
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' SUBROUTINES
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' The subroutines needed for this example are listed in Appendix A