Italian Array di Timer, come sapere l'evento di chi è?

Dominex · Mar 30, 2012

Ho un problema, non so come capire quale evento Timer avviene quanto i Timer in questione sono in un Array.

B4X:

Sub Process_Globals
   Dim t0,t1,t2,t3,t4 As Timer
   Dim Timer1() As Timer
End Sub

Sub Pippo
   Timer1= Array As Timer (t0,t1,t2,t3,t4)
   For c = 0 To 4
      Timer1(c).Initialize("Timer1",SetIntervallo)
      Timer1(c).Enabled = True
   Next
End Sub

Con il codice qui sotto non riesco a sapere di chi è l'evento, forse non si può fare perchè il Timer è primo del ".Tag"?

B4X:

Sub Timer1_Tick
   Dim Send As Timer
   Send = Sender
    msgbox (Send,"")
End Sub

Con

timo · Mar 30, 2012

Mi sa che con 5 timer la tua app avrà il record per intasamento e durata minima della batteria
Potresti usarne uno solo, azzerarlo dopo x secondi ed abbinare operazioni a determinati secondi.
(avevo fatto un esempio qua: http://www.b4x.com/forum/basic4android-updates-questions/12319-odometer.html#post69251 )
Non puoi usare dei flags per sapere da dove arriva il comando?

Dominex · Mar 30, 2012

In verità uso già 2 timer a cui volevo aggiungerne altri per funzioni diverse, non sapevo che potessero creare i problemi che mi hai illustrato.

Comunque credo di aver appena trovato la soluzione al problema usando in tutto soltanto 2 timer. Il primo è fondamentale dove contano anche i millesimi di secondo perchè l'intervallo si riduce ad ogni ciclo.

Il secondo invece è meno importante in termini di millisecondi, così potrei ad esempio impostarlo con un intervallo di 250 dove all'interno tramite delle variabili in array creo io gli eventi utilizzando il DateTime.Now.

Ora ci provo. Grazie comunque dell'aiuto.

Dominex · Mar 30, 2012

Una cosa, ma il vecchio comando VB "Int" non c'è in B4A?

Tipo X = Int(Y+Z)

Forse Round(Y+Z)

timo · Mar 30, 2012

Dovreti cercare nell'help sul casting auto.
Ad esempio:

B4X:

Dim a As Float : a= 3.45
Dim b As Int
b=a
Log("b: "&b)

Il log ti da: b=3

Dominex · Mar 31, 2012

OK, ho capito.

Grazie mille.

Jost aus Soest · Mar 31, 2012

Dominex said:
Con il codice qui sotto non riesco a sapere di chi è l'evento, forse non si può fare perchè il Timer è primo del ".Tag"?

B4X:

Sub Timer1_Tick Dim Send As Timer Send = Sender msgbox (Send,"") End Sub

L'idea e' giusta, dobbiamo solo trovare una sostituzione x ".Tag".
Spesso e' possibile modificare l'intervallo un po', per capire quale Timer ha causato l'evento:

B4X:

'Init alcuni Timer:
t0.Interval = 1000 + 0 'ID: 0
t1.Interval = 1000 + 1 'ID: 1
t2.Interval = 1000 + 2 'ID: 2
'...

Sub Timer_Tick

  Dim t As Timer
  Dim ID As Int

  t = Sender
  ID = t.Interval - 1000 'calcolare l'ID
  MsgBox ("Timer# " & ID, "")

End Sub

Jost aus Soest · Mar 31, 2012

Dominex said:
Una cosa, ma il vecchio comando VB "Int" non c'è in B4A?

Anche a me manca il vecchio VB!

In B4A esiste la Floor-Funzione:

B4X:

x = Floor(y + z) 'arrotondare

Una VB-like funzione:

B4X:

Sub CInt(o As Object) As Int
  Return Floor(o)
End Sub

Dominex · Mar 31, 2012

Jost aus Soest said:
L'idea e' giusta, dobbiamo solo trovare una sostituzione x ".Tag".
Spesso e' possibile modificare l'intervallo un po', per capire quale Timer ha causato l'evento:

B4X:

'Init alcuni Timer: t0.Interval = 1000 + 0 'ID: 0 t1.Interval = 1000 + 1 'ID: 1 t2.Interval = 1000 + 2 'ID: 2 '... Sub Timer_Tick Dim t As Timer Dim ID As Int t = Sender ID = t.Interval - 1000 'calcolare l'ID MsgBox ("Timer# " & ID, "") End Sub

Grazie molte del tuo suggerimento, ero però giunto anch'io alla stessa conclusione. Timo però, mi ha fatto riflettere sul fatto se ho davvero bisogno di così tanti Timer. Penso di aver comunque trovato la soluzione che fa al caso mio.

Dato che i Timer dell'array che volevo creare avrebbero un intervallo che comunque per tutti sarebbe un multiplo di 250 ad esempio, creerò un solo Timer con intervallo di 250 appunto dove grazie alla funzione DateTime.Now potrò gestite tutti questi SimilTimer che voglio, anche con intervalli diversi purchè sempre multipli di 250 millisecondi.

Dominex · Mar 31, 2012

Jost aus Soest said:
Anche a me manca il vecchio VB!

In B4A esiste la Floor-Funzione:

B4X:

x = Floor(y + z) 'arrotondare

Una VB-like funzione:

B4X:

Sub CInt(o As Object) As Int Return Floor(o) End Sub

Floor è perfetta! Grazie.

Jost aus Soest · Mar 31, 2012

Dominex said:
Grazie.

Di niente!

Italian Array di Timer, come sapere l'evento di chi è?

Dominex

Active Member

timo

Active Member

Dominex

Active Member

Dominex

Active Member

timo

Active Member

Dominex

Active Member

Jost aus Soest

Active Member

Jost aus Soest

Active Member

Dominex

Active Member

Dominex

Active Member

Jost aus Soest

Active Member

Italian Array di Timer, come sapere l'evento di chi è?

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Active Member

Privacy & Transparency

Privacy & Transparency