Novità

ILLUSIONISMO A ROMA (Quaterna)

Ringrazio, Antondavide.......:)
e per il Like a curioso................ ascia1980 ......nancy48....Imaging
 
Ultima modifica:
Seguo Roma come ruota di riferimento e ti ringrazio per il metodo.
Solo un piccolo suggerimento se posso permettermi: non sarebbe il caso di ridimensionare in piccolo l'immagine al primo post con i calcoli da fare? Sarebbe più leggibile. Opinione personale ovvio.
Un saluto!
 
ascia1980 ha scritto:
Seguo Roma come ruota di riferimento e ti ringrazio per il metodo.
Solo un piccolo suggerimento se posso permettermi: non sarebbe il caso di ridimensionare in piccolo l'immagine al primo post con i calcoli da fare? Sarebbe più leggibile. Opinione personale ovvio.
Un saluto!
Clicca per espandere...
Già fatto dai uno sguardo e vedi se va bene così.......grazie a te......(y)
 
Sub Main()
Dim ruote(1)
Dim numeri1(4)
Dim numeri2(4)
Dim numeri3(4)
Dim postA(4)
k = 10
postA(2) = 1
postA(3) = 1
postA(4) = 0.5
ruote(1) = 8
ini = 10070
For es = ini To EstrazioneFin
If IndiceMensile(es) = 2 Then
caso = caso + 1
numeri1(1) = Fuori90(Estratto(es,9,1) + 6)
numeri1(2) = Fuori90(Estratto(es,9,1) + 22)
numeri1(3) = Fuori90(Estratto(es,7,1) + 1)
numeri1(4) = Fuori90(Estratto(es,9,1) + 30)
ImpostaGiocata 1,numeri1,ruote,postA,k
numeri2(1) = Fuori90(Estratto(es,9,4) + 22)
numeri2(2) = Fuori90(Estratto(es,6,4) + 79)
numeri2(3) = Fuori90(Estratto(es,1,2) + 21)
numeri2(4) = Fuori90(Estratto(es,9,4) + 37)
ImpostaGiocata 2,numeri2,ruote,postA,k
numeri3(1) = Fuori90(Estratto(es,1,4) + 23)
numeri3(2) = Fuori90(Estratto(es,9,1) + 72)
numeri3(3) = Fuori90(Estratto(es,7,3) + 5)
numeri3(4) = Fuori90(Estratto(es,12,5) + 4)
ImpostaGiocata 3,numeri3,ruote,postA,k
Scrivi
casi = casi + 1
Call Scrivi(String(79,"=") & " Caso n°" & Format2(casi) & " ",- 1,,,1,2)
Call Scrivi(DataEstrazione(es,1) & " " & IndiceMensile(es) & "° ESTRAZIONE DEL MESE -",- 1,,,2,3)
Scrivi
Call Scrivi("METODO di IMAGING - LOTTOCED - 2'ESTRAZIONE MESE = 3 QUARTINE su ROMA",- 1,,,1,3)
Call Scrivi(String(89,"=") & " ",- 1,,,1,2)
Scrivi
Scrivi
Gioca es,1
End If
Next
Call ScriviResoconto(,False)
End Sub
 
e1990 ha scritto:
Sub Main()
Dim ruote(1)
Dim numeri1(4)
Dim numeri2(4)
Dim numeri3(4)
Dim postA(4)
k = 10
postA(2) = 1
postA(3) = 1
postA(4) = 0.5
ruote(1) = 8
ini = 10070
For es = ini To EstrazioneFin
If IndiceMensile(es) = 2 Then
caso = caso + 1
numeri1(1) = Fuori90(Estratto(es,9,1) + 6)
numeri1(2) = Fuori90(Estratto(es,9,1) + 22)
numeri1(3) = Fuori90(Estratto(es,7,1) + 1)
numeri1(4) = Fuori90(Estratto(es,9,1) + 30)
ImpostaGiocata 1,numeri1,ruote,postA,k
numeri2(1) = Fuori90(Estratto(es,9,4) + 22)
numeri2(2) = Fuori90(Estratto(es,6,4) + 79)
numeri2(3) = Fuori90(Estratto(es,1,2) + 21)
numeri2(4) = Fuori90(Estratto(es,9,4) + 37)
ImpostaGiocata 2,numeri2,ruote,postA,k
numeri3(1) = Fuori90(Estratto(es,1,4) + 23)
numeri3(2) = Fuori90(Estratto(es,9,1) + 72)
numeri3(3) = Fuori90(Estratto(es,7,3) + 5)
numeri3(4) = Fuori90(Estratto(es,12,5) + 4)
ImpostaGiocata 3,numeri3,ruote,postA,k
Scrivi
casi = casi + 1
Call Scrivi(String(79,"=") & " Caso n°" & Format2(casi) & " ",- 1,,,1,2)
Call Scrivi(DataEstrazione(es,1) & " " & IndiceMensile(es) & "° ESTRAZIONE DEL MESE -",- 1,,,2,3)
Scrivi
Call Scrivi("METODO di IMAGING - LOTTOCED - 2'ESTRAZIONE MESE = 3 QUARTINE su ROMA",- 1,,,1,3)
Call Scrivi(String(89,"=") & " ",- 1,,,1,2)
Scrivi
Scrivi
Gioca es,1
End If
Next
Call ScriviResoconto(,False)
End Sub
Clicca per espandere...
Ringrazio e1990 per il listato Bravo.......:)
 
