Lo so che Tic Tac Toe è il programma di riferimento per un button array ...
Ma veramente, veramente non riesco a comprenderlo!
E se una cosa non riesco a comprenderla, mi tocca scopiazzarla ... e la cosa non mi piace!
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Dim Pulsante(1 To 10) As Button
Log("Inizializzazione")
Tecnicamente mi sembrerebbe chiaro:
- Creare la matrice di pulsanti con DIM PULSANTE(X) AS BUTTON
- CREARE IL NOME DEL'EVENTO, DOVE RECUPERARE IL RISULTATO
- INIZIALIZZARE OGNI PULSANTE CON CICLO FOR NEXT
- POSIZIONARLO
LA PROCEDURA ATTUALE MI SEMBRA TROPPO COMPLICATA!
Ma veramente, veramente non riesco a comprenderlo!
E se una cosa non riesco a comprenderla, mi tocca scopiazzarla ... e la cosa non mi piace!
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Dim Pulsante(1 To 10) As Button
Log("Inizializzazione")
B4X:
For a = 1 To 10
Dim p As Button ' Perchè devo ridimensionare una button quando ce l'avevo in Pulsante() ?
p.Initialize(Pulsante) ' a che serve ? A creare l'evento Pulsante ?
p.Text="Pulsante " & a
p.Tag=a
Activity.AddView(p,0%x,(a-1)*100,100%x,10%y)
Next
End Sub
B4X:
Sub Pulsante_click
Dim p As Int ' Non funziona ... ma in qualsiasi caso come sopra perchè ?
p=Sender
End Sub
Tecnicamente mi sembrerebbe chiaro:
- Creare la matrice di pulsanti con DIM PULSANTE(X) AS BUTTON
- CREARE IL NOME DEL'EVENTO, DOVE RECUPERARE IL RISULTATO
- INIZIALIZZARE OGNI PULSANTE CON CICLO FOR NEXT
- POSIZIONARLO
LA PROCEDURA ATTUALE MI SEMBRA TROPPO COMPLICATA!
Last edited: