il metodo..ro

[donatella]

Rieccomi con questo ultimo metodo : semplicissimo,nessun calcolo più o meno complicato da fare
Prima estrazione del mese : ruota di Bari
Ambata : rigiocare il 04° estratto a Bari e Milano
Ambo secco : abbinare il fisso 07 all'ambata
Giocare per ambo ( e ambetto ) a : Bari - Milano
Giocare per ambo secco anche a Tutte - Nz
Ambo e terno secco :
Abbinare all'ambo secco il fisso : 87
Abbinare all'ambo secco il fisso : 67
Giocare per ambo e terno a : Milano
Giocare per ambo e terno a : Tutte. Nz
NOTA : se uno dei fissi ( 07.67.87) fosse l'ambata SOSTITUIRE con il fisso 41 *
------------------------------------------------------------------
2024
Maggio > 74 - 74.07 / 74.07.87 - 74.07.67
05°colpo ambata e ambetto 74.08 a Milano
12° colpo ambo ORO in terzina 07.87 a Venezia
----------------------------------------------------------------------------
Giugno > 83
12° colpo ambata a Milano
17° colpo ambata e ambo ORO in terzina 83.67 a Bari
18° colpo ambo n terzina 83.67 a Firenze
------------------------------------------------------------------------------------
Luglio > 89
02° colpo ambo in terzina 89.67 a Napoli
04° colpo ambo n terzina 87.07 a Bari
11° colpo ambata e ambo secco 87.07 a Milano
13° colpo ambata a Bari
-------------------------------------------------------------------------
Agosto > 79
01° colpo ambata e ambo 79.67 a Bari
--------------------------------------------------------------------------
Settembre > 21
02° colpo ambo ORO in terzina 07.87 a Roma
04° colpo ambo secco 21.07 alla Nz
05° - 07°colpo ambata 21 e ambetto 21.06 a Milano
-----------------------------------------------------------------------------
Ottobre > 74
03° colpo ambata 74 a Milano
09° colpo ambata e ambo 74.67 a Bari
12° colpo ambo in terzina ORO 07.87 a Cagliari
12° colpo ambo in terzina 74.87 alla Nz
17° colpo ambo 07.67 a Genova
----------------------------------------------------------------------------------
Novembre > 60
03° colpo ambo secco ORO 07.60 e TERNO SECCO ORO 60.07.87 a Genova
18° colpo ambo 07.67 a Venezia
---------------------------------------------------------------------------------
Dicembre > 36
05° colpo ambata e ambo secco ORO 36.07 a Bari
11° colpo ambata a Bari
----------------------------------------------------------------------------------
2025
Gennaio > 13 ( nota : ambo oro 13.87 in edc a Bari)
03° colpo ambo 13.87 a Roma
10° colpo ambo secco 13,07 a Genova
10° colpo ambo 07.87 e ambo 07.67 a Torino
12° colpo ambata e ambo secco 13.87 a Milano
12° colpo ambo 13.07 a Roma
14° colpo ambata e ambo 13.87 a Bari
16° colpo ambo 13.67 a Palermo
-------------------------------------------------------------------------------
Febbraio > 67 : 07.87.41 *
01° colpo ambata 67 a Bari
08° colpo ambo 07.41 a Torino
15° colpo ambo secco 67.07 a Firenze
--------------------------------------------------------------------
Marzo > 64
03° colpo ambata e ambo 64.67 a Milano
08° colpo ambo secco ORO 64.07 a Firenze

 

[Milly63]

Grazie a Te che ci regali i tuoi metodi

 

[matt68]

L'ideale sarebbe avere un bel script anche con ambetto

 

[Milly63]

Ho controllato e a maggio precisamente il 9 è uscito ambo e terno su Milano
80.7.87

 

[Croupier]

Mi sono permesso di analizzare "disinteressatamente ", augurandomi di aver interpretato bene quanto esposto dal metodo.
Il codice è impostato per multi usi e puo essere adattato per altri scopi, in maniera elementare per quanto non hanno dimestichezza enon conoscono le basi minime della programmazione.
Adattatelo per ogni vs esigenza..
Mi auguro possa essere di aiuto...e che soprattutto sia gradito.
Cordi@li S@luti

Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
ColoreTesto 1
Scrivi" ~~METODO 4° DI BARI E 4° DI MILANO ~~"
SCRIVI"~~~~~~~~ NUMERI FISSI 7 67 87 ~~~"
SCRIVI" 1^ estrazione del mese "
ColoreTesto 0
Scrivi"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
Sub main()
Dim ruote(10),ruota(10)
Dim n1(10), n2(10), n3(10) , n4(10)
Dim poste(5),posta(5)
'----------------------------------------------
POSTa(1)=1
posta(2)=6.5
'------------------
POSTE(2)=3.5
POSTE(3)=3.5
'------------------
x=13
Y=13
'-----------------------------
For es=10451 To EstrazioneFin
If IndiceMensile(es)=1 Then
Messaggio DataEstrazione(ES)
'-----------------------------
For R1=1 To 1
For R2=5 To 5
ruota(1)=11
'ruota(2)=2
'ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
'ruota(10)=10

ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10

k=0' per eventuali usi
'-------------------------
A=Estratto(es-K,R1,1)
B=Estratto(es-K,R1,2)
C=Estratto(es-K,R1,3)
D=Estratto(es-K,R1,4)
E=Estratto(es-K,R1,5)
'---------------------
Aa=Estratto(es,R2,1)
Bb=Estratto(es,R2,2)
Cc=Estratto(es,R2,3)
Dd=Estratto(es,R2,4)
Ee=Estratto(es,R2,5)
'----------------------
'----------------------
For k1= 4 To 4
For k2= 4 To 4
a1 = Estratto(es,r1,k1)
a2 = Estratto(es,r2,k2)
If a1>0 And a2>0 then
a3 = 7
a4 = 67
a5 = 87
'-------------------------------------
N1(1)=a1
N1(2)=a2
N1(3)=a3
N1(4)=a4
N1(5)=a5
'-----------
'N2(1)=a1
'N2(2)=a2
'N2(3)=a3
'-----------
'-----------
'N3(1)=a1
'N3(2)=a2
'N3(3)=a4
'----------
'----------
'N4(1)=a1
'N4(2)=a2
'N4(3)=a5
'---------------------------
Scrivi""
co=co+1
ColoreTesto 1
Scrivi String(50,"=")&" Caso n°"& Format2(co)&" Es. "& Format2(Es)&" indice mensile "& Format2(IndiceMensile(es)),1
ColoreTesto 2
Scrivi (es)& " "& DataEstrazione(es,1)& " "& StringaEstratti(es,r1) &" < "&nomeRuota(r1) ,1
Scrivi (es)& " "& DataEstrazione(es,1)& " "& StringaEstratti(es,r2) &" < "&nomeRuota(r2),1
Scrivi String(50,"=")
ColoreTesto 0
Scrivi("Posizione analizzata --> ")&" "& Format2(k1)&"° numero "& Format2(Estratto(es,R1,k1)) & " Fissi "&A3&" "&A4&" "&A5,1
Scrivi("Posizione analizzata --> ")&" "& Format2(K2)&"° numero "& Format2(Estratto(es,R2,K2)),1
Scrivi String(50,"=")
'----------------------------------------------
ImpostaGiocata 1,n1,ruota,posta,x,Y
'ImpostaGiocata 2,n2,ruota,posta,x,Y
'ImpostaGiocata 3,n3,ruota,posta,x,Y
'ImpostaGiocata 4,n4,ruota,posta,x,Y
ImpostaGiocata 5,n1,ruote,poste,x,Y
Gioca es
'----------------------------------------------
End If

Next
Next
Next
Next
End If
Next
ScriviResoconto 1
'ScriviResoconto 2
'ScriviResoconto 3
'ScriviResoconto 4
ScriviResoconto 5
End Sub
'----------------------------------------------

 

[matt68]

Buongiorno c'è anche funzione ambetto grazie

 

[antonioquagliozzi]

lo script da errore es