Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
'Option Explicit
Sub Main
Dim TipoArc
Dim nCicli
Dim Inizio,Fine
Dim idEstr
Dim idDecina
Dim sErr
Dim nTotale
ReDim aNum(10)
ReDim aRuote(1)
nCicli = Int(InputBox("Inserire il numero dei cicli da 18",,1))
nciclo = CInt(InputBox("Lunghezza ciclo",,18))
sorte = CInt(InputBox("SORTE DI ESITO",,3))
TipoArc = ScegliArchivio
Inizio =(EstrazioniArchivioDL -(nCicli * nciclo)) + 1
Fine = EstrazioniArchivioDL - (nciclo-1)
If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
Call ImpostaArchivio10ELotto(TipoArc)
For idDecina = 1 To 9
nTotale = 0
Call AlimentaNumeri(idDecina,aNum)
ReDim aTitoli(3)
aTitoli(1) = " Range "
aTitoli(2) = " Frequenza "
aTitoli(3) = " Ritardo "
Call InitTabella(aTitoli)
For idEstr = Inizio To Fine Step nciclo
ReDim aValori(3)
aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + nciclo)
aValori(2) = SerieFreqDL(idEstr,idEstr + nciclo,aNum,sorte)
aValori(3) = SerieRitardoDL(idEstr,idEstr+nciclo,aNum,sorte)
nTotale = nTotale + CLng(aValori(2))
Call AddRigaTabella(aValori)
Next
ReDim aValori(3)
aValori(1) = "Totale"
aValori(2) = nTotale
Call AddRigaTabella(aValori,vbYellow)
Call Scrivi("Decina analizzata " & StringaNumeri(aNum) & " Sorte analizzata... : " & NomeSorte(sorte),1)
Call Scrivi
Call CreaTabella
Next
Else
If nCicli <= 0 Then
sErr = "Numero di cicli non valido"
End If
If Inizio <= 0 Then
sErr = "Troppi cicli rispetto alle estrazioni del range"
End If
If idDecina <= 0 Then
sErr = "Nessuna decina selezionata"
End If
If TipoArc <= 0 Then
sErr = "Specificare quale archivio 10 e lotto"
End If
MsgBox sErr,vbCritical
End If
End Sub
Function ScegliDecina()
ReDim aVoci(8)
Dim k,i
For k = 1 To 81 Step 10
aVoci(i) = "Decina " & k & " - " & k + 9
i = i + 1
Next
ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
Dim i,k,y
i =((idDecina - 1) * 10) + 1
For k = i To(i - 1) + 10
y = y + 1
aNum(y) = k
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "Dieci e lotto"
aVoci(1) = "Dieci e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function
Sub Main()
Scrivi "Script By Mike58 ( Ricerca decine ordinate per Ritardo *** 10 & Lotto Serale )",1
Dim n(1),n1(90)
ImpostaArchivio10ELotto(1) ' imposta......(2) per 5 min
Ini = EstrazioniArchivioDL - 200
fin = EstrazioniArchivioDL
Tot = fin - Ini
so = CInt(InputBox("Sorte di Gioco ","SORTE",6))
Scrivi "Sorte cercata..." & NomeSorte(so),1,1,,1,2
Scrivi "Estremi di Ricerca da... " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
Scrivi
ReDim at(9)
at(1) = " D - D "
at(2) = "Combinazione"
at(3) = "R.Att"
at(4) = "R.Sto"
at(5) = " Freq "
at(6) = " esito "
at(7) = " Estratti "
at(8) = " Data Esito "
at(9) = " Ind. Conv "
Call InitTabella(at,0,,3,5)
passo = 10
For x = 1 To 9
For y = 1 To 20
For z = 10 To 10
n1(y) = Fuori90(y + n1(z))
Next
Next
If n(1) = 0 Then n(1) = 90
Call StatisticaFormazioneDL(n1,so,ReRit,RitMax,incr,ReFre,Ini,Fin)
ic = Round((refre/Tot*ReRit),2)
Call VerificaEsitoDL(n1,fin - ReRit,so,Tot,RetEsito,RetColpi,RetEstratti,RetId)
ReDim av(9)
av(1) = Decina(n1(1)) & " - " & Decina(n1(11))
av(2) = StringaNumeri(n1,,True)
av(3) = ReRit
av(4) = RitMax
av(5) = ReFre
av(6) = RetEsito
av(7) = RetEstratti
If RetEsito <> "" Then av(8) = DataEstrazioneDL(RetId)
If RetEsito = "" Then av(8) = " -- "
av(9) = ic
Call AddRigaTabella(av,,,3)
Next
ColoreTesto 0
Call SetTableWidth("100%")
Call CreaTabella(3)
End Sub
Sub Main
Dim a(36)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,6))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
ImpostaArchivio10ELotto(1)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - qt
Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
Scrivi "Sorte analizzata..." & sorte,1,1,,1,3
Scrivi
ReDim atitoli(8)
atitoli(1) = " Tipo decina & ( D - D ) "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
Call VerificaEsitoDL(nu,fin - rit,sorte,,retesito,colpi,retestratti,id)
ReDim avalori(8)
avalori(1) = " Dec. " & Format2(n) & " < " & Decina (nu(1)) & " - " & Decina(nu(11)) & " > "
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
Call AddRigaTabella(avalori,,,3)
For x = 1 To 9
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
Sub Main
Dim n1(1)
Dim ruote(1)
r = InputBox("Quale Ruota",,11)
qr = CInt(InputBox("Quale ritardo superiore a? considerare",,0))
ruote(1) = r
ReDim atitoli(8)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Ret_estrati "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
Scrivi
Call Messaggio("elaborazione..... " & n)
Call AvanzamentoElab(Ini,fin,n)
For x = 1 To 90
n1(1) = x
Call StatisticaFormazioneTurbo(n1,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Call VerificaEsitoTurbo(n1,rt,fin - rit,1,,,,,retestratti)
Next
If rit >= qr Then
ReDim avalori(8)
avalori(1) = DataEstrazione(fin - rit)
avalori(2) = NomeRuota(r)
avalori(3) =(x)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
End If
Next
Call CreaTabella(4)
Scrivi" Tabella by Mike58 ",1,- 1,6
'Next
End Sub
Sub Main
Dim TipoArchivio
Dim nFine,nInizio
Dim TipoLayout
TipoArchivio = ScegliArchivio
TipoLayout = ScegliLayOut
If TipoArchivio > 0 And TipoLayout > 0 Then
Call ImpostaArchivio10ELotto(TipoArchivio)
nFine = EstrazioniArchivioDL
nInizio = nFine - 99
ReDim aEstr(100,21)
Call AlimentaQuadroEstr(nInizio,nFine,aEstr)
Call AzzeraNumeriUsciti(aEstr)
Call AlimentaTabella(aEstr,TipoLayout)
End If
End Sub
Sub AlimentaTabella(aEstr,TipoLayout)
ReDim aTitoli(4)
Dim k
Dim Ritardo
Dim nPres
' preimposto i titoli delle colonne
aTitoli(1) = " Data" & Space(22)
aTitoli(2) = " Ritardo" & Space(10)
aTitoli(3) = " Colonna" & Space(55)
aTitoli(4) = " Quantita" & Space(5)
' inizializzo la tabella
Call InitTabella(aTitoli,1,,2,5,"Courier New")
Ritardo = UBound(aEstr)
For k = 1 To UBound(aEstr)
nPres = GetQuaNumInCol(aEstr,k)
ReDim aValori(4)
aValori(1) = GetInfoEstrazioneDL(aEstr(k,1)) ' numero
aValori(2) = Ritardo
aValori(3) = GetColonnaString(aEstr,k)
aValori(4) = nPres
If TipoLayout = 1 Then
If nPres > 0 And nPres <= 2 Then
Call AddRigaTabella(aValori,Rosso_,,2,,"Courier New")
ElseIf nPres > 2 And nPres <= 5 Then
Call AddRigaTabella(aValori,Giallo_,,2,,"Courier New")
ElseIf nPres > 5 And nPres <= 10 Then
Call AddRigaTabella(aValori,Verde_,,2,,"Courier New")
ElseIf nPres > 10 And nPres <= 14 Then
Call AddRigaTabella(aValori,Magenta_,,2,,"Courier New")
ElseIf nPres > 14 And nPres <= 17 Then
Call AddRigaTabella(aValori,Blu_,,2,,"Courier New")
ElseIf nPres > 17 Then
Call AddRigaTabella(aValori,Ciano_,,2,,"Courier New")
Else
Call AddRigaTabella(aValori,,,2,,"Courier New")
End If
Else
Call AddRigaTabella(aValori,,,2,,"Courier New")
End If
Ritardo = Ritardo - 1
Next
Call CreaTabella()
End Sub
Function GetColonnaString(aEstr,id)
Dim k
Dim s
For k = 2 To 21
If aEstr(id,k) > 0 Then
s = s & Format2(aEstr(id,k)) & " "
Else
s = s & "-- "
End If
Next
GetColonnaString = s
End Function
Function GetQuaNumInCol(aEstr,id)
Dim k
Dim n
'n =0
For k = 2 To 21
If aEstr(id,k) > 0 Then
n = n + 1
End If
Next
GetQuaNumInCol = n
End Function
Sub AzzeraNumeriUsciti(aEstr)
Dim k,kk,j,jj
For k = 2 To UBound(aEstr)
For kk = k - 1 To 1 Step - 1
For j = 2 To 21
If aEstr(k,j) > 0 Then
For jj = 2 To 21
If aEstr(k,j) = aEstr(kk,jj) Then
aEstr(kk,jj) = 0
Exit For
End If
Next
End If
Next
Next
Next
End Sub
Sub AlimentaQuadroEstr(nInizio,nFine,aEstr)
Dim k,j,i
For k = nInizio To nFine
i = i + 1
aEstr(i,1) = k
For j = 1 To 20
aEstr(i,j + 1) = EstrattoDL(k,j)
Next
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "10 e lotto"
aVoci(1) = "10 e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli archivio") + 1
End Function
Function ScegliLayOut()
ReDim aVoci(1)
aVoci(0) = "Colora righe in funzione numeri"
aVoci(1) = "Non colorare"
ScegliLayOut = ScegliOpzioneMenu(aVoci,0,"Secegli opzione colore ") + 1
End Function
Sub Main()
'Tabellone analitico Tutte o ruota
r = InputBox("inserire Ruota ",,11)
ln = InputBox("lunghezza del ciclo...",,20)
fin = InputBox("Dall'estrazione...",,EstrazioneFin)
ini = fin - ln
Scrivi
Scrivi " ********************* Tabellone analitico ******* by Mike58 ************** ",1,- 1,6
Scrivi
ColoreTesto 1
Scrivi "Ruota di...." & NomeRuota(r) & " " & " ciclo estrazioni..." & ln & " - " & Ini & "/" & DataEstrazione(Ini) & " - " & fin & "/" & DataEstrazione(fin),1,- 1,3
Scrivi
ColoreTesto 0
lancio = Getfrequenza(Ini,fin,r)
End Sub
''''-------------------------------------------------------------------------------------------
Function Getfrequenza(Ini,fin,r)
Dim nm(90)
Dim freq(90)
Dim rit(90)
Dim rt(1)
rt(1) = r
For q = 1 To 90
freq(q) = 0
Next
For n = 1 To 90
nm(1) = n
freq(n) = SerieFreq(Ini,fin,nm,rt,1)
rit(n) = SerieRitardo(Ini,fin,nm,rt,1)
Next
For x = 0 To Ini
ritt = ""
For y = 1 To 90
If x = rit(y) Then ritt = ritt & Format2(y) & " "
If x = rit(y) Then k = k + 1
Next
If ritt <> "" Then
Scrivi DataEstrazione(fin - x),1,0,,1,2
Scrivi " - Ritardo..." & Format2(x),1,0,,2,2
Scrivi " ....Estratti ( " & Format2(k) & " ) ",1,0,,1,2
Scrivi ritt,1,1,,0,2
End If
k = 0
Next
End Function
Sub Main
Dim nu(5),cad(5),ru(1)
'r = InputBox("Quale RUOTA",,2)
f = CInt(InputBox("Estrazione di rilevamento a ritroso",,1))
e = InputBox("Quante ESTRAZIONI",,150)
ss = CInt(InputBox("Quale sorte",,1))
Ini = EstrazioneFin - e
fin = EstrazioneFin - f
fine = EstrazioneFin
Scrivi "-----------------------Analitico isocrono ---- by Mike58 -------------------",1
Scrivi "sorte...." & NomeSorte(ss) & " .... Rilevamento estrazione ..." & GetInfoEstrazione(fin),1,1,,1,2
Scrivi "----------------------------------------------------------------------------",1
For es = fin To Ini Step - 1' To idEstr
For r = 1 To 12
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
nu(p) = Estratto(es,r,p)
cad(p) = Estratto(es,r,p)
If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
k = k + 1
'If EstrattoFrequenza(r,cad(p),es,fin) = 1 Then cad(p) = "--"
If nu(p) = "--" Then kk = kk + 1
Call VerificaEsito(nu,ru,fin + 1,1,100,,esito,clp,estratti,id)
Next
k1 = k - kk
If k1 >= ss Then
k2 = k2 + 1
kc = kc + 1
Scrivi "Ritardo..." & FormatSpace(fin - es,3) & " " &Format2(k2) & " " & GetInfoEstrazione(es) & " ",0,0
Scrivi SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " count..." & format2(k - kk),0,0
Scrivi " " & estratti,1,0,,1,2
If esito <> "" And id = EstrazioneFin Then Scrivi " Al colpo..." & clp & " " & GetInfoEstrazione(id) & " ### ",1,1,,1,2
If esito <> "" And id <> EstrazioneFin Then Scrivi " Al colpo..." & clp & " " & GetInfoEstrazione(id),1,1,,1,2
If esito <> "" Then kesito = kesito + 1
If esito = "" Then Scrivi String(60,".") & " In corso ",0,1,,2,2
'Scrivi StringaNumeri(nu,,1) & " " & k-kk '& " Ritarda da.... " & fin - es,0,0
'Scrivi vbTab & " Caduti " & StringaNumeri(cad,,1)
'Scrivi
End If
k = 0
kk = 0
Next
If k2 > 0 Then Scrivi String(150,"="),1
k2 = 0
Next
Scrivi "Esiti Positivi...." & kesito & " su casi " & kc & " Rilevati ",1,1,,2,3
Scrivi "Perc % di Esito..." & Int(kesito/kc*100) & " % ",1,1,,1,3
End Sub
Sub Main
Dim nu(5),ru(1),nt(5),cadT(5),cadR(5)
Scrivi " *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1
Scrivi
Ini = EstrazioneFin - 15
fin = EstrazioneFin
For es = fin To Ini Step - 1
rit = fin - es
For r = 1 To 10
For p = 1 To 5
nu(p) = Estratto(es,r,p)
nt(p) = Estratto(es,r,p)
cadT(p) = Estratto(es,r,p)
cadR(p) = Estratto(es,r,p)
If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--"
If EstrattoFrequenza(11,nt(p),es,fin) > 1 Then nt(p) = "--"
If EstrattoFrequenza(11,cadT(p),es,fin) = 1 Then cadT(p) = "--"
Next
Scrivi "Ritardo... " & Format2(rit) & " " & GetInfoEstrazione(es) & " ",1,0
Scrivi SiglaRuota(r) & " ",1,0,,2,2
Scrivi StringaNumeri(nu,,1) & " Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2
Scrivi " Tutte... " & StringaNumeri(nt,,1) & " Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2
Next
Scrivi String(160,"-")
Next
End Sub
Paolo, prova anche questo
Codice:Sub Main Dim nu(5),ru(1),nt(5),cadT(5),cadR(5) Scrivi " *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1 Scrivi Ini = EstrazioneFin - 15 fin = EstrazioneFin For es = fin To Ini Step - 1 rit = fin - es For r = 1 To 10 For p = 1 To 5 nu(p) = Estratto(es,r,p) nt(p) = Estratto(es,r,p) cadT(p) = Estratto(es,r,p) cadR(p) = Estratto(es,r,p) If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--" If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--" If EstrattoFrequenza(11,nt(p),es,fin) > 1 Then nt(p) = "--" If EstrattoFrequenza(11,cadT(p),es,fin) = 1 Then cadT(p) = "--" Next Scrivi "Ritardo... " & Format2(rit) & " " & GetInfoEstrazione(es) & " ",1,0 Scrivi SiglaRuota(r) & " ",1,0,,2,2 Scrivi StringaNumeri(nu,,1) & " Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2 Scrivi " Tutte... " & StringaNumeri(nt,,1) & " Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2 Next Scrivi String(160,"-") Next End Sub
Sub Main
Dim nu(5),ru(1),nt(5),cadT(5),cadR(5)
Scrivi " *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1
Scrivi
Ini = EstrazioneFin - 15
fin = EstrazioneFin
For es = fin To Ini Step - 1
rit = fin - es
For r = 1 To 10
For p = 1 To 5
nu(p) = Estratto(es,r,p)
nt(p) = Estratto(es,r,p)
cadT(p) = Estratto(es,r,p)
cadR(p) = Estratto(es,r,p)
If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--"
If EstrattoFrequenza(11,nt(p),es,fin-1) > 1 Then nt(p) = "--"
If EstrattoFrequenza(11,cadT(p),es,fin-1) = 1 Then cadT(p) = "--"
Next
Scrivi "Ritardo... " & Format2(rit) & " " & GetInfoEstrazione(es) & " ",1,0
Scrivi SiglaRuota(r) & " ",1,0,,2,2
Scrivi StringaNumeri(nu,,1) & " Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2
Scrivi " Tutte... " & StringaNumeri(nt,,1) & " Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2
Next
Scrivi String(160,"-")
Next
End Sub