Novità

script per 10elotto ogni 5min esistono??

x antopunt nelle richieste divresti essere più chiara è un po difficile seguire il tuo esposto.




x mike58 vorrei partire da una tecnica suggerita dall'amico ib63 e vedere di migliorarla se puoi realizzare per il momento queste poche righe di script

inserisco un numero x vado a calcolare il suo vertibile dist. 30 e 60 -1 e +1
es. 4 40 34 64 3 5
ottenuta la sestino elimino con controllo a ritroso di x estrazioni quelli già sortiti e poi dei rimanentio verifico l'esito fino alla sortita

Ciao Keeper comincia con questo solo calcolo e verifica su tot estrazioni.
Per la verfica e l'eliminazione a ritroso devi fare in modo visivo.
Per Antonpun comincia a leggere queste poche righe per capire lo svolgimento.

Ciao.

Sub Main
ImpostaArchivio10ELotto(2)
qt = CInt(InputBox("Quante estrazioni vuoi giocare ? ",,50))
numero = CInt(InputBox("Quale numero vuoi analizzare ",,4))
ReDim aNumeri(6)
aNumeri(1) = numero
aNumeri(2) = Vert(numero)
aNumeri(3) = Fuori90(numero + 30)
aNumeri(4) = Fuori90(numero + 60)
aNumeri(5) = Fuori90(numero + 1)
aNumeri(6) = Fuori90(numero - 1)
fin = EstrazioniArchivioDL
Ini = fin - 50
Call ImpostaGiocataDL(1,aNumeri,1,qt)
Call GiocaDL(fin - qt)
Call ScriviResocontoDL
End Sub
 
si li raccolgo
volevo anche chiederti ma tu per la tua tecnica di gioco dei numeri frequenti in 10 estrazioni e non osrtiti in cinque precedenti hai fatto anche li uno sciprt per velocizzare il tutto

Keeper questo è lo script che volevi valutare prova con i periodi impostati e poi fai le tue dovute verifiche.

Ciao Mike

Sub Main()
' presenze su cicli di 9 estrazioni"
ImpostaArchivio10ELotto(2)
Scrivi " Statistica rilevamento Numeri per il 10 e lotto 5 minuti ",1,- 1,6
Scrivi String(85,"=")
Dim ruote(1)
Dim nm(1)
periodo = CInt(InputBox("lunghezza ciclo ",,10))
zero = CInt(InputBox("ultimo ciclo lunghezza, ? ",,5))
ultima = InputBox("Estrazione ultima",,EstrazioniArchivioDL)
pres = CInt(InputBox("N° di presenza nel ciclo ",,2))
pres1 = CInt(InputBox("N° presenze ultimo ciclo ",,0))
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica per ciclo 10 e lotto - creato by Mike58 - ",1
Scrivi " Correlazione e presenze dei singoli numeri in periodi di " & periodo & " estrazioni"
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Ultimo ciclo di " & zero & " estrazioni ... presenza ... zero "
Scrivi "-------------------------------------------------------------------------"

fine = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 200
dal1 =(ultima + 1) - zero
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
dal6 = dal5 - periodo
al6 = dal5 - 1
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
casi = casi + 1
Scrivi "___________________________________________________________________" & " ( caso n°.) " & casi
Scrivi " Periodo dal...al..." & dal1 & "/" & al1 & " " & DataEstrazione(ultima) & " Presenze del nr.." & a
Scrivi " Periodo dal...al..." & dal2 & "/" & al2 & " " & DataEstrazione(dal1) & " Presenze del nr.." & b
Scrivi " Periodo dal...al..." & dal3 & "/" & al3 & " " & DataEstrazione(dal2) & " Presenze del nr.." & c
Scrivi " Periodo dal...al..." & dal4 & "/" & al4 & " " & DataEstrazione(dal3) & " Presenze del nr.." & d
Scrivi " Periodo dal...al..." & dal5 & "/" & al5 & " " & DataEstrazione(dal4) & " Presenze del nr.." & e
Scrivi " Periodo dal...al..." & dal6 & "/" & al6 & " " & DataEstrazione(dal5) & " Presenze del nr.." & f
fre = a + b + c + d + e + f
Scrivi""
ColoreTesto 2
Scrivi " ----- numero " & nm(1) & " ritardo attuale " & rit & " --- presenza" & " ---> " & fre,2
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati " & " numeri totali " & casi & " .... [cicli di ] : " & periodo & " estraz.",- 1,6,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
Scrivi " ----- numero " & Format2(nm(1)) & " Ritardo attuale " & Format2(rit) & " --- presenza nei cicli " & " ---> " & Format2(fre) & " .... [" & a & "." & b & "." & c & "." & d & "." & e & "." & f & "]",2
End If
End If
End If
End If
End If
End If
Next
Scrivi "_____________________________________________________________________________________________________",2

End Sub
 
Ultima modifica:
ok funziona ora iniziamo ad ampliarlo
1 modifica la sestina trovata si può scomporre in tre coppie o in due terzine
es. 41 14 vertibile
40 42 -1 / +1
11 71 +30 / +60

41 14 40
11 42 71

metterli in gioco e verificare l'esito
2 modifica il calcolo va fatto su tutti i 20 nueri dell'estrazione qundi ricaveremo 120 numeri diquesto occorre riepilogare quelli più frequenti e poi lascio a te altre ricerche o a chiunque voglia parteciapre
 
Ultima modifica:
Keeper hai fatto un casino intanto posta lo script in modo corretto perche così poi bisogna riadattarlo in spaziometria.
Io taglio la testa al toro e lo copio prima in blocconote e poi lo incollo sul forum in questo modo non sarà addentato ma sarà perfettamente formattato
per il copia in spazimetria.
Poi se vuoi esaminare un mumero e verificarne gli esiti successivi basta partire da estrazione-fine - lestrazioni che vuoi(vedi inputbox).

Ciao studiaci un pò.
Per OGGI io chiudo.

Sub Main
Dim nEstrtot,IdEstrbase
Call ImpostaArchivio10ELotto(2)
nEstrtot = EstrazioniArchivioDL
IdEstrbase = CInt(InputBox("Immettere il numero di estrazione da 1 a ",,EstrazioniArchivioDL - 10))
numero = CInt(InputBox("Quale numero vuoi analizzare ",,4))
ReDim aNumeri(6)
aNumeri(1) = numero
aNumeri(2) = Vert(numero)
aNumeri(3) = Fuori90(numero + 30)
aNumeri(4) = Fuori90(numero + 60)
aNumeri(5) = Fuori90(numero + 1)
aNumeri(6) = Fuori90(numero - 1)
Call ImpostaGiocataDL(1,aNumeri,1,nEstrtot)
Call GiocaDL(IdEstrbase)
Call ScriviResocontoDL
End Sub
 
ho effettuato dei test ora occorre un buon riduttore ti posto un esempio
questi numeri 03-05-06-10-14-16-24-25-44-63-71-75
i 6 colpi 3 terzine 1 quartine 2 cinquine
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18

Ultimi Messaggi

Indietro
Alto