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
    martedì 03 giugno 2025
    Bari
    22
    06
    19
    70
    35
    Cagliari
    63
    52
    04
    64
    43
    Firenze
    77
    56
    88
    38
    21
    Genova
    40
    86
    56
    32
    74
    Milano
    36
    42
    01
    33
    67
    Napoli
    63
    06
    37
    46
    64
    Palermo
    85
    66
    17
    42
    41
    Roma
    49
    88
    03
    80
    57
    Torino
    38
    42
    43
    53
    69
    Venezia
    50
    16
    55
    31
    32
    Nazionale
    28
    11
    73
    72
    52
    Estrazione Simbolotto
    Napoli
    13
    22
    38
    33
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto