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ì 30 settembre 2025
    Bari
    14
    59
    63
    72
    68
    Cagliari
    05
    42
    65
    20
    30
    Firenze
    64
    61
    33
    56
    31
    Genova
    16
    38
    14
    31
    17
    Milano
    67
    80
    18
    26
    90
    Napoli
    56
    46
    13
    88
    20
    Palermo
    12
    68
    09
    26
    14
    Roma
    81
    80
    31
    84
    01
    Torino
    84
    69
    47
    12
    10
    Venezia
    74
    79
    06
    53
    81
    Nazionale
    83
    81
    47
    13
    66
    Estrazione Simbolotto
    Palermo
    41
    40
    45
    13
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto