Un Ambo Secco a Tutte!!!

sean69

Posted on 9/8/2021, 15:34

.

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

Salve a Tutti,ecco un metodo che ricava un solo Ambo secco da giocare su Tutte.Procedimento semplice,eccolo:

Seconda Estrazione del Mese

Sommare al Secondo Estratto di Roma i fissi 11 e 41

Ecco Statistica del Metodo:

CODICE

mar 05.01.2021 [9869]
G 2: A 35.65 Tu 13/13
A 35.65 su Tu (Na) 8° colpo [9877/23.01.2021]

gio 04.02.2021 [9882]
G 2: A 15.45 Tu 13/13
A 45.15 su Tu (Mi) 4° colpo [9886/13.02.2021]

gio 04.03.2021 [9894]
G 2: A 25.55 Tu 13/13
A 25.55 su Tu (Ca) 3° colpo [9897/11.03.2021]

sab 03.04.2021 [9907]
G 2: A 21.51 Tu 13/13
A 51.21 su Tu (Ca) 1° colpo [9908/06.04.2021]
A 21.51 su Tu (Fi) 8° colpo [9915/22.04.2021]

mar 04.05.2021 [9920]
G 2: A 17.47 Tu 13/13
A 17.47 su Tu (Fi) 4° colpo [9924/13.05.2021]
A 47.17 su Tu (Ro) 6° colpo [9926/18.05.2021]

gio 03.06.2021 [9933]
G 2: A 11.41 Tu 13/13
A 11.41 su Tu (Ba) 2° colpo [9935/08.06.2021]

sab 03.07.2021 [9946]
G 2: A 32.62 Tu 13/13
A 32.62 su Tu (Ba) 4° colpo [9950/13.07.2021]

gio 05.08.2021 [9960]
G 2: A 68.08 Tu 1/13
in corso (1° su 13)

Quindi la Previsione in corso e' la seguente:

TUTTE

08-68

per Ambo Secco

Qui' trovate il listato l8+:

SPOILER (clicca per visualizzare)

Sub main()

Dim r(10)
Dim r1(10)
Dim aa(10)
Dim posta(5),poste(2)
poste(2)=1
r(1)=11
r1(1)=11
k=13
For n=9868 To EstrazioneFin
If IndiceMensile(n)=2 Then

aa(1)=Fuori90(Estratto(n,8,2)+11)
aa(2)=Fuori90(Estratto(n,8,2)+41)
EliminaRipetuti aa
ImpostaGiocata 2,aa,r,poste,k,y

For a=1 To 2
For b=1 To 2
'ImpostaInterruzioni a,b,2
Next
Next
Gioca n
End if
Next
ColoreTesto 2
ColoreTesto 0
ScriviResoconto
End Sub

Saluti,sean69!!!

:pos 47: