Campbell COM310 Manuel télécharger pdf (Page 15)

COM310 Voice Communications Modem

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"

Const PHONE3 = "1112225555"

Dim i,Phones(NUMPHONES) As String

phones(1) = PHONE1

phones(2) = PHONE2

phones(3) = PHONE3

Alarm = FALSE

ArmAlarm = TRUE

Do ' Forever

Delay(1,1,sec)

If (TCvalue_F < 85) Then

ArmAlarm = TRUE

1 2 ... 10 11 12 13 14 15 16 17 18 19 20 ... 55 56

Commentaires sur ces manuels

Pas de commentaire

Campbell COM310 Manuel Page 15

Commentaires sur ces manuels

Produits connexes et manuels pour Mise en réseau Campbell COM310