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 30 novembre 2024
    Bari
    25
    46
    41
    83
    89
    Cagliari
    13
    80
    42
    53
    51
    Firenze
    87
    26
    10
    34
    02
    Genova
    03
    69
    74
    44
    70
    Milano
    63
    55
    33
    53
    15
    Napoli
    90
    66
    76
    69
    23
    Palermo
    59
    58
    66
    24
    29
    Roma
    58
    43
    23
    05
    50
    Torino
    53
    34
    17
    15
    09
    Venezia
    90
    73
    82
    22
    39
    Nazionale
    25
    81
    37
    30
    58
    Estrazione Simbolotto
    Torino
    14
    10
    34
    44
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto