COM320 Voice Communications Modem
7
VoiceSpeak ("PRESS STAR TO DISCONNECT", 0)
Select Case VoiceKey(keytimeout)
Case 1
VoiceSpeak ("THE BATTERY VOLTAGE IS" + Value(1) + "VOLTS", 1)
Case 2
VoiceSpeak ("THE REFERENCE IS" + Value(2) + "DEGREES", 1)
Case 3
VoiceSpeak ("THE AIR TEMPERATURE IS" + Value(3) + "DEGREES", 0)
EndSelect
Loop ' Until timeout or STAR
EndSub
' Called when calling out:
Public Alarm As Boolean, ArmAlarm As Boolean, ManualAlarm As Boolean
Sub CallOutVoice
' Dial # reset to reset alarm = 0
Timer(1,Sec,2) ' Start timer
Do
VoiceSpeak("50MS PRESS POUND TO RESET ALARM 50MS PRESS STAR TO DISCONNECT", 0)
mykey = VoiceKey(0)
If Timer(1,Sec,4) >= RINGTIME Then ExitSub ' Max time to await pick up and # press
Loop Until mykey = POUND
' Someone cleared the alarm, let them proceed and do other things
Alarm = False
Do ' Until timeout
VoiceSpeak ("50MS C R ONE THOUSAND STATION 50MS 50MS", 0)
VoiceSpeak ("PRESS ONE TO HEAR A SENSOR VALUE 50MS 50MS", 0)
VoiceSpeak ("PRESS TWO TO HEAR OR TOGGLE PORT 50MS 50MS", 0)
VoiceSpeak ("PRESS STAR TO DISCONNECT 50MS 50MS", 0)
Select Case VoiceKey(KeyTimeout)
Case 1
Call SubKey1
Case 2
Call SubKey2
Case 3
Call SubKey3
EndSelect
Loop ' Until timeout
EndSub
' Monitors a value
Sub SubKey1
Do
VoiceSpeak ("50MS PRESS SENSOR NUMBER 50MS PRESS STAR TO RETURN", 0)
mykey = VoiceKey (KeyTimeout)
If mykey = 1 Then
VoiceSpeak ("50MS THE BATTERY VOLTAGE IS" + Value(1) + "VOLTS", 1)
If (mykey = 2) Then VoiceSpeak ("50MS THE REFERENCE IS" + Value(2) + "DEGREES", 1)
If (mykey = 3) Then VoiceSpeak ("50MS THE T C IS" + Value(3) + "DEGREES", 1)
Loop
' Sensor value loop
EndSub
' Read a port and possibly toggle
Sub SubKey2
Do
' Until * or timeout
Dim keybit,port As Long,state
VoiceSpeak("50MS PRESS PORT NUMBER 50MS PRESS STAR TO RETURN", 0)
port = VoiceKey(keyTimeout)
If (port > 0) AND (port <= 8) Then
keybit = 2^(port-1)
' Bit 0..7 is set in keybit. Keybit = 2^(port-1).
Do
ReadIO(state, &b11111111)
VoiceSpeak("50MS C" + port + "IS",0)
If state AND keybit Then
VoiceSpeak("ON",0)
Else
VoiceSpeak("OFF",0)
EndIf
Содержание COM320
Страница 2: ......
Страница 6: ......
Страница 32: ...COM320 Voice Communications Modem 24 ...
Страница 34: ......
Страница 40: ...Appendix B Updating and Configuring the COM320 B 6 ...
Страница 46: ...Appendix D COM320 Word List D 4 ...
Страница 47: ......