'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type LinearityRange (startvalue As Int, endvalue As Int)
' Public range0100 As LinearityRange = CreateLinearityRange(0, 100) ' TAKE THIS OUT OF HERE
End Sub
B4X:
Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
Dim range0100 As LinearityRange = testmodule.CreateLinearityRange(0, 100) ' AND PUT IT HERE
Log(range0100.startvalue)
End Sub
'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type LinearityRange (startvalue As Int, endvalue As Int)
' Public range0100 As LinearityRange = CreateLinearityRange(0, 100) ' TAKE THIS OUT OF HERE
End Sub
B4X:
Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
Dim range0100 As LinearityRange = testmodule.CreateLinearityRange(0, 100) ' AND PUT IT HERE
Log(range0100.startvalue)
End Sub