Campbell CR1000 Uživatelský manuál stáhnout pdf (Strana 12)

Interfacing the MICROCOM DESIGN GTX Modulator to the Campbell Scientific CR1000 Data Logger PRELIMINARY

SerialOut (Com1, CRLF,"",0,100)

SerialOut(Com1,Mess2,"",0,100)

SerialOut (Com1,InString,"",0,100)

SerialOut(Com1,Mess2,"",0,100)

SerialOut (Com1,InString,"",0,100)

SerialOut (Com1, CRLF,"",0,100)

SerialOut (Com1,LINE,"",0,100)

SerialOut (Com1, CRLF,"",0,100)

EndIf

'Break up Date String

SplitStr (ValStr(1),InString,"/",1,0)

SplitStr (ValStr(2),InString,"/",2,4)

'Assign Month

Month = ValStr(1)

If DebugOnOff = 1 Then

SerialOut(Com1,"Month->","",0,100)

SerialOut(Com1,ValStr(1),"",0,100)

SerialOut (Com1, " ","",0,100)

EndIf

'Assign Day

Day = ValStr(2)

If DebugOnOff = 1 Then

SerialOut(Com1,"Day->","",0,100)

SerialOut(Com1,ValStr(2),"",0,100)

SerialOut (Com1, " ","",0,100)

EndIf

'Assign Year

Year = ValStr(3)

If DebugOnOff = 1 Then

SerialOut(Com1,"Year->","",0,100)

SerialOut(Com1,ValStr(3),"",0,100)

SerialOut (Com1, CRLF,"",0,100)

EndIf

EndSub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Main Program'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

BeginProg

CALL Initialize()

' Infinite loop to be executed every ten seconds

Scan (10,Sec,0,0)

' take panel temp

PanelTemp (PTemp,250)

' take internal cr1000 baterry voltage

Battery(batt_volt)

' Call Temperature Table

CallTable TempTbl

' Send CRs until getting Com4 > " >"

SerialOut (Com4,CR,">",100,100)

' Send Baterry Voltage to the Com4 in a Random Data Command

uAPP222 (v1.0) July 12, 2005 http://www.microcomdesign.com 12

1 2 ... 7 8 9 10 11 12 13 14 15 16 17 18 19

Komentáře k této Příručce

Žádné komentáře

Campbell CR1000 Uživatelský manuál Strana 12

Komentáře k této Příručce

Související produkty a manuály pro Měření, testování a kontrola Campbell CR1000