[RISOLTO]Contare centesimi

[dex]

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?

[giulio]

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.

[dex]

grazie giulio

provvedo a riparare.

[guglielmofede]

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