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 25 luglio 2026
    Bari
    86
    66
    30
    01
    25
    Cagliari
    14
    36
    79
    07
    51
    Firenze
    89
    41
    87
    30
    23
    Genova
    29
    11
    35
    57
    66
    Milano
    19
    28
    31
    27
    47
    Napoli
    03
    23
    61
    12
    65
    Palermo
    61
    90
    47
    56
    34
    Roma
    22
    26
    48
    50
    44
    Torino
    62
    75
    23
    15
    13
    Venezia
    80
    25
    84
    49
    61
    Nazionale
    23
    76
    80
    55
    46
    Estrazione Simbolotto
    Nazionale
    37
    44
    16
    05
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto