Simple windowed application: Difference between revisions

Content added Content deleted
(demos more interesting bits of the language)
Line 103: Line 103:
Private lblClickCounter As Label
Private lblClickCounter As Label
Private nClicks As Int = 0
Private nClicks As Int = 0
Private aPlurals() As Object = Array As Object(Array As String("has","click"),Array As String("have","clicks"))
End Sub
End Sub


Line 113: Line 114:
Sub btnClickMe_Action
Sub btnClickMe_Action
nClicks = nClicks + 1
nClicks = nClicks + 1
Dim aPlural() As Object = aPlurals(IIF(nClicks=1,0,1))
lblClickCounter.Text = "There " & IIF(nClicks = 1, "has", "have") & " been " & (nClicks) & " " & IIF(nClicks=1, "click", "clicks") & " so far."
lblClickCounter.Text = "There " & aPlural(0) & " been " & (nClicks) & " " & aPlural(1) & " so far."
End Sub
End Sub


Sub IIF(test As Boolean, trueText As String, falseText As String) As String
Sub IIF(test As Boolean, trueVal As Object, falseVal As Object) As Object
If test Then
If test Then
Return trueText
Return trueVal
Else
Else
Return falseText
Return falseVal
End If
End If
End Sub</lang>
End Sub</lang>
Retrieved from "https://rosettacode.org/wiki/Simple_windowed_application"