Spiegazione per errore script

[pfca]

Buona giornata a tutti, ho la seguente difficoltà con uno script:
se scrivo questa formula,
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))
mi appare il seguente errore:
OverFlow
Error script
6 - OverFlow.
Se invece scrivo:
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4))
non mi appare.
Ringrazio chi mi sa dare indicazioni per superare questa difficoltà.


Francesco

 

[Roby]

Francesco, vorrei aiutarti, ma (non essendo un esperto) così io non capisco nulla, se puoi posta tutto lo script, altrimenti aspetta claudio o qualcun'altro...

Blackmore

 

[keeper]

Posta tutto lo script altrimenti nessuno ti può aiutare
X black hai fatto caso che gli script del superenalotto di cupido si fermano all'estrazione di aprile?

 

[Roby]

Keeper, è per questo che io lo volevo convertire per L8, perché con spaziometria mi si fermavano al 28 aprile, credevo che fosse il mio arcinoto problema dell'aggiornamento estrazioni, ma se ce l'hai anche tu......non so cosa pensare
Ma tu il super ce l'hai aggiornato su spaziometria vero?

Blackmore

 

[genlotto]

quote:Originally posted by pfca

Buona giornata a tutti, ho la seguente difficoltà con uno script:
se scrivo questa formula,
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))
mi appare il seguente errore:
OverFlow
Error script
6 - OverFlow.
Se invece scrivo:
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4))
non mi appare.
Ringrazio chi mi sa dare indicazioni per superare questa difficoltà.

Francesco

..l'errore è qui num(r,3) secondo il mio modesto parere... modifica così:

num(1)=Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))

<center>

</center>

 

[Thauk]

@Blackmore & keeper
Nel rar c'è il file BaseDatiSuperEna.Dat l'archivio del super completo e aggiornato al 30.06:

http://s000.tinyupload.com/?file_id=39828585621609923950

cancellate quello presente nella cartella di spaziometria e copiate questo.


@pfca
come hanno già scritto, se posti lo script completo vediamo di aiutarti.

ciauz


Fortuna non omnibus aeque.

 

[Enplein]

quote:num(r,3)= Fuori90(Fuori90 (Estratto(n,r,1)*Estratto(n,r,2))*Fuori90 (Estratto(n,r,3)*Estratto(n,r,4))*Estratto(n,r,5))

Ciao Black, prova con questa formula.

Ciao, Enplein.

 

[pfca]

Grazie a tutti per l'interessamento,
ho risolto utilizzando quanto suggerito da Enplein.


Francesco

 

[Roby]

quote:Originally posted by Enplein

quote:num(r,3)= Fuori90(Fuori90 (Estratto(n,r,1)*Estratto(n,r,2))*Fuori90 (Estratto(n,r,3)*Estratto(n,r,4))*Estratto(n,r,5))

Ciao Black, prova con questa formula.

Ciao, Enplein.

Grazie Enplein, ma non ero io, bensì pfca, comunque grazie a te ha risolto per cui grazie lo stesso

Blackmore

 

[esselotto]

ho provato con il seguente esempio

Sub Main
r=1
n=EstrazioneFin
For r= 1 To 10
num=Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))
Scrivi num
Next
End Sub


senza dividere la riga (cioè la formula ) come ha fatto emplein e funziona lo stesso
quindi.

Perchè non provi a inserire tutto lo script
Perchè a me quello sbaglio non l'ho dà.[?]

overFlow (sei andato oltre il limite in qualcosa)

 

[pfca]

CIao Esselotto,
ti posto lo script, ma come potrai vedere la variazione di Enplein funziona, non credo ci siano altri problemi:

Sub Main
ini = EstrazioneFin - 200
es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
For n = ini To EstrazioneFin
ReDim num(10,4)
ReDim m(2)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
For r = 1 To 10
num(r,1) = r
num(r,2) = Fuori90(SommaEstratti(n,r))
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*(Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))
'num(r,3)= Fuori90(Fuori90 (Estratto(n,r,1)*Estratto(n,r,2))*Fuori90 (Estratto(n,r,3)*Estratto(n,r,4))*Estratto(n,r,5)) 'Modifica Enplein
Scrivi FormatSpace(DataEstrazione,10) & " " & FormatSpace(NomeRuota(r),10) & " somma: " & FormatSpace(num(r,2),2) & " prod: " & FormatSpace(num(r,3),2)
Next
m(1) = num(1,2)
m(2) = num(1,3)
End If
Next
End Sub

Francesco

 

[claudio8]

Ques formula è mancante di una ")" e lo script te la richiede

num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*(Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5)) quindi manca 1 )

ultest è una variabile senza alcun riferimento, che in questo script non ha nessun valore.
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[esselotto]

Come vedi avevo ragione quell'errore non lo dà senza modifica di emplein.

30.03.2010 Bari       somma: 77 prod: 90
30.03.2010 Cagliari   somma: 6  prod: 90
30.03.2010 Firenze    somma: 54 prod: 18
30.03.2010 Genova     somma: 37 prod: 90
30.03.2010 Milano     somma: 54 prod: 36
30.03.2010 Napoli     somma: 51 prod: 90
30.03.2010 Palermo    somma: 14 prod: 36
30.03.2010 Roma       somma: 43 prod: 36
30.03.2010 Torino     somma: 48 prod: 48
30.03.2010 Venezia    somma: 75 prod: 24
29.04.2010 Bari       somma: 74 prod: 50
29.04.2010 Cagliari   somma: 6  prod: 90
29.04.2010 Firenze    somma: 65 prod: 72
29.04.2010 Genova     somma: 49 prod: 90
29.04.2010 Milano     somma: 20 prod: 90
29.04.2010 Napoli     somma: 84 prod: 90
29.04.2010 Palermo    somma: 61 prod: 90
29.04.2010 Roma       somma: 55 prod: 40
29.04.2010 Torino     somma: 86 prod: 90
29.04.2010 Venezia    somma: 61 prod: 40
29.05.2010 Bari       somma: 54 prod: 36
29.05.2010 Cagliari   somma: 11 prod: 81
29.05.2010 Firenze    somma: 5  prod: 72
29.05.2010 Genova     somma: 89 prod: 60
29.05.2010 Milano     somma: 26 prod: 60
29.05.2010 Napoli     somma: 24 prod: 30
29.05.2010 Palermo    somma: 29 prod: 36
29.05.2010 Roma       somma: 89 prod: 90
29.05.2010 Torino     somma: 33 prod: 90
29.05.2010 Venezia    somma: 43 prod: 90
29.06.2010 Bari       somma: 5  prod: 30
29.06.2010 Cagliari   somma: 69 prod: 90
29.06.2010 Firenze    somma: 34 prod: 90
29.06.2010 Genova     somma: 80 prod: 30
29.06.2010 Milano     somma: 63 prod: 58
29.06.2010 Napoli     somma: 27 prod: 54
29.06.2010 Palermo    somma: 7  prod: 69
29.06.2010 Roma       somma: 56 prod: 90
29.06.2010 Torino     somma: 57 prod: 18
29.06.2010 Venezia    somma: 23 prod: 20
31.07.2010 Bari       somma: 88 prod: 52
31.07.2010 Cagliari   somma: 74 prod: 48
31.07.2010 Firenze    somma: 59 prod: 48
31.07.2010 Genova     somma: 56 prod: 60
31.07.2010 Milano     somma: 18 prod: 60
31.07.2010 Napoli     somma: 43 prod: 90
31.07.2010 Palermo    somma: 60 prod: 90
31.07.2010 Roma       somma: 14 prod: 36
31.07.2010 Torino     somma: 53 prod: 36
31.07.2010 Venezia    somma: 71 prod: 60
31.08.2010 Bari       somma: 71 prod: 72
31.08.2010 Cagliari   somma: 33 prod: 54
31.08.2010 Firenze    somma: 77 prod: 90
31.08.2010 Genova     somma: 11 prod: 45
31.08.2010 Milano     somma: 26 prod: 84
31.08.2010 Napoli     somma: 44 prod: 36
31.08.2010 Palermo    somma: 8  prod: 44
31.08.2010 Roma       somma: 36 prod: 90
31.08.2010 Torino     somma: 80 prod: 90
31.08.2010 Venezia    somma: 8  prod: 86
30.09.2010 Bari       somma: 35 prod: 30
30.09.2010 Cagliari   somma: 2  prod: 18
30.09.2010 Firenze    somma: 57 prod: 90
30.09.2010 Genova     somma: 17 prod: 20
30.09.2010 Milano     somma: 79 prod: 40
30.09.2010 Napoli     somma: 76 prod: 90
30.09.2010 Palermo    somma: 79 prod: 52
30.09.2010 Roma       somma: 36 prod: 90
30.09.2010 Torino     somma: 25 prod: 90
30.09.2010 Venezia    somma: 49 prod: 30
30.10.2010 Bari       somma: 82 prod: 30
30.10.2010 Cagliari   somma: 63 prod: 90
30.10.2010 Firenze    somma: 13 prod: 80
30.10.2010 Genova     somma: 31 prod: 60
30.10.2010 Milano     somma: 60 prod: 90
30.10.2010 Napoli     somma: 3  prod: 90
30.10.2010 Palermo    somma: 43 prod: 45
30.10.2010 Roma       somma: 12 prod: 60
30.10.2010 Torino     somma: 4  prod: 36
30.10.2010 Venezia    somma: 18 prod: 90
30.11.2010 Bari       somma: 42 prod: 30
30.11.2010 Cagliari   somma: 3  prod: 70
30.11.2010 Firenze    somma: 23 prod: 90
30.11.2010 Genova     somma: 30 prod: 6 
30.11.2010 Milano     somma: 55 prod: 10
30.11.2010 Napoli     somma: 28 prod: 90
30.11.2010 Palermo    somma: 19 prod: 90
30.11.2010 Roma       somma: 36 prod: 90
30.11.2010 Torino     somma: 23 prod: 90
30.11.2010 Venezia    somma: 88 prod: 90
30.12.2010 Bari       somma: 77 prod: 90
30.12.2010 Cagliari   somma: 29 prod: 90
30.12.2010 Firenze    somma: 42 prod: 60
30.12.2010 Genova     somma: 44 prod: 90
30.12.2010 Milano     somma: 16 prod: 18
30.1

 

