Novità

Metodo su Bari e Cagliari

PORTAFORTUNA

Advanced Member >PLATINUM PLUS<
Ad ogni estrazione fare la differenza tra decina e unità del primo di bari e il primo di Cagliari, l'unione dei 2 numeri sarà l ambata da giocare su Bari e Cagliari per 7/8 colpi
Esempio ultima estrazione Bari 25,5-2=3, Cagliari 76,7-6=1 si ottiene ambata 31 da giocare per i prossimi 7/8 colpi,dalle 2 estrazioni precedenti in gioco anche 13 e 54
 
PORTAFORTUNA, ho fatto qualche aggiunta, ma di base l'ambata è come l'hai chiesta Tu.
Puoi anche scegliere le due ruote da utilizzare..
Option Explicit
Sub Main
'Metodo da un'idea di PORTAFORTUNA by Pandit
Dim a,a1,b,b1,c,c1,d,e,g,h
Dim Ini,Fin,Es,Ruo(5),K,R2,R1
Dim Nu(10),Num(6),posta(3)
Dim clp,Poste(1),f,i,R(12),Ru(12)
Poste(1) = 1
posta(2) = 1
R1 = CInt(InputBox(" Inserisci il numero della prima ruota",,1))
R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",,2))
'P***
Ini = EstrazioneFin - 300
Fin = EstrazioneFin
Scrivi "Metodo Data di nascita",1,,,1,3,,1
For Es = Ini To Fin
'If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1 Then
'-----------------------------------
K = K + 1
a = Decina(Estratto(Es,R1,1))
a1 = Cadenza(Estratto(Es,R1,1))
If a > a1 Then
c = a - a1
End If
If a < a1 Then
c = a1 - a
End If
'P***
b = Decina(Estratto(Es,R2,1))
b1 = Cadenza(Estratto(Es,R2,1))
If b > b1 Then
c1 = b - b1
End If
If b < b1 Then
c1 = b1 - b
End If
'P***
d = Fuori90(c & c1)
e = Fuori90(Vert(d))
g = 90 - d
h = 90 - e
'P***
For f = 1 To UBound(Num)
If Cadenza(Num(f)) = 9 Then Num(f) = Vert(Num(f) - 1)
Next
'P***
For i = 1 To UBound(Num)
If Gemello(Num(i)) Then Num(i) = Vert(Num(i) - 1)
Next
'P***
Ruo(1) = R1
Ruo(2) = R2
'P***
Ru(1) = R1
Ru(2) = R2
Ru(3) = 11
'*** Numeri ***
Num(1) = d
Num(2) = e
Num(3) = g
Num(4) = h
EliminaRipetuti Num
'P***
Nu(1) = d
'Nu(2) = e
'P***
Scrivi DataEstrazione(Es) & "Primo Numero in Gioco " & d & " Vertibile " & e,1
'P***
ImpostaGiocata 1,Nu,Ruo,Poste,7',1
ImpostaGiocata 2,Num,Ru,posta,17',1
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
 
PORTAFORTUNA, ho fatto qualche aggiunta, ma di base l'ambata è come l'hai chiesta Tu.
Puoi anche scegliere le due ruote da utilizzare..
Option Explicit
Sub Main
'Metodo da un'idea di PORTAFORTUNA by Pandit
Dim a,a1,b,b1,c,c1,d,e,g,h
Dim Ini,Fin,Es,Ruo(5),K,R2,R1
Dim Nu(10),Num(6),posta(3)
Dim clp,Poste(1),f,i,R(12),Ru(12)
Poste(1) = 1
posta(2) = 1
R1 = CInt(InputBox(" Inserisci il numero della prima ruota",,1))
R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",,2))
'P***
Ini = EstrazioneFin - 300
Fin = EstrazioneFin
Scrivi "Metodo Data di nascita",1,,,1,3,,1
For Es = Ini To Fin
'If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1 Then
'-----------------------------------
K = K + 1
a = Decina(Estratto(Es,R1,1))
a1 = Cadenza(Estratto(Es,R1,1))
If a > a1 Then
c = a - a1
End If
If a < a1 Then
c = a1 - a
End If
'P***
b = Decina(Estratto(Es,R2,1))
b1 = Cadenza(Estratto(Es,R2,1))
If b > b1 Then
c1 = b - b1
End If
If b < b1 Then
c1 = b1 - b
End If
'P***
d = Fuori90(c & c1)
e = Fuori90(Vert(d))
g = 90 - d
h = 90 - e
'P***
For f = 1 To UBound(Num)
If Cadenza(Num(f)) = 9 Then Num(f) = Vert(Num(f) - 1)
Next
'P***
For i = 1 To UBound(Num)
If Gemello(Num(i)) Then Num(i) = Vert(Num(i) - 1)
Next
'P***
Ruo(1) = R1
Ruo(2) = R2
'P***
Ru(1) = R1
Ru(2) = R2
Ru(3) = 11
'*** Numeri ***
Num(1) = d
Num(2) = e
Num(3) = g
Num(4) = h
EliminaRipetuti Num
'P***
Nu(1) = d
'Nu(2) = e
'P***
Scrivi DataEstrazione(Es) & "Primo Numero in Gioco " & d & " Vertibile " & e,1
'P***
ImpostaGiocata 1,Nu,Ruo,Poste,7',1
ImpostaGiocata 2,Num,Ru,posta,17',1
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
Ti ringrazio, spero sia da aiuto
 
