Italian Array di file

[Roberto Tsolakis]

Esiste qualcosa di migliore che un qualcosa del genre ?

    Colore_Arancione.Initialize(File.DirAssets,"Arancione.png")
    Colore_Azzurro.Initialize(File.DirAssets,"Azzurro.png")
    Colore_Bianco.Initialize(File.DirAssets,"Bianco.png")
    Colore_Blu.Initialize(File.DirAssets,"Blu.png")
    Colore_Giallo.Initialize(File.DirAssets,"Giallo.png")
    Colore_Grigio.Initialize(File.DirAssets,"Grigio.png")
    Colore_Marrone.Initialize(File.DirAssets,"Marrone.png")
    Colore_Nero.Initialize(File.DirAssets,"Nero.png")
    Colore_Rosa.Initialize(File.DirAssets,"Rosa.png")
    Colore_Rosso.Initialize(File.DirAssets,"Rosso.png")
    Colore_Verde.Initialize(File.DirAssets,"Verde.png")
    Colore_Viola.Initialize(File.DirAssets,"Viola.png")

Magari un array dove caricare tutti i file con un indice ?

tipo

Dim Colore(1 to 12) As String
Dim Carica_Colore (1 to 12) as string
Colore = Array As String("Arancione", "Azzurro", "Bianco", ...)
for a = 1 to 12
  Carica_Colore(a).initialize(file.DirAssets,Colore(a) & ".jpg")
next

???

 

[LucaMs]

Provo.

Dim mapColori As Map : mapColori.Initialize
Dim lstColori As List
lstColori.Initialize2(Array As String("Arancione", "Azzurro", "Bianco"))

For i = 0 To lstColori.Size -1
    Dim bmp As Bitmap
    bmp.Initialize(File.DirAssets, lstColori.Get(i) & ".png")
    mapColori.Put(lstColori.Get(i), bmp)
Next

Così avrai una Map che potrai utilizzare in vari modi:

direttamente col nome (magari crei delle costanti) con mapColori.Get("Arancione") o mapColori.Get(COLORI_ARANCIONE) <--- costante stringa
oppure tramite for each
oppure mapColori.GetValueAt(indice) <--- anche qui puoi usare una costante, ma Int

 

[Roberto Tsolakis]

Sei un mago ... punto

 

[LucaMs]

Magari

 

[Roberto Tsolakis]

Mi stai aiutando parecchio ... tant'è che alla fine dovrò menzionarti nella mia APP.
Oneri e onori ... quindi se qualcuno si lamenterà lo manderò da te

 

[Roberto Tsolakis]

Mi deve entrare in mente l'idea di contenitore ...
Del resto erano due anni che non componevo una riga di programma in b4a ... in vb ormai erano 10 anni
In C ... 20 anni !!!

Pensa b4a l'ho comprato due anni fa ... scritto una mezza applicazione ... poi impazzivo con il desiner e chiudevo tutto.
Oggi il desiner lo uso solo per aggiungere le icone dei pulsanti e qualche altro disegno.

 

[LucaMs]

beh, oggi, rispetto a due anni fa, il Designer è migliorato, grazie agli Anchor.

Il problema, come sempre, è dovuto a tutti i diversi screen in circolazione, purtroppo. Se fossero tutti come i televisori, 16:9, sarebbe una meraviglia (infatti è più o meno lo stesso problema di come vedere un vecchio film/programma tv registrato 4:3 sul tv 16:9: o fai lo zoom e perdi una parte dell'immagine, oppure lo vedi con i bordi neri intorno).

 

[Roberto Tsolakis]

Alla fine si vive lo stesso anche con le percentuali
Eccetto che in economia