'
Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL'AMBATA SPIA","RUOTA",2))
a = CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",90))
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ru(1) = CInt(InputBox("COPPIA RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2) = CInt(InputBox("COPPIA RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco pre o post la Spia ","COLPI di GIOCO",10))
ap = CInt(InputBox("Vuoi i freq per la Spia o i freq dopo la Spia 1=per ; altro=dopo "," FREQUENTI Pre o Post",1))
rru(1) = 11 'freq a tutte
ini = EstrazioneFin - ESRT 'estrazione di partenza
fin = EstrazioneFin 'estrazione finale
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
If ap = 1 Then
fr = SerieFreq(es-cl,es-1,n,ru,2) 'sulle 2 ruote
Else
fr = SerieFreq(es+1,es+cl,n,ru,2) 'sulle 2 ruote
End If
If fr > 0 Then
mt(co,4) = mt(co,4) + 1
End If
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
If ap = 1 Then
fr1 = SerieFreq(es-cl,es-1,nn,ru,1) 'sulle 2 ruote
Else
fr1 = SerieFreq(es+1,es+cl,nn,ru,1) 'sulle 2 ruote
End If
If fr1 > 0 Then
mt1(co,3) = mt1(co,3) + 1
End If
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
If ap = 1 Then
fr2 = SerieFreq(es-cl,es-1,n1,rru,2) 'su tutte
Else
fr2 = SerieFreq(es+1,es+cl,n1,rru,2) 'su tutte
End If
If fr2 > 0 Then
mt2(co,4) = mt2(co,4) + 1
End If
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
If ap = 1 Then
fr3 = SerieFreq(es-cl,es-1,nn2,rut,1)
Else
fr3 = SerieFreq(es+1,es+cl,nn2,rut,1)
End If
If fr3 > 0 Then
mt3(co,3) = mt3(co,3) + 1
End If
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
If ap = 1 Then
fr4 = SerieFreq(es-cl,es-1,nn3,rutt,1)
Else
fr4 = SerieFreq(es+1,es+cl,nn3,rutt,1)
End If
If fr4 > 0 Then
mt4(co,3) = mt4(co,3) + 1
End If
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0 ' lo 0 serve a portare su la riga successiva
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE - parametro ap (1=per;altro=dopo) = " & ap
ColoreTesto 1
Scrivi " Le 2 Ruote di ricerca sono le ruota di: " & NomeRuota(ru(1)) & " e di " & NomeRuota(ru(2)) & ""
Scrivi " Ambi+frequenti | Estratti+frequenti | Ambi+pres nei cicli | Estratti+freq 1ª RUOTA | Estratti+freq 2ª RUOTA"
ColoreTesto 2
Scrivi Space(1) & "Ambo+FRE su 2R | Estratto+PRE su 2R | Ambo+FREQ A TUTTE R | Estratto.+FREQ " & FormatSpace(NomeRuota(rut(1)),7,1) & " | Estratto+FREQ " & NomeRuota(rutt(1)) & ""
ColoreTesto 0
For xx = 1 To 25
Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(3) & Format2(mt(xx,4)) & Space(11) & Format2(mt1(xx,2)) & Space(3) & Format2(mt1(xx,3)) & Space(14) & _
Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Space(3) & Format2(mt2(xx,4)) & Space(14) & Format2(mt3(xx,2)) & Space(3) & Format2(mt3(xx,3)) & Space(16) & _
Format2(mt4(xx,2)) & Space(3) & Format2(mt4(xx,3))
Next
End Sub
