Novità

A volte basta uno script facile per tutti.

Pandit

Pandit

Member
Ho trovato questo script che presenta visivamente le uscite dei 90 numeri da minimo 4 in su,
è possibile inserire la quantità di estrazioni da analizzare, da 18 in su o in giu.
Spero vada bene.. for Missione 2
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,18))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
 
Missione Impossibile2

Missione Impossibile2

Senior Member
Pandit ha scritto:
Ho trovato questo script che presenta visivamente le uscite dei 90 numeri da minimo 4 in su,
è possibile inserire la quantità di estrazioni da analizzare, da 18 in su o in giu.
Spero vada bene.. for Missione 2
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,18))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
Clicca per espandere...
Grazie Pandit sei bravissimo (y)
 
C

claudio8

Premium Member
Pandit ha scritto:
Ho trovato questo script che presenta visivamente le uscite dei 90 numeri da minimo 4 in su,
è possibile inserire la quantità di estrazioni da analizzare, da 18 in su o in giu.
Spero vada bene.. for Missione 2
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,18))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
Clicca per espandere...

Tutte le stade portano a Roma, ma questa riga
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
va assolutamente corretta in
Dim Ini,fin,X : Ini = EstrazioneFin - p + 1 : fin = EstrazioneFin
buon controllo.

ps: sistema anche questa :
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
 
Ultima modifica:
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
Bepy78 ha scritto:
Buongiorno alla fine ce l'hai fatta con Nik....
Clicca per espandere...
già....ma non è il nick che fà sostanza...fosse per me (ma non sono nessuno,non lo sono mai stato e comunque frega cippa) avrei bannato a vita TUTTI i nick usati, NICK che ha usato per ingiurie ,comportamento scorretto,linguaggi a dir poco sconvenienti....ma non ci voglio piu entrare nella diatriba...SENZA RANCORE MA CON RICORDO...

By the Way,questa la chiudiamo qua: post 2043 pag 121:






Ciao a tutti !
MI 14.42 con 40.44.45
MI 47.74 con 41.42.43

okkio al 41.43 a Milano e Venezia secco......potrebbe ........vedremo !!!!

Condizioni valide anche per TO.VE.NZ

K7

Ultim'ora......io ci provo con le 2 cinquine.
SUERTE !!!!!!!!

A K7 come previsto ha' regalato 4 ambate , un ambo secco a VE ,4 ambetti con il gioco solo sugli estratti

Io la considero chiusa con ampio margine .....e comunque se qualcuno vuole....alla data del 10/08 ha prodotto ancora......4 estratti e altri 5 ambetti e una ambo in cinquina.....andate a controllare.Ripeto,io considero chiuso la "proposta"....non amo innamorarmi dei "numerelli" e quando "propongo" ,sempre coi colpi di attesa lascio sempre la scelta a TUTTI VOI se proseguire o meno.


Ora me ne vado a Saturnia a rigenerarmi un poco.Cià a tutti.

P.S. scusatemi se non hò ancora pubblicate le ambate....ma fra poco tempo e ferie davvero non ne hò voglia....anche perchè non vedo condizioni piu' che favorevoli...io gioco poco e se gioco e' perchè ci credo nelle condizioni.....non ad cazzum...Statemi bene TUTTI e "a maronnella nost ci accumpagn a tutti quanti.

Cià.
 
Father

Father

Banned
Codicebinario ha scritto:
già....ma non è il nick che fà sostanza...fosse per me (ma non sono nessuno,non lo sono mai stato e comunque frega cippa) avrei bannato a vita TUTTI i nick usati, NICK che ha usato per ingiurie ,comportamento scorretto,linguaggi a dir poco sconvenienti....ma non ci voglio piu entrare nella diatriba...SENZA RANCORE MA CON RICORDO...

By the Way,questa la chiudiamo qua: post 2043 pag 121:






Ciao a tutti !
MI 14.42 con 40.44.45
MI 47.74 con 41.42.43

okkio al 41.43 a Milano e Venezia secco......potrebbe ........vedremo !!!!

Condizioni valide anche per TO.VE.NZ

K7

Ultim'ora......io ci provo con le 2 cinquine.
SUERTE !!!!!!!!

A K7 come previsto ha' regalato 4 ambate , un ambo secco a VE ,4 ambetti con il gioco solo sugli estratti

Io la considero chiusa con ampio margine .....e comunque se qualcuno vuole....alla data del 10/08 ha prodotto ancora......4 estratti e altri 5 ambetti e una ambo in cinquina.....andate a controllare.Ripeto,io considero chiuso la "proposta"....non amo innamorarmi dei "numerelli" e quando "propongo" ,sempre coi colpi di attesa lascio sempre la scelta a TUTTI VOI se proseguire o meno.


Ora me ne vado a Saturnia a rigenerarmi un poco.Cià a tutti.

P.S. scusatemi se non hò ancora pubblicate le ambate....ma fra poco tempo e ferie davvero non ne hò voglia....anche perchè non vedo condizioni piu' che favorevoli...io gioco poco e se gioco e' perchè ci credo nelle condizioni.....non ad cazzum...Statemi bene TUTTI e "a maronnella nost ci accumpagn a tutti quanti.

Cià.
Clicca per espandere...
buon relax
 
Missione Impossibile2

Missione Impossibile2

