Novità

A volte basta uno script facile per tutti.

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 .
Ok ho capito,ma preferisco quello in decine. Grazie Genios
 
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
Ok Grazie poi lo provo.
 
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.
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 06 febbraio 2026
    Bari
    09
    55
    48
    87
    35
    Cagliari
    08
    23
    16
    43
    34
    Firenze
    01
    26
    82
    69
    84
    Genova
    77
    04
    26
    23
    83
    Milano
    89
    78
    30
    19
    76
    Napoli
    78
    55
    72
    18
    54
    Palermo
    23
    59
    87
    44
    18
    Roma
    41
    18
    67
    02
    14
    Torino
    09
    75
    73
    59
    78
    Venezia
    58
    33
    67
    62
    46
    Nazionale
    57
    69
    68
    58
    37
    Estrazione Simbolotto
    Cagliari
    01
    21
    05
    44
    25

Ultimi Messaggi

Indietro
Alto