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 SubTecnicamente 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: 
			
		
	
								
								
									
	
								
							
							 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		