Sub Main()
Dim es,Ini,Fin,Clp,ee,r1,r2
Dim ruote(12),ruota(1),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste(2)
posta(1) = 1
poste(2) = 1
r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
e1 = Estratto(es,r1,1)
e2 = Estratto(es,r1,2)
e3 = Estratto(es,r1,3)
e4 = Estratto(es,r1,4)
e5 = Estratto(es,r1,5)
e6 = Estratto(es - 1,r1,1)
e7 = Estratto(es - 1,r1,2)
e8 = Estratto(es - 1,r1,3)
e9 = Estratto(es - 1,r1,4)
e10 = Estratto(es - 1,r1,5)
a = Differenza(e1,e6)
If a = 90 Then a = 0
b = Differenza(e2,e7)
If b = 90 Then b = 0
c = Differenza(e3,e8)
If c = 90 Then c = 0
d = Differenza(e4,e9)
If d = 90 Then d = 0
e = Differenza(e5,e10)
If e = 90 Then e = 0
f = Differenza(b,a)
If f = 90 Then f = 0
g = Differenza(c,b)
If g = 90 Then g = 0
h = Differenza(d,c)
If h = 90 Then h = 0
i = Differenza(e,d)
If i = 90 Then i = 0
l = Differenza(g,f)
If l = 90 Then l = 0
m = Differenza(h,g)
If m = 90 Then m = 0
n = Differenza(i,h)
If n = 90 Then n = 0
o = Differenza(m,l)
If o = 90 Then o = 0
p = Differenza(n,m)
If p = 90 Then p = 0
q = Differenza(p,o)
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = co + 1
Scrivi String(105,"=") & " Caso n°" & Format2(co),1
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1
ColoreTesto 0
Scrivi String(65,"*"),1
Scrivi
ColoreTesto 2
Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
ColoreTesto 0
Scrivi
Scrivi Format2(a) & " = " & Format2(e1) & " - " & Format2(e6),1
Scrivi Format2(b) & " = " & Format2(e2) & " - " & Format2(e7),1
Scrivi Format2(c) & " = " & Format2(e3) & " - " & Format2(e8),1
Scrivi Format2(d) & " = " & Format2(e4) & " - " & Format2(e9),1
Scrivi Format2(e) & " = " & Format2(e5) & " - " & Format2(e10),1
Scrivi Format2(f) & " = " & Format2(b) & " - " & Format2(a),1
Scrivi Format2(g) & " = " & Format2(c) & " - " & Format2(b),1
Scrivi Format2(h) & " = " & Format2(d) & " - " & Format2(c),1
Scrivi Format2(i) & " = " & Format2(e) & " - " & Format2(d),1
Scrivi Format2(l) & " = " & Format2(g) & " - " & Format2(f),1
Scrivi Format2(m) & " = " & Format2(h) & " - " & Format2(g),1
Scrivi Format2(n) & " = " & Format2(i) & " - " & Format2(h),1
Scrivi Format2(o) & " = " & Format2(m) & " - " & Format2(l),1
Scrivi Format2(p) & " = " & Format2(n) & " - " & Format2(m),1
Scrivi Format2(q) & " = " & Format2(p) & " - " & Format2(o),1
ColoreTesto 2
Scrivi
Scrivi Format2(q) & " Questa è L'Ambata",1
ColoreTesto 0
Scrivi String(65,"*"),1
ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
ambo3(1) = ambata(1)
ambo3(2) = c
ImpostaGiocata 4,ambo3,ruote,poste,Clp,2
ambo4(1) = ambata(1)
ambo4(2) = d
ImpostaGiocata 5,ambo4,ruote,poste,Clp,2
ambo5(1) = ambata(1)
ambo5(2) = e
ImpostaGiocata 6,ambo5,ruote,poste,Clp,2
ImpostaGiocata 7,ambo1,ruota,poste,Clp,2
ImpostaGiocata 8,ambo2,ruota,poste,Clp,2
ImpostaGiocata 9,ambo3,ruota,poste,Clp,2
ImpostaGiocata 10,ambo4,ruota,poste,Clp,2
ImpostaGiocata 11,ambo5,ruota,poste,Clp,2
Gioca es,1,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(105,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(105," * ")
TestoInBandaPassante(" metodo di gorilla81 listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub
