Novità

A volte basta uno script facile per tutti.

genios ha scritto:

Mission inpossible te lo spiego : Lotto 26 è un libro che ogni anno Magister mette in vendita .​

E' un libro sui i numeri spia divisi per quindicine .Tipo i Tabulati del programma di Arn .

le spie da 1 a 15 segnalano i numeri piu probabili della quindicina stessa dopo l' uscita di un numero della quindicina . Scusa il giro di parole.

Ritornando al tabulato in questione :

BA ESTRAZIONE DEL 28 11 2023 escono i numeri 66 17 47 32 54

il 66 segnala il 61 al 60% e il 66 al 50%

il 17 segnala il 26 al 60% e il 30 al 50%

il 47 segnala il 48 al 4% il 49 al 50% il 50 al 50% il 51 al 50% il53 al 50% il 55 al 40% il 56 al 50% il 57 al 40% il 60 al 50 %

il 32 segnala il 33 al 40% il 34 al 60% il 35 al 40%

il 54 segnala il 47 al 60 % il 49 al 50 % il 54 al 60 % il 57 al 60 %

ora come puoi vedere la quindicina 46 - 60 ha molti numeri segnalati e i risultati puoi vederli nella mia foto .
Clicca per espandere...
Ok ho capito,ma preferisco quello in decine. Grazie Genios
 
Codicebinario ha scritto:
Batter,fai girare questo,e poi ragionaci sopra......guarda fra i "numerelli" scruta eventuali convergenze fra le verifiche a tutte,le direttrici palesate ......script guidato in tutte le parti....scegli quello che vuoi...


Scrivi " Analisi della PRESENZA su X Ruote e verifica a tutte di CODICEBINARIO script di SCARALAB "
Scrivi

Sub Main()
Dim ruota(4), a(1), npr(1), nn(90), ni(91), n(90)
Dim posta(1), poste(2), nm(1), nu(10), ttn(2)

ini=EstrazioneFin - 30 'estrazione iniziale
fin=EstrazioneFin - 5 'estrazione finale

r1=1 'imposta la prima ruota di analisi
r2=6 'imposta la seconda ruota di analisi
r3=7 'imposta la terza ruota di analisi
'r4=9 'imposta la quarta ruota di analisi

eda=4 'numero di estrazioni analizzate
fq=3 'frequenza richiesta nell'intervallo di estrazioni eda
zz=1 '=0 sortiti fq volte; =1 sortiti fq e più volte

eg=18 'imposta le estrazioni di controllo giocata

ruota(1)=r1 : ruota(2)=r2 : ruota(3)=r3 : ruota(4)=r4
posta(1)=1 : poste(1)=0 : poste(2)=1 : ttn(1)=11 : ttn(2)=12

For es=ini To fin
AvanzamentoElab ini,fin,es
cf=0 : Erase nn : Erase n
For p=1 To 90
a(1)=p
If zz=1 And SerieFreq(es-(eda-1),es,a,ruota,1)=>fq Then
cf=cf+1 : n(cf)=p : nn(cf)=p : nu(cf)=p
End If
If zz=0 And SerieFreq(es-(eda-1),es,a,ruota,1)=fq Then
cf=cf+1 : n(cf)=p : nn(cf)=p : nu(cf)=p
End If

Next

If zz=0 Then
Scrivi "["+Format2(es)+"] "+DataEstrazione(es)+" Ruote: "+NomeRuota(r1)+_
" "+NomeRuota(r2)+" "+NomeRuota(r3)+" "+NomeRuota(r4)
Scrivi" "+Format2(cc)+" Numeri sortiti nelle "+Format2(eda)+_
" estr.ni analizzate con PRESENZA => "&fq
End If

If zz=1 Then
Scrivi "["+Format2(es)+"] "+DataEstrazione(es)+" Ruota di "+NomeRuota(r1)+_
" "+NomeRuota(r2)+" "+NomeRuota(r3)+" "+NomeRuota(r4)
Scrivi " "+Format2(cc)+" Numeri sortiti nelle "+Format2(eda)+_
" estr.ni analizzate con PRESENZA => "&fq&" e più volte"
End If

Scrivi
Scrivi "L'aggregato rilevato: "&StringaNumeri(nn),1
Scrivi

For j=1 To cf
nm(1)=nn(j) : ff=SerieFreq(es-(eda-1),es,nm,ruota,1)
Scrivi " Il Numero "&Format2(nm(1))&" è sortito: "&Format2(ff)&_
" volte nel Ciclo"
Next
Scrivi

Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&" - "&_
" - In gioco su "&SiglaRuota(r1)&"-"&SiglaRuota(r2)&"-"&SiglaRuota(r3)&_
"-"&SiglaRuota(r4),1
Scrivi StringaNumeri (nn),1

ca=0 : Erase ni : cn=cf
For ex=es+1 To es+eg
If ex<=EstrazioneFin Then
ca=ca+1
For rt=1 To 12

If rt=r1 Or rt=r2 Or rt=r3 Or rt=r4 Then
cc=0 : rigac=Left(SiglaRuota(rt),2)&" "

For pos=1 To 5 : nn(cn+1)=Estratto(ex,rt,pos)
If NumeriRipetuti(nn)=True Then
cc=cc+1 : ni(cc)=nn(cn+1)
End If
Next

rigac=rigac&""&StringaNumeri(ni)
If cc>0 Then
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_
Format2(ca)&"° colpo ["&ex&"]"
rigac="" : Erase ni
End If
nn(cn+1)=0
End If
Next

End If
Next

Scrivi
Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&_
" - Controllo Giocata a TUTTE + Nz - In gioco: ",1
Scrivi StringaNumeri (n),1

ca=0 : Erase ni : cnn=cf
For ex=es+1 To es+eg
If ex<=EstrazioneFin Then
ca=ca+1
For rt=1 To 12
If rt=11 Then rt=12
cc=0 : rigac=Left(SiglaRuota(rt),2)&" "

For pos=1 To 5 : n(cnn+1)=Estratto(ex,rt,pos)
If NumeriRipetuti(n)=True Then
cc=cc+1 : ni(cc)=n(cnn+1)
End If
Next

rigac=rigac&""&StringaNumeri(ni)
If cc>1 Then
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_
Format2(ca)&"° colpo ["&ex&"]"
rigac="" : Erase ni : n(cnn+1)=0
End If
n(cnn+1)=0
Next

End If
Next

Scrivi String(80,"*")
Scrivi

If cn<=10 Then
ImpostaGiocata 1,nu,ruota,posta,eg
ImpostaGiocata 2,nu,ttn,poste,eg
Gioca es
Scrivi
End If

Next
ScriviResoconto
End Sub
Clicca per espandere...
Ok Grazie poi lo provo.
 
Mission inpossible ha scritto:
Niente ho un bel problema, con il disco fisso,l'unica e' recuperare quello che si puo',volevo fare un backup,dicevo lo faccio domani e poi domani,ed ecco il risultato. Lunedi lo porto in assistenza per il recupero dati.Speriamo avevo proprio tutto.
Clicca per espandere...
ma il bip di norma è l'alimentatore ,si spegne per caso il monitor o crasha ? un gran bel sftware testato è easeus todo backup clona prima di portarlo in assistenza.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 24 giugno 2025
    Bari
    04
    07
    49
    65
    47
    Cagliari
    30
    46
    61
    75
    29
    Firenze
    04
    78
    31
    54
    85
    Genova
    54
    06
    65
    52
    87
    Milano
    71
    67
    80
    20
    70
    Napoli
    48
    51
    08
    27
    73
    Palermo
    17
    33
    62
    21
    48
    Roma
    70
    20
    45
    61
    19
    Torino
    60
    88
    01
    08
    15
    Venezia
    43
    31
    83
    70
    87
    Nazionale
    11
    44
    34
    60
    01
    Estrazione Simbolotto
    Napoli
    11
    09
    37
    27
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto