Radio on - off example - Revision history

137.229.29.100 at 00:53, 20 October 2015

2015-10-20T00:53:55Z

137.229.29.100 at 23:29, 19 October 2015

2015-10-19T23:29:16Z

24.237.158.14 at 20:50, 16 October 2015

2015-10-16T20:50:34Z

24.237.158.14: Created page with "

  ' Wiring: ' SW12V -- Radio Power      ''' Diagnostic Variables     Public batt_volt     Public Flag(8) As Boolean     Public radioflag As Boolean       Public commscomp..."

2015-10-16T20:11:40Z

Created page with "<pre> ' Wiring: ' SW12V -- Radio Power ''' Diagnostic Variables Public batt_volt Public Flag(8) As Boolean Public radioflag As Boolean Public commscomp..."

New page

<pre>

' Wiring:
' SW12V -- Radio Power

''' Diagnostic Variables
Public batt_volt
Public Flag(8) As Boolean
Public radioflag As Boolean
Public commscomplete As Boolean

BeginProg

commscomplete = false
radioflag=true
SW12 (1 ) ' turn on the radio
Scan(30,Sec, 10, 0)
'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''
'' Diagnostic Measurements '''''
'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''
Battery(batt_volt)
PanelTemp(Ptemp,_60Hz)
''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Radio Control ''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
If radioflag=true Then SW12(1)
' if the battery voltage is high then turn the radio on hourly
If TimeIntoInterval(0,60,min) Then
If batt_volt >= 12.4 Then
SW12(1)
EndIf
EndIf
' if the battery voltage isn't too low, turn the radio on daily.
If TimeIntoInterval(720,1440,min) Then
If batt_volt >= 12.2 Then
SW12(1)
EndIf
EndIf
' if the radioflag hasn't been set manually then turn the radio off 10 minutes into the hour.
If TimeIntoInterval(10,60,min) OR commscomplete = true Then
If radioflag = false Then
SW12(0)
commscomplete = false
EndIf
EndIf
If batt_volt < 12.6 Then radioflag = false

</pre>

← Older revision		Revision as of 00:53, 20 October 2015
Line 17:		Line 17:


−	What follows is the code for the CR Basic Editor. A further modification would be to make the TimeIntoInterval commands use variables for the on & off times.	+	What follows is the code for the CR Basic Editor. A further modification would be to make the '''TimeIntoInterval()''' commands use variables for the on & off times.

	<pre>		<pre>

← Older revision		Revision as of 20:50, 16 October 2015
Line 51:		Line 51:

	</pre>		</pre>
		+
		+
		+	A further modification would be to make the TimeIntoInterval commands use variables for the on & off times.

@@ Line 1: / Line 1: @@
 <pre>
@@ Line 28: / Line 48: @@
      ''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''''''''''''''''''''''''''''''''''''''''''''''
-      If radioflag=true Then SW12(1)
+    If radioflag=true Then SW12(1)
-      ' if the battery voltage is high then turn the radio on hourly
-      If TimeIntoInterval(0,60,min) Then
+    ' if the battery voltage is high then turn the radio on hourly
          If batt_volt >= 12.4 Then
            SW12(1)
          EndIf
-      EndIf
+    EndIf
-      ' if the battery voltage isn't too low, turn the radio on daily.
+    ' if the battery voltage isn't too low, turn the radio on daily.
-      If TimeIntoInterval(720,1440,min) Then
+    If TimeIntoInterval(720,1440,min) Then
          If batt_volt >= 12.2 Then
            SW12(1)
          EndIf
-      EndIf
+    EndIf
-      ' if the radioflag hasn't been set manually then turn the radio off 10 minutes into the hour.
+    ' if the radioflag hasn't been set manually then turn the radio off 10 minutes into the hour.
-      If TimeIntoInterval(10,60,min) OR commscomplete = true Then
+    If TimeIntoInterval(10,60,min) OR commscomplete = true Then
          If radioflag = false Then
            SW12(0)
            commscomplete = false
          EndIf
-      EndIf
+    EndIf
-      If batt_volt < 12.6 Then radioflag = false
+    If batt_volt < 12.6 Then radioflag = false
 </pre>