Campbell COM310 Manuale Scaricare il pdf (Pagina 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

Commenti su questo manuale

Nessun commento

Campbell COM310 Manuale Pagina 15

Commenti su questo manuale

Prodotti e manuali riguardandi Networking Campbell COM310