Anonymous user
Simple windowed application: Difference between revisions
demos more interesting bits of the language
(demos more interesting bits of the language) |
|||
Line 103:
Private lblClickCounter As Label
Private nClicks As Int = 0
Private aPlurals() As Object = Array As Object(Array As String("has","click"),Array As String("have","clicks"))
End Sub
Line 113 ⟶ 114:
Sub btnClickMe_Action
nClicks = nClicks + 1
Dim aPlural() As Object = aPlurals(IIF(nClicks=1,0,1))
lblClickCounter.Text = "There " &
End Sub
Sub IIF(test As Boolean,
If test Then
Return
Else
Return
End If
End Sub</lang>
| |||