Novità

A volte basta uno script facile per tutti.

Pandit ha scritto:
Ho un ottimo script di Mike58 che da anche la statistica sulla posizione, dimmi se Ti può andar bene:
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
Clicca per espandere...
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
 
margot ha scritto:
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
Clicca per espandere...
1727177046047.png
1727177128033.png

A me non funziona! Mi dà risultati corretti...
:oops:
 
Baciccia4251 ha scritto:
Vedi l'allegato 2290514
Vedi l'allegato 2290515

A me non funziona! Mi dà risultati corretti...
:oops:
Clicca per espandere...
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
 
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... ;)
 
Ultima modifica:
Codicebinario ha scritto:
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 !
Clicca per espandere...
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 ha scritto:
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
Clicca per espandere...
Codicebinario ha scritto:
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
Clicca per espandere...

Codicebinario ha scritto:
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
Clicca per espandere...
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 !
 
Ultima modifica:
Pandit ha scritto:
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... ;)
Clicca per espandere...
Ciao Pandit
a Palermo ho in corso il 24-42 e' atteso anche a Venezia che non centra con le ruote del sud.
 
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.
 
Ultima modifica:
Pandit ha scritto:
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.
Clicca per espandere...
Vedo solo il 55 a Palermo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 novembre 2024
    Bari
    06
    79
    30
    52
    15
    Cagliari
    03
    85
    61
    44
    25
    Firenze
    30
    76
    84
    34
    13
    Genova
    39
    63
    06
    50
    81
    Milano
    01
    34
    78
    86
    36
    Napoli
    63
    51
    82
    61
    07
    Palermo
    11
    66
    09
    59
    34
    Roma
    15
    26
    32
    38
    89
    Torino
    38
    43
    77
    33
    42
    Venezia
    76
    60
    78
    47
    31
    Nazionale
    85
    83
    79
    12
    51
    Estrazione Simbolotto
    Torino
    31
    38
    42
    06
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto