Spiegazione per errore script

[esselotto]

quote:Originally posted by 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

Intendi dire un prodotto alto dei numeri, manda in blocco il Fuori90 (Integer credo NO?)

[?][?][?][?][?][?]
esselotto

 

[LuigiB]

il fuori 90 torna un integer ma internamente usa variabili di tipo
variant , il numero è comunque troppo alto anche usando variabili capienti , l'unica è fare il prodotto un numero alla volta e applicando
ad ogni passaggio il fuori90 in modo che ogni prodotto da calcolare
sia al massimo 90 * 90 generando cosi un numero gestibile
ciao !

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
			num(r,3) =1 ' dobbiamo preimpostare ad 1 senno la moltiplicazione tornerebbe 0 
			For j = 1 To 5
				num(r,3) = Moltiplica(num(r,3) ,Estratto(n,r, j))
			Next
			
			
			Scrivi FormatSpace(DataEstrazione(n),10) & " " & FormatSpace(NomeRuota(r),10) & " somma: " & FormatSpace(num(r,2),2) & " prod: " & FormatSpace(num(r,3),2)
			
		Next
	Next
End Sub
Function  Moltiplica (a , b )
	Moltiplica = Fuori90(a) * Fuori90(b)
	
End Function