日本原装COM 3600F专业型空气负离子检测仪 --CR1000采集

Public PTemp, Batt_volt
Public instring_string As String * 36
Public Num_spilt(3) As String *3
Alias Num_spilt(1)=ION_FM
Public NBytesReturned
Public NUM_END(2) As String *3
Alias NUM_END(1)=TA_FM
Alias NUM_END(2)=RH_FM
'Declare Private Variables
'Example:
'Dim Counter

'Define Data Tables.
DataTable (Test1,1,-1) 'Set table size to # of records, or -1 to autoallocate.
DataInterval (0,1,Min,10)
Minimum (1,Batt_volt,FP2,False,False)
Sample (1,PTemp,FP2)
Sample (1,ION_FM,FP2)
Sample (1,TA_FM,FP2)
Sample (1,RH_FM,FP2)
EndTable

'Define Subroutines
'Sub
'EnterSub instructions here
'EndSub

'Main Program
BeginProg
SerialOpen (Com1,19200,0,0,100)
Scan (100,mSec,0,0)
PanelTemp (PTemp,60)
Battery (Batt_volt)
SerialInRecord (Com1,instring_string,&h2D,17,0,NBytesReturned,00)
SplitStr (Num_spilt(),instring_string,"",3,0)

	MoveBytes (NUM_END(1),0,Num_spilt(2),0,4)
	MoveBytes (NUM_END(2),0,Num_spilt(2),4,2)
	'Enter other measurement instructions
	'Call Output Tables
	'Example:
	CallTable Test1
NextScan

EndProg