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.
Sub Main
Dim n2,anum(2),comb(90)
Dim ruote(1)
qt = InputBox("QUANTE ESTRAZIONI ANALIZZO",,600)
r = InputBox("Quale Ruota",,5)
sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,2))
ruote(1) = r
ReDim atitoli(10)
atitoli(1) = " I.C. "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qt
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
Scrivi
Messaggio "elaboro... ruota di " & NomeRuota(r)
Call AvanzamentoElab(1,10,100)
Call ScegliNumeri(n2)
For k = 1 To UBound(n2)
anum(1) = n2(k)
comb(k) = n2(k)
Call StatisticaFormazione(anum,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
Call VerificaEsito(anum,ruote,fin - rit,1,,,retesito,,retestratti,retidestr)
Call StatisticaFormazione(comb,ruote,sorte,rit2,max2,Incr2,freq2,Ini,fin)
Call VerificaEsito(comb,ruote,fin - rit2,sorte,,,esito2,colpi2,estratti2,id2)
ReDim avalori(10)
avalori(1) = Round(freq/df*rit,2)
avalori(2) = SiglaRuota(r)
avalori(3) = StringaNumeri(anum)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
avalori(10) = DataEstrazione(retidestr)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,3,1)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
Next
Call SetTableWidth("100%")
Call CreaTabella(7,,,90)
Scrivi "Combinazione Globale analizzata per " & NomeSorte(sorte),1
ReDim aTT(8)
aTT(1) = " Combinazione "
aTT(2) = " Ritardo "
aTT(3) = " Storico "
aTT(4) = " incr "
aTT(5) = " Freq "
aTT(6) = " I.C."
aTT(7) = " Esito ultimo "
aTT(8) = " Data "
Call InitTabella(aTT,2,,3,5)
ReDim aVV(8)
aVV(1) = StringaNumeri(comb)
aVV(2) = rit2
aVV(3) = max2
aVV(4) = Incr2
aVV(5) = freq2
aVV(6) = Round(freq2/df*rit2,2)
aVV(7) = estratti2
aVV(8) = DataEstrazione(id2)
Call AddRigaTabella(aVV,,,3)
CreaTabella()
Scrivi" Tabella by Mike58 ",1,- 1,6
End Sub
Sub Main
Dim n1,n2,anum(2)
Dim ruote(1)
r = InputBox("Quale Ruota",,5)
qn = CInt(InputBox("Quale Capogioco",,74))
qe = CInt(InputBox("Quante estrazioni analizzo",,1000))
ruote(1) = r
ReDim atitoli(10)
atitoli(1) = " I.C. "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qe
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
Scrivi
Messaggio "elaboro... ruota di " & NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
Call ScegliNumeri(n2)
For k = 1 To UBound(n2)
If n1 <> n2(k) Then
anum(1) = n1
anum(2) = n2(k)
Call StatisticaFormazione(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call VerificaEsito(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(10)
avalori(1) = Round(freq/df*rit,2)
avalori(2) = NomeRuota(r)
avalori(3) = n1 & "." & n2(k)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(7,,,90)
Scrivi" Tabella by Mike58 ",1,- 1,6
End Sub
Sub Main
Dim frequenze(90),ii(90)
r = InputBox("QUALE RUOTA",,5)
id = CInt(InputBox("QUALE SPIA",,74))
QE = InputBox("QUANTE ESTRAZIONI",,600)
Ini = EstrazioneFin - QE
fin = EstrazioneFin
Scrivi "Ruota analizzata..." & NomeRuota(r),True,False,2,4,3
Scrivi " Spia analizzata..." & id & " ",True,False,4,2,3
Scrivi " Estrazioni totali analizzate " & fin - Ini,True,True,3,1,3
Scrivi
For es = Ini To fin
If Posizione(es,r,id) > 0 Then
cc = cc + 1
Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & " posiz. - " & Posizione(es,r,id),True,True,,1,3
End If
Next
Scrivi
Scrivi "casi trovati..." & cc,1
Scrivi
For n = fin To fin - qe Step - 1
If Posizione(n,r,id) > 0 Then
For i = 1 To 5
e = Estratto(n,r,i)
frequenze(e) = frequenze(e) + 1
Next
End If
Next
Scrivi "NUMERI + FREQUENTI",True,True,2,4,2
For n = 0 To 9
s = "numeri sortiti " & CStr(n) & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & Format2(i) & " "
c = c + 1
End If
Next
If c > 0 Then
Scrivi Format2(c) & " " & s,True,True,,2,2
End If
Next
Scrivi "--------------------------------------"
ScegliNumeri(ii)
Scrivi "Numeri scelti..." & StringaNumeri(ii),1
For n = 0 To 9
s = "numeri sortiti " & CStr(n) & " volte: "
c = 0
For i = 1 To UBound(ii)
If frequenze(ii(i)) = n Then
s = s & Format2(ii(i)) & " "
c = c + 1
End If
Next
If c > 0 Then
Scrivi(c) & " " & s,True,True,,2,2
End If
Next
Scrivi
Scrivi "****** Scripted by Mike58 ******* for Dario25 *** Forum LottoCed ******* ",True,True,1,5,3
End Sub