Ciao @PORTAFORTUNA ho qualche domanda:

- se i dati su BA o CA sono un numeretto (numero da 1 a 9) la differenza tra decina e unita' diventa negativa, la si prende come valore assoluto ?

- praticamente ad ogni estrazione esce una nuova ambata da giocare dalla volta successiva su BA e CA ?
 
Ultima modifica:
Ciao @PORTAFORTUNA ho qualche domanda:

- se i dati su BA o CA sono un numeretto (numero da 1 a 9) la differenza tra decina e unita' diventa negativa, la si prende come valore assoluto ?

- praticamente ad ogni estrazione esce una nuova ambata da giocare dalla volta successiva su BA e CA ?
Buongiorno mavtop se esce un numeretto su Bari,il numeretto è il primo numero,9 e 90 annullano la previsione
 
Buongiorno mavtop se esce un numeretto su Bari,il numeretto è il primo numero,9 e 90 annullano la previsione
scusami portafortuna non capisco

se 1o BA e' 5 ed il 1o CA e' 7 l'ambata sara' ? 57 ?

se 1o BA e' 5 ed il 1o CA e' 33 l'ambata sara' ? 50 ?

se 1o BA e' 11 (gemello) ed il 1o CA e' 77 (gemello) l'ambata sara' ? qua no so rispondere

che intendi per 9 e 90 annullano la previsione ? se 1o BA o 1o CA sono 9 o 90 ?
 
PORTAFORTUNA, ho fatto qualche aggiunta, ma di base l'ambata è come l'hai chiesta Tu.
Puoi anche scegliere le due ruote da utilizzare..
Option Explicit
Sub Main
'Metodo da un'idea di PORTAFORTUNA by Pandit
Dim a,a1,b,b1,c,c1,d,e,g,h
Dim Ini,Fin,Es,Ruo(5),K,R2,R1
Dim Nu(10),Num(6),posta(3)
Dim clp,Poste(1),f,i,R(12),Ru(12)
Poste(1) = 1
posta(2) = 1
R1 = CInt(InputBox(" Inserisci il numero della prima ruota",,1))
R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",,2))
'P***
Ini = EstrazioneFin - 300
Fin = EstrazioneFin
Scrivi "Metodo Data di nascita",1,,,1,3,,1
For Es = Ini To Fin
'If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1 Then
'-----------------------------------
K = K + 1
a = Decina(Estratto(Es,R1,1))
a1 = Cadenza(Estratto(Es,R1,1))
If a > a1 Then
c = a - a1
End If
If a < a1 Then
c = a1 - a
End If
'P***
b = Decina(Estratto(Es,R2,1))
b1 = Cadenza(Estratto(Es,R2,1))
If b > b1 Then
c1 = b - b1
End If
If b < b1 Then
c1 = b1 - b
End If
'P***
d = Fuori90(c & c1)
e = Fuori90(Vert(d))
g = 90 - d
h = 90 - e
'P***
For f = 1 To UBound(Num)
If Cadenza(Num(f)) = 9 Then Num(f) = Vert(Num(f) - 1)
Next
'P***
For i = 1 To UBound(Num)
If Gemello(Num(i)) Then Num(i) = Vert(Num(i) - 1)
Next
'P***
Ruo(1) = R1
Ruo(2) = R2
'P***
Ru(1) = R1
Ru(2) = R2
Ru(3) = 11
'*** Numeri ***
Num(1) = d
Num(2) = e
Num(3) = g
Num(4) = h
EliminaRipetuti Num
'P***
Nu(1) = d
'Nu(2) = e
'P***
Scrivi DataEstrazione(Es) & "Primo Numero in Gioco " & d & " Vertibile " & e,1
'P***
ImpostaGiocata 1,Nu,Ruo,Poste,7',1
ImpostaGiocata 2,Num,Ru,posta,17',1
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
OTTIMO,CIAO

Pandit PUOI INSERIRE SU DISTIBUZIONE ESITI TUTTE LE RUOTE SE TI E POSSIBILE, GRAZIE​

 
No Pandit intendevo dove sono usciti + ambi su ogni ruota (tutte)

RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 19 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 17 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 89,47 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 38 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 20 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 52,63 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 1 | | MI | 2| 2| | | | | MI | 12,5|33,33| | | | | MI | 38| |
| Giocate terminate : 37 | | NA | 2| 4| | | | | NA | 12,5|66,67| | | | | NA | 38| |
| Bollette giocate : 1.208 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 47 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 6 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 1.208,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 441,09 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : -766,91 € | | TT | | 42| 1| | | | TT | | 700| | | | | TT | | |
| Perc. Rendimento : -63,486 % | +----------------------------------+


qui si vede male ma mi da ambi solo a mi-na come da me selezionato e le altre ruote ? (ci sono 42 ambi escluso mi-na, credo )
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto