It comes
from here. Have compiled it to a Jar (no XML) and using it with JavaObject. The Tower lights are switched via a B4J Timer. Switch them on whatever condition(s) you want them to be switched and whenever you want - just set the booleans:
[CODE lang="b4x" title="Method called to turn on/off lights"]st.RunMethod("setColors", Array(False, False, False))[/CODE]
Attached sample project and the JAR. Copy the Jar to your additional library folder. The CSS file was added to the compiled JAR with 7-zip.
Sample code:
[CODE lang="b4x" title="B4J Sample Code"]#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
#AdditionalJar: signalTower
'#AdditionalJar: javafx.base
'#AdditionalJar: javafx.controls
'#AdditionalJar: javafx.graphics
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Dim st As JavaObject
Dim stb As JavaObject
Dim t As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
st.InitializeNewInstance("eu.hansolo.enzo.signaltower.SignalTower" , Null)
stb.InitializeStatic("eu.hansolo.enzo.signaltower.SignalTowerBuilder")
st = stb.RunMethodJO("create", Null).RunMethod("build", Null)
MainForm.RootPane.AddNode(st, 2dip, 2dip, 150dip, 300dip)
st.RunMethod("setColors", Array(False, False, False))
t.Initialize("t", 1000)
t.Enabled = True
End Sub
Sub t_tick
Dim a, b, c As Int
a= Rnd(0,2)
b= Rnd(0,2)
c=Rnd(0,2)
Dim onoffA As Boolean
Dim onoffB As Boolean
Dim onoffC As Boolean
' If a = 0 Then onoffA = False Else onoffA = True
onoffA = IIf(a=0, False, True)
onoffB = IIf(b=0, False, True)
onoffC = IIf(c=0, False, True)
st.RunMethod("setColors", Array(onoffA, onoffB, onoffC))
End Sub[/CODE]
