Sub Class_Globals
Private ws As WebSocket 'ignore
Private RadioLeft, RadioRight, btnCalc, Result As JQueryElement
End Sub
Public Sub Initialize
End Sub
Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
Log("Connected")
ws = WebSocket1
End Sub
Sub btnCalc_Click (Params As Map)
Dim fleft As Future = RadioLeft.GetProp("checked")
Dim fright As Future = RadioRight.GetProp("checked")
If fleft.Value = True Then
Result.SetText("left is checked")
Else If fright.Value Then
Result.SetText("right is checked")
End If
End Sub