Novità

ILLUSIONISMO A ROMA (Quaterna)

Imaging

Imaging

Advanced Member >PLATINUM<
Ringrazio, Antondavide.......:)
e per il Like a curioso................ ascia1980 ......nancy48....Imaging
 
Ultima modifica:
ascia

ascia

Advanced Member
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!
 
Imaging

Imaging

Advanced Member >PLATINUM<
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)
 
e1990

e1990

Member
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
 
Imaging

Imaging

Advanced Member >PLATINUM<
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.......:)
 
Imaging

Imaging

Advanced Member >PLATINUM<
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)
 
Alien.

Alien.

Advanced Premium Member
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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto