Novità

Ritrovato nei meandri del Forum...

Sakti

Sakti

Advanced Member >GOLD<
Tratto da un suggerimento di Vivo, modificata solamrnte la ruota di gioco, da Lui consigliata su Roma...
Risultati veramente ottimi..

Sub Main() ColoreTesto 2
Scrivi
Scrivi "2 QUARTINE ALLA 6° ESTRAZIONE MENSILE",1
Scrivi
Scrivi" Tratto da un suggerimento di _Vivo_",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim t1(6): Dim t2(6) : Dim poste(4)
poste(2) = 2
poste(3) = 0.90
poste(4) = 0.10
klp = 11
ini = 9650
fin = EstrazioneFin
cp = 0
For es = ini To fin
If IndiceMensile(es) = 6 Then
ruote(1) = 5
ruote(2) = 7
ruote(3) = 12
casi = casi + 1
cp = cp + 1
ColoreTesto 7:Scrivi String(100,"-") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "===>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"-")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,1,3) + 20)
t1(2) = Fuori90(Estratto(es,1,3) + 46)
t1(3) = Fuori90(Estratto(es,1,3) + 72)
t1(4) = Fuori90(Estratto(es,1,3) + 77)
t2(1) = Fuori90(Estratto(es,2,3) + 14)
t2(2) = Fuori90(Estratto(es,2,3) + 41)
t2(3) = Fuori90(Estratto(es,2,3) + 55)
t2(4) = Fuori90(Estratto(es,2,3) + 82)
ImpostaGiocata 1,t1,ruote,poste,klp
ImpostaGiocata 2,t2,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
ScriviResoconto
End Sub
 
toon ha scritto:
Tratto da un suggerimento di Vivo, modificata solamrnte la ruota di gioco, da Lui consigliata su Roma...
Risultati veramente ottimi..

Sub Main() ColoreTesto 2
Scrivi
Scrivi "2 QUARTINE ALLA 6° ESTRAZIONE MENSILE",1
Scrivi
Scrivi" Tratto da un suggerimento di _Vivo_",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim t1(6): Dim t2(6) : Dim poste(4)
poste(2) = 2
poste(3) = 0.90
poste(4) = 0.10
klp = 11
ini = 9650
fin = EstrazioneFin
cp = 0
For es = ini To fin
If IndiceMensile(es) = 6 Then
ruote(1) = 5
ruote(2) = 7
ruote(3) = 12
casi = casi + 1
cp = cp + 1
ColoreTesto 7:Scrivi String(100,"-") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "===>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"-")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,1,3) + 20)
t1(2) = Fuori90(Estratto(es,1,3) + 46)
t1(3) = Fuori90(Estratto(es,1,3) + 72)
t1(4) = Fuori90(Estratto(es,1,3) + 77)
t2(1) = Fuori90(Estratto(es,2,3) + 14)
t2(2) = Fuori90(Estratto(es,2,3) + 41)
t2(3) = Fuori90(Estratto(es,2,3) + 55)
t2(4) = Fuori90(Estratto(es,2,3) + 82)
ImpostaGiocata 1,t1,ruote,poste,klp
ImpostaGiocata 2,t2,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
ScriviResoconto
End Sub
Clicca per espandere...

COMPLIMENTI OTTIMO METODO ,GRAZIE.
 
Mi pare niente, io gli script li modifico, ma non li so creare dal nulla come molti nel Forum, la memoria non è il mio forte, tralaltro la formula l'ho trovata dove anche tu scrivevi e rispondevi a vivo..

"Proviamo con ROMA se è ladrona" 15 Giugno 2018.. ;) :D​

 
Se fai la ricerca sul Forum con

"Proviamo con ROMA se è ladrona"​

Trovi la discussione.. in esame..
 
Salve.....sé lo scrivi in script io non ci azzecco nulla...Scusa la mia ignoranza....mà sé traduci lo "script.." in parole semplici, sintetiche; forse riusciamo a capirci tutto...Grazie....ciao
 
Questo è la spiegazione originale dal messaggio di "vivo", coma già detto io l'ho solo interpretato..
Io ho solo cambiato le ruote di gioco, Milano, Palermo e Nazionale.

"Si calcola alla 6a del mese
si gioca x 3 colpi solo per ambo
ruota dei gioco RO
combinazioni
a - 3° BA + 20 46 72 77
in corso a - 8 34 39 72
combinazione b
3° di CA + 14 41 55 82
in corso
12 39 53 80
sono 2 quartine, con 2 euro ve la cavate
vincete se escono"
 
BRAVISSIMO,COMPLIMENTI

V N. [80.17.31.58 ] [NZ] [.. .. 31 80 ..] C. 8 Ambo 09894 [ 27 - 04/03/2021]
V N. [80.17.31.58 ] [NZ] [.. .. .. 31 17] C. 9 Ambo 09895 [ 28 - 06/03/2021]
 
Ultima modifica:
Erix53, non ho capito bene la tua domanda, non capisco se vuoi una spiegazione dettagliata dello script o se vuoi una sommaria classificazione del metodo che io dall'alto della mia Ignoranza reputo sommattivo.
Un saluto. ;) (y)
 
scusate l'intrusione ma ho letto il post di toon e mi sono incuriosita. l'ho fatto girare su spaziometria e ho apportato delle ulteriori modifiche alle somme, i risultati migliori ce li ho su palermo
se vi interessa lo posto
 
ecco qua..quando vedo un metodo sommativo è + forte di me

all'inizio ho provato a cambiare la data estrazione mensile ma non mi ha aiutato,segno che se è la sesta c'è un motivo :D..credo ..non lo so non ho seguito bene il metodo iniziale di vivo
il periodo di rilevamento è lo stesso, chissà ad aumentare il range che succede io non ho provato
ho modificato le ruote e le somme, secondo me si può adattare anche con le altre ruote ma bisogna fare qualche tentativo


Option Explicit

Sub Main() ColoreTesto 2
Scrivi
Scrivi "2 QUARTINE ALLA 6° ESTRAZIONE MENSILE",1
Scrivi
Scrivi" Tratto da un suggerimento di _Vivo_",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim t1(6): Dim t2(6) : Dim poste(4),klp,ini,fin,cp,es,casi
poste(2) = 2
poste(3) = 0.90
poste(4) = 0.10
klp = 11
ini = 9650
fin = EstrazioneFin
cp = 0
For es = ini To fin
If IndiceMensile(es) = 6 Then
ruote(1) = 5
ruote(2) = 7
ruote(3) = 1
casi = casi + 1
cp = cp + 1
ColoreTesto 7:Scrivi String(100,"-") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "===>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"-")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,1,3) + 57)
t1(2) = Fuori90(Estratto(es,1,3) + 42)
t1(3) = Fuori90(Estratto(es,1,3) + 39)
t1(4) = Fuori90(Estratto(es,1,3) + 33)
t2(1) = Fuori90(Estratto(es,2,3) + 74)
t2(2) = Fuori90(Estratto(es,2,3) + 69)
t2(3) = Fuori90(Estratto(es,2,3) + 12)
t2(4) = Fuori90(Estratto(es,2,3) + 78)
ImpostaGiocata 1,t1,ruote,poste,klp
ImpostaGiocata 2,t2,ruote,poste,klp
Gioca es,1

End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 marzo 2026
    Bari
    36
    23
    51
    64
    82
    Cagliari
    50
    33
    36
    90
    55
    Firenze
    49
    48
    53
    59
    54
    Genova
    16
    41
    73
    62
    34
    Milano
    43
    42
    59
    38
    75
    Napoli
    25
    58
    62
    38
    80
    Palermo
    84
    86
    88
    62
    22
    Roma
    83
    70
    67
    49
    66
    Torino
    29
    62
    21
    07
    37
    Venezia
    26
    23
    43
    42
    56
    Nazionale
    02
    59
    04
    47
    32
    Estrazione Simbolotto
    Firenze
    38
    11
    27
    10
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto