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)
Dim rut(10),rutt(10),ru(10),rru(10)
Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
Verif = 1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",1))
casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",15))
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))
'
For cs_el = 1 To verif ' 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("RUOTE DI RICERCA DEI + FREQ. ","1° RUOTA",r1))
ru(2) = r2 'CInt(InputBox("RUOTE DI RICERCA DEI + FREQ. ","2° RUOTA",r2))
rut(1) = r1 'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","1° RUOTA",r1))) frequenti sulle ruote di esito
rutt(1) = r2 'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","2° RUOTA",r2))) frequenti sulle ruote di esito
rru(1) = 11 'freq a tutte
' '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 simmetriche ( usare la funzione ciclometrica "distanza(a,b)=30" )
cc = cc + 1 '(10+1)11 'cc = cc +
e questo qui sotto è un esempio di cio che intendevo dire.
] Ho trovato un "BUG" [}
