Italian Label con alternanza di testo

[AlpVir]

Forse mi sto perdendo in un bicchiere d'acqua ma non riesco a modificare, dopo un certo tempo, il contenuto di una label e - contemporaneamente - uscire dall'app con il pulsante BotEsci.
Ecco qui sotto l'intero progettino in cui il text della label passa alternativamente da "UNO" a "DUE" ogni secondo. Però BotEsci non funziona !
Qualche anima pia mi può aiutare ? Grazie anticipatamente.

Sub Process_Globals
End Sub

Sub Globals
    Dim lb      As Label
    Dim BotEsci  As Button
    Dim TestoUno As String
    Dim TestoDue As String
    Dim Z        As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
  TestoUno="UNO"
  TestoDue="DUE"
    lb.Initialize ("lb")
  Activity.AddView (lb,10dip,10dip,100dip,30dip)
  lb.Color = Colors.Blue
  lb.TextColor = Colors.White
  lb.Gravity = Gravity.CENTER_HORIZONTAL
  BotEsci.Initialize ("BotEsci")
  Activity.AddView (BotEsci,10dip,100dip,120dip,50dip)
  BotEsci.Text ="ESCI"
  Avvia
End Sub

Sub Avvia
      Dim i As Int
    Dim TempoX As Long
    Dim Z As Int
    Z=0
    Do Until Z=1
        DoEvents
        For i=0 To 1
            DoEvents
            If i=0 Then lb.Text = TestoUno
            If i=1 Then lb.Text = TestoDue
            TempoX=DateTime.Now+1000
            Do Until TempoX<DateTime.Now
                DoEvents
            Loop   
        Next
    Loop
    DoEvents
End Sub
Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub BotEsci_click
    Z=1
    Log ("esco")
    Activity.Finish
End Sub

 

[LucaMs]

Magari adesso copio e incollo e provo, ma ti consiglierei di utilizzare un timer, anziché i loop.

Il testo lo cambi nell'evento xxx_Tick del timer.

 

[LucaMs]

Questo è col timer

 

[udg]

Ciao,

concordo con Luca in merito all'utilizzo di un timer.
Ad ogni modo, l'idea era quella di settare zeta in BotEsci_click per uscire dal primo loop di Avvia? In questo caso, ti sei accorto che in Avvia ridefinisci una var zeta locale alla sub?

Umberto

 

[LucaMs]

Ciao,

concordo con Luca in merito all'utilizzo di un timer.
Ad ogni modo, l'idea era quella di settare zeta in BotEsci_click per uscire dal primo loop di Avvia? In questo caso, ti sei accorto che in Avvia ridefinisci una var zeta locale alla sub?

Umberto

Io si, ma dopo aver preparato quello col timer

 

[udg]

eh eh la mano è stata più veloce dell'occhio!

 

[AlpVir]

Perfetto ! La soluzione di LucaMs è proprio quella cercata: utilizzare un timer invece di un loop con il DataTime.
Grazie !!!