X mike o chi se la sente

[mastrogino]

vi posto un metodo bellissimo e micidiale se mike o qualcuno se la sentisse di
fare lo script io e penso molti altri vi ringraziamo







1° fase
Si cerca in un'estrazione il numero spia sortito che sia isotopo o doppio e in qualsiasi
ruota , si mettono in gioco le due ambate e ambo sulle ruote sortita la spia e tutte
N°
spia--------------------1°-2°
01= ambate e ambo 38,88,
02= ambate e ambo 67,86,
03= ambate e ambo 06,03,
04= ambate e ambo 35,01,
05= ambate e ambo 64,89,
06= ambate e ambo 03,06,
07= ambate e ambo 32,04,
08= ambate e ambo 61,02,
09= ambate e ambo 90,81,
10= ambate e ambo 29,18,
11= ambate e ambo 47,68
12= ambate e ambo 76,66,
13= ambate e ambo 15,73,
14= ambate e ambo 44,71,
15=ambate e ambo 73,69,
16= ambate e ambo 12,76,
17= ambate e ambo 41,74,
18= ambate e ambo 70,83,
19=ambate e ambo 09,90,
20= ambate e ambo 38,88,
21= ambate e ambo 56,48,
22= ambate e ambo 85,26,
23= ambate e ambo 24,53,
24= ambate e ambo 53,51,
25= ambate e ambo 82,29,
26= ambate e ambo 21,56,
27= ambate e ambo 50,65,
28= ambate e ambo 79,63,
29= ambate e ambo 18,70,
30= ambate e ambo 47,68,
31=ambate e ambo 65,28,
32=ambate e ambo 04,35,
33=ambate e ambo 33,
34=ambate e ambo 62,31,
35=ambate e ambo 01,38,
36=ambate e ambo 30,47,
37=ambate e ambo 59,45,
38=ambate e ambo 88,23,
39=ambate e ambo 27,50,
40= ambate e ambo 56,48,
41= ambate e ambo 74,08,
42= ambate e ambo 13,15,
43= ambate e ambo 42,13,
44= ambate e ambo 71,11,
45= ambate e ambo 10,29,
46= ambate e ambo 39,27,
47= ambate e ambo 68,25,
48= ambate e ambo 07,32,
49= ambate e ambo 36,30,
50= ambate e ambo 65,28,
51= ambate e ambo 83,58,
52= ambate e ambo 22,85,
53= ambate e ambo 51,83,
54= ambate e ambo 80,02,
55= ambate e ambo 19,09,
56= ambate e ambo 48,07,
57= ambate e ambo 77,05,
58= ambate e ambo 16,12,
59= ambate e ambo 45,10,
60= ambate e ambo 74,08,
61= ambate e ambo 02,67,
62= ambate e ambo 31,65,
63= ambate e ambo 60,74,
64= ambate e ambo 89,52,
65= ambate e ambo 28,79,
66= ambate e ambo 57,77,
67= ambate e ambo 86,55,
68= ambate e ambo 25,82,
69= ambate e ambo 54,80,
70= ambate e ambo 83,58,
71= ambate e ambo 11,47,
72= ambate e ambo 40,56,
73= ambate e ambo 69,54,
74= ambate e ambo 08,61,
75= 37,59, ambate e ambo
76= ambate e ambo 66,57,
77= ambate e ambo 05,64,
78= ambate e ambo 34,62,
79= ambate e ambo 63,60,
80= ambate e ambo 02,67,
81= ambate e ambo 90,81,
82= ambate e ambo 29,18,
83= ambate e ambo 58,16,
84= ambate e ambo 87,84,
85= ambate e ambo 26,21,
86= ambate e ambo 55,19,
87= ambate e ambo 84,87,
88= ambate e ambo 23,24,
89= ambate e ambo 52,22,
90= ambate e ambo 81,90,

2° fase
sommare i 5 estratti sulle due ruote e piu i 5 estratti usate il fuori 90
il 1° numero giocabbile e la spia da cercare nell'elenco e inserire
per terno e superiori …......ovviamente se la spia si trova su piu ruote
si mettono piu numeri in gioco
Esempio fresco fresco
estrazione del 23/02/2013
Palermo 66,81,12,31,89,
roma 44,28,05,72,89,


numero spia 89 = 52,22, numeri da giocare come ambate e ambo su ruote PA.RO e tt
fase 2° per gli abbinamenti


Palermo 66,81,12,31,89,........somma fuori 90 = 09,
roma 44,28,05,72,89,.........somam fuori 90= 58,
58,09, =spie di ricerca




09= ambate e ambo 90,81,
58= ambate e ambo 16,12,


prev.
Ambate e ambo 52,22,
abbinamernti x terno e superiori
compisizione di tipo giocata


52,22,90,81,16,
52,22,90,81,12,


esito caldo caldo.
Al 1° colpo
ambo secco 52,22, a tt
ambo a ruota 52,81, roma
terno a tt in cinquina
52,22,90,




esempio estrazione del 17/01/2013
venezia 34,72,23,38,14,
naziona 14,07,23,55,46,
14 numero spia = 44,71, …....numeri da giocare come ambate e ambo su ruote VE.NZ e tt
( fase 2°) per gli abbinamenti
venezia 34,72,23,38,14, somma fuori 90 = 01
naziona 14,07,23,55,46, somma fuori 90 = 55


01 numero spia 01= ambate e ambo 38,88,
55 numero spia 55= ambate e ambo 19,09,


prev. Ambate e ambo 44,71,
x ambo terno e superiore 38,88,19,09,
compisizione di tipo giocata
44,71,38,88,19,
44,71,38,88,09,


esito
1° colpo -------
2° colpo
ambata 44
ambata 71
ambo secco 44,71,
terno secco 44,71,19,
7° colpo ambo in cinquina 09,44,

 

[Mike58]

Ciao Gioacchino è uno scriptt di semplice costruzione, c'è solo da inserire i 90+90 if then fino a stasera non ho tempo se altri vogliono cimentarsi bene, altrimenti per stasera penso sia pronto.
Solo un punto se mi leggi prima,le spie cercate non devono per forza essere isotope( in caso negativo penso che ci saranno tante condizioni trovate).

ciao Mike

 

[mastrogino]

Ciao Gioacchino è uno scriptt di semplice costruzione, c'è solo da inserire i 90+90 if then fino a stasera non ho tempo se altri vogliono cimentarsi bene, altrimenti per stasera penso sia pronto.
Solo un punto se mi leggi prima,le spie cercate non devono per forza essere isotope( in caso negativo penso che ci saranno tante condizioni trovate).

ciao Mike

ciao mike e grazie per la chiamata ,
facciamolo partire con il numero isotopo e la somam dei 5 estratti sulle due ruote
una volta lanciata e se i riscontri saranno sodisfacenti lo lascimo stare cosi e s emai
inseriremo un opzione ....magari scritta
ciaoo a stasera e grazie di nuovo

 

[Mike58]

Ciao Gio' senti ti ho preparato la bozza di script, e siccome ricordo che hai già provato a cimentarti nel vbscript, ho pensato che potevi completare tu lo script in oggetto.
Devi solo inserire i tanti if then dall 11 al 90 e le rispettive somme secondo la tua tabella.
I calcoli dello script sono già fatti devi solo inserire tu i numeri della tua tabella copiando una alla volta a secondo della tabella.
Lo script darà i numeri giusti solo a tabella terminata. e darà 2 ambata e una sestina( sestina xchè troppo lungo inserire 2 cinquine).

Provaci solo cosi si può imparare a prendere coscienza dello sforzo nel fare uno script.

Ciao Se hai bisogno... ci sono.

