Novità

Ritrovato nei meandri del Forum...

Sakti

Sakti

Advanced Member
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​

 
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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto