'Option Explicit
Sub Main
'0904_19 Rosanna x serpico 90.ls
'http://forum.lottoced.com/f12/aiuto-per-elaborazione-script-106534/
'1°) esaminare un periodo composto da nove estrazioni ed estrapolare tutti i numeri che sono sortiti per due volte.
'2°) i numeri che devono restare per il pronostico devono essere solo sei. Se sono più di sei non si può fare il pronostico.
'3°) i sei numeri devono essre disposti in ordine crescente .
'4°) questa ricerca deve essere fatta per ogni ruota e per ogni estrazione .
Dim ini,es,r,i,nCon,nInt,sorte,nritr,nfre,clp
Dim nu(1),ru(1)
Dim nFreq(90)
'ReDim nNum(0)
nInt = CInt(InputBox("Quante estrazioni vuoi analizzare?",,200)) - 1 ' sortite di cui rilevare il ritardo
sorte = CInt(InputBox("QUALE SORTE PER ESITO vuoi vedere ? ","SORTE",2))
nritr = CInt(InputBox("QUANTI COLPI A RITROSO",,8))
nfre = CInt(InputBox("QUANTE FREQUENZE",,2))
clp = CInt(InputBox("Quanti COLPI Verifico esito ",,10))
ini = EstrazioneFin - nInt
For i = 1 To 90 ' ciclo i 90 numeri
nFreq(i) = 0 'parto da zero
Next
Call Scrivi("RICERCA SU BLOCCHI DI " & nritr & " ESTRAZIONI DEI CASI In CUI 6 numeri HANNO FREQUENZA " & nfre,True,True,,1,3)
'Call Scrivi("dal " & ini & " al " & EstrazioneFin,1)
Call Scrivi
ReDim t(6)
t(1) = "Inizio ID e data ES "
t(2) = "Fine ID "
t(3) = " Sorte Esito "
t(4) = " Richiesta Script "
t(5) = " Author Script "
t(6) = " Modifiche "
Call InitTabella(t,2,,4,5)
ReDim v(6)
v(1) = GetInfoEstrazione(ini)
v(2) = GetInfoEstrazione(EstrazioneFin)
v(3) = NomeSorte(sorte)
v(4) = " Serpico 90 e Desperaux "
v(5) = " Rosanna "
v(6) = " Mike58 "
Call AddRigaTabella(v,4,,4)
Call CreaTabella()
ReDim at(8)
at(1) = " Range ID Es "
at(2) = " Ruota "
at(3) = " Conta Numeri "
at(4) = " Stringa Numeri "
at(5) = " Estratti "
at(6) = " esito "
at(7) = " colpo "
at(8) = " id Es "
Call InitTabella(at,1,,3,5)
For es = EstrazioneFin To ini Step - 1
Messaggio " Elaboro estrazioni.................... " & es
co = co + 1
AvanzamentoElab ini,EstrazioneFin,es
For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For i = 1 To 90
nu(1) = i
nFreq(i) = SerieFreq(es - nritr,es,nu,ru,1) ' per ogni es e ruota controlla la freq di ogni num
Next
nCon = 0 ' contatore = zero
ReDim nNum(0)
For i = 1 To 90
If nFreq(i) = nfre Then
nCon = nCon + 1 'incremento il contatore
ReDim Preserve nNum(nCon) ' memorizzo i numeri del contatore
nNum(nCon) = i ' incremento il contatore
End If
Next
If nCon = 6 Then ' if per condizione = 6 del contatore
Call VerificaEsito(nNum,ru,es + 1,sorte,clp + 1,,esito,colpi,estratti,id)
ReDim av(8)
av(1) = GetInfoEstrazione(es - nritr) & " - " & GetInfoEstrazione(es)
av(2) = SiglaRuota(r)
av(3) = Format2(nCon)
av(4) = StringaNumeri(nNum,,True)
av(5) = estratti
av(6) = esito
av(7) = colpi
If esito <> "" And colpi < clp + 1 Then av(8) = GetInfoEstrazione(id)
If esito = "" And colpi = < clp Then av(8) = " In corso "
If esito = "" And colpi > clp Then av(8) = " Negativo "
If esito <> "" And colpi > clp Then av(8) = " Esito non valido "
Call AddRigaTabella(av,,,3)
'----- blocco colore cella ---------------------
If av(8) = GetInfoEstrazione(id) Then Call SetColoreCella(8,3,1)
If av(8) = " In corso " Then Call SetColoreCella(8,2,4)
If av(8) = " Negativo " Then Call SetColoreCella(8,4,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(2,,1)
Call SetColoreCella(5,,2)
'------- blocco conta esiti ---------------------
If esito = "Estratto" Then estra = estra + 1
If esito = "Ambo" Then amb = amb + 1
If esito = "Terno" Then ter = ter + 1
If esito = "Quaterna" Then qua = qua + 1
If esito = "Cinquina" Then cin = cin + 1
'----------------------------------------------
'Call Scrivi(es - 18 & " - " & es & " " & SiglaRuota(r) & " ",True,False,,0,2)
'Call Scrivi(" < " & Format2 (nCon) & " > ",True,False,4,2,2)
'Call Scrivi (" " & StringaNumeri(nNum,,True),True,False,1,5,2)
'Call Scrivi(" " & estratti & " " & esito & " " & " al colpo " & colpi & " " & id,True,True,3,1,2)
End If
Next
Next
Call CreaTabella()
Scrivi "Riepilogo esiti....",1
Scrivi
ReDim att(6)
att(1) = " Casi "
att(2) = " Estratto "
att(3) = " Ambi "
att(4) = " Terni "
att(5) = " Quaterne "
att(6) = " Cinquine "
Call InitTabella(att,1,,3,5)
ReDim avv(6)
avv(1) = co
avv(2) = estra
avv(3) = amb
avv(4) = ter
avv(5) = qua
avv(6) = cin
Call AddRigaTabella(avv,3,,3)
Call CreaTabella(0,0,0,0,1)
End Sub
