Campbell COM320, Инструкция по эксплуатации

Страница: 16 / 48

COM320 Voice Communications Modem
8
VoiceSpeak("50MS PRESS POUND TO TOGGLE 50MS PRESS STAR TO RETURN", 0)
If VoiceKey(KeyTimeout) = POUND Then
ReadIO (state,&b11111111)
If state AND keybit Then
state = state AND (NOT keybit)
Else
state = state OR keybit
EndIf
WriteIO(&b11111111,state) ' Toggle control port
EndIf
Loop
EndIf
Loop
EndSub
' Read a flag and possibly toggle
Sub SubKey3
Const NUMBERFLAGS = 8
Public Flags(NUMBERFLAGS)
Do ' Until * or timeout
VoiceSpeak("50MS PRESS FLAG NUMBER 50MS PRESS STAR TO RETURN", 0)
mykey = VoiceKey(keyTimeout)
If (mykey > 0) AND (mykey <= NUMBERFLAGS) Then
Do
VoiceSpeak("50MS FLAG" + mykey + "IS",0)
If Flags(mykey) Then
VoiceSpeak("ON",0)
Else
VoiceSpeak("OFF",0)
EndIf
VoiceSpeak("50MS PRESS POUND TO TOGGLE 50MS PRESS STAR TO RETURN", 0)
If VoiceKey(KeyTimeout) = POUND Then
flags(mykey) = NOT flags(mykey)
Else
ExitDo
EndIf
Loop
EndIf
Loop
' Port loop
EndSub
DataTable (Test,1,-1)
DataInterval (0,0,Sec,10)
Minimum (1,BatteryV,FP2,0,False)
Sample (1,PTemp,FP2)
Sample (1,TCvalue_F,FP2)
EndTable
' <<<<<<<<<<<<<<<<<< MEASUREMENT PROGRAM >>>>>>>>>>>>>>>>>>
BeginProg
Scan (1,Sec,3,0)
Battery (BatteryV)
PanelTemp (PTemp,250)
TCDiff (TCvalue_F,1,mV2_5C,7,TypeT,PTemp,True,0,250,1.8,32)
' Add measurement code here *******************
CallTable Test
NextScan
' <<< VOICE CALLBACK CODE that executes when alarm conditions are met >>>
SlowSequence
' Slow Sequence do loop forever possibly doing alarm call out
Const NUMPHONES = 3
' 3 phone numbers to try
Const PHONE1 = "1112223333"
Const PHONE2 = "1112224444"