A volte basta uno script facile per tutti.

[Codicebinario]

Colpo 1° NA 86 Estraz. del 17/09
Colpo 2° NEGATIVO Estraz. del 18/09
Colpo 3° BA 28 Estraz. del 20/09
Colpo 4° BA 28 Estraz. del 21/09

Post ° 2711 pag.136

 

[margot]

Ho un ottimo script di Mike58 che da anche la statistica sulla posizione, dimmi se Ti può andar bene:

Anticipazione (Spoiler)

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,5000)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Salve , ho fatto girare lo script, ma non capisco come fa a fare i calcoli, visto che se scelgo un numero.... esempio il 77, non corrispondono le date di estrazioni....a venezia non è uscito il 13/09/2024 , e il più delle volte non è mai uscito il numero che seleziono....esempio Torino dice che è uscito l'ultima volta il 16/08.... ma non è vero....., chi mi dà una spiegazione???? grazie

 

[Baciccia4251]

Salve , ho fatto girare lo script, ma non capisco come fa a fare i calcoli, visto che se scelgo un numero.... esempio il 77, non corrispondono le date di estrazioni....a venezia non è uscito il 13/09/2024 , e il più delle volte non è mai uscito il numero che seleziono....esempio Torino dice che è uscito l'ultima volta il 16/08.... ma non è vero....., chi mi dà una spiegazione???? grazie

A me non funziona! Mi dà risultati corretti...

 

[Baciccia4251]

Vedi l'allegato 2290514
Vedi l'allegato 2290515

A me non funziona! Mi dà risultati corretti...

Mi sono dimenticato:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

 

[Pandit]

Anche a me da risultati corretti:

 

[margot]

Anche a me da risultati corretti:
Vedi l'allegato 2290516

a me viene così che devo fare????ho allegato la foto

 

[Pandit]

Hai attivato l'archivio sbagliato, hai attivo il "superiore L5", metti quello reale, probabilmente
è per questo che non ti risulta come a noi... Almeno credo...
Cambialo e riprova, poi fammi sapere...

 

[margot]

adesso va così, qualche risultato è differente.....

 

[Baciccia4251]

Non so se questo può esserti utile
Baciccia

 

[Codicebinario]

1° colpo MI 79 estraz. 21/09

Buongiorno a tutti gli "abitanti del 3D"
2° colpo per questa "proposta" di gioco : GE 51 VE 7 Estraz. del 24/09 post N° 2719 pag 136.
2 colpi 3 ambate secche a ruota.....
cià a tutti. (come sempre troverete le sortite colorate aggiornate nel post originario)

 

[Codicebinario]

colpo 10 Estraz. del 20/09 MI 51
colpo 11 Estraz. del 21/09 BA 7 CA 76 VE 33

ad oggi 22/09 abbiamo 29 ambate , 2 ambi in quartina e 3 ambi in lunghetta.Il tutto in 11 colpi,tutto rigorosamente a ruota.come sempre a pag134 al post 2663 troverete la situazione aggiornata.

Cià a tutti !

Aggiornamento: Colpo 12 Estraz, del 24/09 : CA 55 MI 51 salgono 31 le ambate ...12 colpi...
come sempre a pag134 al post 2663 troverete la situazione aggiornata.

 

[Codicebinario]

Colpo 1° NA 86 Estraz. del 17/09
Colpo 2° NEGATIVO Estraz. del 18/09
Colpo 3° BA 28 Estraz. del 20/09
Colpo 4° BA 28 Estraz. del 21/09

Colpo 1° NA 86 Estraz. del 17/09
Colpo 2° NEGATIVO Estraz. del 18/09
Colpo 3° BA 28 Estraz. del 20/09
Colpo 4° BA 28 Estraz. del 21/09

Colpo 1° NA 86 Estraz. del 17/09
Colpo 2° NEGATIVO Estraz. del 18/09
Colpo 3° BA 28 Estraz. del 20/09
Colpo 4° BA 28 Estraz. del 21/09
Colpo 5° PA 86 Estraz. del 24/06

6° colpo NA 28 sulle ambate considero CHIUSA "la proposta"(mancherebbe il 28 a PA e 86 a BA.....chissà.....) ...mi aspetto un 51 a NA......vedremo (come sempre troverete la situazione aggiornata al post 2711 pag 136)
Ciàa tutti !

 

[Pandit]

Buongiorno 3D, per Venus SUD mettere in gioco queste 3 Terzine per Ambo e Terno:
79.80.85 - 1.87.90 - 6.49.53 normalmente per 3/4 colpi...
La Novina normalmente da risultati certi, ma la resa è decisamente Bassa...

 

[Antonin]

Buongiorno 3D, per Venus SUD mettere in gioco queste 3 Terzine per Ambo e Terno:
79.80.85 - 1.87.90 - 6.49.53 normalmente per 3/4 colpi...
La Novina normalmente da risultati certi, ma la resa è decisamente Bassa...

Ciao Pandit
a Palermo ho in corso il 24-42 e' atteso anche a Venezia che non centra con le ruote del sud.

 

[Antonin]

42 a Venezia 1° colpo.

 

[Codicebinario]

6° colpo NA 28 sulle ambate considero CHIUSA "la proposta"(mancherebbe il 28 a PA e 86 a BA.....chissà.....) ...mi aspetto un 51 a NA......vedremo (come sempre troverete la situazione aggiornata al post 2711 pag 136)
Ciàa tutti !

 

[Antonin]

Buongiorno,
9 colpi
GE/MI
Estratti base 1-10
Abbiniamoli con 11-54-58-74
Come sempre scegliere la ruota preferita.
Buona Fortuna

3° colpo 10 a Milano

 

[Pandit]

Sono qui di nuovo, oggi un altro Ambo a Palermo 55 e 10
quindi in totale fino ad ora 13 ambi a ruota...
SUD..........BA.NA.PA............10.32.63.55.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.

 

[Antonin]

Sono qui di nuovo, oggi un altro Ambo a Palermo 55 e 81
quindi in totale fino ad ora 13 ambi a ruota...
SUD..........BA.NA.PA............10.32.63.55.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.

Vedo solo il 55 a Palermo

 

[Pandit]

Mi sono sbagliato 10.55 Palermo