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),

该博客介绍了如何利用日本原装COM 3600F专业型空气负离子检测仪进行数据采集,并结合CR1000设备进行操作。内容涉及PTemp和电池电压的监测,以及ION_FM、TA_FM和RH_FM的数据采样。通过定义数据表格和子程序,详细阐述了数据记录和串口通信的过程。
最低0.47元/天 解锁文章
260

被折叠的 条评论
为什么被折叠?



