Campbell Scientific COM320 Voice Communications Modem - Manual (Page 13)

COM320 Voice Communications Modem
' ***** Subroutines *****
' Called when calling in:
Sub CallInVoice
Do
VoiceSpeak ("CURRENT STATION DATA 50MS 50MS", 0)
VoiceSpeak ("PRESS ONE TO HEAR THE BATTERY VOLTAGE 50MS", 0)
VoiceSpeak ("PRESS TWO TO HEAR THE DATALOGGER TEMPERATURE 50MS", 0)
VoiceSpeak ("PRESS THREE TO HEAR THE T C TEMPERATURE 50MS", 0)
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
7