Campbell Scientific COM310 Voice Communications Modem User Manual

Page 15

COM310 Voice Communications Modem

Flags(mykey)

Then

VoiceSpeak("ON",0)

Else

VoiceSpeak("OFF",0)

EndIf

VoiceSpeak("50MS

PRESS

POUND

TO TOGGLE 50MS PRESS STAR TO RETURN", 0)

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"

Const PHONE3 = "1112225555"

Dim i,Phones(NUMPHONES) As String

phones(1) = PHONE1

phones(2) = PHONE2

phones(3) = PHONE3

Alarm = FALSE

ArmAlarm = TRUE

Forever

Delay(1,1,sec)

If (TCvalue_F < 85) Then

ArmAlarm

TRUE