-
.
Salve a Tutti,ecco un metodo che ricava un solo Ambo secco da giocare su Tutte.Procedimento semplice,eccolo: Ottava Estrazione del Mese
Sommare al Quarto Estratto di Palermo i fissi 7 e 17
Ecco Statistica del Metodo:CITAZIONE============================================================
gio 17.03.2022 [10056]
G 1: AT 38.48 Tu 10/10
A 48.38 su Tu (Ba) 1° colpo [10057/19.03.2022]
============================================================
mar 19.04.2022 [10070]
G 1: AT 37.47 Tu 10/10
A 47.37 su Tu (Mi) 7° colpo [10077/05.05.2022]
============================================================
gio 19.05.2022 [10083]
G 1: AT 88.08 Tu 10/10
A 88.08 su Tu (Na) 1° colpo [10084/21.05.2022]
A 88.08 su Tu (Pa) 10° colpo [10093/11.06.2022]
============================================================
sab 18.06.2022 [10096]
G 1: AT 57.67 Tu 10/10
A 57.67 su Tu (Ca) 2° colpo [10098/23.06.2022]
============================================================
mar 19.07.2022 [10109]
G 1: AT 14.24 Tu 10/10
A 14.24 su Tu (Ba) 5° colpo [10114/30.07.2022]
A 24.14 su Tu (To) 6° colpo [10115/02.08.2022]
============================================================
gio 18.08.2022 [10122]
G 1: AT 88.08 Tu 10/10
A 08.88 su Tu (To) 6° colpo [10128/01.09.2022]
============================================================
sab 17.09.2022 [10135]
G 1: AT 22.32 Tu 10/10
A 22.32 su Tu (Ba) 7° colpo [10142/04.10.2022]
============================================================
mar 18.10.2022 [10148]
G 1: AT 84.04 Tu 1/10
in corso (1° su 10)
Quindi la Previsione in corso dal 18.10.2022 e' la seguente:TUTTE
04-84
per Ambo Secco
Qui' trovate il listato l8+:SPOILER (clicca per visualizzare)Sub main()
Dim rt(2),pt(3)
Dim n1(4),n2(4),n3(4),n4(4)
pt(2)=1
pt(3)=1
clp=10 'colpi di gioco
rt(1)=11 '1a ruota di gioco
'rt(2)=9 '2a ruota di gioco
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)= 8 Then
Scrivi String (60,"=")
co=co+1
a=Estratto (es,7,4)
'------------------------------Terzina (o Quartina)
n1(1)=Fuori90 (a+7)
n1(2)=Fuori90 (a+17)
'n1(3)=Fuori90 (a+67)
'n1(4)=Fuori90 (a+67) 'per giocare quartina togliere apice ' davanti a n1
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Saluti,sean69!!!
Edited by sean69 - 21/10/2022, 15:57. -
..