Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: dex - 10 Novembre 2009, 00:35:00

Titolo: [RISOLTO]Contare centesimi
Inserito da: dex - 10 Novembre 2009, 00:35:00

ciao gente

ho realizzato un piccolo programmino x un mio amico tabaccaio che la sera si stressava a contare tutte le monetine.

solo che non mi conta i centesimi.

vi allego il file ci date un'occhiata per capire dove ho toppato?

Titolo: Re: Contare centesimi
Inserito da: giulio - 10 Novembre 2009, 12:30:11

L'errore è all'inizio quando dichiari un array di Long.
Fai invece:

PRIVATE MVaCon AS Float[15]

e risolvi.

Se dichiari Long un prodotto (0.02 * 5) nell'array viene salvato
solo lo zero, senza i decimali.

Ciao.

Titolo: Re: Contare centesimi
Inserito da: dex - 10 Novembre 2009, 23:12:11

grazie giulio

provvedo a riparare.

Titolo: Re: Contare centesimi
Inserito da: guglielmofede - 02 Gennaio 2010, 11:19:39

SALVE,

ho iniziato da poco e sto guardando tutte le discussiuoni nel forum per Imparare.
Ho visto che il problema è già risolto ma voglio ugualmente dire la mia soluzione.

PUBLIC SUB ValueBox13_Change()
   
   IF IsNumber(ValueBox13.value) THEN
      MVaCon[12] = ValueBox13.value * 5
      TextLabel13.caption = Format(MVaCon[12] / 100, "###,##0.00")
   ELSE
      TextLabel13.caption = ""
   END IF
      ContMoney
   
END


Nell'originale


PUBLIC SUB ValueBox13_Change()
   
   IF IsNumber(ValueBox13.value) THEN
      MVaCon[12] = ValueBox10.value * 0.05
      TextLabel13.caption = Format(MVaCon[12], "###,##0.00")
   ELSE
      TextLabel13.caption = ""
   END IF
      ContMoney
   
END

a parte l'errore di distrazione di "ValueBox10.value" invece di "ValueBox13.value" non ho cambiato "PRIVATE MVaCon AS Long[15]" e funziona !

A Presto......