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

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

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

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

EndIf

SerialIn (InString,Com4,100,10,100)

' Echo stuff to Debug Terminal

If DebugOnOff = 1 Then

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

'Breakup Time String

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

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

SplitStr (ValStr(4),ValStr(3),".",1,4)

SplitStr (ValStr(3),ValStr(3),".",1,5)

'Assign Hours

Hours = ValStr(1)

If DebugOnOff = 1 Then

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

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

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

EndIf

'Assign Mins

Mins = ValStr(2)

If DebugOnOff = 1 Then

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

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

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

EndIf

'Assign Seconds

Secs = ValStr(3)

If DebugOnOff = 1 Then

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

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

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

EndIf

'Assign Microsecs

uSecs = ValStr(4)

If DebugOnOff = 1 Then

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

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

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

EndIf

'Request Date from Com4

SerialOut(Com4,"Date?","",0,100)

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

SerialIn (InString,Com4,100,10,100)

If DebugOnOff = 1 Then

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

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

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

1 2 ... 6 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 11

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

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