Novità

mio metodo

  • Creatore Discussione Creatore Discussione domenico@32
  • Data di inizio Data di inizio
D

domenico@32

Guest
si puo' verificare questo metodo?

trovare in forma isotopa due numeri diametrali decinale su ruote diametrali


sommare e abbinare al suo diametrale decinale

esempio

bari 13
napoli 18

somma 13+18-------31ambata

ambo 31-36
 
Ad un primo controllo in modo casuale mi sembra molto buono per ambata, così così per ambo. Funziona anche se le ruote non sono diametrali.
Ci vorrebbe un controllo più accurato.
Comunque bravo.
 
Ho ripreso lo script di Zetrix in area Download
Sub Main
Dim ambata(2),ruota(5),ruote(5),posta(2),poste(2)
Dim ambo1(2)
Dim r1,r2,a,b,x,y,tv,co,es,p1
posta(1) = 1
poste(2) = 1
tv = InputBox("Quante estrazioni vuoi controllare?",,0)
For es = EstrazioneFin - tv To EstrazioneFin
For r1 = 1 To 5
For p1 = 1 To 5
r2 = RuotaDiametrale(r1)
'---------------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
'---------------------------------
If a = DiametraleD(b) Then ' solo diametrali in decina
co = co +1
x = Fuori90(a + b) ' Somma dei numeri rintracciati
y = DiametraleD(x) ' diametrale in decina della somma
'---------------------
ambata(1) = x
'ambata(2) = y ' 2a ambata
ambo1(1) = x
ambo1(2) = y
'------------------------------
ruota(1) = r1
ruota(2) = r2
'-------------------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11 'TT
ruote(4) = 12 'NZ
'------------------------------
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
MatriceCaselleDaEvid(2,0) = r2
MatriceCaselleDaEvid(2,1) = p1
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi " ->a = " & a & " ->b = " & b & "",0,1,1,5,3
Scrivi
ImpostaGiocata 1,ambata,ruota,posta,9,1
Gioca es,1,,1
'
Scrivi String(55,"." & " caso " & co )
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,9,2
Gioca es,1,,1
Scrivi
End If
Next
Next
Next
End Sub

Ho inserito 20 estrazioni a ritroso
i 3 casi hanno dato esito con l'ambata + diam.etrale in decina o compl. a 90 del D.D.
Saluti
 
Ultima modifica:
Ho ripreso lo script di Zetrix in area Download
Sub Main
Dim ambata(2),ruota(5),ruote(5),posta(2),poste(2)
Dim ambo1(2)
Dim r1,r2,a,b,x,y,tv,co,es,p1
posta(1) = 1
poste(2) = 1
tv = InputBox("Quante estrazioni vuoi controllare?",,0)
For es = EstrazioneFin - tv To EstrazioneFin
For r1 = 1 To 5
For p1 = 1 To 5
r2 = RuotaDiametrale(r1)
'---------------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
'---------------------------------
If a = DiametraleD(b) Then ' solo diametrali in decina
co = co +1
x = Fuori90(a + b) ' Somma dei numeri rintracciati
y = DiametraleD(x) ' diametrale in decina della somma
'---------------------
ambata(1) = x
'ambata(2) = y ' 2a ambata
ambo1(1) = x
ambo1(2) = y
'------------------------------
ruota(1) = r1
ruota(2) = r2
'-------------------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11 'TT
ruote(4) = 12 'NZ
'------------------------------
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
MatriceCaselleDaEvid(2,0) = r2
MatriceCaselleDaEvid(2,1) = p1
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi " ->a = " & a & " ->b = " & b & "",0,1,1,5,3
Scrivi
ImpostaGiocata 1,ambata,ruota,posta,9,1
Gioca es,1,,1
'
Scrivi String(55,"." & " caso " & co )
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,9,2
Gioca es,1,,1
Scrivi
End If
Next
Next
Next
End Sub

Ho inserito 20 estrazioni a ritroso
i 3 casi hanno dato esito con lìambata + diam.etrale in decina o compl. a90 del D.D.
Saluti
perfetto grazie mille
 
nuova condizione su bari napoli

22+27----------49 ambata

ambo 44-49

secondo ambo su suggerimento di bubu' 49-4
 
Fate attenzione oltre a BARI- NAPOLI anche a VENEZIA se posso consiglio una terzina 04-44-49 per AMBO e Terno Secco chissà magari è la volta buona che esce un TERNO SECCO??? 🤞🍀🤑
BuonGiorno.jpg

 
altra condizione sempre bari napoli

50+55----105-90------------15

ambo 10-15
ambo suggerimento bubu' 15-60
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 ottobre 2025
    Bari
    09
    10
    42
    73
    59
    Cagliari
    14
    65
    66
    79
    83
    Firenze
    71
    15
    32
    04
    61
    Genova
    08
    02
    18
    87
    84
    Milano
    33
    08
    84
    80
    41
    Napoli
    29
    81
    50
    17
    83
    Palermo
    14
    28
    74
    19
    60
    Roma
    76
    32
    55
    67
    90
    Torino
    07
    02
    66
    15
    70
    Venezia
    34
    73
    70
    40
    09
    Nazionale
    87
    79
    36
    46
    02
    Estrazione Simbolotto
    25
    07
    23
    17
    30
Indietro
Alto