Sub Main()
ReDim Coestr(90)
ReDim FissiA(90)
ReDim Fissi01(90)
ReDim Fissi02(90)
ReDim Fissi03(90)
ReDim Fissi04(90)
ReDim Fissi05(90)
ReDim Fissi06(90)
ReDim Fissi07(90)
ReDim Fissi08(90)
ReDim Fissi09(90)
ReDim Fissi10(90)
ReDim tot14(90)
ReDim prfr(90)
Dim rut(10),rutt(10),ru(10)
Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
Verif =1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",10))
casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",10)) ' 10 parametro tendenzialme da modidicare
testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si 0=No )","Elenco Casi",0)
tes = 0 'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1)) '<-----estrazioni da togliere
' 'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
' 'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
' -------------------------------------------------------------------------------------------------
r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba. 2 Ca. 3 Fi. 4 Ge. )" & Chr(13) & _
"( 5 Mi. 6 Na. 7 Pa. 8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) ' '<-----Ruota1
p1 = CInt(InputBox("Posizione estratto ruota di " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))' '<-----Posiz1
r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba. 2 Ca. 3 Fi. 4 Ge. )" & Chr(13) & _
"( 5 Mi. 6 Na. 7 Pa. 8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))' '<-----Ruota2
p2 = CInt(InputBox("Posizione estratto ruota di " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))' '<-----Posiz1
passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10)) ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
prec = 2 'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
min = 4 'CInt(InputBox("Numero minimo di esiti","Minimo esiti",4))
presa = CInt(InputBox("digita presa ",,1))
For cs_el = 1 To verif ' ATTENZIONE questo "For" serve per ripetere le verifiche del Metodo che si sta Costruendo
ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
ReDim mtt(4005,4)
cs1 = casi + cs_el ' Casi richiesti + casi elencati
ru(1) = r1 'CInt(InputBox("RUOTA RICERCA DEI CASI ","1^ RUOTA",r1))
ru(2) = r2 'CInt(InputBox("RUOTA RICERCA DEI CASI ","2^ RUOTA",r2))
rut(1) = r1 ' ruote di esito
rutt(1) = r2' ruote di esito
' 'BLOCCO FOR x DETERMINARE L'INIZIO ESTRAZIONI SULLA BASE DEI CASI IMPOSTATI
cc = 0 ' imposto il contatore dei casi cc = 0
tme1 = 0 ' totale-meno-estrazioni1 riferito alle estrazioni
For es = EstrazioneFin - tes To 1 Step - 1 'legge le estrazioni dall'ultima - tes alla 1a , si ferma al n. casi richiesti e rileva il tme1
a = Estratto(es,r1,p1) ' definisco gli estratti da trovare
b = Estratto(es - passo,r2,p2) ' con la sottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
If Distanza(a,b) = 30 Then'a = Fuori90(b + 30) Or a = Fuori90(b + 60) Then ' Terzine simmetrich
rfr(Format2(mn)) = prfr(Format2(mn)) + 1:'ambata + fissi