ascia1980 ha scritto:
Bene, spero di aver fatto cosa gradita allora.
Non la gioco per ora ma la seguo, c'è una delle quartine che mi stuzzica in particolar modo.

Un saluto!

PS: hai una statistica sul metodo per caso?
Clicca per espandere...
E' disponibile in questo preciso istante il listato del metodo.....su 5 casi 4 sono positivi(y)
 
e1990 ha scritto:
Sub Main()
Dim ruote(1)
Dim numeri1(4)
Dim numeri2(4)
Dim numeri3(4)
Dim postA(4)
k = 10
postA(2) = 1
postA(3) = 1
postA(4) = 0.5
ruote(1) = 8
ini = 10070
For es = ini To EstrazioneFin
If IndiceMensile(es) = 2 Then
caso = caso + 1
numeri1(1) = Fuori90(Estratto(es,9,1) + 6)
numeri1(2) = Fuori90(Estratto(es,9,1) + 22)
numeri1(3) = Fuori90(Estratto(es,7,1) + 1)
numeri1(4) = Fuori90(Estratto(es,9,1) + 30)
ImpostaGiocata 1,numeri1,ruote,postA,k
numeri2(1) = Fuori90(Estratto(es,9,4) + 22)
numeri2(2) = Fuori90(Estratto(es,6,4) + 79)
numeri2(3) = Fuori90(Estratto(es,1,2) + 21)
numeri2(4) = Fuori90(Estratto(es,9,4) + 37)
ImpostaGiocata 2,numeri2,ruote,postA,k
numeri3(1) = Fuori90(Estratto(es,1,4) + 23)
numeri3(2) = Fuori90(Estratto(es,9,1) + 72)
numeri3(3) = Fuori90(Estratto(es,7,3) + 5)
numeri3(4) = Fuori90(Estratto(es,12,5) + 4)
ImpostaGiocata 3,numeri3,ruote,postA,k
Scrivi
casi = casi + 1
Call Scrivi(String(79,"=") & " Caso n°" & Format2(casi) & " ",- 1,,,1,2)
Call Scrivi(DataEstrazione(es,1) & " " & IndiceMensile(es) & "° ESTRAZIONE DEL MESE -",- 1,,,2,3)
Scrivi
Call Scrivi("METODO di IMAGING - LOTTOCED - 2'ESTRAZIONE MESE = 3 QUARTINE su ROMA",- 1,,,1,3)
Call Scrivi(String(89,"=") & " ",- 1,,,1,2)
Scrivi
Scrivi
Gioca es,1
End If
Next
Call ScriviResoconto(,False)
End Sub
Clicca per espandere...
Semplicemente grazie.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 febbraio 2026
    Bari
    72
    63
    35
    12
    01
    Cagliari
    02
    31
    01
    53
    10
    Firenze
    30
    35
    05
    87
    42
    Genova
    74
    32
    43
    68
    80
    Milano
    39
    06
    64
    16
    83
    Napoli
    56
    65
    71
    07
    12
    Palermo
    11
    57
    50
    28
    71
    Roma
    35
    23
    58
    89
    46
    Torino
    27
    28
    74
    16
    75
    Venezia
    68
    70
    27
    77
    83
    Nazionale
    28
    52
    18
    26
    39
    Estrazione Simbolotto
    Cagliari
    42
    15
    21
    19
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto