Ho bisogno di una mano per completare questo script altrimenti fondo .
Codice:
' Con AMBATA-DEFINITA, elenca i coestratti, i Frequenti usciti con l'ambata sulle 2 Ruote di ricerca, dopo l'uscita della condizione Spia.
'NB il caso spia in corso non viene assolutamente considerato nella elaborazione.
Sub Main()
Dim rut(10),rutt(10),ru(10),rru(10)
Dim clp,tes,a,b,cs_el,ambata,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 = 1 'InputBox("Vuoi elenco-output dei casi ? ( 1=Si 0=No )","Elenco Casi",1)
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 + 1 Incrementa il contatore dei casi
If cc = cs1 Then 'se il contatore casi = cs1 (casi richiesti+cs_el) allora
tme1 =(EstrazioneFin - tes - es) 'definiamo il tme1 = (estrazfin-tes-es) -> estrazioni da cui inzia analis
