c'e' uno script sui numeri spia al 10elotto ogni 5 minuti

[Venuslotto]

Grazie,per chi puo'.

 

[filippo1963]

Grazie,per chi puo'.

mi sembra di si io ne ho trovato uno di default in spaziometria

 

[*blacklotto*]

vediamo ....

Anticipazione (Spoiler)

Sub Main()
' NUMERI FREQUENTI DOPO SPIA X '
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1)
arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
ImpostaArchivio10ELotto(arch)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,27))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,20))
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?",,20))
If am = "" Then Exit Sub
If arch = 1 Then Call Scrivi(" ****** 10 e lotto Serale ****** ",True,True,,1,5)
If arch = 2 Then Call Scrivi(" ****** 10 e lotto 5 Min ****** ",True,True,,1,5)
r2 = 11
nn1(1) = nn
fin = EstrazioniArchivioDL
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
spia(1) = nn
If SerieFreqDL(es,es,spia,1) = 1 Then
'g = 1
'------------------------------------Modifica
ru1(1) = r2
If SerieFreqDL(es,es,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 = SerieFreqDL(Ini,fin,nu,1)
fr = SerieFreqDL(es + 1,ess,nu,1)' ricerca frequenza su ruota
rt = SerieRitardoDL(ini,fin,nu,1) 'ricerca ritardo
rs = SerieStoricoDL(fin - ee,fin,nu,1)
fru = SerieFreqDL(fin - cna,fin,nu,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 = Fin - es
cnn = SerieFreqDL(Ini,fin,spia,1)
cna = EstrattoRitardoDL(nn,fin - ee,fin)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn,True,True,,1,5
ColoreTesto 0
Scrivi"Dal " & DataEstrazioneDL(ini) & "(" & es & ") al " & DataEstrazioneDL(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 "RITARDO SPIA..... " & 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 = SerieRitardoDL(Ini,fin,anum,2)
rtc1 = SerieRitardoDL(Ini,fin,anum,1)
rtc3 = SerieRitardoDL(Ini,fin,anum,3)
fr1 = SerieFreqDL(Ini,fin,anum,1)
fr2 = SerieFreqDL(Ini,fin,anum,2)
fr3 = SerieFreqDL(Ini,fin,anum,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)
'Call ImpostaGiocataDL(1,anum,1,cl)
Next
CreaTabella()
ColoreTesto 0
Scrivi "================================= DETTAGLIO ULTIME " & cl & " ESTRAZIONI =================================== ",True,True,,1,2
Scrivi "Combinazione Ricavata...." & StringaNumeri(anum),1
Scrivi String(100,"-"),1
'Call GiocaDL(fin-cl)
For x = fin - cl To fin
Call VerificaEsitoDL(anum,x,1,1,resito,recolpi,restratti,reid)
If resito = "Cinquina" Then ColoreTesto 2
If resito = "Sestina" Then ColoreTesto 7
If resito = "Sette" Then ColoreTesto 1
If resito = "Otto" Then ColoreTesto 2
If resito = "Nove" Then ColoreTesto 1
If resito = "Dieci" Then ColoreTesto 3
If resito = "Estratto" Then ColoreTesto 0
If resito = "Ambo" Then ColoreTesto 0
If resito = "Terno" Then ColoreTesto 0
If resito = "Quaterna" Then ColoreTesto 0
Scrivi GetInfoEstrazioneDL(reid) & " ",1,0
Scrivi restratti & " ",1,0
Scrivi resito,1
Next
Scrivi String(100,"="),1
End Sub

questo potrebbe fare al caso tuo !

 

[Venuslotto]

mi sembra di si io ne ho trovato uno di default in spaziometria

Grazie a tutti e due Quello di Blacklotto fa al caso mio.

 

[*blacklotto*]

aspetta ... dove scappi !

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim IniStart,FinEnd
Dim EstCo,Quant,Sorte,Colpi
Dim Ini,Fin,Es,Tot
Dim KN,KK,SF
Dim FasciaMin,FasciaMax,FasciaTmp,sRiga
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Dim num(10)
Dim Tipoarchivio
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
IniStart = Timer
EstCo = CInt(InputBox("QUANTE ESTRAZIONI CONROLLARE ? ",,100))
Quant = CInt(InputBox("QUAlE ESITO VUOI EVIDENZIARE ? ",,3))
Sorte = CInt(InputBox("QUALE SORTE VERIFICARE ?",,3))
Colpi = CInt(InputBox("QUANTI COLPI VERIFICARE ?",,1))
ScegliNumeri(num)
Fin = EstrazioniArchivioDL
Ini = Fin - EstCo
Tot = Fin - Ini
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & " ",1,0,6
If Tipoarchivio = 01 Then Scrivi " per il 10 e lotto Serale",1,0,3
If Tipoarchivio = 02 Then Scrivi " per il 10 e lotto 5minuti",1,0,3
Scrivi " Totale Estrazioni " & Format2(Tot),1,- 1,4
Scrivi
Scrivi " Verifica Esito dei Numeri..." & StringaNumeri(num,,True),3,3,3
Scrivi
Scrivi " Per la Sorte... " & NomeSorte(Sorte),4,4,4
Scrivi
ReDim atitoli(06)
atitoli(01) = " CASO "
atitoli(02) = " DATA ESTR. "
atitoli(03) = " ESTRATTI "
atitoli(04) = " ESITO "
atitoli(05) = " STRINGA ESITO"
atitoli(06) = " Q.Tà "
Call InitTabella(atitoli,1,,3,5)
FasciaMin = 001
FasciaMax = 288
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
KN = KN + 01
FasciaTmp = IndiceAnnualeDL(Es)
If FasciaTmp >= FasciaMin Then
If FasciaTmp <= FasciaMax Then
sRiga = GetInfoEstrazioneDL(Es)
Call VerificaEsitoDL(num,Es,Sorte,Colpi,RetEsito,RetColpi,RetEstratti,RetIdEstr)
SF = SerieFreqDL(Es,Es,num,01)
ReDim avalori(6)
avalori(01) = Format2(KN)
avalori(02) = sRiga
avalori(03) = StringaEstrattiDL(Es)
avalori(04) = RetEsito
avalori(05) = RetEstratti
avalori(06) = SF
Call AddRigaTabella(avalori,,,3)
If SF = Quant Then Call SetColoreCella(05,3,1):KK = KK + 01
FinEnd = Timer
End If
End If
Next
Call scegliTabella
Call Scrivi("Esiti evidenziati.... " & Format2(KK),1)
Call Scrivi
Call Scrivi("Aggiornato al " & GetInfoEstrazioneDL(Fin),1)
Call Scrivi
End If
End Sub
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function
Function scegliTabella()
ReDim Voci(02)
Voci(01) = "Tabella Normale"
Voci(02) = "Tabella Ordinabile"
scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")
If scegliTabella = 01 Then Call CreaTabella(01)
If scegliTabella = 02 Then Call CreaTabellaOrdinabile(01)
End Function

 

[Venuslotto]

Grazie Blacklotto anche questo e' utile.