这似乎是个愚蠢的问题,但希望能尽快解决。请看下面我的代码。不是写在我的桌子上,有人知道为什么吗?应该是件简单的事情。
'CR6 Datalogger.
日期:24/09/2021
'程序authour:j shanks
'程序版:v1.0
'#################接线#######################
'VW1 = GEOKON 4427 SN 2129518 = U1 U2 U3 U4红色U1黑色U2绿色U3白色U4
'VW1 = GEOKON 4427 SN 2129519 = U5 U6 U7 U8红色U5黑色U6绿色U7白色U8
'Weatherstation Vaisala WXT536
“红色、地面力量
'棕色,电源12V,Pin1 ,, SW12-2
蓝色和白色,SDI12,必须组合,C3
“绿色,是地面,不是电力
'SDI12地址设置为“3”
'tbo3.
“红色,U9
“黑、地面
'Garmin GPS16x-HVS
'红色,电源12V,Pin1,红色,SW12-1
'灰色,PPS信号,pin2,白色,C1
'白色,信号Tx,Pin3,蓝色,C2
'蓝色,地面Rx,Pin4,黑色,地面
黄色,电源开关G, pin4,黑色,接地
“黑色,Power Ground, pin4,黑色,Ground。
'清除,盾牌,Pin4,黑色,地面
'SDI12地址设置为“0”(默认)
'################# 变量 #################
“公共变量
公共PTemp
公共Batt_volt (2)
公共WXT (7)7个变量,模型:WXT536
公共TB03Rain_mm
公共TBO3Rain_tips
公共GPS_SDI12 (15)Garmin GPS的线。注意,Garmin GPS留下的是默认的SDI12地址
“VW1
公共VW1_Sensor_Change
public vw1_freq,vw1_digits,vw1_eng_units,vw1_temp
VW1_Set_Zero作为布尔值
“VW2
公共VW2_Sensor_Change
公共VW2_Freq, VW2_Digits, VW2_Eng_Units, VW2_Temp
公共VW2_Set_Zero作为Boolean
“模糊变量
“VW1
昏暗的VW1_Dest (6)
昏暗的VW1_C
昏暗的VW1_Install__Eng_Units
DIM vw1_install_temp.
昏暗的VW1_Temp_Corr
昏暗的VW1_K
“VW2
昏暗的VW2_Dest (6)
昏暗的VW2_C
昏暗的vw2_install__eng_units.
昏暗的VW2_Install_Temp
昏暗的VW2_Temp_Corr
昏暗的VW2_K
'##########输出字符串##########
'内部电池测量
Alias Batt_volt(1) = SupplyVolts
Alias Batt_volt(2) = LithiumVolts
“Vaisala weatherstation
别名WXT(1)= Winddir
别名WXT (2) = WindSpd
别名WXT(3)= Airtemp
别名WXT(4)= relhhimity
别名WXT (5) = AirPressure
别名WXT (6) = wtxRain
别名wxt(7)= hail_cm2
'Garmin GPS.
GPS_SDI12(1) = latitude_a '纬度(+ =北;- =南)
别名GPS_SDI12(2)= Latitude_B'分钟纬度
Alias GPS_SDI12(3) =经度(+ =东;- =西)
Alias GPS_SDI12(4) = longitude '分钟经度
Alias GPS_SDI12(5) = speed '对地速度
别名GPS_SDI12(6) = course ' course over ground
别名GPS_SDI12(7)= legence_variation'从真正的北(+ =东方; - = West)的磁场
别名GPS_SDI12(8) = fix_quality 'GPS定位质量:0 =无效,1 = GPS, 2 =差分GPS, 6 =估计
别名GPS_SDI12(9) = nmbr_satellite '用于修复的卫星数
别名GPS_SDI12(10) = altitude '天线高度
别名GPS_SDI12(11) =当pps上升沿发生时,pps 'usec into sec of system clock,通常是99万次同步
别名GPS_SDI12(12) = dt_since_gprmc '距离最后一个GPRMC字符串的时间,通常小于1秒
别名GPS_SDI12(13)= GPS_READY'从0到10,10 =准备就绪
别名GPS_SDI12(14)= MAX_CLOCK_CHANGE'最大值时钟在MSEC中更改
Alias GPS_SDI12(15) = nmbr_clock_change '时钟被改变的次数
'#################常量################
“普通大众
const t_a = 1.4051e-3
const t_b = 2.369e-4
Const T_C = 1.019e-7
const k_m = 0.000376
Const K_B = 0.328
“VW1 (SN: 2129518)
const vw1_a = 1.7854e-6
Const VW1_B = 0.6242
const vw1_g = 0.6400
'VW2(SN:2129519)
Const VW2_A = 2.6922E-7
Const VW2_B = 0.6104
Const VW2_G = 0.6128
#################数据表#################
DataTable(表1,true,-1)
DataInterval(0, 10分钟10)
“VW1
示例(1,VW1_ENG_UNITS,IEE4)
样本(1 VW1_Temp IEEE4)
样本(1 VW1_Sensor_Change IEEE4)
“VW2
样本(1 VW2_Eng_Units IEEE4)
示例(1,VW2_TEMP,IEEE4)
样本(1 VW2_Sensor_Change IEEE4)
最小(1,Batt_Volt,FP2,False,False)
样品(1,PTEMP,FP2)
'悲伤部分
WindVector (1 WindSpd WindDir FP2,假的,900年,0,0)
FieldNames(“WindSpd_Mean WindDir_MeanUnitVector WindDir_SD1”)
平均水平(1 AirTemp FP2,假)
样本(1 RelHumidity FP2)
样本(1 AirPressure IEEE4)
总计(1 wtxRain FP2,假)
总计(1 Hail_cm2 FP2,假)
'雨量
占(1,TB03Rain_mm,FP2,False)
总计(1 TBO3Rain_tips FP2,假)
茶几
的系统操作参数
preservevarialbles.
顺序显示器
'#################主程序################
BeginProg
扫描(1分钟,0,0)
PanelTemp (PTemp, 50)
电池(BATT_VOLT)
'气象站
的开关
If TimeIsBetween (720,725,1440,Min) Then '在中午1200点到1205点之间
SW12(2,0)'turn off SW2 ()
别的
SW12(2,1)'打开SW2()
EndIf
'主要页面
'winddir','windspd','airtemp','relhumity','autpressure','wtxrain'和'hail_cm2'
SDI12Recorder(WXT520天气发射机测量,C3,“3”,“M!”,1,0)'
“TB-03'Rain_mm”
pulsecount(tb03rain_mm,1,u9,1,0.2,0)
TBO3Rain_tips = TB03Rain_mm* 5
“VW1
“测量VW1传感器
VibratingWire (VW1_Dest (), 1, U1, 1400年,3500年,1,0.01,“”,50岁,T_A, T_B, T_C)
VW1_FREQ = VW1_DEST(1)
VW1_Temp = VW1_Dest (6)
'VW1转换频率为数字
vw1_digits =(vw1_freq ^ 2)/ 1000
VW1计算工程单位
VW1_Eng_Units = (VW1_Digits^2) * VW1_A + VW1_Digits * VW1_B + VW1_C
'VW1计算和应用温度补偿
VW1_K =((VW1_DIGITS * K_M) - K_B)* VW1_G'示例适用于4420-1-50毫米
VW1_Temp = (VW1_Temp - VW1_Install_Temp) * VW1_K
vw1_eng_units = vw1_eng_units + vw1_temp_corr
'计算运动
vw1_sensor_change = vw1_eng_units - vw1_install__units
“VW2
'测量VW2传感器
U5 VibratingWire (VW2_Dest(), 1日,1400年,3500年,1,0.01,“”,50岁,T_A, T_B, T_C)
VW2_FREQ = VW2_DEST(1)
VW2_Temp = VW2_Dest (6)
'VW2将FREQ转换为数字
vw2_digits =(vw2_freq ^ 2)/ 1000
计算工程单位
vw2_eng_units =(vw2_digits ^ 2)* vw2_a + vw2_digits * vw2_b + vw2_c
'VW2计算和应用温度补偿
VW2_K = ((VW2_Digits * K_M) - K_B) * VW2_G '示例为4420-1-50mm
VW2_Temp_Corr = (VW2_Temp - VW2_Install_Temp) * VW2_K
vw2_eng_units = vw2_eng_units + vw2_temp_corr
'计算运动
VW2_Sensor_Change = VW2_Eng_Units - VW2_Install__Eng_Units
'vw zeros.
“VW2设置零点(安装)点
如果vw2_set_zero = true那么
VW2_C = ((VW2_Digits^2) * VW2_A + VW2_Digits * VW2_B) * -1
VW2_Install_Temp = VW2_Temp
VW2_Install__Eng_Units = VW2_Eng_Units
vw2_set_zero = false.
EndIf
'VW1设置零(安装)点
如果VW1_Set_Zero = True那么
VW1_C = ((VW1_Digits^2) * VW1_A + VW1_Digits * VW1_B) * -1
VW1_Install_Temp = VW1_Temp
VW1_Install__Eng_Units = VW1_Eng_Units
VW1_Set_Zero = False
EndIf
“叫输出表
Calltable Table1.
NextScan
GPS时钟每60分钟修正5分钟
SlowSequence
扫描(60,min,0,0)
SW12 (1, 1)
延迟(0 5分钟)
GPS(GPS_SDI12(),-Comc1,0,100)
SW12 (1,0)
NextScan
endprog.