Senior Member
Codicebinario ha scritto:
già....ma non è il nick che fà sostanza...fosse per me (ma non sono nessuno,non lo sono mai stato e comunque frega cippa) avrei bannato a vita TUTTI i nick usati, NICK che ha usato per ingiurie ,comportamento scorretto,linguaggi a dir poco sconvenienti....ma non ci voglio piu entrare nella diatriba...SENZA RANCORE MA CON RICORDO...

By the Way,questa la chiudiamo qua: post 2043 pag 121:






Ciao a tutti !
MI 14.42 con 40.44.45
MI 47.74 con 41.42.43

okkio al 41.43 a Milano e Venezia secco......potrebbe ........vedremo !!!!

Condizioni valide anche per TO.VE.NZ

K7

Ultim'ora......io ci provo con le 2 cinquine.
SUERTE !!!!!!!!

A K7 come previsto ha' regalato 4 ambate , un ambo secco a VE ,4 ambetti con il gioco solo sugli estratti

Io la considero chiusa con ampio margine .....e comunque se qualcuno vuole....alla data del 10/08 ha prodotto ancora......4 estratti e altri 5 ambetti e una ambo in cinquina.....andate a controllare.Ripeto,io considero chiuso la "proposta"....non amo innamorarmi dei "numerelli" e quando "propongo" ,sempre coi colpi di attesa lascio sempre la scelta a TUTTI VOI se proseguire o meno.


Ora me ne vado a Saturnia a rigenerarmi un poco.Cià a tutti.

P.S. scusatemi se non hò ancora pubblicate le ambate....ma fra poco tempo e ferie davvero non ne hò voglia....anche perchè non vedo condizioni piu' che favorevoli...io gioco poco e se gioco e' perchè ci credo nelle condizioni.....non ad cazzum...Statemi bene TUTTI e "a maronnella nost ci accumpagn a tutti quanti.

Cià.
Clicca per espandere...
Ecco continui a non essere nessuno,perche' io a lei non la conosco proprio e mi sa un po' polemico da parte sua.Se lo staff mi ha cambiato nik ci sara' un motivo o no?
 
Baciccia4251

Baciccia4251

Super member
Baciccia4251 ha scritto:
L'8 agosto ho giocato 22 a Bari e 33.34.35 a Cagliari (prob. uscita superiore al 90% secondo la MIA statistica).
Sono usciti il 22 a Cagliari e 34.35 a Bari. Scambio di Ruota.
Oggi il 10 agosto, ho giocato 21.22.24.29.57 a Bari. Sono usciti 29 e 57. Ma il 21.22.24 sono usciti a Cagliari!
Il 21.22.24 li ho presi su tutte, ma su 10 numeri solo per terno e sorti superiori.
Il famoso fattore K! Non era più possibile protrarre ulteriormente l'uscita di certi numeri (puoi prendere in giro la statistica, non la fisica, di cui alcuni hanno sorriso, non comprendendo una bella mazza). Difatti sono usciti. Ma nel posto sbagliato.
Quando in gioco ci sono miliardi, fatti simili non sono inusuali. I numeri si possono indovinare il fattore K no.
Pubblicherò gli scontrini giocati. Non per farmi bello. La vincita non copre totalmente la spesa di queste ultime estrazioni. Solo per evitare che qualcuno malpensante, biricchino, pensi che le mie siano solo parole.
Per le prossime estrazioni sono curioso di vedere il comportamento dei numeri 22 e 86 a Bari che, secondo la MIA statistica dovrebbero essere già usciti (almeno uno) due estrazioni fa.
Per concludere, a meno di fattori K sorprendenti un numero tra 22 e 86 a bari dovrebbe uscire entro poche estrazioni, vedremo.
Baciccia


Vedi l'allegato 2288456
Clicca per espandere...
Il 22, come doveva essere è uscito (personalmente ero sicuro che prima uscisse l'86, ma mi sbagliavo).
I numeri dal 76 al 90, dal 16 luglio quando sono entrati in alta frequenza hanno dato 9 ambi e un terno.
La mia previsione per l'estrazione di questa sera era 22.86.87.88 per estratto, ambo, terno, quaterna e ambetto.
Sarebbero stati un bel po' di soldini. Ma... non l'ho giocata.
Ho giocato il 22 e l'86, ma non la previsione sopra. Un accidenti all'Alzheimer.
Inoltre la terzina 86.87.88 per tutte era in notevole ritardo.
Comunque, chi si accontenta gode. Beh! Ora vado a buttarmi giù dal ponte...
Scherzo naturalmente, con la testa che mi ritrovo, cadendo, finirei per distruggere la strada. E, poi, dovrei pagare anche i danni!
Buena suerte a totos el mundo, come dicono in Norvegia
Baciccia

1723576474395.png
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 13 agosto 2024
    Bari
    46
    84
    88
    87
    22
    Cagliari
    89
    69
    62
    81
    63
    Firenze
    46
    37
    81
    62
    18
    Genova
    46
    76
    82
    28
    04
    Milano
    44
    19
    53
    02
    21
    Napoli
    35
    64
    62
    55
    41
    Palermo
    37
    41
    90
    07
    38
    Roma
    31
    75
    79
    21
    23
    Torino
    05
    50
    15
    51
    38
    Venezia
    61
    43
    74
    82
    59
    Nazionale
    57
    06
    78
    55
    52
    Estrazione Simbolotto
    Nazionale
    22
    27
    31
    33
    37
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto