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ì 11 marzo 2025
    Bari
    88
    82
    13
    06
    24
    Cagliari
    61
    79
    29
    01
    05
    Firenze
    68
    22
    69
    13
    40
    Genova
    16
    20
    82
    43
    38
    Milano
    30
    70
    75
    86
    82
    Napoli
    08
    11
    13
    25
    38
    Palermo
    63
    42
    14
    79
    56
    Roma
    39
    26
    14
    82
    47
    Torino
    31
    76
    21
    10
    40
    Venezia
    70
    65
    62
    44
    61
    Nazionale
    16
    57
    90
    52
    19
    Estrazione Simbolotto
    Firenze
    26
    39
    27
    16
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto