Option Explicit
Sub Main()
Dim es,Ini,Fin,ruote(10),ruota(10),poste(10),ultest
Dim r1,r2,idm,ee,Clp,co,a,b,c,d,e,z,w
Dim n1(2),n2(2),n3(2),n4(2)
Dim Importi(2,12),siNoProgress,Punt(12)
poste(2) = 1
r1 = CInt(InputBox(" Scegli la ruota del capogioco ",,"1"))
r2 = CInt(InputBox(" Scegli la ruota degli abbinamenti",,"4"))
idm = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'indice mensile x analisi",1)
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"150"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO",,"1"))
If siNoProgress = 1 Then
Punt(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
Punt(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"2"))
Punt(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"4"))
Punt(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"8"))
Punt(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"16"))
Punt(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"32"))
Punt(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"64"))
Punt(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"128"))
Punt(9) = CInt(InputBox("Puntata Ambo a Tutte per il 9°colpo ",,"256"))
Punt(10) = CInt(InputBox("Puntata Ambo a Tutte per il 10°colpo ",,"512"))
Punt(11) = CInt(InputBox("Puntata Ambo a Tutte per il 11°colpo ",,"1024"))
Punt(12) = CInt(InputBox("Puntata Ambo a Tutte per il 12°colpo ",,"2048"))
Importi(2,1) = Punt(1)
Importi(2,2) = Punt(2)
Importi(2,3) = Punt(3)
Importi(2,4) = Punt(4)
Importi(2,5) = Punt(5)
Importi(2,6) = Punt(6)
Importi(2,7) = Punt(7)
Importi(2,8) = Punt(8)
Importi(2,9) = Punt(9)
Importi(2,10) = Punt(10)
Importi(2,11) = Punt(11)
Importi(2,12) = Punt(12)
End If
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
If(((eval(idm) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(idm)And(eval(idm) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(idm) = 0)))) Then
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
a = Estratto(es,r1,1)
b = Estratto(es,r2,2)
c = Estratto(es,r2,3)
d = Estratto(es,r2,4)
e = Estratto(es,r2,5)
n1(1) = a
n1(2) = b
n2(1) = a
n2(2) = c
n3(1) = a
n3(2) = d
n4(1) = a
n4(2) = e
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
ColoreTesto 1
Scrivi
Scrivi " 4 Ambi secchi : " & a & "-" & b & " / " & a & "-" & c & " / " & a & "-" & d & " / " & a & "-" & e,1,,3,1,2
ColoreTesto 0
Scrivi String(65,"°"),1
ColoreTesto 1
Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
ColoreTesto 0
Scrivi " Al 1° colpo - " & Importi(2,1) & " euro x Ambo a Tutte"
Scrivi " Al 2° colpo - " & Importi(2,2) & " euro x Ambo a Tutte"
Scrivi " Al 3° colpo - " & Importi(2,3) & " euro x Ambo a Tutte"
Scrivi " Al 4° colpo - " & Importi(2,4) & " euro x Ambo a Tutte"
Scrivi " Al 5° colpo - " & Importi(2,5) & " euro x Ambo a Tutte"
Scrivi " Al 6° colpo - " & Importi(2,6) & " euro x Ambo a Tutte"
Scrivi " Al 7° colpo - " & Importi(2,7) & " euro x Ambo a Tutte"
Scrivi " Al 8° colpo - " & Importi(2,8) & " euro x Ambo a Tutte"
Scrivi " Al 9° colpo - " & Importi(2,9) & " euro x Ambo a Tutte"
Scrivi " Al 10° colpo - " & Importi(2,10) & " euro x Ambo a Tutte"
Scrivi " Al 11° colpo - " & Importi(2,11) & " euro x Ambo a Tutte"
Scrivi " Al 12° colpo - " & Importi(2,12) & " euro x Ambo a Tutte"
Scrivi String(35,"-")
ImpostaGiocata 1,n1,ruota,poste,Clp,2
ImpostaProgressione 1,Importi
ImpostaGiocata 2,n2,ruota,poste,Clp,2
ImpostaProgressione 2,Importi
ImpostaGiocata 3,n3,ruota,poste,Clp,2
ImpostaProgressione 3,Importi
ImpostaGiocata 4,n4,ruota,poste,Clp,2
ImpostaProgressione 4,Importi
'-------------------------------------
For z = 1 To 4
For w = 1 To 4
ImpostaInterruzioni z,w,2
ImpostaInterruzioni w,z,2
Next
Next
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" X Sonia63 Listed By Lanfranco60 "),1,3,0
ScriviResoconto
End Sub
