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.

A questo punto l'unica è usare una normale variabile stringa, una volta che non viene modificata vale come una costante.
Però è un pò limitativo, anche con il vecchio QB si poteva fare:

CONST false = -1, true = NOT false
Però anche li non era permesso:

CONST cond = CHR$(15)
Quindi mi sa che in ogni caso non ci si poteva fare nulla.

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...

Utile.
Forse riuscirò a far girare sotto Debian il mio dannatissimo scanner Acer.

L'interfaccia è già disegnata quasi tutta, mancano solo un paio di cose, e gli lcd sono già stati assegnati al loro gruppo, vediamo se risolvo usando questa classe LAST.

Se qualcuno è appassionato di ciclismo e si allena per il Sellaronda 2012 me lo faccia sapere.

http://www.sellarondahero.com/

Sei un biker anche tu?
La cosa potrebbe interessarmi, sopratutto il giro in senso antiorario, quello più pedalato.
E' ancora presto per fare programmi ma vedremo più avanti. Magari in Agosto...

Ops, chiedo venia, non avevo letto bene il programma.
Ed un problema è risolto. Domani arriverò con il resto.
Grazie del benvenuto.

Ciao a tutti!
Siccome non esiste una sezione per le presentazioni (strano, perchè non la fate? ) lo faccio qui: mi chiamo Massimo, ho 46 anni e mi diletto in programmazione Basic. Ho cominciato nel lontano '89 con un Commodore 16 (sepolto in soffitta e dovrebbe essere ancora funzionante), erano più i reset che facevo che tutto provando cose strane , poi sono passato al mitico QB 4.5 che uso tuttora ogni tanto, breve puntatina sul VB e da pochi mesi dopo il passaggio da winciof a Debian ho scoperto Gambas, e mi piace parecchio.
Dopo i convenevoli le domande: sto scrivendo una piccola applicazione per segnare e visualizzare i numeri estratti nella tombola, come si fa spesso con i proiettori nelle sagre di paese. Il programma funziona, anche se non l'ho ancora finito, ma vorrei migliorarlo. Per i 90 numeri ho usato le cifre LCD, e per ogni cifra ho scritto la sua routine per gestire il click del mouse (un lavoraccio):

PUBLIC SUB LCD2_MouseDown()
accendi(lcd2)
END

Che a seconda dello stato accende la cifra cambiando il colore di sfondo:

SUB accendi(numero AS lcdnumber)
IF numero.background = &hc0 THEN
   numero.Background = &h80ff00
   ultimo.value = numero.value
ELSE
   numero.Background = &hc0
   ultimo.value = 0
ENDIF
END

ultimo serve a far vedere l'ultimo numero estratto.
Inoltre nel menù c'è una opzione per spegnere tutti i numeri accesi in un colpo solo, ma l'unica maniera che mi è venuta in mente è questa roba:

PUBLIC SUB Azzera_Click()
LCD1.background = &hc0
LCD2.background = &hc0
LCD3.background = &hc0
.
.
.
LCD88.background = &hc0
LCD89.background = &hc0
LCD90.background = &hc0
ultimo.value = 0
END

altro lavoraccio.
Vorrei semplificare il tutto, so che c'è la possibilità di riunire tutti gli LCD in un gruppo, ma non mi è ancora chiaro in che maniera operare. Nel VB c'era la possibilità di creare array di controlli ma qui la storia è differente.
Come posso fare per stabilire dentro nel gruppo quale numero è stato cliccato e accenderlo di conseguenza?
Per Azzera_Click ho già in mente una mezza idea, vediamo se funge.
Per ora questo è tutto, ma non preoccupatevi, arriveranno altre domande.