sun_radiation.cr5

也是气象领域的

'CR5000 Series Datalogger
'To create a different opening program template, type in new
'instructions and select Template | Save as Default Template
'date:
'program author:

'Declare Public Variables
'Example:
Public PTemp, batt_volt
Public sun_volt(18)
Public sun_Watt(18)
Public sun_Watt_radio(18)
Public sun_Watt_tot
Public sun_Watt_all
Public R
Public i,j,k
Public portstatus
Public volt
Public Watt
Public output_avilid As String *10
'Define Data Tables
DataTable (sun,Portstatus,-1)
	Minimum (1,batt_volt,FP2,0,False)
	Sample (1,PTemp,FP2)
	Sample (18,sun_Volt(1),IEEE4)
	Sample (18,sun_Watt(1),IEEE4)
	Sample (18,sun_Watt_radio(1),IEEE4)
	Sample (1,sun_Watt_tot,IEEE4)
	Sample (1,sun_Watt_all,IEEE4)
  Sample (1,Volt,IEEE4)
	Sample (1,Watt,IEEE4)
	Sample (1,output_avilid,String)
EndTable
'Define Subroutines
'Sub
	'EnterSub instructions here
'EndSub

'Main Program
BeginProg
    R=4.1
    i=1
	Scan (1,Sec,0,0)
	PortGet (Portstatus,1 )
		PanelTemp (PTemp,250)
		Battery (Batt_volt)
    k=i
		VoltDiff (sun_volt(1),18,mV5000,1,True,0,250,0.001,0)
		VoltDiff (volt,1,mV5000,19,True,0,250,0.001,0)
		Watt=volt*volt/R
		If Portstatus=1 Then
		For j=1 To 18
		sun_watt(j)=sun_Volt(j)*sun_Volt(j)/R
		sun_Watt_tot=sun_Watt_tot+sun_watt(j)
		Next j
		For j=1 To 18
		Sun_watt_radio(j)=sun_Watt(j)/sun_Watt_tot
		Next j
		i=i+1
		sun_watt_all=sun_watt_all+sun_watt_tot
		EndIf
		'Call Output Tables
	  CallTable sun	
    sun_Watt_tot=0
		If i=k Then
		  output_avilid="inavilid"
		  sun_watt_all=0
		  i=1
		Else 
		  output_avilid="avilid"
	  EndIf  

	NextScan
EndProg