[esselotto]

Comunque non voglio polemizzare oltre.
e senza nulla togliere a emplein.


Il perchè ho voluto lo script, stà nel fatto che.
Se ad esempio io uso (e ho usato) la seguente forma
per sommare 5 numeri

a=fuori90 (b1+b2+b3+b4+b5) = risultato preciso.
anche se sostituisco l'operatore matematico + con il * (moltiplicazione)
mi dà un risultato preciso senza errori.


Quindi perchè, se io cambio script, e uso la stessa forma per sommare, mi da errore??????

Vuol dire che sbaglio in qualcosa. Ma l'errore non risiede di certo nella formula
a=fuori90 (b1+b2+b3+b4+b5)


E poi per finire. Se io volessi sommare

a=fuori90(b1+b2+b3+b4+b5+b6+b7+b8+b9+b10+b11+b12+b13+....ecc ecc)

troverei difficoltà nel dividere la formula come ha fatto emplein
non ti pare?????

esselotto

 

[esselotto]

Sub Main
ini = EstrazioneFin - 200
es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
For n = ini To EstrazioneFin
ReDim num(10,4)
ReDim m(2)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
For r = 1 To 10
num(r,1) = r
num(r,2) = Fuori90(SommaEstratti(n,r))
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)* Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5))
Scrivi FormatSpace(DataEstrazione(n),10) & " " & FormatSpace(NomeRuota(r),10) & " somma: " & FormatSpace(num(r,2),2) & " prod: " & FormatSpace(num(r,3),2)
Next
m(1) = num(1,2)
m(2) = num(1,3)
End If
Next
End Sub

riprova così sul codice sopra c'erano un paio di parentesi in più
la modifica la puoi togliere anzi già tolta.

 

[pfca]

Un saluto a tutti,
mi dispiace aver creato incomprensioni, ma come in altri post ho scritto,
io in materia sono in fase di apprendimento e chiedevo aiuto per la
diffioltà che trovavo e che non riuscivo a capire.
Il problema se si legge il primo intervento, conteneva tutte le parentesi,
nel copiare poi il listato dopo l'ultima richiesta di esselotto ho
commesso l'errore di trascrizione.
Vi posto il listato originale con l'errore di cui parlavo e come potrete vedere la formula è giusta è l'errore lo da ugualmente.

Sub Main

ini = EstrazioneFin - 100

For n = ini To EstrazioneFin
ReDim num(10,4)
ReDim m(1,7)

For r = 1 To 10
num(r,1) = r 'Ruota
num(r,2) = Fuori90(SommaEstratti(n,r))' Somma
num(r,3) = Fuori90(Estratto(n,r,1)*Estratto(n,r,2)*Estratto(n,r,3)*Estratto(n,r,4)*Estratto(n,r,5)) 'Moltiplicazione
Scrivi FormatSpace(DataEstrazione,10) & " " & FormatSpace(NomeRuota(r),10) & " somma: " & FormatSpace(num(r,2),2) & " prod: " & FormatSpace(num(r,3),2)
Next

Next

End Sub

Se uso quella di esselotto l'errore non lo dà, eppure il listato è uguale. Questo per spiegare la richiesta originale.

Ho scelto il suggerimento di Enplein solo perchè riportava il codice
preciso a quello utilizzato da me e con il copia e incolla era più
semplice, il risultato poi è stato valido, per cui pensavo che fosse un problema legato alla scrittura della formula, come detto stò cercando di imparare. Non volevo offendere nessuno ed infatti ho ringraziato tutti.
Grazie

Francesco

 

[Roby]

Ragazzi, visto che si parla di script volevo chiedervi una cosa, alla 1 del mese facendo girare lo script, non mi appare la nuova previsione, per l'ultima, grazie a Claudio ho fatto così
If indicemensile (es+1)=1 or indicemensile (es+1)=0 then'
Ma per la prima o la seconda etc etc come si fà, ahimè non ho ancora capito....

Blackmore

 

[imported_n/a]

Blakmore, per definire l'ultima estrazione si deve usare solo
if indicemensile(es+1)=1

mentre per definire tutte le altre solo
if indicemensile(es) = 1 -> 1^ estraz.
if indicemensile(es) = 2 -> 2^ estraz.
etc.

Ciao
Mike58

 

[LuigiB]

Ciao ragazzi il motivo dell'errore è che in talune estrazioni
dove ci sono numeri alti il prodotto degli estratti
da un numero troppo alto che non è gestibile.
Non ci sono errori nel codice , come ripeto
la procedura incontra alcuni casi dove per pura
casualita ci sono tutti numeri alti e il prodotto
che si ottiene è troppo alto

ecco degli esempi

Estrazione 8270
 ruota 7 Palermo
Prodotto Estratti 2245320000
+---------008270---------+
Bari        79 23 42 71 44
Cagliari    02 71 50 85 03
Firenze     59 46 66 32 67
Genova      60 88 09 30 65
Milano      52 88 41 65 60
Napoli      10 60 38 03 45
Palermo     84 90 60 75 66
Roma        45 76 07 90 40
Torino      17 74 37 90 09
Venezia     57 27 66 58 73
Nazionale   76 28 90 71 53

Estrazione 8285
 ruota 5 Milano
Prodotto Estratti 2515524000
+---------008285---------+
Bari        13 74 20 33 78
Cagliari    15 12 32 42 25
Firenze     86 34 37 79 61
Genova      71 84 87 18 28
Milano      85 76 75 88 59
Napoli      06 55 31 35 43
Palermo     01 81 66 05 61
Roma        67 84 83 45 78
Torino      54 27 34 63 19
Venezia     45 16 47 28 89
Nazionale   78 74 34 68 53

Estrazione 8303
 ruota 5 Milano
Prodotto Estratti 2534004000
+---------008303---------+
Bari        51 61 50 24 38
Cagliari    72 54 16 22 31
Firenze     84 90 29 09 30
Genova      39 34 38 14 80
Milano      75 79 88 54 90
Napoli      64 87 60 09 50
Palermo     06 76 81 21 05
Roma        81 14 13 40 87
Torino      43 08 10 74 76
Venezia     50 20 30 27 40
Nazionale   83 56 90 09 33

Estrazione 8304
 ruota 4 Genova
Prodotto Estratti 2562398733
+---------008304---------+
Bari        27 56 69 64 76
Cagliari    04 61 69 34 78
Firenze     90 12 35 33 01
Genova      59 79 87 89 71
Milano      24 22 76 30 67
Napoli      36 54 03 44 06
Palermo     18 64 11 53 43
Roma        74 67 12 06 58
Torino      90 22 16 82 53
Venezia     09 15 61 67 84
Nazionale   15 71 05 28 26

 

[pfca]

Grazie Luigi per la spiegazione.



Francesco