Un Ambo Secco a Tutte!!! 2

« Older Newer »

sean69

Posted on 22/9/2021, 15:39 by: sean69

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:

Settima Estrazione del Mese

Sommare al Secondo Estratto di Roma i fissi 14 e 57

Ecco Statistica del Metodo:

CODICE

mar 16.02.2021 [9887]
G 2: A 51.04 Tu 13/13
A 51.04 su Tu (Fi) 8° colpo [9895/06.03.2021]

mar 16.03.2021 [9899]
G 2: A 39.82 Tu 13/13
A 39.82 su Tu (Fi) 3° colpo [9902/23.03.2021]

gio 15.04.2021 [9912]
G 2: A 51.04 Tu 13/13
A 04.51 su Tu (To) 7° colpo [9919/03.05.2021]

sab 15.05.2021 [9925]
G 2: A 53.06 Tu 13/13
A 53.06 su Tu (Ve) 3° colpo [9928/22.05.2021]

mar 15.06.2021 [9938]
G 2: A 85.38 Tu 13/13
A 38.85 su Tu (Fi) 5° colpo [9943/26.06.2021]
A 85.38 su Tu (Ba) 7° colpo [9945/01.07.2021]

gio 15.07.2021 [9951]
G 2: A 26.69 Tu 13/13
A 26.69 su Tu (Ve) 3° colpo [9954/22.07.2021]

mar 17.08.2021 [9965]
G 2: A 34.77 Tu 13/13
A 34.77 su Tu (Fi) 3° colpo [9968/24.08.2021]
A 34.77 su Tu (Ve) 9° colpo [9974/07.09.2021]

gio 16.09.2021 [9978]
G 2: A 45.88 Tu 2/13
in corso (2° su 13)

Quindi la Previsione in corso e' la seguente:

TUTTE

45-88

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
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub

Saluti,sean69!!!

:pos 47:

Edited by sean69 - 10/5/2022, 12:26

Web

4 replies since 22/9/2021, 15:40 758 views