日本原装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,NB