Sub Main()
'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
ColoreTesto 2
Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
ColoreTesto 0
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,90))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,14))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota ?",,6))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
'---------init tabella----------------------------------------------
ReDim atitoli(9)
atitoli(1) = " Numeri dopo SPIA "
atitoli(2) = " Presenza su Casi "
atitoli(3) = " Rit. corrente "
atitoli(4) = " Rit.Max nel ciclo "
atitoli(5) = " freq ult.ciclo "
atitoli(6) = " sfaldato "
atitoli(7) = " Coplo "
atitoli(8) = " Frequenze tot "
atitoli(9) = " Media Uscite "
Call InitTabella(atitoli,266,,3,4)
'---------- fine titoli tabella -------------------------------------
'------------------------------
'g = 0
For es = ini To fin
'If g = 1 Then: es = es + cl : g = 0
'End If
If Posizione(es,r1,nn) > 0 Then
'g = 1
'------------------------------------Modifica
ru1(1) = r2
If SerieFreqTurbo(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
sfe = SerieFreqTurbo(Ini,fin,nu,ru,1)
fr = SerieFreqTurbo(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardoTurbo(ini,fin,nu,ru,1) 'ricerca ritardo
rs = SerieStoricoTurbo(fin - ee,fin,nu,ru,1)
fru = SerieFreqTurbo(EstrazioneFin - cna,EstrazioneFin,nu,ru,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
n(co,7) = sfe
ca = EstrazioneFin - es
cnn = EstrattoFrequenzaTurbo(r1,nn,fin - ee,fIn,1)
cna = EstrattoRitardoTurbo(r1,nn,fin - ee,fin,1)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1),True,True,,1,5
ColoreTesto 0
Scrivi"Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")",1
Scrivi"estrazioni Totali esaminate : " & ee,True,True,,7,3
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" & " ----- n° estraz.trascorse ---> " & cna,True,True,,2,3
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
OrdinaMatrice n,- 1,3
For w = 1 To am
riga = riga & Format2(n(w,1)) & " "
anum(w) = n(w,1)
rtc2 = SerieRitardoTurbo(Ini,fin,anum,ru,2)
rtc1 = SerieRitardoTurbo(Ini,fin,anum,ru,1)
rtc3 = SerieRitardoTurbo(Ini,fin,anum,ru,3)
fr1 = SerieFreqTurbo(Ini,fin,anum,ru,1)
fr2 = SerieFreqTurbo(Ini,fin,anum,ru,2)
fr3 = SerieFreqTurbo(Ini,fin,anum,ru,3)
'-------- scrivi valori -------------------------------------------------
ReDim avalori(9)
avalori(1) =(n(w,2))
avalori(2) =(n(w,3)) & " su " & cnn
avalori(3) =(n(w,4))
avalori(4) =(n(w,5))
avalori(5) =(n(w,6))
If avalori(3) <= cna Then avalori(6) = n(w,2)
If avalori(3) > cna Then avalori(6) = "-"
If avalori(3) <= cna Then avalori(7) = cna -(avalori(3))
If avalori(3) > cna Then avalori(7) = "-"
avalori(8) =(n(w,7))
avalori(9) = "1/" & Left(Int(fin - Ini)/avalori(8),2)
Call AddRigaTabella(avalori,,,3)
If avalori(3) = 0 Then Call SetColoreCella(1,,2)
If avalori(3) = 0 Then Call SetColoreCella(3,,2)
Next
CreaTabella()
ColoreTesto 0
Scrivi "======================================================================================================================",1
'Scrivi
ReDim atit(7)
atit(1) = " Combinazione "
atit(2) = " Ritardo per ambo "
atit(3) = " Frequenza per ambo "
atit(4) = " Rit. Max storico "
atit(5) = " Estratti "
atit(6) = " In data Estraz. "
atit(7) = " Esito "
Call InitTabella(atit,266,,3,4)
Call StatisticaFormazioneTurbo(anum,ru,2,ritardo,ritmax,Incrmax,frequenza,Ini,fin)
Call VerificaEsitoTurbo(anum,ru,fin - ritardo,2,ritardo,,esito,colpi,estratti,id)
ReDim aval(7)
aval(1) = riga
aval(2) = ritardo
aval(3) = frequenza
aval(4) = ritmax
aval(5) = estratti
aval(6) = DataEstrazione(id)
aval(7) = esito
Call AddRigaTabella(aval,3,,3)
CreaTabella
ReDim atit3(7)
atit3(1) = " Combinazione "
atit3(2) = " Ritardo per Terno "
atit3(3) = " Frequenza per Terno "
atit3(4) = " Rit. Max storico "
atit3(5) = " Estratti "
atit3(6) = " In data Estraz. "
atit3(7) = " Esito "
Call InitTabella(atit3,266,,3,4)
Call StatisticaFormazioneTurbo(anum,ru,3,ritardo,ritmax,Incrmax,frequenza,Ini,fin)
Call VerificaEsitoTurbo(anum,ru,fin - ritardo,3,ritardo,,esito,colpi,estratti,id)
ReDim aval3(7)
aval3(1) = riga
aval3(2) = ritardo
aval3(3) = frequenza
aval3(4) = ritmax
aval3(5) = estratti
aval3(6) = DataEstrazione(id)
aval3(7) = esito
Call AddRigaTabella(aval3,4,,3,2,True,1,1)
Call CreaTabella(0,0,0,0,1)
Scrivi "========================================================================================================================",1
End Sub