Sub Main
    
Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
clp = 9
ini = EstrazioneFin - 280
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58   -  elabora estrazioni..   ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
sommaA = Fuori90 (SommaEstratti(es,r1))
sommaB = Fuori90 (SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 38 : ok = 1
If a = 1 Then ambata(2) = 88 : ok = 1
If a = 1 Then ambi(1) = 38 : ok = 1
If a = 1 Then ambi(2) = 88 : ok = 1

'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 67 : ok = 1
If a = 2 Then ambata(2) = 86 : ok = 1
If a = 2 Then ambi(1) = 67 : ok = 1
If a = 2 Then ambi(2) = 86 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 6 : ok = 1
If a = 3 Then ambata(2) = 3 : ok = 1
If a = 3 Then ambi(1) = 6 : ok = 1
If a = 3 Then ambi(2) = 3 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 35 : ok = 1
If a = 4 Then ambata(2) = 1 : ok = 1
If a = 4 Then ambi(1) = 35 : ok = 1
If a = 4 Then ambi(2) = 1 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 64 : ok = 1
If a = 5 Then ambata(2) = 89 : ok = 1
If a = 5 Then ambi(1) = 64 : ok = 1
If a = 5 Then ambi(2) = 89 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 3 : ok = 1
If a = 6 Then ambata(2) = 6 : ok = 1
If a = 6 Then ambi(1) = 3 : ok = 1
If a = 6 Then ambi(2) = 6 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 32 : ok = 1
If a = 7 Then ambata(2) = 4 : ok = 1
If a = 7 Then ambi(1) = 32 : ok = 1
If a = 7 Then ambi(2) = 4 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 61 : ok = 1
If a = 8 Then ambata(2) = 2 : ok = 1
If a = 8 Then ambi(1) = 61 : ok = 1
If a = 8 Then ambi(2) = 2 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 90 : ok = 1
If a = 9 Then ambata(2) = 81 : ok = 1
If a = 9 Then ambi(1) = 90 : ok = 1
If a = 9 Then ambi(2) = 81 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 29 : ok = 1
If a = 10 Then ambata(2) = 18: ok = 1
If a = 10 Then ambi(1) = 29 : ok = 1
If a = 10 Then ambi(2) = 18 : ok = 1
'--- continuare ad inserire----------




'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 38 : ok = 1
If sommaA = 1 Then ambi(4) = 88 : ok = 1
If sommaB = 1 Then ambi(5) = 38 : ok = 1
If sommaB = 1 Then ambi(6) = 88 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 67 : ok = 1
If sommaA = 2 Then ambi(4) = 86 : ok = 1
If sommaB = 2 Then ambi(5) = 67 : ok = 1
If sommaB = 2 Then ambi(6) = 86 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 6 : ok = 1
If sommaA = 3 Then ambi(4) = 3 : ok = 1
If sommaB = 3 Then ambi(5) = 6 : ok = 1
If sommaB = 3 Then ambi(6) = 3 : ok = 1
'----------- continuare ad inserire ----------












'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione

'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2

Scrivi "Numero Spia " & a & " " &  String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp
ImpostaGiocata 2,ambi,ruote,ptt,clp

Gioca es,1
End If
End If
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0

End Sub

 

[mastrogino]

Ciao Gio' senti ti ho preparato la bozza di script, e siccome ricordo che hai già provato a cimentarti nel vbscript, ho pensato che potevi completare tu lo script in oggetto.
Devi solo inserire i tanti if then dall 11 al 90 e le rispettive somme secondo la tua tabella.
I calcoli dello script sono già fatti devi solo inserire tu i numeri della tua tabella copiando una alla volta a secondo della tabella.
Lo script darà i numeri giusti solo a tabella terminata. e darà 2 ambata e una sestina( sestina xchè troppo lungo inserire 2 cinquine).

Provaci solo cosi si può imparare a prendere coscienza dello sforzo nel fare uno script.

Ciao Se hai bisogno... ci sono.

Sub Main
    
Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
clp = 9
ini = EstrazioneFin - 280
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58   -  elabora estrazioni..   ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
sommaA = Fuori90 (SommaEstratti(es,r1))
sommaB = Fuori90 (SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 38 : ok = 1
If a = 1 Then ambata(2) = 88 : ok = 1
If a = 1 Then ambi(1) = 38 : ok = 1
If a = 1 Then ambi(2) = 88 : ok = 1

'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 67 : ok = 1
If a = 2 Then ambata(2) = 86 : ok = 1
If a = 2 Then ambi(1) = 67 : ok = 1
If a = 2 Then ambi(2) = 86 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 6 : ok = 1
If a = 3 Then ambata(2) = 3 : ok = 1
If a = 3 Then ambi(1) = 6 : ok = 1
If a = 3 Then ambi(2) = 3 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 35 : ok = 1
If a = 4 Then ambata(2) = 1 : ok = 1
If a = 4 Then ambi(1) = 35 : ok = 1
If a = 4 Then ambi(2) = 1 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 64 : ok = 1
If a = 5 Then ambata(2) = 89 : ok = 1
If a = 5 Then ambi(1) = 64 : ok = 1
If a = 5 Then ambi(2) = 89 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 3 : ok = 1
If a = 6 Then ambata(2) = 6 : ok = 1
If a = 6 Then ambi(1) = 3 : ok = 1
If a = 6 Then ambi(2) = 6 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 32 : ok = 1
If a = 7 Then ambata(2) = 4 : ok = 1
If a = 7 Then ambi(1) = 32 : ok = 1
If a = 7 Then ambi(2) = 4 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 61 : ok = 1
If a = 8 Then ambata(2) = 2 : ok = 1
If a = 8 Then ambi(1) = 61 : ok = 1
If a = 8 Then ambi(2) = 2 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 90 : ok = 1
If a = 9 Then ambata(2) = 81 : ok = 1
If a = 9 Then ambi(1) = 90 : ok = 1
If a = 9 Then ambi(2) = 81 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 29 : ok = 1
If a = 10 Then ambata(2) = 18: ok = 1
If a = 10 Then ambi(1) = 29 : ok = 1
If a = 10 Then ambi(2) = 18 : ok = 1
'--- continuare ad inserire----------




'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 38 : ok = 1
If sommaA = 1 Then ambi(4) = 88 : ok = 1
If sommaB = 1 Then ambi(5) = 38 : ok = 1
If sommaB = 1 Then ambi(6) = 88 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 67 : ok = 1
If sommaA = 2 Then ambi(4) = 86 : ok = 1
If sommaB = 2 Then ambi(5) = 67 : ok = 1
If sommaB = 2 Then ambi(6) = 86 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 6 : ok = 1
If sommaA = 3 Then ambi(4) = 3 : ok = 1
If sommaB = 3 Then ambi(5) = 6 : ok = 1
If sommaB = 3 Then ambi(6) = 3 : ok = 1
'----------- continuare ad inserire ----------












'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione

'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2

Scrivi "Numero Spia " & a & " " &  String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp
ImpostaGiocata 2,ambi,ruote,ptt,clp

Gioca es,1
End If
End If
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0

End Sub

grazie 1000 adesso ci provo

 

[mastrogino]

ciao mike alla fine ci sono riuscito
1° domanda si puo inpostare anche l'esito su tt .......???
poiche l'ambo centrale ( l a1° fase) ha una forte percentualita di uscire su tt anche a colpo
vedi questa ..................
estrazione del 23/02/2013
Palermo 66,81,12,31,89,
roma 44,28,05,72,89,
numero spia 89 = 52,22, numeri da giocare come ambate e ambo su ruote PA.RO e tt
fase 2° per gli abbinamenti
Palermo 66,81,12,31,89,........somma fuori 90 = 09,
roma 44,28,05,72,89,.........somam fuori 90= 58,
58,09, =spie di ricerca
09= ambate e ambo 90,81,
58= ambate e ambo 16,12,
prev.
Ambate e ambo 52,22,
abbinamernti x terno e superiori
compisizione di tipo giocata
52,22,90,81,16,
52,22,90,81,12,
esito caldo caldo.
Al 1° colpo
ambo secco 52,22, a tt
ambo a ruota 52,81, roma
terno a tt in cinquina
52,22,90,
mentre lo script da questo
Numero Spia 89 ================================================================= Caso n°882
23.02.2013 PA 66.81.12.31.89 NUMERO SPIA 89 -> Posiz. 5 - Somma Estratti 9
23.02.2013 RO 44.28.05.72.89 NUMERO SPIA 89 -> Posiz. 5 - Somma Estratti 58
---------------------------------------------------------------------------
Estrazione generatrice del pronostico 08656 [ 24 - 23/02/2013]
G 0001
Numeri in gioco : 52.22 su PA RO per Estratto
V N. [52.22 ] [RO] [52 .. .. .. ..] C. 1 Estratto 08657 [ 25 - 26/02/2013]

In corso per altre 8 estrazioni
G 0002
Numeri in gioco : 52.22.90.81.16.02 su PA RO per Ambo,Terno
V N. [52.22.90.81.16.02 ] [RO] [52 81 .. .. ..] C. 1 Ambo 08657 [ 25 - 26/02/2013]


2° domanda si puo inserire l'input della ricerca personalizata del numero ??
cioeee evitando cosi di inserirgli il modo di ricerca molto complessiva di tutti i numeri doppi in un'estrazione ??
3° vedo che fa una ricerca molto lunga si potrebbe cercare i primi 100 estrazioni cosi x farlo piu veloce??
4° vorrei il tuo parere o meglio dove vedo se e buono o no ( oltre al capitale investito ) ??

Sub Main

Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
clp = 9
ini = EstrazioneFin - 280
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58 - elabora estrazioni.. ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
sommaA = Fuori90(SommaEstratti(es,r1))
sommaB = Fuori90(SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 38 : ok = 1
If a = 1 Then ambata(2) = 88 : ok = 1
If a = 1 Then ambi(1) = 38 : ok = 1
If a = 1 Then ambi(2) = 88 : ok = 1

'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 67 : ok = 1
If a = 2 Then ambata(2) = 86 : ok = 1
If a = 2 Then ambi(1) = 67 : ok = 1
If a = 2 Then ambi(2) = 86 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 6 : ok = 1
If a = 3 Then ambata(2) = 3 : ok = 1
If a = 3 Then ambi(1) = 6 : ok = 1
If a = 3 Then ambi(2) = 3 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 35 : ok = 1
If a = 4 Then ambata(2) = 1 : ok = 1
If a = 4 Then ambi(1) = 35 : ok = 1
If a = 4 Then ambi(2) = 1 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 64 : ok = 1
If a = 5 Then ambata(2) = 89 : ok = 1
If a = 5 Then ambi(1) = 64 : ok = 1
If a = 5 Then ambi(2) = 89 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 3 : ok = 1
If a = 6 Then ambata(2) = 6 : ok = 1
If a = 6 Then ambi(1) = 3 : ok = 1
If a = 6 Then ambi(2) = 6 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 32 : ok = 1
If a = 7 Then ambata(2) = 4 : ok = 1
If a = 7 Then ambi(1) = 32 : ok = 1
If a = 7 Then ambi(2) = 4 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 61 : ok = 1
If a = 8 Then ambata(2) = 2 : ok = 1
If a = 8 Then ambi(1) = 61 : ok = 1
If a = 8 Then ambi(2) = 2 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 90 : ok = 1
If a = 9 Then ambata(2) = 81 : ok = 1
If a = 9 Then ambi(1) = 90 : ok = 1
If a = 9 Then ambi(2) = 81 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 29 : ok = 1
If a = 10 Then ambata(2) = 18 : ok = 1
If a = 10 Then ambi(1) = 29 : ok = 1
If a = 10 Then ambi(2) = 18 : ok = 1
'---------------11------------------------
If a = 11 Then ambata(1) = 47 : ok = 1
If a = 11 Then ambata(2) = 68 : ok = 1
If a = 11 Then ambi(1) = 47 : ok = 1
If a = 11 Then ambi(2) = 68 : ok = 1
'---------------12------------------------
If a = 12 Then ambata(1) = 76 : ok = 1
If a = 12 Then ambata(2) = 66 : ok = 1
If a = 12 Then ambi(1) = 76 : ok = 1
If a = 12 Then ambi(2) = 66 : ok = 1
'---------------13 ------------------------
If a = 13 Then ambata(1) = 15 : ok = 1
If a = 13 Then ambata(2) = 73 : ok = 1
If a = 13 Then ambi(1) = 15 : ok = 1
If a = 13 Then ambi(2) = 73 : ok = 1
'---------------14 ------------------------
If a = 14 Then ambata(1) = 44 : ok = 1
If a = 14 Then ambata(2) = 71 : ok = 1
If a = 14 Then ambi(1) = 44 : ok = 1
If a = 14 Then ambi(2) = 71 : ok = 1
'---------------15 ------------------------
If a = 14 Then ambata(1) = 73 : ok = 1
If a = 14 Then ambata(2) = 69 : ok = 1
If a = 14 Then ambi(1) = 73 : ok = 1
If a = 14 Then ambi(2) = 69 : ok = 1
'--------------16 ------------------------
If a = 16 Then ambata(1) = 12 : ok = 1
If a = 16 Then ambata(2) = 76 : ok = 1
If a = 16 Then ambi(1) = 12 : ok = 1
If a = 16 Then ambi(2) = 76 : ok = 1
'--------------17 ------------------------
If a = 17 Then ambata(1) = 41 : ok = 1
If a = 17 Then ambata(2) = 74 : ok = 1
If a = 17 Then ambi(1) = 41 : ok = 1
If a = 17 Then ambi(2) = 74 : ok = 1
'--------------18 ------------------------
If a = 18 Then ambata(1) = 70 : ok = 1
If a = 18 Then ambata(2) = 83 : ok = 1
If a = 18 Then ambi(1) = 70 : ok = 1
If a = 18 Then ambi(2) = 83 : ok = 1
'--------------19 ------------------------
If a = 19 Then ambata(1) = 09 : ok = 1
If a = 19 Then ambata(2) = 90 : ok = 1
If a = 19 Then ambi(1) = 09 : ok = 1
If a = 19 Then ambi(2) = 90 : ok = 1
'--------------20 ------------------------
If a = 20 Then ambata(1) = 38 : ok = 1
If a = 20 Then ambata(2) = 88 : ok = 1
If a = 20 Then ambi(1) = 38 : ok = 1
If a = 20 Then ambi(2) = 88 : ok = 1
'--------------21 ------------------------
If a = 21 Then ambata(1) = 56 : ok = 1
If a = 21 Then ambata(2) = 48 : ok = 1
If a = 21 Then ambi(1) = 56 : ok = 1
If a = 21 Then ambi(2) = 48 : ok = 1
'--------------22 ------------------------
If a = 22 Then ambata(1) = 85 : ok = 1
If a = 22 Then ambata(2) = 26 : ok = 1
If a = 22 Then ambi(1) = 85 : ok = 1
If a = 22 Then ambi(2) = 26 : ok = 1
'--------------23 ------------------------
If a = 23 Then ambata(1) = 24 : ok = 1
If a = 23 Then ambata(2) = 53 : ok = 1
If a = 23 Then ambi(1) = 24 : ok = 1
If a = 23 Then ambi(2) = 53 : ok = 1
'--------------24 ------------------------
If a = 24 Then ambata(1) = 53 : ok = 1
If a = 24 Then ambata(2) = 51 : ok = 1
If a = 24 Then ambi(1) = 53 : ok = 1
If a = 24 Then ambi(2) = 51 : ok = 1
'--------------25 ------------------------
If a = 25 Then ambata(1) = 82 : ok = 1
If a = 25 Then ambata(2) = 29 : ok = 1
If a = 25 Then ambi(1) = 82 : ok = 1
If a = 25 Then ambi(2) = 29 : ok = 1
'--------------26 ------------------------
If a = 26 Then ambata(1) = 21 : ok = 1
If a = 26 Then ambata(2) = 56 : ok = 1
If a = 26 Then ambi(1) = 21 : ok = 1
If a = 26 Then ambi(2) = 56 : ok = 1
'--------------27 ------------------------
If a = 27 Then ambata(1) = 50 : ok = 1
If a = 27 Then ambata(2) = 65 : ok = 1
If a = 27 Then ambi(1) = 50 : ok = 1
If a = 27 Then ambi(2) = 65 : ok = 1
'--------------28 ------------------------
If a = 28 Then ambata(1) = 79 : ok = 1
If a = 28 Then ambata(2) = 63 : ok = 1
If a = 28 Then ambi(1) = 79 : ok = 1
If a = 28 Then ambi(2) = 63 : ok = 1
'--------------29 ------------------------
If a = 29 Then ambata(1) = 18 : ok = 1
If a = 29 Then ambata(2) = 70 : ok = 1
If a = 29 Then ambi(1) = 18 : ok = 1
If a = 29 Then ambi(2) = 70 : ok = 1
'--------------30 ------------------------
If a = 30 Then ambata(1) = 47 : ok = 1
If a = 30 Then ambata(2) = 68 : ok = 1
If a = 30 Then ambi(1) = 47 : ok = 1
If a = 30 Then ambi(2) = 68 : ok = 1
'--------------31 ------------------------
If a = 31 Then ambata(1) = 65 : ok = 1
If a = 31 Then ambata(2) = 28 : ok = 1
If a = 31 Then ambi(1) = 65 : ok = 1
If a = 31 Then ambi(2) = 28 : ok = 1
'--------------32 ------------------------
If a = 32 Then ambata(1) = 04 : ok = 1
If a = 32 Then ambata(2) = 35 : ok = 1
If a = 32 Then ambi(1) = 04 : ok = 1
If a = 32 Then ambi(2) = 35 : ok = 1
'--------------33 ------------------------
If a = 33 Then ambata(1) = 33 : ok = 1
If a = 33 Then ambata(2) = 33 : ok = 1
If a = 33 Then ambi(1) = 33 : ok = 1
If a = 33 Then ambi(2) = 33 : ok = 1
'--------------34 ------------------------
If a = 34 Then ambata(1) = 62 : ok = 1
If a = 34 Then ambata(2) = 31 : ok = 1
If a = 34 Then ambi(1) = 62 : ok = 1
If a = 34 Then ambi(2) = 31 : ok = 1
'--------------35 ------------------------
If a = 35 Then ambata(1) = 01 : ok = 1
If a = 35 Then ambata(2) = 38 : ok = 1
If a = 35 Then ambi(1) = 01 : ok = 1
If a = 35 Then ambi(2) = 38 : ok = 1
'--------------36 ------------------------
If a = 36 Then ambata(1) = 30 : ok = 1
If a = 36 Then ambata(2) = 47 : ok = 1
If a = 36 Then ambi(1) = 30 : ok = 1
If a = 36 Then ambi(2) = 47 : ok = 1
'--------------37 ------------------------
If a = 37 Then ambata(1) = 59 : ok = 1
If a = 37 Then ambata(2) = 45 : ok = 1
If a = 37 Then ambi(1) = 59 : ok = 1
If a = 37 Then ambi(2) = 45 : ok = 1
'--------------38 ------------------------
If a = 38 Then ambata(1) = 88 : ok = 1
If a = 38 Then ambata(2) = 23 : ok = 1
If a = 38 Then ambi(1) = 88 : ok = 1
If a = 38 Then ambi(2) = 23 : ok = 1
'--------------39 ------------------------
If a = 39 Then ambata(1) = 27 : ok = 1
If a = 39 Then ambata(2) = 50 : ok = 1
If a = 39 Then ambi(1) = 27 : ok = 1
If a = 39 Then ambi(2) = 50 : ok = 1
'--------------40 ------------------------
If a = 40 Then ambata(1) = 56 : ok = 1
If a = 40 Then ambata(2) = 48 : ok = 1
If a = 40 Then ambi(1) = 56 : ok = 1
If a = 40 Then ambi(2) = 48 : ok = 1
'--------------41 ------------------------
If a = 41 Then ambata(1) = 74 : ok = 1
If a = 41 Then ambata(2) = 08 : ok = 1
If a = 41 Then ambi(1) = 74 : ok = 1
If a = 41 Then ambi(2) = 08 : ok = 1
'--------------42 ------------------------
If a = 42 Then ambata(1) = 13 : ok = 1
If a = 42 Then ambata(2) = 15 : ok = 1
If a = 42 Then ambi(1) = 13 : ok = 1
If a = 42 Then ambi(2) = 15 : ok = 1
'--------------43 ------------------------
If a = 43 Then ambata(1) = 42 : ok = 1
If a = 43 Then ambata(2) = 13 : ok = 1
If a = 43 Then ambi(1) = 42 : ok = 1
If a = 43 Then ambi(2) = 13 : ok = 1
'--------------44 ------------------------
If a = 44 Then ambata(1) = 71 : ok = 1
If a = 44 Then ambata(2) = 11 : ok = 1
If a = 44 Then ambi(1) = 71 : ok = 1
If a = 44 Then ambi(2) = 11 : ok = 1
'--------------45 ------------------------
If a = 45 Then ambata(1) = 10 : ok = 1
If a = 45 Then ambata(2) = 29 : ok = 1
If a = 45 Then ambi(1) = 10 : ok = 1
If a = 45 Then ambi(2) = 29 : ok = 1
'--------------46 ------------------------
If a = 46 Then ambata(1) = 39 : ok = 1
If a = 46 Then ambata(2) = 27 : ok = 1
If a = 46 Then ambi(1) = 39 : ok = 1
If a = 46 Then ambi(2) = 27 : ok = 1
'--------------47 ------------------------
If a = 47 Then ambata(1) = 68 : ok = 1
If a = 47 Then ambata(2) = 25 : ok = 1
If a = 47 Then ambi(1) = 68 : ok = 1
If a = 47 Then ambi(2) = 25 : ok = 1
'--------------48 ------------------------
If a = 48 Then ambata(1) = 07 : ok = 1
If a = 48 Then ambata(2) = 32 : ok = 1
If a = 48 Then ambi(1) = 07 : ok = 1
If a = 48 Then ambi(2) = 32 : ok = 1
'--------------49 ------------------------
If a = 49 Then ambata(1) = 36 : ok = 1
If a = 49 Then ambata(2) = 30 : ok = 1
If a = 49 Then ambi(1) = 36 : ok = 1
If a = 49 Then ambi(2) = 30 : ok = 1
'--------------50 ------------------------
If a = 50 Then ambata(1) = 65 : ok = 1
If a = 50 Then ambata(2) = 28 : ok = 1
If a = 50 Then ambi(1) = 65 : ok = 1
If a = 50 Then ambi(2) = 28 : ok = 1
'--------------51 ------------------------
If a = 51 Then ambata(1) = 83 : ok = 1
If a = 51 Then ambata(2) = 58 : ok = 1
If a = 51 Then ambi(1) = 83 : ok = 1
If a = 51 Then ambi(2) = 58 : ok = 1
'--------------52 ------------------------
If a = 52 Then ambata(1) = 22 : ok = 1
If a = 52 Then ambata(2) = 85 : ok = 1
If a = 52 Then ambi(1) = 22 : ok = 1
If a = 52 Then ambi(2) = 85 : ok = 1
'--------------53 ------------------------
If a = 53 Then ambata(1) = 51 : ok = 1
If a = 53 Then ambata(2) = 83 : ok = 1
If a = 53 Then ambi(1) = 51 : ok = 1
If a = 53 Then ambi(2) = 83 : ok = 1
'--------------54 ------------------------
If a = 54 Then ambata(1) = 80 : ok = 1
If a = 54 Then ambata(2) = 02 : ok = 1
If a = 54 Then ambi(1) = 80 : ok = 1
If a = 54 Then ambi(2) = 02 : ok = 1
'--------------55 ------------------------
If a = 55 Then ambata(1) = 19 : ok = 1
If a = 55 Then ambata(2) = 09 : ok = 1
If a = 55 Then ambi(1) = 19 : ok = 1
If a = 55 Then ambi(2) = 09 : ok = 1
'--------------56 ------------------------
If a = 56 Then ambata(1) = 48 : ok = 1
If a = 56 Then ambata(2) = 07 : ok = 1
If a = 56 Then ambi(1) = 48 : ok = 1
If a = 56 Then ambi(2) = 07 : ok = 1
'--------------57 ------------------------
If a = 57 Then ambata(1) = 77 : ok = 1
If a = 57 Then ambata(2) = 05 : ok = 1
If a = 57 Then ambi(1) = 77 : ok = 1
If a = 57 Then ambi(2) = 05 : ok = 1
'--------------58 ------------------------
If a = 58 Then ambata(1) = 16 : ok = 1
If a = 58 Then ambata(2) = 12 : ok = 1
If a = 58 Then ambi(1) = 16 : ok = 1
If a = 58 Then ambi(2) = 12 : ok = 1
'--------------59 ------------------------
If a = 59 Then ambata(1) = 45 : ok = 1
If a = 59 Then ambata(2) = 10 : ok = 1
If a = 59 Then ambi(1) = 45 : ok = 1
If a = 59 Then ambi(2) = 10 : ok = 1
'--------------60 ------------------------
If a = 60 Then ambata(1) = 74 : ok = 1
If a = 60 Then ambata(2) = 08 : ok = 1
If a = 60 Then ambi(1) = 74 : ok = 1
If a = 60 Then ambi(2) = 08 : ok = 1
'--------------61 ------------------------
If a = 61 Then ambata(1) = 02 : ok = 1
If a = 61 Then ambata(2) = 67 : ok = 1
If a = 61 Then ambi(1) = 02 : ok = 1
If a = 61 Then ambi(2) = 67 : ok = 1
'--------------62 ------------------------
If a = 62 Then ambata(1) = 31 : ok = 1
If a = 62 Then ambata(2) = 65 : ok = 1
If a = 62 Then ambi(1) = 31 : ok = 1
If a = 62 Then ambi(2) = 65 : ok = 1
'--------------63 ------------------------
If a = 63 Then ambata(1) = 60 : ok = 1
If a = 63 Then ambata(2) = 74 : ok = 1
If a = 63 Then ambi(1) = 60 : ok = 1
If a = 63 Then ambi(2) = 74 : ok = 1
'--------------64 ------------------------
If a = 64 Then ambata(1) = 89 : ok = 1
If a = 64 Then ambata(2) = 52 : ok = 1
If a = 64 Then ambi(1) = 89 : ok = 1
If a = 64 Then ambi(2) = 52 : ok = 1
'--------------65 ------------------------
If a = 65 Then ambata(1) = 28 : ok = 1
If a = 65 Then ambata(2) = 79 : ok = 1
If a = 65 Then ambi(1) = 28 : ok = 1
If a = 65 Then ambi(2) = 79 : ok = 1
'--------------66 ------------------------
If a = 66 Then ambata(1) = 57 : ok = 1
If a = 66 Then ambata(2) = 77 : ok = 1
If a = 66 Then ambi(1) = 57 : ok = 1
If a = 66 Then ambi(2) = 77 : ok = 1
'--------------67 ------------------------
If a = 67 Then ambata(1) = 86 : ok = 1
If a = 67 Then ambata(2) = 55 : ok = 1
If a = 67 Then ambi(1) = 86 : ok = 1
If a = 67 Then ambi(2) = 55 : ok = 1
'--------------68 ------------------------
If a = 68 Then ambata(1) = 25 : ok = 1
If a = 68 Then ambata(2) = 82 : ok = 1
If a = 68 Then ambi(1) = 25 : ok = 1
If a = 68 Then ambi(2) = 82 : ok = 1
'--------------69 ------------------------
If a = 69 Then ambata(1) = 54 : ok = 1
If a = 69 Then ambata(2) = 80 : ok = 1
If a = 69 Then ambi(1) = 54 : ok = 1
If a = 69 Then ambi(2) = 50 : ok = 1
'--------------70 ------------------------
If a = 70 Then ambata(1) = 83 : ok = 1
If a = 70 Then ambata(2) = 58 : ok = 1
If a = 70 Then ambi(1) = 83 : ok = 1
If a = 70 Then ambi(2) = 58 : ok = 1
'--------------71 ------------------------
If a = 71 Then ambata(1) = 11 : ok = 1
If a = 71 Then ambata(2) = 47 : ok = 1
If a = 71 Then ambi(1) = 11 : ok = 1
If a = 71 Then ambi(2) = 47 : ok = 1
'--------------72 ------------------------
If a = 72 Then ambata(1) = 40 : ok = 1
If a = 72 Then ambata(2) = 56 : ok = 1
If a = 72 Then ambi(1) = 40 : ok = 1
If a = 72 Then ambi(2) = 56 : ok = 1
'--------------73 ------------------------
If a = 73 Then ambata(1) = 69 : ok = 1
If a = 73 Then ambata(2) = 54 : ok = 1
If a = 73 Then ambi(1) = 69 : ok = 1
If a = 73 Then ambi(2) = 54 : ok = 1
'--------------74 ------------------------
If a = 74 Then ambata(1) = 08 : ok = 1
If a = 74 Then ambata(2) = 61 : ok = 1
If a = 74 Then ambi(1) = 08 : ok = 1
If a = 74 Then ambi(2) = 61 : ok = 1
'--------------75 ------------------------
If a = 75 Then ambata(1) = 37 : ok = 1
If a = 75 Then ambata(2) = 59 : ok = 1
If a = 75 Then ambi(1) = 37 : ok = 1
If a = 75 Then ambi(2) = 59 : ok = 1
'--------------76 ------------------------
If a = 76 Then ambata(1) = 66 : ok = 1
If a = 76 Then ambata(2) = 57 : ok = 1
If a = 76 Then ambi(1) = 66 : ok = 1
If a = 76 Then ambi(2) = 57 : ok = 1
'--------------77 ------------------------
If a = 77 Then ambata(1) = 05 : ok = 1
If a = 77 Then ambata(2) = 64 : ok = 1
If a = 77 Then ambi(1) = 05 : ok = 1
If a = 77 Then ambi(2) = 64 : ok = 1
'--------------78 ------------------------
If a = 78 Then ambata(1) = 34 : ok = 1
If a = 78 Then ambata(2) = 62 : ok = 1
If a = 78 Then ambi(1) = 34 : ok = 1
If a = 78 Then ambi(2) = 62 : ok = 1
'--------------79 ------------------------
If a = 79 Then ambata(1) = 63 : ok = 1
If a = 79 Then ambata(2) = 60 : ok = 1
If a = 79 Then ambi(1) = 63 : ok = 1
If a = 79 Then ambi(2) = 60 : ok = 1
'--------------80 ------------------------
If a = 80 Then ambata(1) = 02 : ok = 1
If a = 80 Then ambata(2) = 67 : ok = 1
If a = 80 Then ambi(1) = 02 : ok = 1
If a = 80 Then ambi(2) = 67 : ok = 1
'--------------81 ------------------------
If a = 81 Then ambata(1) = 90 : ok = 1
If a = 81 Then ambata(2) = 81 : ok = 1
If a = 81 Then ambi(1) = 90 : ok = 1
If a = 81 Then ambi(2) = 81 : ok = 1
'--------------82 ------------------------
If a = 82 Then ambata(1) = 29 : ok = 1
If a = 82 Then ambata(2) = 18 : ok = 1
If a = 82 Then ambi(1) = 29 : ok = 1
If a = 82 Then ambi(2) = 18 : ok = 1
'--------------83 ------------------------
If a = 83 Then ambata(1) = 58 : ok = 1
If a = 83 Then ambata(2) = 16 : ok = 1
If a = 83 Then ambi(1) = 58 : ok = 1
If a = 83 Then ambi(2) = 16 : ok = 1
'--------------84 ------------------------
If a = 84 Then ambata(1) = 87 : ok = 1
If a = 84 Then ambata(2) = 84 : ok = 1
If a = 84 Then ambi(1) = 87 : ok = 1
If a = 84 Then ambi(2) = 84 : ok = 1
'--------------85 ------------------------
If a = 85 Then ambata(1) = 26 : ok = 1
If a = 85 Then ambata(2) = 21 : ok = 1
If a = 85 Then ambi(1) = 26 : ok = 1
If a = 85 Then ambi(2) = 21 : ok = 1
'--------------86 ------------------------
If a = 86 Then ambata(1) = 55 : ok = 1
If a = 86 Then ambata(2) = 19 : ok = 1
If a = 86 Then ambi(1) = 55 : ok = 1
If a = 86 Then ambi(2) = 19 : ok = 1
'--------------87 ------------------------
If a = 87 Then ambata(1) = 84 : ok = 1
If a = 87 Then ambata(2) = 87 : ok = 1
If a = 87 Then ambi(1) = 84 : ok = 1
If a = 87 Then ambi(2) = 87 : ok = 1
'--------------88 ------------------------
If a = 88 Then ambata(1) = 23 : ok = 1
If a = 88 Then ambata(2) = 24 : ok = 1
If a = 88 Then ambi(1) = 23 : ok = 1
If a = 88 Then ambi(2) = 24 : ok = 1
'--------------89 ------------------------
If a = 89 Then ambata(1) = 52 : ok = 1
If a = 89 Then ambata(2) = 22 : ok = 1
If a = 89 Then ambi(1) = 52 : ok = 1
If a = 89 Then ambi(2) = 22 : ok = 1
'--------------90 ------------------------
If a = 90 Then ambata(1) = 81 : ok = 1
If a = 90 Then ambata(2) = 90 : ok = 1
If a = 90 Then ambi(1) = 81 : ok = 1
If a = 90 Then ambi(2) = 90 : ok = 1






'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 38 : ok = 1
If sommaA = 1 Then ambi(4) = 88 : ok = 1
If sommaB = 1 Then ambi(5) = 38 : ok = 1
If sommaB = 1 Then ambi(6) = 88 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 67 : ok = 1
If sommaA = 2 Then ambi(4) = 86 : ok = 1
If sommaB = 2 Then ambi(5) = 67 : ok = 1
If sommaB = 2 Then ambi(6) = 86 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 6 : ok = 1
If sommaA = 3 Then ambi(4) = 3 : ok = 1
If sommaB = 3 Then ambi(5) = 6 : ok = 1
If sommaB = 3 Then ambi(6) = 3 : ok = 1
'-------4 --------------------------------
If sommaA = 4 Then ambi(3) = 35 : ok = 1
If sommaA = 4 Then ambi(4) = 01 : ok = 1
If sommaB = 4 Then ambi(5) = 35 : ok = 1
If sommaB = 4 Then ambi(6) = 01 : ok = 1
'----- 5-----------------------------------
If sommaA = 5 Then ambi(3) = 64 : ok = 1
If sommaA = 5 Then ambi(4) = 89 : ok = 1
If sommaB = 5 Then ambi(5) = 64 : ok = 1
If sommaB = 5 Then ambi(6) = 89 : ok = 1
'----- 6-----------------------------------
If sommaA = 6 Then ambi(3) = 03 : ok = 1
If sommaA = 6 Then ambi(4) = 06 : ok = 1
If sommaB = 6 Then ambi(5) = 03 : ok = 1
If sommaB = 6 Then ambi(6) = 06 : ok = 1
'-------7 --------------------------------
If sommaA = 7 Then ambi(3) = 09 : ok = 1
If sommaA = 7 Then ambi(4) = 90 : ok = 1
If sommaB = 7 Then ambi(5) = 09 : ok = 1
If sommaB = 7 Then ambi(6) = 90 : ok = 1
'----- 8-----------------------------------
If sommaA = 8 Then ambi(3) = 61 : ok = 1
If sommaA = 8 Then ambi(4) = 02 : ok = 1
If sommaB = 8 Then ambi(5) = 61 : ok = 1
If sommaB = 8 Then ambi(6) = 02 : ok = 1
'----- 9-----------------------------------
If sommaA = 9 Then ambi(3) = 90 : ok = 1
If sommaA = 9 Then ambi(4) = 81 : ok = 1
If sommaB = 9 Then ambi(5) = 90 : ok = 1
If sommaB = 9 Then ambi(6) = 81 : ok = 1
'-------10 --------------------------------
If sommaA = 10 Then ambi(3) = 29 : ok = 1
If sommaA = 10 Then ambi(4) = 18 : ok = 1
If sommaB = 10 Then ambi(5) = 29 : ok = 1
If sommaB = 10 Then ambi(6) = 18 : ok = 1
'----- 11-----------------------------------
If sommaA = 11 Then ambi(3) = 47 : ok = 1
If sommaA = 11 Then ambi(4) = 68 : ok = 1
If sommaB = 11 Then ambi(5) = 47 : ok = 1
If sommaB = 11 Then ambi(6) = 68 : ok = 1
'----- 12-----------------------------------
If sommaA = 12 Then ambi(3) = 76 : ok = 1
If sommaA = 12 Then ambi(4) = 66 : ok = 1
If sommaB = 12 Then ambi(5) = 76 : ok = 1
If sommaB = 12 Then ambi(6) = 66 : ok = 1
'-------13 --------------------------------
If sommaA = 13 Then ambi(3) = 15 : ok = 1
If sommaA = 13 Then ambi(4) = 73 : ok = 1
If sommaB = 13 Then ambi(5) = 15 : ok = 1
If sommaB = 13 Then ambi(6) = 73 : ok = 1
'----- 14-----------------------------------
If sommaA = 14 Then ambi(3) = 44 : ok = 1
If sommaA = 14 Then ambi(4) = 71 : ok = 1
If sommaB = 14 Then ambi(5) = 44 : ok = 1
If sommaB = 14 Then ambi(6) = 71 : ok = 1
'----- 15-----------------------------------
If sommaA = 15 Then ambi(3) = 73 : ok = 1
If sommaA = 15 Then ambi(4) = 69 : ok = 1
If sommaB = 15 Then ambi(5) = 73 : ok = 1
If sommaB = 15 Then ambi(6) = 69 : ok = 1
'----- 16-----------------------------------
If sommaA = 16 Then ambi(3) = 12 : ok = 1
If sommaA = 16 Then ambi(4) = 76 : ok = 1
If sommaB = 16 Then ambi(5) = 12 : ok = 1
If sommaB = 16 Then ambi(6) = 76 : ok = 1
'----- 17-----------------------------------
If sommaA = 17 Then ambi(3) = 41 : ok = 1
If sommaA = 17 Then ambi(4) = 74 : ok = 1
If sommaB = 17 Then ambi(5) = 41 : ok = 1
If sommaB = 17 Then ambi(6) = 74 : ok = 1
'-------18 --------------------------------
If sommaA = 18 Then ambi(3) = 70 : ok = 1
If sommaA = 18 Then ambi(4) = 83 : ok = 1
If sommaB = 18 Then ambi(5) = 70 : ok = 1
If sommaB = 18 Then ambi(6) = 83 : ok = 1
'----- 19-----------------------------------
If sommaA = 19 Then ambi(3) = 09 : ok = 1
If sommaA = 19 Then ambi(4) = 90 : ok = 1
If sommaB = 19 Then ambi(5) = 09 : ok = 1
If sommaB = 19 Then ambi(6) = 90 : ok = 1
'----- 20-----------------------------------
If sommaA = 20 Then ambi(3) = 38 : ok = 1
If sommaA = 20 Then ambi(4) = 88 : ok = 1
If sommaB = 20 Then ambi(5) = 38 : ok = 1
If sommaB = 20 Then ambi(6) = 88 : ok = 1
'-------21 --------------------------------
If sommaA = 21 Then ambi(3) = 56 : ok = 1
If sommaA = 21 Then ambi(4) = 48 : ok = 1
If sommaB = 21 Then ambi(5) = 56 : ok = 1
If sommaB = 21 Then ambi(6) = 48 : ok = 1
'----- 22-----------------------------------
If sommaA = 22 Then ambi(3) = 85 : ok = 1
If sommaA = 22 Then ambi(4) = 26 : ok = 1
If sommaB = 22 Then ambi(5) = 85 : ok = 1
If sommaB = 22 Then ambi(6) = 26 : ok = 1
'----- 23-----------------------------------
If sommaA = 23 Then ambi(3) = 24 : ok = 1
If sommaA = 23 Then ambi(4) = 53 : ok = 1
If sommaB = 23 Then ambi(5) = 24 : ok = 1
If sommaB = 23 Then ambi(6) = 53 : ok = 1
'-------24 --------------------------------
If sommaA = 24 Then ambi(3) = 53 : ok = 1
If sommaA = 24 Then ambi(4) = 51 : ok = 1
If sommaB = 24 Then ambi(5) = 53 : ok = 1
If sommaB = 24 Then ambi(6) = 51 : ok = 1
'----- 25-----------------------------------
If sommaA = 25 Then ambi(3) = 82 : ok = 1
If sommaA = 25 Then ambi(4) = 29 : ok = 1
If sommaB = 25 Then ambi(5) = 82 : ok = 1
If sommaB = 25 Then ambi(6) = 29 : ok = 1
'----- 26-----------------------------------
If sommaA = 26 Then ambi(3) = 21 : ok = 1
If sommaA = 26 Then ambi(4) = 56 : ok = 1
If sommaB = 26 Then ambi(5) = 21 : ok = 1
If sommaB = 26 Then ambi(6) = 56 : ok = 1
'----- 27-----------------------------------
If sommaA = 27 Then ambi(3) = 50 : ok = 1
If sommaA = 27 Then ambi(4) = 65 : ok = 1
If sommaB = 27 Then ambi(5) = 50 : ok = 1
If sommaB = 27 Then ambi(6) = 65 : ok = 1
'----- 28-----------------------------------
If sommaA = 28 Then ambi(3) = 79 : ok = 1
If sommaA = 28 Then ambi(4) = 63 : ok = 1
If sommaB = 28 Then ambi(5) = 79 : ok = 1
If sommaB = 28 Then ambi(6) = 63 : ok = 1
'-------29 --------------------------------
If sommaA = 29 Then ambi(3) = 18 : ok = 1
If sommaA = 29 Then ambi(4) = 70 : ok = 1
If sommaB = 29 Then ambi(5) = 18 : ok = 1
If sommaB = 29 Then ambi(6) = 70 : ok = 1
'----- 30-----------------------------------
If sommaA = 30 Then ambi(3) = 47 : ok = 1
If sommaA = 30 Then ambi(4) = 68 : ok = 1
If sommaB = 30 Then ambi(5) = 47 : ok = 1
If sommaB = 30 Then ambi(6) = 68 : ok = 1
'----- 31-----------------------------------
If sommaA = 31 Then ambi(3) = 65 : ok = 1
If sommaA = 31 Then ambi(4) = 28 : ok = 1
If sommaB = 31 Then ambi(5) = 65 : ok = 1
If sommaB = 31 Then ambi(6) = 28 : ok = 1
'-------32 --------------------------------
If sommaA = 32 Then ambi(3) = 04 : ok = 1
If sommaA = 32 Then ambi(4) = 35 : ok = 1
If sommaB = 32 Then ambi(5) = 04 : ok = 1
If sommaB = 32 Then ambi(6) = 35 : ok = 1
'----- 33-----------------------------------
If sommaA = 33 Then ambi(3) = 33 : ok = 1
If sommaA = 33 Then ambi(4) = 39 : ok = 1
If sommaB = 33 Then ambi(5) = 33 : ok = 1
If sommaB = 33 Then ambi(6) = 39 : ok = 1
'----- 34-----------------------------------
If sommaA = 34 Then ambi(3) = 62 : ok = 1
If sommaA = 34 Then ambi(4) = 31 : ok = 1
If sommaB = 34 Then ambi(5) = 62 : ok = 1
If sommaB = 34 Then ambi(6) = 31 : ok = 1
'-------35 --------------------------------
If sommaA = 35 Then ambi(3) = 01 : ok = 1
If sommaA = 35 Then ambi(4) = 38 : ok = 1
If sommaB = 35 Then ambi(5) = 01 : ok = 1
If sommaB = 35 Then ambi(6) = 38 : ok = 1
'----- 36-----------------------------------
If sommaA = 36 Then ambi(3) = 30 : ok = 1
If sommaA = 36 Then ambi(4) = 47 : ok = 1
If sommaB = 36 Then ambi(5) = 30 : ok = 1
If sommaB = 36 Then ambi(6) = 47 : ok = 1
'----- 37-----------------------------------
If sommaA = 37 Then ambi(3) = 59 : ok = 1
If sommaA = 37 Then ambi(4) = 45 : ok = 1
If sommaB = 37 Then ambi(5) = 59 : ok = 1
If sommaB = 37 Then ambi(6) = 45 : ok = 1
'----- 38-----------------------------------
If sommaA = 38 Then ambi(3) = 88 : ok = 1
If sommaA = 38 Then ambi(4) = 23 : ok = 1
If sommaB = 38 Then ambi(5) = 88 : ok = 1
If sommaB = 38 Then ambi(6) = 23 : ok = 1
'----- 39-----------------------------------
If sommaA = 39 Then ambi(3) = 27 : ok = 1
If sommaA = 39 Then ambi(4) = 50 : ok = 1
If sommaB = 39 Then ambi(5) = 27 : ok = 1
If sommaB = 39 Then ambi(6) = 50 : ok = 1
'-------40 --------------------------------
If sommaA = 40 Then ambi(3) = 56 : ok = 1
If sommaA = 40 Then ambi(4) = 48 : ok = 1
If sommaB = 40 Then ambi(5) = 56 : ok = 1
If sommaB = 40 Then ambi(6) = 48 : ok = 1
'----- 41-----------------------------------
If sommaA = 41 Then ambi(3) = 74 : ok = 1
If sommaA = 41 Then ambi(4) = 08 : ok = 1
If sommaB = 41 Then ambi(5) = 74 : ok = 1
If sommaB = 41 Then ambi(6) = 08 : ok = 1
'----- 42-----------------------------------
If sommaA = 42 Then ambi(3) = 13 : ok = 1
If sommaA = 42 Then ambi(4) = 15 : ok = 1
If sommaB = 42 Then ambi(5) = 13 : ok = 1
If sommaB = 42 Then ambi(6) = 15 : ok = 1
'-------43 --------------------------------
If sommaA = 43 Then ambi(3) = 42 : ok = 1
If sommaA = 43 Then ambi(4) = 13 : ok = 1
If sommaB = 43 Then ambi(5) = 42 : ok = 1
If sommaB = 43 Then ambi(6) = 13 : ok = 1
'----- 44-----------------------------------
If sommaA = 44 Then ambi(3) = 71 : ok = 1
If sommaA = 44 Then ambi(4) = 11 : ok = 1
If sommaB = 44 Then ambi(5) = 71 : ok = 1
If sommaB = 44 Then ambi(6) = 11 : ok = 1
'----- 45-----------------------------------
If sommaA = 45 Then ambi(3) = 10 : ok = 1
If sommaA = 45 Then ambi(4) = 29 : ok = 1
If sommaB = 45 Then ambi(5) = 10 : ok = 1
If sommaB = 45 Then ambi(6) = 29 : ok = 1
'-------46 --------------------------------
If sommaA = 46 Then ambi(3) = 39 : ok = 1
If sommaA = 46 Then ambi(4) = 27 : ok = 1
If sommaB = 46 Then ambi(5) = 39 : ok = 1
If sommaB = 46 Then ambi(6) = 27 : ok = 1
'----- 47-----------------------------------
If sommaA = 47 Then ambi(3) = 68 : ok = 1
If sommaA = 47 Then ambi(4) = 25 : ok = 1
If sommaB = 47 Then ambi(5) = 68 : ok = 1
If sommaB = 47 Then ambi(6) = 25 : ok = 1
'----- 48-----------------------------------
If sommaA = 48 Then ambi(3) = 07 : ok = 1
If sommaA = 48 Then ambi(4) = 32 : ok = 1
If sommaB = 48 Then ambi(5) = 07 : ok = 1
If sommaB = 48 Then ambi(6) = 32 : ok = 1
'----- 49-----------------------------------
If sommaA = 49 Then ambi(3) = 36 : ok = 1
If sommaA = 49 Then ambi(4) = 30 : ok = 1
If sommaB = 49 Then ambi(5) = 36 : ok = 1
If sommaB = 49 Then ambi(6) = 30 : ok = 1
'----- 50-----------------------------------
If sommaA = 50 Then ambi(3) = 65 : ok = 1
If sommaA = 50 Then ambi(4) = 28 : ok = 1
If sommaB = 50 Then ambi(5) = 65 : ok = 1
If sommaB = 50 Then ambi(6) = 28 : ok = 1
'-------51----------------------------------
If sommaA = 51 Then ambi(3) = 83 : ok = 1
If sommaA = 51 Then ambi(4) = 58 : ok = 1
If sommaB = 51 Then ambi(5) = 83 : ok = 1
If sommaB = 51 Then ambi(6) = 58 : ok = 1
'----- 52-----------------------------------
If sommaA = 52 Then ambi(3) = 22 : ok = 1
If sommaA = 52 Then ambi(4) = 85 : ok = 1
If sommaB = 52 Then ambi(5) = 22 : ok = 1
If sommaB = 52 Then ambi(6) = 85 : ok = 1
'----- 53-----------------------------------
If sommaA = 53 Then ambi(3) = 51 : ok = 1
If sommaA = 53 Then ambi(4) = 83 : ok = 1
If sommaB = 53 Then ambi(5) = 51 : ok = 1
If sommaB = 53 Then ambi(6) = 83 : ok = 1
'----- 54-----------------------------------
If sommaA = 54 Then ambi(3) = 80 : ok = 1
If sommaA = 54 Then ambi(4) = 02 : ok = 1
If sommaB = 54 Then ambi(5) = 80 : ok = 1
If sommaB = 54 Then ambi(6) = 02 : ok = 1
'-------55 --------------------------------
If sommaA = 55 Then ambi(3) = 19 : ok = 1
If sommaA = 55 Then ambi(4) = 09 : ok = 1
If sommaB = 55 Then ambi(5) = 19 : ok = 1
If sommaB = 55 Then ambi(6) = 09 : ok = 1
'----- 56-----------------------------------
If sommaA = 56 Then ambi(3) = 48 : ok = 1
If sommaA = 56 Then ambi(4) = 07 : ok = 1
If sommaB = 56 Then ambi(5) = 48 : ok = 1
If sommaB = 56 Then ambi(6) = 07 : ok = 1
'----- 57-----------------------------------
If sommaA = 57 Then ambi(3) = 77 : ok = 1
If sommaA = 57 Then ambi(4) = 05 : ok = 1
If sommaB = 57 Then ambi(5) = 77 : ok = 1
If sommaB = 57 Then ambi(6) = 05 : ok = 1
'-------58 --------------------------------
If sommaA = 58 Then ambi(3) = 16 : ok = 1
If sommaA = 58 Then ambi(4) = 02 : ok = 1
If sommaB = 58 Then ambi(5) = 16 : ok = 1
If sommaB = 58 Then ambi(6) = 02 : ok = 1
'----- 59-----------------------------------
If sommaA = 59 Then ambi(3) = 45 : ok = 1
If sommaA = 59 Then ambi(4) = 10 : ok = 1
If sommaB = 59 Then ambi(5) = 45 : ok = 1
If sommaB = 59 Then ambi(6) = 10 : ok = 1
'----- 60-----------------------------------
If sommaA = 60 Then ambi(3) = 74 : ok = 1
If sommaA = 60 Then ambi(4) = 08 : ok = 1
If sommaB = 60 Then ambi(5) = 74 : ok = 1
If sommaB = 60 Then ambi(6) = 08 : ok = 1
'----- 61-----------------------------------
If sommaA = 61 Then ambi(3) = 02 : ok = 1
If sommaA = 61 Then ambi(4) = 67 : ok = 1
If sommaB = 61 Then ambi(5) = 02 : ok = 1
If sommaB = 61 Then ambi(6) = 67 : ok = 1
'----- 62-----------------------------------
If sommaA = 62 Then ambi(3) = 31 : ok = 1
If sommaA = 62 Then ambi(4) = 65 : ok = 1
If sommaB = 62 Then ambi(5) = 31 : ok = 1
If sommaB = 62 Then ambi(6) = 65 : ok = 1
'-------63 --------------------------------
If sommaA = 63 Then ambi(3) = 60 : ok = 1
If sommaA = 63 Then ambi(4) = 74 : ok = 1
If sommaB = 63 Then ambi(5) = 60 : ok = 1
If sommaB = 63 Then ambi(6) = 74 : ok = 1
'----- 64-----------------------------------
If sommaA = 64 Then ambi(3) = 89 : ok = 1
If sommaA = 64 Then ambi(4) = 52 : ok = 1
If sommaB = 64 Then ambi(5) = 89 : ok = 1
If sommaB = 64 Then ambi(6) = 52 : ok = 1
'----- 65-----------------------------------
If sommaA = 65 Then ambi(3) = 28 : ok = 1
If sommaA = 65 Then ambi(4) = 79 : ok = 1
If sommaB = 65 Then ambi(5) = 28 : ok = 1
If sommaB = 65 Then ambi(6) = 79 : ok = 1
'-------66 --------------------------------
If sommaA = 66 Then ambi(3) = 57 : ok = 1
If sommaA = 66 Then ambi(4) = 77 : ok = 1
If sommaB = 66 Then ambi(5) = 57 : ok = 1
If sommaB = 66 Then ambi(6) = 77 : ok = 1
'----- 67-----------------------------------
If sommaA = 67 Then ambi(3) = 86 : ok = 1
If sommaA = 67 Then ambi(4) = 55 : ok = 1
If sommaB = 67 Then ambi(5) = 86 : ok = 1
If sommaB = 67 Then ambi(6) = 55 : ok = 1
'----- 68-----------------------------------
If sommaA = 68 Then ambi(3) = 25 : ok = 1
If sommaA = 68 Then ambi(4) = 82 : ok = 1
If sommaB = 68 Then ambi(5) = 25 : ok = 1
If sommaB = 68 Then ambi(6) = 82 : ok = 1
'-------69 --------------------------------
If sommaA = 69 Then ambi(3) = 54 : ok = 1
If sommaA = 69 Then ambi(4) = 80 : ok = 1
If sommaB = 69 Then ambi(5) = 54 : ok = 1
If sommaB = 69 Then ambi(6) = 80 : ok = 1
'----- 70-----------------------------------
If sommaA = 70 Then ambi(3) = 83 : ok = 1
If sommaA = 70 Then ambi(4) = 58 : ok = 1
If sommaB = 70 Then ambi(5) = 83 : ok = 1
If sommaB = 70 Then ambi(6) = 58 : ok = 1
'----- 71-----------------------------------
If sommaA = 71 Then ambi(3) = 11 : ok = 1
If sommaA = 71 Then ambi(4) = 47 : ok = 1
If sommaB = 71 Then ambi(5) = 11 : ok = 1
If sommaB = 71 Then ambi(6) = 47 : ok = 1
'----- 72-----------------------------------
If sommaA = 72 Then ambi(3) = 40 : ok = 1
If sommaA = 72 Then ambi(4) = 56 : ok = 1
If sommaB = 72 Then ambi(5) = 40 : ok = 1
If sommaB = 72 Then ambi(6) = 56 : ok = 1
'----- 73-----------------------------------
If sommaA = 73 Then ambi(3) = 69 : ok = 1
If sommaA = 73 Then ambi(4) = 54 : ok = 1
If sommaB = 73 Then ambi(5) = 69 : ok = 1
If sommaB = 73 Then ambi(6) = 54 : ok = 1
'-------74----------------------------------
If sommaA = 74 Then ambi(3) = 08 : ok = 1
If sommaA = 74 Then ambi(4) = 61 : ok = 1
If sommaB = 74 Then ambi(5) = 08 : ok = 1
If sommaB = 74 Then ambi(6) = 61 : ok = 1
'----- 75-----------------------------------
If sommaA = 75 Then ambi(3) = 37 : ok = 1
If sommaA = 75 Then ambi(4) = 59 : ok = 1
If sommaB = 75 Then ambi(5) = 37 : ok = 1
If sommaB = 75 Then ambi(6) = 59 : ok = 1
'----- 76-----------------------------------
If sommaA = 76 Then ambi(3) = 66 : ok = 1
If sommaA = 76 Then ambi(4) = 57 : ok = 1
If sommaB = 76 Then ambi(5) = 66 : ok = 1
If sommaB = 76 Then ambi(6) = 57 : ok = 1
'----- 77-----------------------------------
If sommaA = 77 Then ambi(3) = 05 : ok = 1
If sommaA = 77 Then ambi(4) = 64 : ok = 1
If sommaB = 77 Then ambi(5) = 05 : ok = 1
If sommaB = 77 Then ambi(6) = 64 : ok = 1
'-------78 --------------------------------
If sommaA = 78 Then ambi(3) = 34 : ok = 1
If sommaA = 78 Then ambi(4) = 62 : ok = 1
If sommaB = 78 Then ambi(5) = 34 : ok = 1
If sommaB = 78 Then ambi(6) = 62 : ok = 1
'----- 79-----------------------------------
If sommaA = 79 Then ambi(3) = 63 : ok = 1
If sommaA = 79 Then ambi(4) = 60 : ok = 1
If sommaB = 79 Then ambi(5) = 63 : ok = 1
If sommaB = 79 Then ambi(6) = 60 : ok = 1
'----- 80-----------------------------------
If sommaA = 80 Then ambi(3) = 02 : ok = 1
If sommaA = 80 Then ambi(4) = 67 : ok = 1
If sommaB = 80 Then ambi(5) = 02 : ok = 1
If sommaB = 80 Then ambi(6) = 67 : ok = 1
'-------81 --------------------------------
If sommaA = 81 Then ambi(3) = 90 : ok = 1
If sommaA = 81 Then ambi(4) = 81 : ok = 1
If sommaB = 81 Then ambi(5) = 90 : ok = 1
If sommaB = 81 Then ambi(6) = 81 : ok = 1
'----- 82-----------------------------------
If sommaA = 82 Then ambi(3) = 29 : ok = 1
If sommaA = 82 Then ambi(4) = 18 : ok = 1
If sommaB = 82 Then ambi(5) = 29 : ok = 1
If sommaB = 82 Then ambi(6) = 18 : ok = 1
'----- 83-----------------------------------
If sommaA = 83 Then ambi(3) = 58 : ok = 1
If sommaA = 83 Then ambi(4) = 16 : ok = 1
If sommaB = 83 Then ambi(5) = 58 : ok = 1
If sommaB = 83 Then ambi(6) = 16 : ok = 1
'----- 84-----------------------------------
If sommaA = 84 Then ambi(3) = 87 : ok = 1
If sommaA = 84 Then ambi(4) = 84 : ok = 1
If sommaB = 84 Then ambi(5) = 87 : ok = 1
If sommaB = 84 Then ambi(6) = 84 : ok = 1
'----- 85-----------------------------------
If sommaA = 85 Then ambi(3) = 26 : ok = 1
If sommaA = 85 Then ambi(4) = 21 : ok = 1
If sommaB = 85 Then ambi(5) = 26 : ok = 1
If sommaB = 85 Then ambi(6) = 21 : ok = 1
'-------86 --------------------------------
If sommaA = 86 Then ambi(3) = 55 : ok = 1
If sommaA = 86 Then ambi(4) = 19 : ok = 1
If sommaB = 86 Then ambi(5) = 55 : ok = 1
If sommaB = 86 Then ambi(6) = 19 : ok = 1
'----- 87-----------------------------------
If sommaA = 87 Then ambi(3) = 84 : ok = 1
If sommaA = 87 Then ambi(4) = 87 : ok = 1
If sommaB = 87 Then ambi(5) = 84 : ok = 1
If sommaB = 87 Then ambi(6) = 87 : ok = 1
'----- 88-----------------------------------
If sommaA = 88 Then ambi(3) = 23 : ok = 1
If sommaA = 88 Then ambi(4) = 24 : ok = 1
If sommaB = 88 Then ambi(5) = 23 : ok = 1
If sommaB = 88 Then ambi(6) = 24 : ok = 1
'-------89 --------------------------------
If sommaA = 89 Then ambi(3) = 52 : ok = 1
If sommaA = 89 Then ambi(4) = 22 : ok = 1
If sommaB = 89 Then ambi(5) = 52 : ok = 1
If sommaB = 89 Then ambi(6) = 22 : ok = 1
'----- 90-----------------------------------
If sommaA = 90 Then ambi(3) = 81 : ok = 1
If sommaA = 90 Then ambi(4) = 90 : ok = 1
If sommaB = 90 Then ambi(5) = 81 : ok = 1
If sommaB = 90 Then ambi(6) = 90 : ok = 1


'----------- continuare ad inserire ----------












'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione

'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2

Scrivi "Numero Spia " & a & " " & String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp
ImpostaGiocata 2,ambi,ruote,ptt,clp

Gioca es,1
End If
End If
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0

End Sub

 

[Mike58]

Ciao Gio' vedo che hai fatto tardi, e comunque c'è l'hai fatta. Bravo.
Solo in questo modo si può imparare analizzando in vbscript i propri progetti.
Le modifiche che chiedi sono semplicissime da mettere

1 devi dichiarare la variabile dim ruoteTutte ( dim rtt(1) )
dopo devi indicargli rtt(1) = 11
e inserire un altra impostaGiocata con la ruota tutte : ImpostaGiocata 3, ambi,rtt,ptt,clp,3
per gli input box niente di + semplice se leggi lo script capisci !!!.

ad ogni modo bravo.

P.s. per la validità non saprei !!! , per convergenze mi sembra possa venire utile.

Ciao Mike e magari continua ad esercitarti.

Sub Main

Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3),rtt(1)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
QUANTEES = InputBox("QUANTE ESTRAZIONI VUOI ANALIZZARE",,50)
SPIA = CInt(InputBox("QUALE NUMERO SPIA ANALIZZI",,89))
clp = 9

ini = EstrazioneFin - QUANTEES
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58 - elabora estrazioni.. ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = SPIA Then
If b = SPIA Then
sommaA = Fuori90(SommaEstratti(es,r1))
sommaB = Fuori90(SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 38 : ok = 1
If a = 1 Then ambata(2) = 88 : ok = 1
If a = 1 Then ambi(1) = 38 : ok = 1
If a = 1 Then ambi(2) = 88 : ok = 1

'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 67 : ok = 1
If a = 2 Then ambata(2) = 86 : ok = 1
If a = 2 Then ambi(1) = 67 : ok = 1
If a = 2 Then ambi(2) = 86 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 6 : ok = 1
If a = 3 Then ambata(2) = 3 : ok = 1
If a = 3 Then ambi(1) = 6 : ok = 1
If a = 3 Then ambi(2) = 3 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 35 : ok = 1
If a = 4 Then ambata(2) = 1 : ok = 1
If a = 4 Then ambi(1) = 35 : ok = 1
If a = 4 Then ambi(2) = 1 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 64 : ok = 1
If a = 5 Then ambata(2) = 89 : ok = 1
If a = 5 Then ambi(1) = 64 : ok = 1
If a = 5 Then ambi(2) = 89 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 3 : ok = 1
If a = 6 Then ambata(2) = 6 : ok = 1
If a = 6 Then ambi(1) = 3 : ok = 1
If a = 6 Then ambi(2) = 6 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 32 : ok = 1
If a = 7 Then ambata(2) = 4 : ok = 1
If a = 7 Then ambi(1) = 32 : ok = 1
If a = 7 Then ambi(2) = 4 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 61 : ok = 1
If a = 8 Then ambata(2) = 2 : ok = 1
If a = 8 Then ambi(1) = 61 : ok = 1
If a = 8 Then ambi(2) = 2 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 90 : ok = 1
If a = 9 Then ambata(2) = 81 : ok = 1
If a = 9 Then ambi(1) = 90 : ok = 1
If a = 9 Then ambi(2) = 81 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 29 : ok = 1
If a = 10 Then ambata(2) = 18 : ok = 1
If a = 10 Then ambi(1) = 29 : ok = 1
If a = 10 Then ambi(2) = 18 : ok = 1
'---------------11------------------------
If a = 11 Then ambata(1) = 47 : ok = 1
If a = 11 Then ambata(2) = 68 : ok = 1
If a = 11 Then ambi(1) = 47 : ok = 1
If a = 11 Then ambi(2) = 68 : ok = 1
'---------------12------------------------
If a = 12 Then ambata(1) = 76 : ok = 1
If a = 12 Then ambata(2) = 66 : ok = 1
If a = 12 Then ambi(1) = 76 : ok = 1
If a = 12 Then ambi(2) = 66 : ok = 1
'---------------13 ------------------------
If a = 13 Then ambata(1) = 15 : ok = 1
If a = 13 Then ambata(2) = 73 : ok = 1
If a = 13 Then ambi(1) = 15 : ok = 1
If a = 13 Then ambi(2) = 73 : ok = 1
'---------------14 ------------------------
If a = 14 Then ambata(1) = 44 : ok = 1
If a = 14 Then ambata(2) = 71 : ok = 1
If a = 14 Then ambi(1) = 44 : ok = 1
If a = 14 Then ambi(2) = 71 : ok = 1
'---------------15 ------------------------
If a = 14 Then ambata(1) = 73 : ok = 1
If a = 14 Then ambata(2) = 69 : ok = 1
If a = 14 Then ambi(1) = 73 : ok = 1
If a = 14 Then ambi(2) = 69 : ok = 1
'--------------16 ------------------------
If a = 16 Then ambata(1) = 12 : ok = 1
If a = 16 Then ambata(2) = 76 : ok = 1
If a = 16 Then ambi(1) = 12 : ok = 1
If a = 16 Then ambi(2) = 76 : ok = 1
'--------------17 ------------------------
If a = 17 Then ambata(1) = 41 : ok = 1
If a = 17 Then ambata(2) = 74 : ok = 1
If a = 17 Then ambi(1) = 41 : ok = 1
If a = 17 Then ambi(2) = 74 : ok = 1
'--------------18 ------------------------
If a = 18 Then ambata(1) = 70 : ok = 1
If a = 18 Then ambata(2) = 83 : ok = 1
If a = 18 Then ambi(1) = 70 : ok = 1
If a = 18 Then ambi(2) = 83 : ok = 1
'--------------19 ------------------------
If a = 19 Then ambata(1) = 09 : ok = 1
If a = 19 Then ambata(2) = 90 : ok = 1
If a = 19 Then ambi(1) = 09 : ok = 1
If a = 19 Then ambi(2) = 90 : ok = 1
'--------------20 ------------------------
If a = 20 Then ambata(1) = 38 : ok = 1
If a = 20 Then ambata(2) = 88 : ok = 1
If a = 20 Then ambi(1) = 38 : ok = 1
If a = 20 Then ambi(2) = 88 : ok = 1
'--------------21 ------------------------
If a = 21 Then ambata(1) = 56 : ok = 1
If a = 21 Then ambata(2) = 48 : ok = 1
If a = 21 Then ambi(1) = 56 : ok = 1
If a = 21 Then ambi(2) = 48 : ok = 1
'--------------22 ------------------------
If a = 22 Then ambata(1) = 85 : ok = 1
If a = 22 Then ambata(2) = 26 : ok = 1
If a = 22 Then ambi(1) = 85 : ok = 1
If a = 22 Then ambi(2) = 26 : ok = 1
'--------------23 ------------------------
If a = 23 Then ambata(1) = 24 : ok = 1
If a = 23 Then ambata(2) = 53 : ok = 1
If a = 23 Then ambi(1) = 24 : ok = 1
If a = 23 Then ambi(2) = 53 : ok = 1
'--------------24 ------------------------
If a = 24 Then ambata(1) = 53 : ok = 1
If a = 24 Then ambata(2) = 51 : ok = 1
If a = 24 Then ambi(1) = 53 : ok = 1
If a = 24 Then ambi(2) = 51 : ok = 1
'--------------25 ------------------------
If a = 25 Then ambata(1) = 82 : ok = 1
If a = 25 Then ambata(2) = 29 : ok = 1
If a = 25 Then ambi(1) = 82 : ok = 1
If a = 25 Then ambi(2) = 29 : ok = 1
'--------------26 ------------------------
If a = 26 Then ambata(1) = 21 : ok = 1
If a = 26 Then ambata(2) = 56 : ok = 1
If a = 26 Then ambi(1) = 21 : ok = 1
If a = 26 Then ambi(2) = 56 : ok = 1
'--------------27 ------------------------
If a = 27 Then ambata(1) = 50 : ok = 1
If a = 27 Then ambata(2) = 65 : ok = 1
If a = 27 Then ambi(1) = 50 : ok = 1
If a = 27 Then ambi(2) = 65 : ok = 1
'--------------28 ------------------------
If a = 28 Then ambata(1) = 79 : ok = 1
If a = 28 Then ambata(2) = 63 : ok = 1
If a = 28 Then ambi(1) = 79 : ok = 1
If a = 28 Then ambi(2) = 63 : ok = 1
'--------------29 ------------------------
If a = 29 Then ambata(1) = 18 : ok = 1
If a = 29 Then ambata(2) = 70 : ok = 1
If a = 29 Then ambi(1) = 18 : ok = 1
If a = 29 Then ambi(2) = 70 : ok = 1
'--------------30 ------------------------
If a = 30 Then ambata(1) = 47 : ok = 1
If a = 30 Then ambata(2) = 68 : ok = 1
If a = 30 Then ambi(1) = 47 : ok = 1
If a = 30 Then ambi(2) = 68 : ok = 1
'--------------31 ------------------------
If a = 31 Then ambata(1) = 65 : ok = 1
If a = 31 Then ambata(2) = 28 : ok = 1
If a = 31 Then ambi(1) = 65 : ok = 1
If a = 31 Then ambi(2) = 28 : ok = 1
'--------------32 ------------------------
If a = 32 Then ambata(1) = 04 : ok = 1
If a = 32 Then ambata(2) = 35 : ok = 1
If a = 32 Then ambi(1) = 04 : ok = 1
If a = 32 Then ambi(2) = 35 : ok = 1
'--------------33 ------------------------
If a = 33 Then ambata(1) = 33 : ok = 1
If a = 33 Then ambata(2) = 33 : ok = 1
If a = 33 Then ambi(1) = 33 : ok = 1
If a = 33 Then ambi(2) = 33 : ok = 1
'--------------34 ------------------------
If a = 34 Then ambata(1) = 62 : ok = 1
If a = 34 Then ambata(2) = 31 : ok = 1
If a = 34 Then ambi(1) = 62 : ok = 1
If a = 34 Then ambi(2) = 31 : ok = 1
'--------------35 ------------------------
If a = 35 Then ambata(1) = 01 : ok = 1
If a = 35 Then ambata(2) = 38 : ok = 1
If a = 35 Then ambi(1) = 01 : ok = 1
If a = 35 Then ambi(2) = 38 : ok = 1
'--------------36 ------------------------
If a = 36 Then ambata(1) = 30 : ok = 1
If a = 36 Then ambata(2) = 47 : ok = 1
If a = 36 Then ambi(1) = 30 : ok = 1
If a = 36 Then ambi(2) = 47 : ok = 1
'--------------37 ------------------------
If a = 37 Then ambata(1) = 59 : ok = 1
If a = 37 Then ambata(2) = 45 : ok = 1
If a = 37 Then ambi(1) = 59 : ok = 1
If a = 37 Then ambi(2) = 45 : ok = 1
'--------------38 ------------------------
If a = 38 Then ambata(1) = 88 : ok = 1
If a = 38 Then ambata(2) = 23 : ok = 1
If a = 38 Then ambi(1) = 88 : ok = 1
If a = 38 Then ambi(2) = 23 : ok = 1
'--------------39 ------------------------
If a = 39 Then ambata(1) = 27 : ok = 1
If a = 39 Then ambata(2) = 50 : ok = 1
If a = 39 Then ambi(1) = 27 : ok = 1
If a = 39 Then ambi(2) = 50 : ok = 1
'--------------40 ------------------------
If a = 40 Then ambata(1) = 56 : ok = 1
If a = 40 Then ambata(2) = 48 : ok = 1
If a = 40 Then ambi(1) = 56 : ok = 1
If a = 40 Then ambi(2) = 48 : ok = 1
'--------------41 ------------------------
If a = 41 Then ambata(1) = 74 : ok = 1
If a = 41 Then ambata(2) = 08 : ok = 1
If a = 41 Then ambi(1) = 74 : ok = 1
If a = 41 Then ambi(2) = 08 : ok = 1
'--------------42 ------------------------
If a = 42 Then ambata(1) = 13 : ok = 1
If a = 42 Then ambata(2) = 15 : ok = 1
If a = 42 Then ambi(1) = 13 : ok = 1
If a = 42 Then ambi(2) = 15 : ok = 1
'--------------43 ------------------------
If a = 43 Then ambata(1) = 42 : ok = 1
If a = 43 Then ambata(2) = 13 : ok = 1
If a = 43 Then ambi(1) = 42 : ok = 1
If a = 43 Then ambi(2) = 13 : ok = 1
'--------------44 ------------------------
If a = 44 Then ambata(1) = 71 : ok = 1
If a = 44 Then ambata(2) = 11 : ok = 1
If a = 44 Then ambi(1) = 71 : ok = 1
If a = 44 Then ambi(2) = 11 : ok = 1
'--------------45 ------------------------
If a = 45 Then ambata(1) = 10 : ok = 1
If a = 45 Then ambata(2) = 29 : ok = 1
If a = 45 Then ambi(1) = 10 : ok = 1
If a = 45 Then ambi(2) = 29 : ok = 1
'--------------46 ------------------------
If a = 46 Then ambata(1) = 39 : ok = 1
If a = 46 Then ambata(2) = 27 : ok = 1
If a = 46 Then ambi(1) = 39 : ok = 1
If a = 46 Then ambi(2) = 27 : ok = 1
'--------------47 ------------------------
If a = 47 Then ambata(1) = 68 : ok = 1
If a = 47 Then ambata(2) = 25 : ok = 1
If a = 47 Then ambi(1) = 68 : ok = 1
If a = 47 Then ambi(2) = 25 : ok = 1
'--------------48 ------------------------
If a = 48 Then ambata(1) = 07 : ok = 1
If a = 48 Then ambata(2) = 32 : ok = 1
If a = 48 Then ambi(1) = 07 : ok = 1
If a = 48 Then ambi(2) = 32 : ok = 1
'--------------49 ------------------------
If a = 49 Then ambata(1) = 36 : ok = 1
If a = 49 Then ambata(2) = 30 : ok = 1
If a = 49 Then ambi(1) = 36 : ok = 1
If a = 49 Then ambi(2) = 30 : ok = 1
'--------------50 ------------------------
If a = 50 Then ambata(1) = 65 : ok = 1
If a = 50 Then ambata(2) = 28 : ok = 1
If a = 50 Then ambi(1) = 65 : ok = 1
If a = 50 Then ambi(2) = 28 : ok = 1
'--------------51 ------------------------
If a = 51 Then ambata(1) = 83 : ok = 1
If a = 51 Then ambata(2) = 58 : ok = 1
If a = 51 Then ambi(1) = 83 : ok = 1
If a = 51 Then ambi(2) = 58 : ok = 1
'--------------52 ------------------------
If a = 52 Then ambata(1) = 22 : ok = 1
If a = 52 Then ambata(2) = 85 : ok = 1
If a = 52 Then ambi(1) = 22 : ok = 1
If a = 52 Then ambi(2) = 85 : ok = 1
'--------------53 ------------------------
If a = 53 Then ambata(1) = 51 : ok = 1
If a = 53 Then ambata(2) = 83 : ok = 1
If a = 53 Then ambi(1) = 51 : ok = 1
If a = 53 Then ambi(2) = 83 : ok = 1
'--------------54 ------------------------
If a = 54 Then ambata(1) = 80 : ok = 1
If a = 54 Then ambata(2) = 02 : ok = 1
If a = 54 Then ambi(1) = 80 : ok = 1
If a = 54 Then ambi(2) = 02 : ok = 1
'--------------55 ------------------------
If a = 55 Then ambata(1) = 19 : ok = 1
If a = 55 Then ambata(2) = 09 : ok = 1
If a = 55 Then ambi(1) = 19 : ok = 1
If a = 55 Then ambi(2) = 09 : ok = 1
'--------------56 ------------------------
If a = 56 Then ambata(1) = 48 : ok = 1
If a = 56 Then ambata(2) = 07 : ok = 1
If a = 56 Then ambi(1) = 48 : ok = 1
If a = 56 Then ambi(2) = 07 : ok = 1
'--------------57 ------------------------
If a = 57 Then ambata(1) = 77 : ok = 1
If a = 57 Then ambata(2) = 05 : ok = 1
If a = 57 Then ambi(1) = 77 : ok = 1
If a = 57 Then ambi(2) = 05 : ok = 1
'--------------58 ------------------------
If a = 58 Then ambata(1) = 16 : ok = 1
If a = 58 Then ambata(2) = 12 : ok = 1
If a = 58 Then ambi(1) = 16 : ok = 1
If a = 58 Then ambi(2) = 12 : ok = 1
'--------------59 ------------------------
If a = 59 Then ambata(1) = 45 : ok = 1
If a = 59 Then ambata(2) = 10 : ok = 1
If a = 59 Then ambi(1) = 45 : ok = 1
If a = 59 Then ambi(2) = 10 : ok = 1
'--------------60 ------------------------
If a = 60 Then ambata(1) = 74 : ok = 1
If a = 60 Then ambata(2) = 08 : ok = 1
If a = 60 Then ambi(1) = 74 : ok = 1
If a = 60 Then ambi(2) = 08 : ok = 1
'--------------61 ------------------------
If a = 61 Then ambata(1) = 02 : ok = 1
If a = 61 Then ambata(2) = 67 : ok = 1
If a = 61 Then ambi(1) = 02 : ok = 1
If a = 61 Then ambi(2) = 67 : ok = 1
'--------------62 ------------------------
If a = 62 Then ambata(1) = 31 : ok = 1
If a = 62 Then ambata(2) = 65 : ok = 1
If a = 62 Then ambi(1) = 31 : ok = 1
If a = 62 Then ambi(2) = 65 : ok = 1
'--------------63 ------------------------
If a = 63 Then ambata(1) = 60 : ok = 1
If a = 63 Then ambata(2) = 74 : ok = 1
If a = 63 Then ambi(1) = 60 : ok = 1
If a = 63 Then ambi(2) = 74 : ok = 1
'--------------64 ------------------------
If a = 64 Then ambata(1) = 89 : ok = 1
If a = 64 Then ambata(2) = 52 : ok = 1
If a = 64 Then ambi(1) = 89 : ok = 1
If a = 64 Then ambi(2) = 52 : ok = 1
'--------------65 ------------------------
If a = 65 Then ambata(1) = 28 : ok = 1
If a = 65 Then ambata(2) = 79 : ok = 1
If a = 65 Then ambi(1) = 28 : ok = 1
If a = 65 Then ambi(2) = 79 : ok = 1
'--------------66 ------------------------
If a = 66 Then ambata(1) = 57 : ok = 1
If a = 66 Then ambata(2) = 77 : ok = 1
If a = 66 Then ambi(1) = 57 : ok = 1
If a = 66 Then ambi(2) = 77 : ok = 1
'--------------67 ------------------------
If a = 67 Then ambata(1) = 86 : ok = 1
If a = 67 Then ambata(2) = 55 : ok = 1
If a = 67 Then ambi(1) = 86 : ok = 1
If a = 67 Then ambi(2) = 55 : ok = 1
'--------------68 ------------------------
If a = 68 Then ambata(1) = 25 : ok = 1
If a = 68 Then ambata(2) = 82 : ok = 1
If a = 68 Then ambi(1) = 25 : ok = 1
If a = 68 Then ambi(2) = 82 : ok = 1
'--------------69 ------------------------
If a = 69 Then ambata(1) = 54 : ok = 1
If a = 69 Then ambata(2) = 80 : ok = 1
If a = 69 Then ambi(1) = 54 : ok = 1
If a = 69 Then ambi(2) = 50 : ok = 1
'--------------70 ------------------------
If a = 70 Then ambata(1) = 83 : ok = 1
If a = 70 Then ambata(2) = 58 : ok = 1
If a = 70 Then ambi(1) = 83 : ok = 1
If a = 70 Then ambi(2) = 58 : ok = 1
'--------------71 ------------------------
If a = 71 Then ambata(1) = 11 : ok = 1
If a = 71 Then ambata(2) = 47 : ok = 1
If a = 71 Then ambi(1) = 11 : ok = 1
If a = 71 Then ambi(2) = 47 : ok = 1
'--------------72 ------------------------
If a = 72 Then ambata(1) = 40 : ok = 1
If a = 72 Then ambata(2) = 56 : ok = 1
If a = 72 Then ambi(1) = 40 : ok = 1
If a = 72 Then ambi(2) = 56 : ok = 1
'--------------73 ------------------------
If a = 73 Then ambata(1) = 69 : ok = 1
If a = 73 Then ambata(2) = 54 : ok = 1
If a = 73 Then ambi(1) = 69 : ok = 1
If a = 73 Then ambi(2) = 54 : ok = 1
'--------------74 ------------------------
If a = 74 Then ambata(1) = 08 : ok = 1
If a = 74 Then ambata(2) = 61 : ok = 1
If a = 74 Then ambi(1) = 08 : ok = 1
If a = 74 Then ambi(2) = 61 : ok = 1
'--------------75 ------------------------
If a = 75 Then ambata(1) = 37 : ok = 1
If a = 75 Then ambata(2) = 59 : ok = 1
If a = 75 Then ambi(1) = 37 : ok = 1
If a = 75 Then ambi(2) = 59 : ok = 1
'--------------76 ------------------------
If a = 76 Then ambata(1) = 66 : ok = 1
If a = 76 Then ambata(2) = 57 : ok = 1
If a = 76 Then ambi(1) = 66 : ok = 1
If a = 76 Then ambi(2) = 57 : ok = 1
'--------------77 ------------------------
If a = 77 Then ambata(1) = 05 : ok = 1
If a = 77 Then ambata(2) = 64 : ok = 1
If a = 77 Then ambi(1) = 05 : ok = 1
If a = 77 Then ambi(2) = 64 : ok = 1
'--------------78 ------------------------
If a = 78 Then ambata(1) = 34 : ok = 1
If a = 78 Then ambata(2) = 62 : ok = 1
If a = 78 Then ambi(1) = 34 : ok = 1
If a = 78 Then ambi(2) = 62 : ok = 1
'--------------79 ------------------------
If a = 79 Then ambata(1) = 63 : ok = 1
If a = 79 Then ambata(2) = 60 : ok = 1
If a = 79 Then ambi(1) = 63 : ok = 1
If a = 79 Then ambi(2) = 60 : ok = 1
'--------------80 ------------------------
If a = 80 Then ambata(1) = 02 : ok = 1
If a = 80 Then ambata(2) = 67 : ok = 1
If a = 80 Then ambi(1) = 02 : ok = 1
If a = 80 Then ambi(2) = 67 : ok = 1
'--------------81 ------------------------
If a = 81 Then ambata(1) = 90 : ok = 1
If a = 81 Then ambata(2) = 81 : ok = 1
If a = 81 Then ambi(1) = 90 : ok = 1
If a = 81 Then ambi(2) = 81 : ok = 1
'--------------82 ------------------------
If a = 82 Then ambata(1) = 29 : ok = 1
If a = 82 Then ambata(2) = 18 : ok = 1
If a = 82 Then ambi(1) = 29 : ok = 1
If a = 82 Then ambi(2) = 18 : ok = 1
'--------------83 ------------------------
If a = 83 Then ambata(1) = 58 : ok = 1
If a = 83 Then ambata(2) = 16 : ok = 1
If a = 83 Then ambi(1) = 58 : ok = 1
If a = 83 Then ambi(2) = 16 : ok = 1
'--------------84 ------------------------
If a = 84 Then ambata(1) = 87 : ok = 1
If a = 84 Then ambata(2) = 84 : ok = 1
If a = 84 Then ambi(1) = 87 : ok = 1
If a = 84 Then ambi(2) = 84 : ok = 1
'--------------85 ------------------------
If a = 85 Then ambata(1) = 26 : ok = 1
If a = 85 Then ambata(2) = 21 : ok = 1
If a = 85 Then ambi(1) = 26 : ok = 1
If a = 85 Then ambi(2) = 21 : ok = 1
'--------------86 ------------------------
If a = 86 Then ambata(1) = 55 : ok = 1
If a = 86 Then ambata(2) = 19 : ok = 1
If a = 86 Then ambi(1) = 55 : ok = 1
If a = 86 Then ambi(2) = 19 : ok = 1
'--------------87 ------------------------
If a = 87 Then ambata(1) = 84 : ok = 1
If a = 87 Then ambata(2) = 87 : ok = 1
If a = 87 Then ambi(1) = 84 : ok = 1
If a = 87 Then ambi(2) = 87 : ok = 1
'--------------88 ------------------------
If a = 88 Then ambata(1) = 23 : ok = 1
If a = 88 Then ambata(2) = 24 : ok = 1
If a = 88 Then ambi(1) = 23 : ok = 1
If a = 88 Then ambi(2) = 24 : ok = 1
'--------------89 ------------------------
If a = 89 Then ambata(1) = 52 : ok = 1
If a = 89 Then ambata(2) = 22 : ok = 1
If a = 89 Then ambi(1) = 52 : ok = 1
If a = 89 Then ambi(2) = 22 : ok = 1
'--------------90 ------------------------
If a = 90 Then ambata(1) = 81 : ok = 1
If a = 90 Then ambata(2) = 90 : ok = 1
If a = 90 Then ambi(1) = 81 : ok = 1
If a = 90 Then ambi(2) = 90 : ok = 1






'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 38 : ok = 1
If sommaA = 1 Then ambi(4) = 88 : ok = 1
If sommaB = 1 Then ambi(5) = 38 : ok = 1
If sommaB = 1 Then ambi(6) = 88 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 67 : ok = 1
If sommaA = 2 Then ambi(4) = 86 : ok = 1
If sommaB = 2 Then ambi(5) = 67 : ok = 1
If sommaB = 2 Then ambi(6) = 86 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 6 : ok = 1
If sommaA = 3 Then ambi(4) = 3 : ok = 1
If sommaB = 3 Then ambi(5) = 6 : ok = 1
If sommaB = 3 Then ambi(6) = 3 : ok = 1
'-------4 --------------------------------
If sommaA = 4 Then ambi(3) = 35 : ok = 1
If sommaA = 4 Then ambi(4) = 01 : ok = 1
If sommaB = 4 Then ambi(5) = 35 : ok = 1
If sommaB = 4 Then ambi(6) = 01 : ok = 1
'----- 5-----------------------------------
If sommaA = 5 Then ambi(3) = 64 : ok = 1
If sommaA = 5 Then ambi(4) = 89 : ok = 1
If sommaB = 5 Then ambi(5) = 64 : ok = 1
If sommaB = 5 Then ambi(6) = 89 : ok = 1
'----- 6-----------------------------------
If sommaA = 6 Then ambi(3) = 03 : ok = 1
If sommaA = 6 Then ambi(4) = 06 : ok = 1
If sommaB = 6 Then ambi(5) = 03 : ok = 1
If sommaB = 6 Then ambi(6) = 06 : ok = 1
'-------7 --------------------------------
If sommaA = 7 Then ambi(3) = 09 : ok = 1
If sommaA = 7 Then ambi(4) = 90 : ok = 1
If sommaB = 7 Then ambi(5) = 09 : ok = 1
If sommaB = 7 Then ambi(6) = 90 : ok = 1
'----- 8-----------------------------------
If sommaA = 8 Then ambi(3) = 61 : ok = 1
If sommaA = 8 Then ambi(4) = 02 : ok = 1
If sommaB = 8 Then ambi(5) = 61 : ok = 1
If sommaB = 8 Then ambi(6) = 02 : ok = 1
'----- 9-----------------------------------
If sommaA = 9 Then ambi(3) = 90 : ok = 1
If sommaA = 9 Then ambi(4) = 81 : ok = 1
If sommaB = 9 Then ambi(5) = 90 : ok = 1
If sommaB = 9 Then ambi(6) = 81 : ok = 1
'-------10 --------------------------------
If sommaA = 10 Then ambi(3) = 29 : ok = 1
If sommaA = 10 Then ambi(4) = 18 : ok = 1
If sommaB = 10 Then ambi(5) = 29 : ok = 1
If sommaB = 10 Then ambi(6) = 18 : ok = 1
'----- 11-----------------------------------
If sommaA = 11 Then ambi(3) = 47 : ok = 1
If sommaA = 11 Then ambi(4) = 68 : ok = 1
If sommaB = 11 Then ambi(5) = 47 : ok = 1
If sommaB = 11 Then ambi(6) = 68 : ok = 1
'----- 12-----------------------------------
If sommaA = 12 Then ambi(3) = 76 : ok = 1
If sommaA = 12 Then ambi(4) = 66 : ok = 1
If sommaB = 12 Then ambi(5) = 76 : ok = 1
If sommaB = 12 Then ambi(6) = 66 : ok = 1
'-------13 --------------------------------
If sommaA = 13 Then ambi(3) = 15 : ok = 1
If sommaA = 13 Then ambi(4) = 73 : ok = 1
If sommaB = 13 Then ambi(5) = 15 : ok = 1
If sommaB = 13 Then ambi(6) = 73 : ok = 1
'----- 14-----------------------------------
If sommaA = 14 Then ambi(3) = 44 : ok = 1
If sommaA = 14 Then ambi(4) = 71 : ok = 1
If sommaB = 14 Then ambi(5) = 44 : ok = 1
If sommaB = 14 Then ambi(6) = 71 : ok = 1
'----- 15-----------------------------------
If sommaA = 15 Then ambi(3) = 73 : ok = 1
If sommaA = 15 Then ambi(4) = 69 : ok = 1
If sommaB = 15 Then ambi(5) = 73 : ok = 1
If sommaB = 15 Then ambi(6) = 69 : ok = 1
'----- 16-----------------------------------
If sommaA = 16 Then ambi(3) = 12 : ok = 1
If sommaA = 16 Then ambi(4) = 76 : ok = 1
If sommaB = 16 Then ambi(5) = 12 : ok = 1
If sommaB = 16 Then ambi(6) = 76 : ok = 1
'----- 17-----------------------------------
If sommaA = 17 Then ambi(3) = 41 : ok = 1
If sommaA = 17 Then ambi(4) = 74 : ok = 1
If sommaB = 17 Then ambi(5) = 41 : ok = 1
If sommaB = 17 Then ambi(6) = 74 : ok = 1
'-------18 --------------------------------
If sommaA = 18 Then ambi(3) = 70 : ok = 1
If sommaA = 18 Then ambi(4) = 83 : ok = 1
If sommaB = 18 Then ambi(5) = 70 : ok = 1
If sommaB = 18 Then ambi(6) = 83 : ok = 1
'----- 19-----------------------------------
If sommaA = 19 Then ambi(3) = 09 : ok = 1
If sommaA = 19 Then ambi(4) = 90 : ok = 1
If sommaB = 19 Then ambi(5) = 09 : ok = 1
If sommaB = 19 Then ambi(6) = 90 : ok = 1
'----- 20-----------------------------------
If sommaA = 20 Then ambi(3) = 38 : ok = 1
If sommaA = 20 Then ambi(4) = 88 : ok = 1
If sommaB = 20 Then ambi(5) = 38 : ok = 1
If sommaB = 20 Then ambi(6) = 88 : ok = 1
'-------21 --------------------------------
If sommaA = 21 Then ambi(3) = 56 : ok = 1
If sommaA = 21 Then ambi(4) = 48 : ok = 1
If sommaB = 21 Then ambi(5) = 56 : ok = 1
If sommaB = 21 Then ambi(6) = 48 : ok = 1
'----- 22-----------------------------------
If sommaA = 22 Then ambi(3) = 85 : ok = 1
If sommaA = 22 Then ambi(4) = 26 : ok = 1
If sommaB = 22 Then ambi(5) = 85 : ok = 1
If sommaB = 22 Then ambi(6) = 26 : ok = 1
'----- 23-----------------------------------
If sommaA = 23 Then ambi(3) = 24 : ok = 1
If sommaA = 23 Then ambi(4) = 53 : ok = 1
If sommaB = 23 Then ambi(5) = 24 : ok = 1
If sommaB = 23 Then ambi(6) = 53 : ok = 1
'-------24 --------------------------------
If sommaA = 24 Then ambi(3) = 53 : ok = 1
If sommaA = 24 Then ambi(4) = 51 : ok = 1
If sommaB = 24 Then ambi(5) = 53 : ok = 1
If sommaB = 24 Then ambi(6) = 51 : ok = 1
'----- 25-----------------------------------
If sommaA = 25 Then ambi(3) = 82 : ok = 1
If sommaA = 25 Then ambi(4) = 29 : ok = 1
If sommaB = 25 Then ambi(5) = 82 : ok = 1
If sommaB = 25 Then ambi(6) = 29 : ok = 1
'----- 26-----------------------------------
If sommaA = 26 Then ambi(3) = 21 : ok = 1
If sommaA = 26 Then ambi(4) = 56 : ok = 1
If sommaB = 26 Then ambi(5) = 21 : ok = 1
If sommaB = 26 Then ambi(6) = 56 : ok = 1
'----- 27-----------------------------------
If sommaA = 27 Then ambi(3) = 50 : ok = 1
If sommaA = 27 Then ambi(4) = 65 : ok = 1
If sommaB = 27 Then ambi(5) = 50 : ok = 1
If sommaB = 27 Then ambi(6) = 65 : ok = 1
'----- 28-----------------------------------
If sommaA = 28 Then ambi(3) = 79 : ok = 1
If sommaA = 28 Then ambi(4) = 63 : ok = 1
If sommaB = 28 Then ambi(5) = 79 : ok = 1
If sommaB = 28 Then ambi(6) = 63 : ok = 1
'-------29 --------------------------------
If sommaA = 29 Then ambi(3) = 18 : ok = 1
If sommaA = 29 Then ambi(4) = 70 : ok = 1
If sommaB = 29 Then ambi(5) = 18 : ok = 1
If sommaB = 29 Then ambi(6) = 70 : ok = 1
'----- 30-----------------------------------
If sommaA = 30 Then ambi(3) = 47 : ok = 1
If sommaA = 30 Then ambi(4) = 68 : ok = 1
If sommaB = 30 Then ambi(5) = 47 : ok = 1
If sommaB = 30 Then ambi(6) = 68 : ok = 1
'----- 31-----------------------------------
If sommaA = 31 Then ambi(3) = 65 : ok = 1
If sommaA = 31 Then ambi(4) = 28 : ok = 1
If sommaB = 31 Then ambi(5) = 65 : ok = 1
If sommaB = 31 Then ambi(6) = 28 : ok = 1
'-------32 --------------------------------
If sommaA = 32 Then ambi(3) = 04 : ok = 1
If sommaA = 32 Then ambi(4) = 35 : ok = 1
If sommaB = 32 Then ambi(5) = 04 : ok = 1
If sommaB = 32 Then ambi(6) = 35 : ok = 1
'----- 33-----------------------------------
If sommaA = 33 Then ambi(3) = 33 : ok = 1
If sommaA = 33 Then ambi(4) = 39 : ok = 1
If sommaB = 33 Then ambi(5) = 33 : ok = 1
If sommaB = 33 Then ambi(6) = 39 : ok = 1
'----- 34-----------------------------------
If sommaA = 34 Then ambi(3) = 62 : ok = 1
If sommaA = 34 Then ambi(4) = 31 : ok = 1
If sommaB = 34 Then ambi(5) = 62 : ok = 1
If sommaB = 34 Then ambi(6) = 31 : ok = 1
'-------35 --------------------------------
If sommaA = 35 Then ambi(3) = 01 : ok = 1
If sommaA = 35 Then ambi(4) = 38 : ok = 1
If sommaB = 35 Then ambi(5) = 01 : ok = 1
If sommaB = 35 Then ambi(6) = 38 : ok = 1
'----- 36-----------------------------------
If sommaA = 36 Then ambi(3) = 30 : ok = 1
If sommaA = 36 Then ambi(4) = 47 : ok = 1
If sommaB = 36 Then ambi(5) = 30 : ok = 1
If sommaB = 36 Then ambi(6) = 47 : ok = 1
'----- 37-----------------------------------
If sommaA = 37 Then ambi(3) = 59 : ok = 1
If sommaA = 37 Then ambi(4) = 45 : ok = 1
If sommaB = 37 Then ambi(5) = 59 : ok = 1
If sommaB = 37 Then ambi(6) = 45 : ok = 1
'----- 38-----------------------------------
If sommaA = 38 Then ambi(3) = 88 : ok = 1
If sommaA = 38 Then ambi(4) = 23 : ok = 1
If sommaB = 38 Then ambi(5) = 88 : ok = 1
If sommaB = 38 Then ambi(6) = 23 : ok = 1
'----- 39-----------------------------------
If sommaA = 39 Then ambi(3) = 27 : ok = 1
If sommaA = 39 Then ambi(4) = 50 : ok = 1
If sommaB = 39 Then ambi(5) = 27 : ok = 1
If sommaB = 39 Then ambi(6) = 50 : ok = 1
'-------40 --------------------------------
If sommaA = 40 Then ambi(3) = 56 : ok = 1
If sommaA = 40 Then ambi(4) = 48 : ok = 1
If sommaB = 40 Then ambi(5) = 56 : ok = 1
If sommaB = 40 Then ambi(6) = 48 : ok = 1
'----- 41-----------------------------------
If sommaA = 41 Then ambi(3) = 74 : ok = 1
If sommaA = 41 Then ambi(4) = 08 : ok = 1
If sommaB = 41 Then ambi(5) = 74 : ok = 1
If sommaB = 41 Then ambi(6) = 08 : ok = 1
'----- 42-----------------------------------
If sommaA = 42 Then ambi(3) = 13 : ok = 1
If sommaA = 42 Then ambi(4) = 15 : ok = 1
If sommaB = 42 Then ambi(5) = 13 : ok = 1
If sommaB = 42 Then ambi(6) = 15 : ok = 1
'-------43 --------------------------------
If sommaA = 43 Then ambi(3) = 42 : ok = 1
If sommaA = 43 Then ambi(4) = 13 : ok = 1
If sommaB = 43 Then ambi(5) = 42 : ok = 1
If sommaB = 43 Then ambi(6) = 13 : ok = 1
'----- 44-----------------------------------
If sommaA = 44 Then ambi(3) = 71 : ok = 1
If sommaA = 44 Then ambi(4) = 11 : ok = 1
If sommaB = 44 Then ambi(5) = 71 : ok = 1
If sommaB = 44 Then ambi(6) = 11 : ok = 1
'----- 45-----------------------------------
If sommaA = 45 Then ambi(3) = 10 : ok = 1
If sommaA = 45 Then ambi(4) = 29 : ok = 1
If sommaB = 45 Then ambi(5) = 10 : ok = 1
If sommaB = 45 Then ambi(6) = 29 : ok = 1
'-------46 --------------------------------
If sommaA = 46 Then ambi(3) = 39 : ok = 1
If sommaA = 46 Then ambi(4) = 27 : ok = 1
If sommaB = 46 Then ambi(5) = 39 : ok = 1
If sommaB = 46 Then ambi(6) = 27 : ok = 1
'----- 47-----------------------------------
If sommaA = 47 Then ambi(3) = 68 : ok = 1
If sommaA = 47 Then ambi(4) = 25 : ok = 1
If sommaB = 47 Then ambi(5) = 68 : ok = 1
If sommaB = 47 Then ambi(6) = 25 : ok = 1
'----- 48-----------------------------------
If sommaA = 48 Then ambi(3) = 07 : ok = 1
If sommaA = 48 Then ambi(4) = 32 : ok = 1
If sommaB = 48 Then ambi(5) = 07 : ok = 1
If sommaB = 48 Then ambi(6) = 32 : ok = 1
'----- 49-----------------------------------
If sommaA = 49 Then ambi(3) = 36 : ok = 1
If sommaA = 49 Then ambi(4) = 30 : ok = 1
If sommaB = 49 Then ambi(5) = 36 : ok = 1
If sommaB = 49 Then ambi(6) = 30 : ok = 1
'----- 50-----------------------------------
If sommaA = 50 Then ambi(3) = 65 : ok = 1
If sommaA = 50 Then ambi(4) = 28 : ok = 1
If sommaB = 50 Then ambi(5) = 65 : ok = 1
If sommaB = 50 Then ambi(6) = 28 : ok = 1
'-------51----------------------------------
If sommaA = 51 Then ambi(3) = 83 : ok = 1
If sommaA = 51 Then ambi(4) = 58 : ok = 1
If sommaB = 51 Then ambi(5) = 83 : ok = 1
If sommaB = 51 Then ambi(6) = 58 : ok = 1
'----- 52-----------------------------------
If sommaA = 52 Then ambi(3) = 22 : ok = 1
If sommaA = 52 Then ambi(4) = 85 : ok = 1
If sommaB = 52 Then ambi(5) = 22 : ok = 1
If sommaB = 52 Then ambi(6) = 85 : ok = 1
'----- 53-----------------------------------
If sommaA = 53 Then ambi(3) = 51 : ok = 1
If sommaA = 53 Then ambi(4) = 83 : ok = 1
If sommaB = 53 Then ambi(5) = 51 : ok = 1
If sommaB = 53 Then ambi(6) = 83 : ok = 1
'----- 54-----------------------------------
If sommaA = 54 Then ambi(3) = 80 : ok = 1
If sommaA = 54 Then ambi(4) = 02 : ok = 1
If sommaB = 54 Then ambi(5) = 80 : ok = 1
If sommaB = 54 Then ambi(6) = 02 : ok = 1
'-------55 --------------------------------
If sommaA = 55 Then ambi(3) = 19 : ok = 1
If sommaA = 55 Then ambi(4) = 09 : ok = 1
If sommaB = 55 Then ambi(5) = 19 : ok = 1
If sommaB = 55 Then ambi(6) = 09 : ok = 1
'----- 56-----------------------------------
If sommaA = 56 Then ambi(3) = 48 : ok = 1
If sommaA = 56 Then ambi(4) = 07 : ok = 1
If sommaB = 56 Then ambi(5) = 48 : ok = 1
If sommaB = 56 Then ambi(6) = 07 : ok = 1
'----- 57-----------------------------------
If sommaA = 57 Then ambi(3) = 77 : ok = 1
If sommaA = 57 Then ambi(4) = 05 : ok = 1
If sommaB = 57 Then ambi(5) = 77 : ok = 1
If sommaB = 57 Then ambi(6) = 05 : ok = 1
'-------58 --------------------------------
If sommaA = 58 Then ambi(3) = 16 : ok = 1
If sommaA = 58 Then ambi(4) = 02 : ok = 1
If sommaB = 58 Then ambi(5) = 16 : ok = 1
If sommaB = 58 Then ambi(6) = 02 : ok = 1
'----- 59-----------------------------------
If sommaA = 59 Then ambi(3) = 45 : ok = 1
If sommaA = 59 Then ambi(4) = 10 : ok = 1
If sommaB = 59 Then ambi(5) = 45 : ok = 1
If sommaB = 59 Then ambi(6) = 10 : ok = 1
'----- 60-----------------------------------
If sommaA = 60 Then ambi(3) = 74 : ok = 1
If sommaA = 60 Then ambi(4) = 08 : ok = 1
If sommaB = 60 Then ambi(5) = 74 : ok = 1
If sommaB = 60 Then ambi(6) = 08 : ok = 1
'----- 61-----------------------------------
If sommaA = 61 Then ambi(3) = 02 : ok = 1
If sommaA = 61 Then ambi(4) = 67 : ok = 1
If sommaB = 61 Then ambi(5) = 02 : ok = 1
If sommaB = 61 Then ambi(6) = 67 : ok = 1
'----- 62-----------------------------------
If sommaA = 62 Then ambi(3) = 31 : ok = 1
If sommaA = 62 Then ambi(4) = 65 : ok = 1
If sommaB = 62 Then ambi(5) = 31 : ok = 1
If sommaB = 62 Then ambi(6) = 65 : ok = 1
'-------63 --------------------------------
If sommaA = 63 Then ambi(3) = 60 : ok = 1
If sommaA = 63 Then ambi(4) = 74 : ok = 1
If sommaB = 63 Then ambi(5) = 60 : ok = 1
If sommaB = 63 Then ambi(6) = 74 : ok = 1
'----- 64-----------------------------------
If sommaA = 64 Then ambi(3) = 89 : ok = 1
If sommaA = 64 Then ambi(4) = 52 : ok = 1
If sommaB = 64 Then ambi(5) = 89 : ok = 1
If sommaB = 64 Then ambi(6) = 52 : ok = 1
'----- 65-----------------------------------
If sommaA = 65 Then ambi(3) = 28 : ok = 1
If sommaA = 65 Then ambi(4) = 79 : ok = 1
If sommaB = 65 Then ambi(5) = 28 : ok = 1
If sommaB = 65 Then ambi(6) = 79 : ok = 1
'-------66 --------------------------------
If sommaA = 66 Then ambi(3) = 57 : ok = 1
If sommaA = 66 Then ambi(4) = 77 : ok = 1
If sommaB = 66 Then ambi(5) = 57 : ok = 1
If sommaB = 66 Then ambi(6) = 77 : ok = 1
'----- 67-----------------------------------
If sommaA = 67 Then ambi(3) = 86 : ok = 1
If sommaA = 67 Then ambi(4) = 55 : ok = 1
If sommaB = 67 Then ambi(5) = 86 : ok = 1
If sommaB = 67 Then ambi(6) = 55 : ok = 1
'----- 68-----------------------------------
If sommaA = 68 Then ambi(3) = 25 : ok = 1
If sommaA = 68 Then ambi(4) = 82 : ok = 1
If sommaB = 68 Then ambi(5) = 25 : ok = 1
If sommaB = 68 Then ambi(6) = 82 : ok = 1
'-------69 --------------------------------
If sommaA = 69 Then ambi(3) = 54 : ok = 1
If sommaA = 69 Then ambi(4) = 80 : ok = 1
If sommaB = 69 Then ambi(5) = 54 : ok = 1
If sommaB = 69 Then ambi(6) = 80 : ok = 1
'----- 70-----------------------------------
If sommaA = 70 Then ambi(3) = 83 : ok = 1
If sommaA = 70 Then ambi(4) = 58 : ok = 1
If sommaB = 70 Then ambi(5) = 83 : ok = 1
If sommaB = 70 Then ambi(6) = 58 : ok = 1
'----- 71-----------------------------------
If sommaA = 71 Then ambi(3) = 11 : ok = 1
If sommaA = 71 Then ambi(4) = 47 : ok = 1
If sommaB = 71 Then ambi(5) = 11 : ok = 1
If sommaB = 71 Then ambi(6) = 47 : ok = 1
'----- 72-----------------------------------
If sommaA = 72 Then ambi(3) = 40 : ok = 1
If sommaA = 72 Then ambi(4) = 56 : ok = 1
If sommaB = 72 Then ambi(5) = 40 : ok = 1
If sommaB = 72 Then ambi(6) = 56 : ok = 1
'----- 73-----------------------------------
If sommaA = 73 Then ambi(3) = 69 : ok = 1
If sommaA = 73 Then ambi(4) = 54 : ok = 1
If sommaB = 73 Then ambi(5) = 69 : ok = 1
If sommaB = 73 Then ambi(6) = 54 : ok = 1
'-------74----------------------------------
If sommaA = 74 Then ambi(3) = 08 : ok = 1
If sommaA = 74 Then ambi(4) = 61 : ok = 1
If sommaB = 74 Then ambi(5) = 08 : ok = 1
If sommaB = 74 Then ambi(6) = 61 : ok = 1
'----- 75-----------------------------------
If sommaA = 75 Then ambi(3) = 37 : ok = 1
If sommaA = 75 Then ambi(4) = 59 : ok = 1
If sommaB = 75 Then ambi(5) = 37 : ok = 1
If sommaB = 75 Then ambi(6) = 59 : ok = 1
'----- 76-----------------------------------
If sommaA = 76 Then ambi(3) = 66 : ok = 1
If sommaA = 76 Then ambi(4) = 57 : ok = 1
If sommaB = 76 Then ambi(5) = 66 : ok = 1
If sommaB = 76 Then ambi(6) = 57 : ok = 1
'----- 77-----------------------------------
If sommaA = 77 Then ambi(3) = 05 : ok = 1
If sommaA = 77 Then ambi(4) = 64 : ok = 1
If sommaB = 77 Then ambi(5) = 05 : ok = 1
If sommaB = 77 Then ambi(6) = 64 : ok = 1
'-------78 --------------------------------
If sommaA = 78 Then ambi(3) = 34 : ok = 1
If sommaA = 78 Then ambi(4) = 62 : ok = 1
If sommaB = 78 Then ambi(5) = 34 : ok = 1
If sommaB = 78 Then ambi(6) = 62 : ok = 1
'----- 79-----------------------------------
If sommaA = 79 Then ambi(3) = 63 : ok = 1
If sommaA = 79 Then ambi(4) = 60 : ok = 1
If sommaB = 79 Then ambi(5) = 63 : ok = 1
If sommaB = 79 Then ambi(6) = 60 : ok = 1
'----- 80-----------------------------------
If sommaA = 80 Then ambi(3) = 02 : ok = 1
If sommaA = 80 Then ambi(4) = 67 : ok = 1
If sommaB = 80 Then ambi(5) = 02 : ok = 1
If sommaB = 80 Then ambi(6) = 67 : ok = 1
'-------81 --------------------------------
If sommaA = 81 Then ambi(3) = 90 : ok = 1
If sommaA = 81 Then ambi(4) = 81 : ok = 1
If sommaB = 81 Then ambi(5) = 90 : ok = 1
If sommaB = 81 Then ambi(6) = 81 : ok = 1
'----- 82-----------------------------------
If sommaA = 82 Then ambi(3) = 29 : ok = 1
If sommaA = 82 Then ambi(4) = 18 : ok = 1
If sommaB = 82 Then ambi(5) = 29 : ok = 1
If sommaB = 82 Then ambi(6) = 18 : ok = 1
'----- 83-----------------------------------
If sommaA = 83 Then ambi(3) = 58 : ok = 1
If sommaA = 83 Then ambi(4) = 16 : ok = 1
If sommaB = 83 Then ambi(5) = 58 : ok = 1
If sommaB = 83 Then ambi(6) = 16 : ok = 1
'----- 84-----------------------------------
If sommaA = 84 Then ambi(3) = 87 : ok = 1
If sommaA = 84 Then ambi(4) = 84 : ok = 1
If sommaB = 84 Then ambi(5) = 87 : ok = 1
If sommaB = 84 Then ambi(6) = 84 : ok = 1
'----- 85-----------------------------------
If sommaA = 85 Then ambi(3) = 26 : ok = 1
If sommaA = 85 Then ambi(4) = 21 : ok = 1
If sommaB = 85 Then ambi(5) = 26 : ok = 1
If sommaB = 85 Then ambi(6) = 21 : ok = 1
'-------86 --------------------------------
If sommaA = 86 Then ambi(3) = 55 : ok = 1
If sommaA = 86 Then ambi(4) = 19 : ok = 1
If sommaB = 86 Then ambi(5) = 55 : ok = 1
If sommaB = 86 Then ambi(6) = 19 : ok = 1
'----- 87-----------------------------------
If sommaA = 87 Then ambi(3) = 84 : ok = 1
If sommaA = 87 Then ambi(4) = 87 : ok = 1
If sommaB = 87 Then ambi(5) = 84 : ok = 1
If sommaB = 87 Then ambi(6) = 87 : ok = 1
'----- 88-----------------------------------
If sommaA = 88 Then ambi(3) = 23 : ok = 1
If sommaA = 88 Then ambi(4) = 24 : ok = 1
If sommaB = 88 Then ambi(5) = 23 : ok = 1
If sommaB = 88 Then ambi(6) = 24 : ok = 1
'-------89 --------------------------------
If sommaA = 89 Then ambi(3) = 52 : ok = 1
If sommaA = 89 Then ambi(4) = 22 : ok = 1
If sommaB = 89 Then ambi(5) = 52 : ok = 1
If sommaB = 89 Then ambi(6) = 22 : ok = 1
'----- 90-----------------------------------
If sommaA = 90 Then ambi(3) = 81 : ok = 1
If sommaA = 90 Then ambi(4) = 90 : ok = 1
If sommaB = 90 Then ambi(5) = 81 : ok = 1
If sommaB = 90 Then ambi(6) = 90 : ok = 1


'----------- continuare ad inserire ----------












'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione

'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
Scrivi "Numero Spia " & a & " " & String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp,1
ImpostaGiocata 2,ambi,ruote,ptt,clp,2
ImpostaGiocata 3,ambi,rtt,ptt,clp,3

Gioca es,1
End If
End If
End If ' chiude if quale numero spia
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0

End Sub

 

[mastrogino]

Ciao Gio' vedo che hai fatto tardi, e comunque c'è l'hai fatta. Bravo.
Solo in questo modo si può imparare analizzando in vbscript i propri progetti.
Le modifiche che chiedi sono semplicissime da mettere

1 devi dichiarare la variabile dim ruoteTutte ( dim rtt(1) )
dopo devi indicargli rtt(1) = 11
e inserire un altra impostaGiocata con la ruota tutte : ImpostaGiocata 3, ambi,rtt,ptt,clp,3
per gli input box niente di + semplice se leggi lo script capisci !!!.

ad ogni modo bravo.

P.s. per la validità non saprei !!! , per convergenze mi sembra possa venire utile.

Ciao Mike e magari continua ad esercitarti.

Sub Main

Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3),rtt(1)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
QUANTEES = InputBox("QUANTE ESTRAZIONI VUOI ANALIZZARE",,50)
SPIA = CInt(InputBox("QUALE NUMERO SPIA ANALIZZI",,89))
clp = 9

ini = EstrazioneFin - QUANTEES
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58 - elabora estrazioni.. ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = SPIA Then
If b = SPIA Then
sommaA = Fuori90(SommaEstratti(es,r1))
sommaB = Fuori90(SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 38 : ok = 1
If a = 1 Then ambata(2) = 88 : ok = 1
If a = 1 Then ambi(1) = 38 : ok = 1
If a = 1 Then ambi(2) = 88 : ok = 1

'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 67 : ok = 1
If a = 2 Then ambata(2) = 86 : ok = 1
If a = 2 Then ambi(1) = 67 : ok = 1
If a = 2 Then ambi(2) = 86 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 6 : ok = 1
If a = 3 Then ambata(2) = 3 : ok = 1
If a = 3 Then ambi(1) = 6 : ok = 1
If a = 3 Then ambi(2) = 3 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 35 : ok = 1
If a = 4 Then ambata(2) = 1 : ok = 1
If a = 4 Then ambi(1) = 35 : ok = 1
If a = 4 Then ambi(2) = 1 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 64 : ok = 1
If a = 5 Then ambata(2) = 89 : ok = 1
If a = 5 Then ambi(1) = 64 : ok = 1
If a = 5 Then ambi(2) = 89 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 3 : ok = 1
If a = 6 Then ambata(2) = 6 : ok = 1
If a = 6 Then ambi(1) = 3 : ok = 1
If a = 6 Then ambi(2) = 6 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 32 : ok = 1
If a = 7 Then ambata(2) = 4 : ok = 1
If a = 7 Then ambi(1) = 32 : ok = 1
If a = 7 Then ambi(2) = 4 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 61 : ok = 1
If a = 8 Then ambata(2) = 2 : ok = 1
If a = 8 Then ambi(1) = 61 : ok = 1
If a = 8 Then ambi(2) = 2 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 90 : ok = 1
If a = 9 Then ambata(2) = 81 : ok = 1
If a = 9 Then ambi(1) = 90 : ok = 1
If a = 9 Then ambi(2) = 81 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 29 : ok = 1
If a = 10 Then ambata(2) = 18 : ok = 1
If a = 10 Then ambi(1) = 29 : ok = 1
If a = 10 Then ambi(2) = 18 : ok = 1
'---------------11------------------------
If a = 11 Then ambata(1) = 47 : ok = 1
If a = 11 Then ambata(2) = 68 : ok = 1
If a = 11 Then ambi(1) = 47 : ok = 1
If a = 11 Then ambi(2) = 68 : ok = 1
'---------------12------------------------
If a = 12 Then ambata(1) = 76 : ok = 1
If a = 12 Then ambata(2) = 66 : ok = 1
If a = 12 Then ambi(1) = 76 : ok = 1
If a = 12 Then ambi(2) = 66 : ok = 1
'---------------13 ------------------------
If a = 13 Then ambata(1) = 15 : ok = 1
If a = 13 Then ambata(2) = 73 : ok = 1
If a = 13 Then ambi(1) = 15 : ok = 1
If a = 13 Then ambi(2) = 73 : ok = 1
'---------------14 ------------------------
If a = 14 Then ambata(1) = 44 : ok = 1
If a = 14 Then ambata(2) = 71 : ok = 1
If a = 14 Then ambi(1) = 44 : ok = 1
If a = 14 Then ambi(2) = 71 : ok = 1
'---------------15 ------------------------
If a = 14 Then ambata(1) = 73 : ok = 1
If a = 14 Then ambata(2) = 69 : ok = 1
If a = 14 Then ambi(1) = 73 : ok = 1
If a = 14 Then ambi(2) = 69 : ok = 1
'--------------16 ------------------------
If a = 16 Then ambata(1) = 12 : ok = 1
If a = 16 Then ambata(2) = 76 : ok = 1
If a = 16 Then ambi(1) = 12 : ok = 1
If a = 16 Then ambi(2) = 76 : ok = 1
'--------------17 ------------------------
If a = 17 Then ambata(1) = 41 : ok = 1
If a = 17 Then ambata(2) = 74 : ok = 1
If a = 17 Then ambi(1) = 41 : ok = 1
If a = 17 Then ambi(2) = 74 : ok = 1
'--------------18 ------------------------
If a = 18 Then ambata(1) = 70 : ok = 1
If a = 18 Then ambata(2) = 83 : ok = 1
If a = 18 Then ambi(1) = 70 : ok = 1
If a = 18 Then ambi(2) = 83 : ok = 1
'--------------19 ------------------------
If a = 19 Then ambata(1) = 09 : ok = 1
If a = 19 Then ambata(2) = 90 : ok = 1
If a = 19 Then ambi(1) = 09 : ok = 1
If a = 19 Then ambi(2) = 90 : ok = 1
'--------------20 ------------------------
If a = 20 Then ambata(1) = 38 : ok = 1
If a = 20 Then ambata(2) = 88 : ok = 1
If a = 20 Then ambi(1) = 38 : ok = 1
If a = 20 Then ambi(2) = 88 : ok = 1
'--------------21 ------------------------
If a = 21 Then ambata(1) = 56 : ok = 1
If a = 21 Then ambata(2) = 48 : ok = 1
If a = 21 Then ambi(1) = 56 : ok = 1
If a = 21 Then ambi(2) = 48 : ok = 1
'--------------22 ------------------------
If a = 22 Then ambata(1) = 85 : ok = 1
If a = 22 Then ambata(2) = 26 : ok = 1
If a = 22 Then ambi(1) = 85 : ok = 1
If a = 22 Then ambi(2) = 26 : ok = 1
'--------------23 ------------------------
If a = 23 Then ambata(1) = 24 : ok = 1
If a = 23 Then ambata(2) = 53 : ok = 1
If a = 23 Then ambi(1) = 24 : ok = 1
If a = 23 Then ambi(2) = 53 : ok = 1
'--------------24 ------------------------
If a = 24 Then ambata(1) = 53 : ok = 1
If a = 24 Then ambata(2) = 51 : ok = 1
If a = 24 Then ambi(1) = 53 : ok = 1
If a = 24 Then ambi(2) = 51 : ok = 1
'--------------25 ------------------------
If a = 25 Then ambata(1) = 82 : ok = 1
If a = 25 Then ambata(2) = 29 : ok = 1
If a = 25 Then ambi(1) = 82 : ok = 1
If a = 25 Then ambi(2) = 29 : ok = 1
'--------------26 ------------------------
If a = 26 Then ambata(1) = 21 : ok = 1
If a = 26 Then ambata(2) = 56 : ok = 1
If a = 26 Then ambi(1) = 21 : ok = 1
If a = 26 Then ambi(2) = 56 : ok = 1
'--------------27 ------------------------
If a = 27 Then ambata(1) = 50 : ok = 1
If a = 27 Then ambata(2) = 65 : ok = 1
If a = 27 Then ambi(1) = 50 : ok = 1
If a = 27 Then ambi(2) = 65 : ok = 1
'--------------28 ------------------------
If a = 28 Then ambata(1) = 79 : ok = 1
If a = 28 Then ambata(2) = 63 : ok = 1
If a = 28 Then ambi(1) = 79 : ok = 1
If a = 28 Then ambi(2) = 63 : ok = 1
'--------------29 ------------------------
If a = 29 Then ambata(1) = 18 : ok = 1
If a = 29 Then ambata(2) = 70 : ok = 1
If a = 29 Then ambi(1) = 18 : ok = 1
If a = 29 Then ambi(2) = 70 : ok = 1
'--------------30 ------------------------
If a = 30 Then ambata(1) = 47 : ok = 1
If a = 30 Then ambata(2) = 68 : ok = 1
If a = 30 Then ambi(1) = 47 : ok = 1
If a = 30 Then ambi(2) = 68 : ok = 1
'--------------31 ------------------------
If a = 31 Then ambata(1) = 65 : ok = 1
If a = 31 Then ambata(2) = 28 : ok = 1
If a = 31 Then ambi(1) = 65 : ok = 1
If a = 31 Then ambi(2) = 28 : ok = 1
'--------------32 ------------------------
If a = 32 Then ambata(1) = 04 : ok = 1
If a = 32 Then ambata(2) = 35 : ok = 1
If a = 32 Then ambi(1) = 04 : ok = 1
If a = 32 Then ambi(2) = 35 : ok = 1
'--------------33 ------------------------
If a = 33 Then ambata(1) = 33 : ok = 1
If a = 33 Then ambata(2) = 33 : ok = 1
If a = 33 Then ambi(1) = 33 : ok = 1
If a = 33 Then ambi(2) = 33 : ok = 1
'--------------34 ------------------------
If a = 34 Then ambata(1) = 62 : ok = 1
If a = 34 Then ambata(2) = 31 : ok = 1
If a = 34 Then ambi(1) = 62 : ok = 1
If a = 34 Then ambi(2) = 31 : ok = 1
'--------------35 ------------------------
If a = 35 Then ambata(1) = 01 : ok = 1
If a = 35 Then ambata(2) = 38 : ok = 1
If a = 35 Then ambi(1) = 01 : ok = 1
If a = 35 Then ambi(2) = 38 : ok = 1
'--------------36 ------------------------
If a = 36 Then ambata(1) = 30 : ok = 1
If a = 36 Then ambata(2) = 47 : ok = 1
If a = 36 Then ambi(1) = 30 : ok = 1
If a = 36 Then ambi(2) = 47 : ok = 1
'--------------37 ------------------------
If a = 37 Then ambata(1) = 59 : ok = 1
If a = 37 Then ambata(2) = 45 : ok = 1
If a = 37 Then ambi(1) = 59 : ok = 1
If a = 37 Then ambi(2) = 45 : ok = 1
'--------------38 ------------------------
If a = 38 Then ambata(1) = 88 : ok = 1
If a = 38 Then ambata(2) = 23 : ok = 1
If a = 38 Then ambi(1) = 88 : ok = 1
If a = 38 Then ambi(2) = 23 : ok = 1
'--------------39 ------------------------
If a = 39 Then ambata(1) = 27 : ok = 1
If a = 39 Then ambata(2) = 50 : ok = 1
If a = 39 Then ambi(1) = 27 : ok = 1
If a = 39 Then ambi(2) = 50 : ok = 1
'--------------40 ------------------------
If a = 40 Then ambata(1) = 56 : ok = 1
If a = 40 Then ambata(2) = 48 : ok = 1
If a = 40 Then ambi(1) = 56 : ok = 1
If a = 40 Then ambi(2) = 48 : ok = 1
'--------------41 ------------------------
If a = 41 Then ambata(1) = 74 : ok = 1
If a = 41 Then ambata(2) = 08 : ok = 1
If a = 41 Then ambi(1) = 74 : ok = 1
If a = 41 Then ambi(2) = 08 : ok = 1
'--------------42 ------------------------
If a = 42 Then ambata(1) = 13 : ok = 1
If a = 42 Then ambata(2) = 15 : ok = 1
If a = 42 Then ambi(1) = 13 : ok = 1
If a = 42 Then ambi(2) = 15 : ok = 1
'--------------43 ------------------------
If a = 43 Then ambata(1) = 42 : ok = 1
If a = 43 Then ambata(2) = 13 : ok = 1
If a = 43 Then ambi(1) = 42 : ok = 1
If a = 43 Then ambi(2) = 13 : ok = 1
'--------------44 ------------------------
If a = 44 Then ambata(1) = 71 : ok = 1
If a = 44 Then ambata(2) = 11 : ok = 1
If a = 44 Then ambi(1) = 71 : ok = 1
If a = 44 Then ambi(2) = 11 : ok = 1
'--------------45 ------------------------
If a = 45 Then ambata(1) = 10 : ok = 1
If a = 45 Then ambata(2) = 29 : ok = 1
If a = 45 Then ambi(1) = 10 : ok = 1
If a = 45 Then ambi(2) = 29 : ok = 1
'--------------46 ------------------------
If a = 46 Then ambata(1) = 39 : ok = 1
If a = 46 Then ambata(2) = 27 : ok = 1
If a = 46 Then ambi(1) = 39 : ok = 1
If a = 46 Then ambi(2) = 27 : ok = 1
'--------------47 ------------------------
If a = 47 Then ambata(1) = 68 : ok = 1
If a = 47 Then ambata(2) = 25 : ok = 1
If a = 47 Then ambi(1) = 68 : ok = 1
If a = 47 Then ambi(2) = 25 : ok = 1
'--------------48 ------------------------
If a = 48 Then ambata(1) = 07 : ok = 1
If a = 48 Then ambata(2) = 32 : ok = 1
If a = 48 Then ambi(1) = 07 : ok = 1
If a = 48 Then ambi(2) = 32 : ok = 1
'--------------49 ------------------------
If a = 49 Then ambata(1) = 36 : ok = 1
If a = 49 Then ambata(2) = 30 : ok = 1
If a = 49 Then ambi(1) = 36 : ok = 1
If a = 49 Then ambi(2) = 30 : ok = 1
'--------------50 ------------------------
If a = 50 Then ambata(1) = 65 : ok = 1
If a = 50 Then ambata(2) = 28 : ok = 1
If a = 50 Then ambi(1) = 65 : ok = 1
If a = 50 Then ambi(2) = 28 : ok = 1
'--------------51 ------------------------
If a = 51 Then ambata(1) = 83 : ok = 1
If a = 51 Then ambata(2) = 58 : ok = 1
If a = 51 Then ambi(1) = 83 : ok = 1
If a = 51 Then ambi(2) = 58 : ok = 1
'--------------52 ------------------------
If a = 52 Then ambata(1) = 22 : ok = 1
If a = 52 Then ambata(2) = 85 : ok = 1
If a = 52 Then ambi(1) = 22 : ok = 1
If a = 52 Then ambi(2) = 85 : ok = 1
'--------------53 ------------------------
If a = 53 Then ambata(1) = 51 : ok = 1
If a = 53 Then ambata(2) = 83 : ok = 1
If a = 53 Then ambi(1) = 51 : ok = 1
If a = 53 Then ambi(2) = 83 : ok = 1
'--------------54 ------------------------
If a = 54 Then ambata(1) = 80 : ok = 1
If a = 54 Then ambata(2) = 02 : ok = 1
If a = 54 Then ambi(1) = 80 : ok = 1
If a = 54 Then ambi(2) = 02 : ok = 1
'--------------55 ------------------------
If a = 55 Then ambata(1) = 19 : ok = 1
If a = 55 Then ambata(2) = 09 : ok = 1
If a = 55 Then ambi(1) = 19 : ok = 1
If a = 55 Then ambi(2) = 09 : ok = 1
'--------------56 ------------------------
If a = 56 Then ambata(1) = 48 : ok = 1
If a = 56 Then ambata(2) = 07 : ok = 1
If a = 56 Then ambi(1) = 48 : ok = 1
If a = 56 Then ambi(2) = 07 : ok = 1
'--------------57 ------------------------
If a = 57 Then ambata(1) = 77 : ok = 1
If a = 57 Then ambata(2) = 05 : ok = 1
If a = 57 Then ambi(1) = 77 : ok = 1
If a = 57 Then ambi(2) = 05 : ok = 1
'--------------58 ------------------------
If a = 58 Then ambata(1) = 16 : ok = 1
If a = 58 Then ambata(2) = 12 : ok = 1
If a = 58 Then ambi(1) = 16 : ok = 1
If a = 58 Then ambi(2) = 12 : ok = 1
'--------------59 ------------------------
If a = 59 Then ambata(1) = 45 : ok = 1
If a = 59 Then ambata(2) = 10 : ok = 1
If a = 59 Then ambi(1) = 45 : ok = 1
If a = 59 Then ambi(2) = 10 : ok = 1
'--------------60 ------------------------
If a = 60 Then ambata(1) = 74 : ok = 1
If a = 60 Then ambata(2) = 08 : ok = 1
If a = 60 Then ambi(1) = 74 : ok = 1
If a = 60 Then ambi(2) = 08 : ok = 1
'--------------61 ------------------------
If a = 61 Then ambata(1) = 02 : ok = 1
If a = 61 Then ambata(2) = 67 : ok = 1
If a = 61 Then ambi(1) = 02 : ok = 1
If a = 61 Then ambi(2) = 67 : ok = 1
'--------------62 ------------------------
If a = 62 Then ambata(1) = 31 : ok = 1
If a = 62 Then ambata(2) = 65 : ok = 1
If a = 62 Then ambi(1) = 31 : ok = 1
If a = 62 Then ambi(2) = 65 : ok = 1
'--------------63 ------------------------
If a = 63 Then ambata(1) = 60 : ok = 1
If a = 63 Then ambata(2) = 74 : ok = 1
If a = 63 Then ambi(1) = 60 : ok = 1
If a = 63 Then ambi(2) = 74 : ok = 1
'--------------64 ------------------------
If a = 64 Then ambata(1) = 89 : ok = 1
If a = 64 Then ambata(2) = 52 : ok = 1
If a = 64 Then ambi(1) = 89 : ok = 1
If a = 64 Then ambi(2) = 52 : ok = 1
'--------------65 ------------------------
If a = 65 Then ambata(1) = 28 : ok = 1
If a = 65 Then ambata(2) = 79 : ok = 1
If a = 65 Then ambi(1) = 28 : ok = 1
If a = 65 Then ambi(2) = 79 : ok = 1
'--------------66 ------------------------
If a = 66 Then ambata(1) = 57 : ok = 1
If a = 66 Then ambata(2) = 77 : ok = 1
If a = 66 Then ambi(1) = 57 : ok = 1
If a = 66 Then ambi(2) = 77 : ok = 1
'--------------67 ------------------------
If a = 67 Then ambata(1) = 86 : ok = 1
If a = 67 Then ambata(2) = 55 : ok = 1
If a = 67 Then ambi(1) = 86 : ok = 1
If a = 67 Then ambi(2) = 55 : ok = 1
'--------------68 ------------------------
If a = 68 Then ambata(1) = 25 : ok = 1
If a = 68 Then ambata(2) = 82 : ok = 1
If a = 68 Then ambi(1) = 25 : ok = 1
If a = 68 Then ambi(2) = 82 : ok = 1
'--------------69 ------------------------
If a = 69 Then ambata(1) = 54 : ok = 1
If a = 69 Then ambata(2) = 80 : ok = 1
If a = 69 Then ambi(1) = 54 : ok = 1
If a = 69 Then ambi(2) = 50 : ok = 1
'--------------70 ------------------------
If a = 70 Then ambata(1) = 83 : ok = 1
If a = 70 Then ambata(2) = 58 : ok = 1
If a = 70 Then ambi(1) = 83 : ok = 1
If a = 70 Then ambi(2) = 58 : ok = 1
'--------------71 ------------------------
If a = 71 Then ambata(1) = 11 : ok = 1
If a = 71 Then ambata(2) = 47 : ok = 1
If a = 71 Then ambi(1) = 11 : ok = 1
If a = 71 Then ambi(2) = 47 : ok = 1
'--------------72 ------------------------
If a = 72 Then ambata(1) = 40 : ok = 1
If a = 72 Then ambata(2) = 56 : ok = 1
If a = 72 Then ambi(1) = 40 : ok = 1
If a = 72 Then ambi(2) = 56 : ok = 1
'--------------73 ------------------------
If a = 73 Then ambata(1) = 69 : ok = 1
If a = 73 Then ambata(2) = 54 : ok = 1
If a = 73 Then ambi(1) = 69 : ok = 1
If a = 73 Then ambi(2) = 54 : ok = 1
'--------------74 ------------------------
If a = 74 Then ambata(1) = 08 : ok = 1
If a = 74 Then ambata(2) = 61 : ok = 1
If a = 74 Then ambi(1) = 08 : ok = 1
If a = 74 Then ambi(2) = 61 : ok = 1
'--------------75 ------------------------
If a = 75 Then ambata(1) = 37 : ok = 1
If a = 75 Then ambata(2) = 59 : ok = 1
If a = 75 Then ambi(1) = 37 : ok = 1
If a = 75 Then ambi(2) = 59 : ok = 1
'--------------76 ------------------------
If a = 76 Then ambata(1) = 66 : ok = 1
If a = 76 Then ambata(2) = 57 : ok = 1
If a = 76 Then ambi(1) = 66 : ok = 1
If a = 76 Then ambi(2) = 57 : ok = 1
'--------------77 ------------------------
If a = 77 Then ambata(1) = 05 : ok = 1
If a = 77 Then ambata(2) = 64 : ok = 1
If a = 77 Then ambi(1) = 05 : ok = 1
If a = 77 Then ambi(2) = 64 : ok = 1
'--------------78 ------------------------
If a = 78 Then ambata(1) = 34 : ok = 1
If a = 78 Then ambata(2) = 62 : ok = 1
If a = 78 Then ambi(1) = 34 : ok = 1
If a = 78 Then ambi(2) = 62 : ok = 1
'--------------79 ------------------------
If a = 79 Then ambata(1) = 63 : ok = 1
If a = 79 Then ambata(2) = 60 : ok = 1
If a = 79 Then ambi(1) = 63 : ok = 1
If a = 79 Then ambi(2) = 60 : ok = 1
'--------------80 ------------------------
If a = 80 Then ambata(1) = 02 : ok = 1
If a = 80 Then ambata(2) = 67 : ok = 1
If a = 80 Then ambi(1) = 02 : ok = 1
If a = 80 Then ambi(2) = 67 : ok = 1
'--------------81 ------------------------
If a = 81 Then ambata(1) = 90 : ok = 1
If a = 81 Then ambata(2) = 81 : ok = 1
If a = 81 Then ambi(1) = 90 : ok = 1
If a = 81 Then ambi(2) = 81 : ok = 1
'--------------82 ------------------------
If a = 82 Then ambata(1) = 29 : ok = 1
If a = 82 Then ambata(2) = 18 : ok = 1
If a = 82 Then ambi(1) = 29 : ok = 1
If a = 82 Then ambi(2) = 18 : ok = 1
'--------------83 ------------------------
If a = 83 Then ambata(1) = 58 : ok = 1
If a = 83 Then ambata(2) = 16 : ok = 1
If a = 83 Then ambi(1) = 58 : ok = 1
If a = 83 Then ambi(2) = 16 : ok = 1
'--------------84 ------------------------
If a = 84 Then ambata(1) = 87 : ok = 1
If a = 84 Then ambata(2) = 84 : ok = 1
If a = 84 Then ambi(1) = 87 : ok = 1
If a = 84 Then ambi(2) = 84 : ok = 1
'--------------85 ------------------------
If a = 85 Then ambata(1) = 26 : ok = 1
If a = 85 Then ambata(2) = 21 : ok = 1
If a = 85 Then ambi(1) = 26 : ok = 1
If a = 85 Then ambi(2) = 21 : ok = 1
'--------------86 ------------------------
If a = 86 Then ambata(1) = 55 : ok = 1
If a = 86 Then ambata(2) = 19 : ok = 1
If a = 86 Then ambi(1) = 55 : ok = 1
If a = 86 Then ambi(2) = 19 : ok = 1
'--------------87 ------------------------
If a = 87 Then ambata(1) = 84 : ok = 1
If a = 87 Then ambata(2) = 87 : ok = 1
If a = 87 Then ambi(1) = 84 : ok = 1
If a = 87 Then ambi(2) = 87 : ok = 1
'--------------88 ------------------------
If a = 88 Then ambata(1) = 23 : ok = 1
If a = 88 Then ambata(2) = 24 : ok = 1
If a = 88 Then ambi(1) = 23 : ok = 1
If a = 88 Then ambi(2) = 24 : ok = 1
'--------------89 ------------------------
If a = 89 Then ambata(1) = 52 : ok = 1
If a = 89 Then ambata(2) = 22 : ok = 1
If a = 89 Then ambi(1) = 52 : ok = 1
If a = 89 Then ambi(2) = 22 : ok = 1
'--------------90 ------------------------
If a = 90 Then ambata(1) = 81 : ok = 1
If a = 90 Then ambata(2) = 90 : ok = 1
If a = 90 Then ambi(1) = 81 : ok = 1
If a = 90 Then ambi(2) = 90 : ok = 1






'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 38 : ok = 1
If sommaA = 1 Then ambi(4) = 88 : ok = 1
If sommaB = 1 Then ambi(5) = 38 : ok = 1
If sommaB = 1 Then ambi(6) = 88 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 67 : ok = 1
If sommaA = 2 Then ambi(4) = 86 : ok = 1
If sommaB = 2 Then ambi(5) = 67 : ok = 1
If sommaB = 2 Then ambi(6) = 86 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 6 : ok = 1
If sommaA = 3 Then ambi(4) = 3 : ok = 1
If sommaB = 3 Then ambi(5) = 6 : ok = 1
If sommaB = 3 Then ambi(6) = 3 : ok = 1
'-------4 --------------------------------
If sommaA = 4 Then ambi(3) = 35 : ok = 1
If sommaA = 4 Then ambi(4) = 01 : ok = 1
If sommaB = 4 Then ambi(5) = 35 : ok = 1
If sommaB = 4 Then ambi(6) = 01 : ok = 1
'----- 5-----------------------------------
If sommaA = 5 Then ambi(3) = 64 : ok = 1
If sommaA = 5 Then ambi(4) = 89 : ok = 1
If sommaB = 5 Then ambi(5) = 64 : ok = 1
If sommaB = 5 Then ambi(6) = 89 : ok = 1
'----- 6-----------------------------------
If sommaA = 6 Then ambi(3) = 03 : ok = 1
If sommaA = 6 Then ambi(4) = 06 : ok = 1
If sommaB = 6 Then ambi(5) = 03 : ok = 1
If sommaB = 6 Then ambi(6) = 06 : ok = 1
'-------7 --------------------------------
If sommaA = 7 Then ambi(3) = 09 : ok = 1
If sommaA = 7 Then ambi(4) = 90 : ok = 1
If sommaB = 7 Then ambi(5) = 09 : ok = 1
If sommaB = 7 Then ambi(6) = 90 : ok = 1
'----- 8-----------------------------------
If sommaA = 8 Then ambi(3) = 61 : ok = 1
If sommaA = 8 Then ambi(4) = 02 : ok = 1
If sommaB = 8 Then ambi(5) = 61 : ok = 1
If sommaB = 8 Then ambi(6) = 02 : ok = 1
'----- 9-----------------------------------
If sommaA = 9 Then ambi(3) = 90 : ok = 1
If sommaA = 9 Then ambi(4) = 81 : ok = 1
If sommaB = 9 Then ambi(5) = 90 : ok = 1
If sommaB = 9 Then ambi(6) = 81 : ok = 1
'-------10 --------------------------------
If sommaA = 10 Then ambi(3) = 29 : ok = 1
If sommaA = 10 Then ambi(4) = 18 : ok = 1
If sommaB = 10 Then ambi(5) = 29 : ok = 1
If sommaB = 10 Then ambi(6) = 18 : ok = 1
'----- 11-----------------------------------
If sommaA = 11 Then ambi(3) = 47 : ok = 1
If sommaA = 11 Then ambi(4) = 68 : ok = 1
If sommaB = 11 Then ambi(5) = 47 : ok = 1
If sommaB = 11 Then ambi(6) = 68 : ok = 1
'----- 12-----------------------------------
If sommaA = 12 Then ambi(3) = 76 : ok = 1
If sommaA = 12 Then ambi(4) = 66 : ok = 1
If sommaB = 12 Then ambi(5) = 76 : ok = 1
If sommaB = 12 Then ambi(6) = 66 : ok = 1
'-------13 --------------------------------
If sommaA = 13 Then ambi(3) = 15 : ok = 1
If sommaA = 13 Then ambi(4) = 73 : ok = 1
If sommaB = 13 Then ambi(5) = 15 : ok = 1
If sommaB = 13 Then ambi(6) = 73 : ok = 1
'----- 14-----------------------------------
If sommaA = 14 Then ambi(3) = 44 : ok = 1
If sommaA = 14 Then ambi(4) = 71 : ok = 1
If sommaB = 14 Then ambi(5) = 44 : ok = 1
If sommaB = 14 Then ambi(6) = 71 : ok = 1
'----- 15-----------------------------------
If sommaA = 15 Then ambi(3) = 73 : ok = 1
If sommaA = 15 Then ambi(4) = 69 : ok = 1
If sommaB = 15 Then ambi(5) = 73 : ok = 1
If sommaB = 15 Then ambi(6) = 69 : ok = 1
'----- 16-----------------------------------
If sommaA = 16 Then ambi(3) = 12 : ok = 1
If sommaA = 16 Then ambi(4) = 76 : ok = 1
If sommaB = 16 Then ambi(5) = 12 : ok = 1
If sommaB = 16 Then ambi(6) = 76 : ok = 1
'----- 17-----------------------------------
If sommaA = 17 Then ambi(3) = 41 : ok = 1
If sommaA = 17 Then ambi(4) = 74 : ok = 1
If sommaB = 17 Then ambi(5) = 41 : ok = 1
If sommaB = 17 Then ambi(6) = 74 : ok = 1
'-------18 --------------------------------
If sommaA = 18 Then ambi(3) = 70 : ok = 1
If sommaA = 18 Then ambi(4) = 83 : ok = 1
If sommaB = 18 Then ambi(5) = 70 : ok = 1
If sommaB = 18 Then ambi(6) = 83 : ok = 1
'----- 19-----------------------------------
If sommaA = 19 Then ambi(3) = 09 : ok = 1
If sommaA = 19 Then ambi(4) = 90 : ok = 1
If sommaB = 19 Then ambi(5) = 09 : ok = 1
If sommaB = 19 Then ambi(6) = 90 : ok = 1
'----- 20-----------------------------------
If sommaA = 20 Then ambi(3) = 38 : ok = 1
If sommaA = 20 Then ambi(4) = 88 : ok = 1
If sommaB = 20 Then ambi(5) = 38 : ok = 1
If sommaB = 20 Then ambi(6) = 88 : ok = 1
'-------21 --------------------------------
If sommaA = 21 Then ambi(3) = 56 : ok = 1
If sommaA = 21 Then ambi(4) = 48 : ok = 1
If sommaB = 21 Then ambi(5) = 56 : ok = 1
If sommaB = 21 Then ambi(6) = 48 : ok = 1
'----- 22-----------------------------------
If sommaA = 22 Then ambi(3) = 85 : ok = 1
If sommaA = 22 Then ambi(4) = 26 : ok = 1
If sommaB = 22 Then ambi(5) = 85 : ok = 1
If sommaB = 22 Then ambi(6) = 26 : ok = 1
'----- 23-----------------------------------
If sommaA = 23 Then ambi(3) = 24 : ok = 1
If sommaA = 23 Then ambi(4) = 53 : ok = 1
If sommaB = 23 Then ambi(5) = 24 : ok = 1
If sommaB = 23 Then ambi(6) = 53 : ok = 1
'-------24 --------------------------------
If sommaA = 24 Then ambi(3) = 53 : ok = 1
If sommaA = 24 Then ambi(4) = 51 : ok = 1
If sommaB = 24 Then ambi(5) = 53 : ok = 1
If sommaB = 24 Then ambi(6) = 51 : ok = 1
'----- 25-----------------------------------
If sommaA = 25 Then ambi(3) = 82 : ok = 1
If sommaA = 25 Then ambi(4) = 29 : ok = 1
If sommaB = 25 Then ambi(5) = 82 : ok = 1
If sommaB = 25 Then ambi(6) = 29 : ok = 1
'----- 26-----------------------------------
If sommaA = 26 Then ambi(3) = 21 : ok = 1
If sommaA = 26 Then ambi(4) = 56 : ok = 1
If sommaB = 26 Then ambi(5) = 21 : ok = 1
If sommaB = 26 Then ambi(6) = 56 : ok = 1
'----- 27-----------------------------------
If sommaA = 27 Then ambi(3) = 50 : ok = 1
If sommaA = 27 Then ambi(4) = 65 : ok = 1
If sommaB = 27 Then ambi(5) = 50 : ok = 1
If sommaB = 27 Then ambi(6) = 65 : ok = 1
'----- 28-----------------------------------
If sommaA = 28 Then ambi(3) = 79 : ok = 1
If sommaA = 28 Then ambi(4) = 63 : ok = 1
If sommaB = 28 Then ambi(5) = 79 : ok = 1
If sommaB = 28 Then ambi(6) = 63 : ok = 1
'-------29 --------------------------------
If sommaA = 29 Then ambi(3) = 18 : ok = 1
If sommaA = 29 Then ambi(4) = 70 : ok = 1
If sommaB = 29 Then ambi(5) = 18 : ok = 1
If sommaB = 29 Then ambi(6) = 70 : ok = 1
'----- 30-----------------------------------
If sommaA = 30 Then ambi(3) = 47 : ok = 1
If sommaA = 30 Then ambi(4) = 68 : ok = 1
If sommaB = 30 Then ambi(5) = 47 : ok = 1
If sommaB = 30 Then ambi(6) = 68 : ok = 1
'----- 31-----------------------------------
If sommaA = 31 Then ambi(3) = 65 : ok = 1
If sommaA = 31 Then ambi(4) = 28 : ok = 1
If sommaB = 31 Then ambi(5) = 65 : ok = 1
If sommaB = 31 Then ambi(6) = 28 : ok = 1
'-------32 --------------------------------
If sommaA = 32 Then ambi(3) = 04 : ok = 1
If sommaA = 32 Then ambi(4) = 35 : ok = 1
If sommaB = 32 Then ambi(5) = 04 : ok = 1
If sommaB = 32 Then ambi(6) = 35 : ok = 1
'----- 33-----------------------------------
If sommaA = 33 Then ambi(3) = 33 : ok = 1
If sommaA = 33 Then ambi(4) = 39 : ok = 1
If sommaB = 33 Then ambi(5) = 33 : ok = 1
If sommaB = 33 Then ambi(6) = 39 : ok = 1
'----- 34-----------------------------------
If sommaA = 34 Then ambi(3) = 62 : ok = 1
If sommaA = 34 Then ambi(4) = 31 : ok = 1
If sommaB = 34 Then ambi(5) = 62 : ok = 1
If sommaB = 34 Then ambi(6) = 31 : ok = 1
'-------35 --------------------------------
If sommaA = 35 Then ambi(3) = 01 : ok = 1
If sommaA = 35 Then ambi(4) = 38 : ok = 1
If sommaB = 35 Then ambi(5) = 01 : ok = 1
If sommaB = 35 Then ambi(6) = 38 : ok = 1
'----- 36-----------------------------------
If sommaA = 36 Then ambi(3) = 30 : ok = 1
If sommaA = 36 Then ambi(4) = 47 : ok = 1
If sommaB = 36 Then ambi(5) = 30 : ok = 1
If sommaB = 36 Then ambi(6) = 47 : ok = 1
'----- 37-----------------------------------
If sommaA = 37 Then ambi(3) = 59 : ok = 1
If sommaA = 37 Then ambi(4) = 45 : ok = 1
If sommaB = 37 Then ambi(5) = 59 : ok = 1
If sommaB = 37 Then ambi(6) = 45 : ok = 1
'----- 38-----------------------------------
If sommaA = 38 Then ambi(3) = 88 : ok = 1
If sommaA = 38 Then ambi(4) = 23 : ok = 1
If sommaB = 38 Then ambi(5) = 88 : ok = 1
If sommaB = 38 Then ambi(6) = 23 : ok = 1
'----- 39-----------------------------------
If sommaA = 39 Then ambi(3) = 27 : ok = 1
If sommaA = 39 Then ambi(4) = 50 : ok = 1
If sommaB = 39 Then ambi(5) = 27 : ok = 1
If sommaB = 39 Then ambi(6) = 50 : ok = 1
'-------40 --------------------------------
If sommaA = 40 Then ambi(3) = 56 : ok = 1
If sommaA = 40 Then ambi(4) = 48 : ok = 1
If sommaB = 40 Then ambi(5) = 56 : ok = 1
If sommaB = 40 Then ambi(6) = 48 : ok = 1
'----- 41-----------------------------------
If sommaA = 41 Then ambi(3) = 74 : ok = 1
If sommaA = 41 Then ambi(4) = 08 : ok = 1
If sommaB = 41 Then ambi(5) = 74 : ok = 1
If sommaB = 41 Then ambi(6) = 08 : ok = 1
'----- 42-----------------------------------
If sommaA = 42 Then ambi(3) = 13 : ok = 1
If sommaA = 42 Then ambi(4) = 15 : ok = 1
If sommaB = 42 Then ambi(5) = 13 : ok = 1
If sommaB = 42 Then ambi(6) = 15 : ok = 1
'-------43 --------------------------------
If sommaA = 43 Then ambi(3) = 42 : ok = 1
If sommaA = 43 Then ambi(4) = 13 : ok = 1
If sommaB = 43 Then ambi(5) = 42 : ok = 1
If sommaB = 43 Then ambi(6) = 13 : ok = 1
'----- 44-----------------------------------
If sommaA = 44 Then ambi(3) = 71 : ok = 1
If sommaA = 44 Then ambi(4) = 11 : ok = 1
If sommaB = 44 Then ambi(5) = 71 : ok = 1
If sommaB = 44 Then ambi(6) = 11 : ok = 1
'----- 45-----------------------------------
If sommaA = 45 Then ambi(3) = 10 : ok = 1
If sommaA = 45 Then ambi(4) = 29 : ok = 1
If sommaB = 45 Then ambi(5) = 10 : ok = 1
If sommaB = 45 Then ambi(6) = 29 : ok = 1
'-------46 --------------------------------
If sommaA = 46 Then ambi(3) = 39 : ok = 1
If sommaA = 46 Then ambi(4) = 27 : ok = 1
If sommaB = 46 Then ambi(5) = 39 : ok = 1
If sommaB = 46 Then ambi(6) = 27 : ok = 1
'----- 47-----------------------------------
If sommaA = 47 Then ambi(3) = 68 : ok = 1
If sommaA = 47 Then ambi(4) = 25 : ok = 1
If sommaB = 47 Then ambi(5) = 68 : ok = 1
If sommaB = 47 Then ambi(6) = 25 : ok = 1
'----- 48-----------------------------------
If sommaA = 48 Then ambi(3) = 07 : ok = 1
If sommaA = 48 Then ambi(4) = 32 : ok = 1
If sommaB = 48 Then ambi(5) = 07 : ok = 1
If sommaB = 48 Then ambi(6) = 32 : ok = 1
'----- 49-----------------------------------
If sommaA = 49 Then ambi(3) = 36 : ok = 1
If sommaA = 49 Then ambi(4) = 30 : ok = 1
If sommaB = 49 Then ambi(5) = 36 : ok = 1
If sommaB = 49 Then ambi(6) = 30 : ok = 1
'----- 50-----------------------------------
If sommaA = 50 Then ambi(3) = 65 : ok = 1
If sommaA = 50 Then ambi(4) = 28 : ok = 1
If sommaB = 50 Then ambi(5) = 65 : ok = 1
If sommaB = 50 Then ambi(6) = 28 : ok = 1
'-------51----------------------------------
If sommaA = 51 Then ambi(3) = 83 : ok = 1
If sommaA = 51 Then ambi(4) = 58 : ok = 1
If sommaB = 51 Then ambi(5) = 83 : ok = 1
If sommaB = 51 Then ambi(6) = 58 : ok = 1
'----- 52-----------------------------------
If sommaA = 52 Then ambi(3) = 22 : ok = 1
If sommaA = 52 Then ambi(4) = 85 : ok = 1
If sommaB = 52 Then ambi(5) = 22 : ok = 1
If sommaB = 52 Then ambi(6) = 85 : ok = 1
'----- 53-----------------------------------
If sommaA = 53 Then ambi(3) = 51 : ok = 1
If sommaA = 53 Then ambi(4) = 83 : ok = 1
If sommaB = 53 Then ambi(5) = 51 : ok = 1
If sommaB = 53 Then ambi(6) = 83 : ok = 1
'----- 54-----------------------------------
If sommaA = 54 Then ambi(3) = 80 : ok = 1
If sommaA = 54 Then ambi(4) = 02 : ok = 1
If sommaB = 54 Then ambi(5) = 80 : ok = 1
If sommaB = 54 Then ambi(6) = 02 : ok = 1
'-------55 --------------------------------
If sommaA = 55 Then ambi(3) = 19 : ok = 1
If sommaA = 55 Then ambi(4) = 09 : ok = 1
If sommaB = 55 Then ambi(5) = 19 : ok = 1
If sommaB = 55 Then ambi(6) = 09 : ok = 1
'----- 56-----------------------------------
If sommaA = 56 Then ambi(3) = 48 : ok = 1
If sommaA = 56 Then ambi(4) = 07 : ok = 1
If sommaB = 56 Then ambi(5) = 48 : ok = 1
If sommaB = 56 Then ambi(6) = 07 : ok = 1
'----- 57-----------------------------------
If sommaA = 57 Then ambi(3) = 77 : ok = 1
If sommaA = 57 Then ambi(4) = 05 : ok = 1
If sommaB = 57 Then ambi(5) = 77 : ok = 1
If sommaB = 57 Then ambi(6) = 05 : ok = 1
'-------58 --------------------------------
If sommaA = 58 Then ambi(3) = 16 : ok = 1
If sommaA = 58 Then ambi(4) = 02 : ok = 1
If sommaB = 58 Then ambi(5) = 16 : ok = 1
If sommaB = 58 Then ambi(6) = 02 : ok = 1
'----- 59-----------------------------------
If sommaA = 59 Then ambi(3) = 45 : ok = 1
If sommaA = 59 Then ambi(4) = 10 : ok = 1
If sommaB = 59 Then ambi(5) = 45 : ok = 1
If sommaB = 59 Then ambi(6) = 10 : ok = 1
'----- 60-----------------------------------
If sommaA = 60 Then ambi(3) = 74 : ok = 1
If sommaA = 60 Then ambi(4) = 08 : ok = 1
If sommaB = 60 Then ambi(5) = 74 : ok = 1
If sommaB = 60 Then ambi(6) = 08 : ok = 1
'----- 61-----------------------------------
If sommaA = 61 Then ambi(3) = 02 : ok = 1
If sommaA = 61 Then ambi(4) = 67 : ok = 1
If sommaB = 61 Then ambi(5) = 02 : ok = 1
If sommaB = 61 Then ambi(6) = 67 : ok = 1
'----- 62-----------------------------------
If sommaA = 62 Then ambi(3) = 31 : ok = 1
If sommaA = 62 Then ambi(4) = 65 : ok = 1
If sommaB = 62 Then ambi(5) = 31 : ok = 1
If sommaB = 62 Then ambi(6) = 65 : ok = 1
'-------63 --------------------------------
If sommaA = 63 Then ambi(3) = 60 : ok = 1
If sommaA = 63 Then ambi(4) = 74 : ok = 1
If sommaB = 63 Then ambi(5) = 60 : ok = 1
If sommaB = 63 Then ambi(6) = 74 : ok = 1
'----- 64-----------------------------------
If sommaA = 64 Then ambi(3) = 89 : ok = 1
If sommaA = 64 Then ambi(4) = 52 : ok = 1
If sommaB = 64 Then ambi(5) = 89 : ok = 1
If sommaB = 64 Then ambi(6) = 52 : ok = 1
'----- 65-----------------------------------
If sommaA = 65 Then ambi(3) = 28 : ok = 1
If sommaA = 65 Then ambi(4) = 79 : ok = 1
If sommaB = 65 Then ambi(5) = 28 : ok = 1
If sommaB = 65 Then ambi(6) = 79 : ok = 1
'-------66 --------------------------------
If sommaA = 66 Then ambi(3) = 57 : ok = 1
If sommaA = 66 Then ambi(4) = 77 : ok = 1
If sommaB = 66 Then ambi(5) = 57 : ok = 1
If sommaB = 66 Then ambi(6) = 77 : ok = 1
'----- 67-----------------------------------
If sommaA = 67 Then ambi(3) = 86 : ok = 1
If sommaA = 67 Then ambi(4) = 55 : ok = 1
If sommaB = 67 Then ambi(5) = 86 : ok = 1
If sommaB = 67 Then ambi(6) = 55 : ok = 1
'----- 68-----------------------------------
If sommaA = 68 Then ambi(3) = 25 : ok = 1
If sommaA = 68 Then ambi(4) = 82 : ok = 1
If sommaB = 68 Then ambi(5) = 25 : ok = 1
If sommaB = 68 Then ambi(6) = 82 : ok = 1
'-------69 --------------------------------
If sommaA = 69 Then ambi(3) = 54 : ok = 1
If sommaA = 69 Then ambi(4) = 80 : ok = 1
If sommaB = 69 Then ambi(5) = 54 : ok = 1
If sommaB = 69 Then ambi(6) = 80 : ok = 1
'----- 70-----------------------------------
If sommaA = 70 Then ambi(3) = 83 : ok = 1
If sommaA = 70 Then ambi(4) = 58 : ok = 1
If sommaB = 70 Then ambi(5) = 83 : ok = 1
If sommaB = 70 Then ambi(6) = 58 : ok = 1
'----- 71-----------------------------------
If sommaA = 71 Then ambi(3) = 11 : ok = 1
If sommaA = 71 Then ambi(4) = 47 : ok = 1
If sommaB = 71 Then ambi(5) = 11 : ok = 1
If sommaB = 71 Then ambi(6) = 47 : ok = 1
'----- 72-----------------------------------
If sommaA = 72 Then ambi(3) = 40 : ok = 1
If sommaA = 72 Then ambi(4) = 56 : ok = 1
If sommaB = 72 Then ambi(5) = 40 : ok = 1
If sommaB = 72 Then ambi(6) = 56 : ok = 1
'----- 73-----------------------------------
If sommaA = 73 Then ambi(3) = 69 : ok = 1
If sommaA = 73 Then ambi(4) = 54 : ok = 1
If sommaB = 73 Then ambi(5) = 69 : ok = 1
If sommaB = 73 Then ambi(6) = 54 : ok = 1
'-------74----------------------------------
If sommaA = 74 Then ambi(3) = 08 : ok = 1
If sommaA = 74 Then ambi(4) = 61 : ok = 1
If sommaB = 74 Then ambi(5) = 08 : ok = 1
If sommaB = 74 Then ambi(6) = 61 : ok = 1
'----- 75-----------------------------------
If sommaA = 75 Then ambi(3) = 37 : ok = 1
If sommaA = 75 Then ambi(4) = 59 : ok = 1
If sommaB = 75 Then ambi(5) = 37 : ok = 1
If sommaB = 75 Then ambi(6) = 59 : ok = 1
'----- 76-----------------------------------
If sommaA = 76 Then ambi(3) = 66 : ok = 1
If sommaA = 76 Then ambi(4) = 57 : ok = 1
If sommaB = 76 Then ambi(5) = 66 : ok = 1
If sommaB = 76 Then ambi(6) = 57 : ok = 1
'----- 77-----------------------------------
If sommaA = 77 Then ambi(3) = 05 : ok = 1
If sommaA = 77 Then ambi(4) = 64 : ok = 1
If sommaB = 77 Then ambi(5) = 05 : ok = 1
If sommaB = 77 Then ambi(6) = 64 : ok = 1
'-------78 --------------------------------
If sommaA = 78 Then ambi(3) = 34 : ok = 1
If sommaA = 78 Then ambi(4) = 62 : ok = 1
If sommaB = 78 Then ambi(5) = 34 : ok = 1
If sommaB = 78 Then ambi(6) = 62 : ok = 1
'----- 79-----------------------------------
If sommaA = 79 Then ambi(3) = 63 : ok = 1
If sommaA = 79 Then ambi(4) = 60 : ok = 1
If sommaB = 79 Then ambi(5) = 63 : ok = 1
If sommaB = 79 Then ambi(6) = 60 : ok = 1
'----- 80-----------------------------------
If sommaA = 80 Then ambi(3) = 02 : ok = 1
If sommaA = 80 Then ambi(4) = 67 : ok = 1
If sommaB = 80 Then ambi(5) = 02 : ok = 1
If sommaB = 80 Then ambi(6) = 67 : ok = 1
'-------81 --------------------------------
If sommaA = 81 Then ambi(3) = 90 : ok = 1
If sommaA = 81 Then ambi(4) = 81 : ok = 1
If sommaB = 81 Then ambi(5) = 90 : ok = 1
If sommaB = 81 Then ambi(6) = 81 : ok = 1
'----- 82-----------------------------------
If sommaA = 82 Then ambi(3) = 29 : ok = 1
If sommaA = 82 Then ambi(4) = 18 : ok = 1
If sommaB = 82 Then ambi(5) = 29 : ok = 1
If sommaB = 82 Then ambi(6) = 18 : ok = 1
'----- 83-----------------------------------
If sommaA = 83 Then ambi(3) = 58 : ok = 1
If sommaA = 83 Then ambi(4) = 16 : ok = 1
If sommaB = 83 Then ambi(5) = 58 : ok = 1
If sommaB = 83 Then ambi(6) = 16 : ok = 1
'----- 84-----------------------------------
If sommaA = 84 Then ambi(3) = 87 : ok = 1
If sommaA = 84 Then ambi(4) = 84 : ok = 1
If sommaB = 84 Then ambi(5) = 87 : ok = 1
If sommaB = 84 Then ambi(6) = 84 : ok = 1
'----- 85-----------------------------------
If sommaA = 85 Then ambi(3) = 26 : ok = 1
If sommaA = 85 Then ambi(4) = 21 : ok = 1
If sommaB = 85 Then ambi(5) = 26 : ok = 1
If sommaB = 85 Then ambi(6) = 21 : ok = 1
'-------86 --------------------------------
If sommaA = 86 Then ambi(3) = 55 : ok = 1
If sommaA = 86 Then ambi(4) = 19 : ok = 1
If sommaB = 86 Then ambi(5) = 55 : ok = 1
If sommaB = 86 Then ambi(6) = 19 : ok = 1
'----- 87-----------------------------------
If sommaA = 87 Then ambi(3) = 84 : ok = 1
If sommaA = 87 Then ambi(4) = 87 : ok = 1
If sommaB = 87 Then ambi(5) = 84 : ok = 1
If sommaB = 87 Then ambi(6) = 87 : ok = 1
'----- 88-----------------------------------
If sommaA = 88 Then ambi(3) = 23 : ok = 1
If sommaA = 88 Then ambi(4) = 24 : ok = 1
If sommaB = 88 Then ambi(5) = 23 : ok = 1
If sommaB = 88 Then ambi(6) = 24 : ok = 1
'-------89 --------------------------------
If sommaA = 89 Then ambi(3) = 52 : ok = 1
If sommaA = 89 Then ambi(4) = 22 : ok = 1
If sommaB = 89 Then ambi(5) = 52 : ok = 1
If sommaB = 89 Then ambi(6) = 22 : ok = 1
'----- 90-----------------------------------
If sommaA = 90 Then ambi(3) = 81 : ok = 1
If sommaA = 90 Then ambi(4) = 90 : ok = 1
If sommaB = 90 Then ambi(5) = 81 : ok = 1
If sommaB = 90 Then ambi(6) = 90 : ok = 1


'----------- continuare ad inserire ----------












'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione

'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
Scrivi "Numero Spia " & a & " " & String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp,1
ImpostaGiocata 2,ambi,ruote,ptt,clp,2
ImpostaGiocata 3,ambi,rtt,ptt,clp,3

Gioca es,1
End If
End If
End If ' chiude if quale numero spia
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0

End Sub

grazie 1000 semprwe gentilissimo .
si mi mettero a smannetare con lo sript
ciooaooe grazie

 

[malvarosa]

vi posto un metodo bellissimo e micidiale se mike o qualcuno se la sentisse di
fare lo script io e penso molti altri vi ringraziamo
,
31=ambate e ambo 65,28,
32=ambate e ambo 04,35,
33=ambate e ambo 33,
34=ambate e ambo 62,31,
35=ambate e ambo 01,38,
36=ambate e ambo 30,47,
,

bellissimo lavoro.... mastrogino ti volevo chiedere ma il 33 e solo soletto oppure e un erroredi trascrizione?complimenti meritatissimi ciao

 

[mastrogino]

bellissimo lavoro.... mastrogino ti volevo chiedere ma il 33 e solo soletto oppure e un erroredi trascrizione?complimenti meritatissimi ciao

ciao carissima si e solo soletto in teoria si potrebbe inserirglki il suo vertibile

 

[malvarosa]

grazie allora vai per il 33/39, sempre gentile mastrogino!!!
purtroppo ieri sera nulla di fatto
ciao buona giornata ciao

 

[malvarosa]

un ultima cosa mi piacerebbe scaricare lo sript ma non ho la versione precedente a questo aggiornamento,in verita non ne ho nessuno, mi sapresti indicare dove trovarlo? grazie e senza fretta ciao

 

[mastrogino]

un ultima cosa mi piacerebbe scaricare lo sript ma non ho la versione precedente a questo aggiornamento,in verita non ne ho nessuno, mi sapresti indicare dove trovarlo? grazie e senza fretta ciao

ciao se ho capito non hai spaziometria , programma neccesario x lanciare lo script
qui trovi la nuova versione

http://forum.lottoced.com/f12/spaziometria-nuova-versione-96822/

non andare sugli aggiornamenti ma all'installazione della nuova versione una volta fatto
fai copia incolla e apri gestione script incolla e in alto con il colore giallo vi e l'icona con il fulmine quello serve x lanciarlo
una volta fatto ti compare i resoconti in passato e se vai alla fine della pagina trovi i calcoli dall'ultima estrazione
comunque se ti trovi in difficolta ciedi a me x quel che ci capisco o agli amici dell post donwlod
ciaooo

 

[Roberto57]

Gioacchino anch'io ho bisognodi un aiutino, ieri sera ho installato SPAZIOMETRIA nel portatile, ancora non conosco tutte le funzioni, (lo avevo solo sul fisso) ora come faccio a riportare gli script (che ho nel fisso)sul portatile?
Ci sarà un archivio da qualche parte, così posso caricarli sulla chiavetta e riportarli sul portatile.
Grazie....ora devo staccarmi, ti leggerò stasera..buon proseguimento di giornata

 

[mastrogino]

Gioacchino anch'io ho bisognodi un aiutino, ieri sera ho installato SPAZIOMETRIA nel portatile, ancora non conosco tutte le funzioni, (lo avevo solo sul fisso) ora come faccio a riportare gli script (che ho nel fisso)sul portatile?
Ci sarà un archivio da qualche parte, così posso caricarli sulla chiavetta e riportarli sul portatile.
Grazie....ora devo staccarmi, ti leggerò stasera..buon proseguimento di giornata

bhe te li potresti mandarli con le email facendo copia incolla e mandi x via posta ......
altrimenti .....
apri su spaziometria la cartella gialla e copii quelli che ti servono in blok notes e poi lo salvi sulla chiavetta
una volta aperta " nel portatile"
fai copia incalla fallo partire e lo salvi

 

[malvarosa]

ciao se ho capito non hai spaziometria , programma neccesario x lanciare lo script
qui trovi la nuova versione

http://forum.lottoced.com/f12/spaziometria-nuova-versione-96822/

non andare sugli aggiornamenti ma all'installazione della nuova versione una volta fatto
fai copia incolla e apri gestione script incolla e in alto con il colore giallo vi e l'icona con il fulmine quello serve x lanciarlo
una volta fatto ti compare i resoconti in passato e se vai alla fine della pagina trovi i calcoli dall'ultima estrazione
comunque se ti trovi in difficolta ciedi a me x quel che ci capisco o agli amici dell post donwlod
ciaooo

ciao mastrogino purtroppo ho fatto vari tentativi ma non me lo fa installare mi riporta con ADOBE READER file non supportato o file danneggiato CHE COSA SBAGLIO?

 

[Roberto57]

bhe te li potresti mandarli con le email facendo copia incolla e mandi x via posta ......
altrimenti .....
apri su spaziometria la cartella gialla e copii quelli che ti servono in blok notes e poi lo salvi sulla chiavetta
una volta aperta " nel portatile"
fai copia incalla fallo partire e lo salvi

FATTO grazie, ho scelto la 2 opzione