[VB6] Restituzione sbagliata valore

[oregon]

Scusa ... ma perche' ti complichi la vita quando hai avuto la risposta?

Il tuo codice diventa *semplicemente*

    Dim pnt(4)
    pnt(1) = 50
    pnt(2) = 86
    pnt(3) = 32
    pnt(4) = 68
    NumeroCheCerchi = 185 + (pnt(1) Mod 18 - 1) * 5 - (pnt(1) + pnt(2) + pnt(3) + pnt(4))
    Print NumeroCheCerchi

Perche' utilizzi altre righe di codice che non ti sono state consigliate?

[Magicolotto]

allora avevo messo in quel modo per fare delle prove

funziona tutto ok pero le somme

(pnt(1) + pnt(2) + pnt(3) + pnt(4))

non l fa la somma , ma praticamente le unisce
50+86+32+68 non da somma 206
ma li scrive
50863268
e mi restituisce quel numerone e mi sballa tutto

[Magicolotto]

forse avviene perche quei valori sono contenuti in delle TEXT?

[Magicolotto]

ok risoltoooooo


grazieeeee a tutti siete magiciii

[oregon]

Ovviamente ....

Se indichi che hai una "matrice" non si pensa ad una matrice di textbox ma a una matrice in memoria (che in realta' e' un vettore ...).

Quindi, per la prossima volta, specifica il tipo di dati/oggetti che utilizzi.

Non sarebbe successo se tu avessi usato i controlli come vanno usati, ovvero, per un textbox

pnt(1).Text

in quanto ti avrebbero subito consigliato

Val(Pnt(1).Text)+Val(Pnt(2).Text)+Val(Pnt(3).Text) +Val(Pnt(4).Text)

e avremmo risparmiato tutti del tempo.

Hai capito perche' *spiegare* bene il problema e' *fondamentale*?

[Magicolotto]

si hocapito, l'sperienza insegna

cmq avevo risolto cosi

Dim ambata As Integer

    ambata = ((185 + ((minp1 - 1) * 5)) - (CInt(pnt(1)) + CInt(pnt(2)) + CInt(pnt(3)) + CInt(pnt(4))))

[oregon]

La CInt puo' andare bene ma impara a scrivere del codice "piu' corretto" ... utilizza esplicitamente la proprietà Text, ovvero

CInt(pnt(1).Text)

E poi ... da dove viene minp1? Ti avevo scritto il codice da usare e *non* c'e' minp1 ... *Non* aggiungere codice inutile! La formula e' semplice e deve essere

ambata = ((185 + ((CInt(pnt(1).Text) - 1) * 5)) - (CInt(pnt(1).Text) + CInt(pnt(2).Text) + CInt(pnt(3).Text) + CInt(pnt(4).Text)))

[Magicolotto]

se la scrivo cosi mi da errore di run time 424

[oregon]

Aspetta un attimo Magicolotto ... cosi' ci fai diventare scemi ...

Allora pnt NON SONO TEXTBOX !

Come hai scritto nella dichiarazione

Dim pnt(4)

quegli elementi SONO dei variant e non dei textbox!

Insomma, a questo punto, fai vedere TUTTO il codice indicando di che TIPO di oggetti si tratta ...

[Magicolotto]

si ma ho risolto

con
ambata dim as integer
e poi cint tutto qui

e va ottimamente