Tombola

[fsurfing]

che cosa non funziona?

milio ti ha postato un programma bellissimo , non usi quello?

[milio]

E' che forse Top Fuel voleva far funzionare il suo.... se posti i sorgenti ci diamo un'occhiata...

[Top Fuel]

RISOLTOOO!!! Adesso funziona! 
Grande milio!!!
Se un giorno ci incontreremo segnati una birra pagata.
Adesso però c'è il problema che la funzione per spegnere tutti i numeri:

PRIVATE SUB Azzera_Click()
DIM Obj AS Object
  FOR EACH Obj IN ME.Controls
    IF Object.Is(Obj, "LCDNumber") THEN Obj.Background = &hc0
  NEXT
punta = 0
ultimo.value = 0
END

non funziona più.
Ci lavoreremo sopra.
Adesso ulteriore step: la possibilità di scegliere i colori. Preparatevi ad altre domande...

[milio]

Credo che a questo punto, onde evitare equivoci, devi postare i tuoi sorgenti...

[Top Fuel]

Va bene.
Mancano ancora dei pezzi però, e sono rimaste dentro delle cose che ho eliminato.
E' un pò tutto da riordinare, insomma.

[milio]

Codice: [Seleziona]

PRIVATE SUB Azzera_Click() 'per spegnere tutti i numeri

Questo e' un evento generato dal menù... Va dichiarato PUBLIC

Ti ho fatto un po' di cambiamenti per quanto riguarda il tener traccia dell'ultimo numero e ti ho fatto anche l'esempio per come cambiare colori...

[Top Fuel]

Me l'hai ribaltato completamente.
A me bastava una cosa più semplice.
Grazie comunque, integrerò il tutto e poi magari lo proporrò al sito e speriamo che si degnino di pubblicarmelo.

[Top Fuel]

X milio: rieccomi.
Oggi ho provato (finalmente) ad usare la tua versione del programma ma c'è un problema: non funziona...
Il form non si apre e la causa è che continua a ballare dentro a questa routine senza uscirne mai:

PUBLIC SUB Form_Arrange()
DIM Nx AS Integer
DIM H AS Integer
   H = LCD1.H + (panel2.Padding * 2)
   panel2.H = Max(H, 60)
   Ultimo.Move(Ultimo.X, Ultimo.Y, LCD1.W, LCD1.H)
   Label1.Font.Size = 1
   DO
      INC Nx
      IF Label1.Font.Width(Label1.Text) > Label1.W THEN BREAK
      Label1.Font.Size = Nx
   LOOP
   Label1.Font.Size = Nx - 2
END

Non solo dentro il ciclo DO-LOOP ma anche all'inizio.
Adesso proverò a fare una nuova versione con un pò del mio codice unito al tuo (in pratica, un mostro ).

[milio]

Bho...    a me funge benissimo... prova a cambiare il font della label...

[Top Fuel]

O magari sono strano io.
Domani comincio lavorarci su, poi se va te la faccio vedere e mi dici cosa ne pensi.

[Top Fuel]

Sempre per milio: ho fatto qualche adattamento e modifica, adesso funziona come piace a me, poi per fare un pò d'ordine e raggruppare meglio le varie procedure ho provato a mettere le varie Refresh... in un modulo a parte, ma Gambas non le trova. Dove sbaglio?
Al limite riporto tutto nel FMain e morta li.
La SUB Form_Arrange per ora l'ho tolta, magari ci tornerò su più avanti.

[milio]

Hai chiamato il modulo 'Colori'...
ma ho visto che hai anche una voce di menu con lo stesso nome.... 

[Top Fuel]

Ah già, non ci ho pensato! Picio che sono.
Ok, cambio nome al modulo.
Nel frattempo sto pensando ad eventuali miglioramenti, se ne trovo.

[Top Fuel]

Alla fine ho rimesso tutto assieme e ho cancellato il modulo.
Da quello che ho capito in un modulo ci possono stare solo procedure "generiche" che non possono fare riferimento a proprietà del form e degli oggetti, visto che non me le riconosce. Giusto?

[md9327]

Essendo dinamici gli oggetti che crei, non è possibile referenziarli, a meno che tu non:

1) li renda statici
2) li passi alle funzioni dei moduli come parametri di riferimento