#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 1500
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public Serial1 As Serial
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
' Sub1
' sub2
' Sub3
' sub4
' Sub5
' sub6
' Sub7
' sub8
' Sub9
' sub10
' Sub11
' sub12
Dim x() As Byte = "abcd"
Anothersub(1, 2, 3, x)
Log("RAM3: ", AvailableRAM)
Log("Stack3: ", StackBufferUsage)
End Sub
Sub Anothersub(x As Int, y As Int, z As Int, Text() As Byte)
Log("RAM1: ", AvailableRAM)
Log("Stack1: ", StackBufferUsage)
Log("Another sub")
Log(Text)
Log("RAM2: ", AvailableRAM)
Log("Stack2: ", StackBufferUsage)
End Sub
'Sub Sub1
' Log("Sub 1")
' Dim index1 As Int = 1
'
'Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub sub2
' Log("Sub 2")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'
'Sub Sub3
' Log("Sub 3")
' Dim index1 As Int = 1
'
'Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub sub4
' Log("Sub 4")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'
'Sub Sub5
' Log("Sub 5")
' Dim index1 As Int = 1
'
'Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'
'Sub sub6
' Log("Sub 6")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'
'Sub Sub7
' Log("Sub7")
' Dim index1 As Int = 1
'
'Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub sub8
' Log("Sub8")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub Sub9
' Log("Sub9")
' Dim index1 As Int = 1
'
'Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub sub10
' Log("Sub10")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'Sub Sub11
' Log("Sub11")
' Dim index1 As Int = 1
'
' Select index1
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub
'
'Sub sub12
' Log("Sub12")
' Dim index2 As Int = 2
'
' Select index2
' Case 1
' 'do something
' Case 2
' 'do something
' Case 3
' 'do something
' End Select
'End Sub