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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto