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
    giovedì 19 giugno 2025
    Bari
    32
    64
    67
    30
    17
    Cagliari
    39
    56
    77
    12
    35
    Firenze
    11
    16
    59
    72
    02
    Genova
    80
    79
    05
    03
    33
    Milano
    09
    87
    23
    88
    82
    Napoli
    56
    74
    85
    16
    61
    Palermo
    84
    21
    08
    18
    85
    Roma
    71
    84
    20
    54
    86
    Torino
    28
    36
    68
    49
    53
    Venezia
    14
    45
    39
    43
    42
    Nazionale
    73
    11
    46
    20
    26
    Estrazione Simbolotto
    Napoli
    43
    35
    11
    26
    40

Ultimi Messaggi

Indietro
Alto