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!
 
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!
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
 
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
Ringrazio e1990 per il listato Bravo.......:)
 
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?
E' disponibile in questo preciso istante il listato del metodo.....su 5 casi 4 sono positivi(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
Semplicemente grazie.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
Indietro
Alto