Novità

Metodo su Bari e Cagliari

P

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
 
Pandit

Pandit

Junior Member
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
 
P

PORTAFORTUNA

Advanced Member >PLATINUM PLUS<
Pandit ha scritto:
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
Clicca per espandere...
Ti ringrazio, spero sia da aiuto
 
M

mavtop

Super Member >PLATINUM<
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:
P

PORTAFORTUNA

Advanced Member >PLATINUM PLUS<
mavtop ha scritto:
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 ?
Clicca per espandere...
Buongiorno mavtop se esce un numeretto su Bari,il numeretto è il primo numero,9 e 90 annullano la previsione
 
M

mavtop

Super Member >PLATINUM<
PORTAFORTUNA ha scritto:
Buongiorno mavtop se esce un numeretto su Bari,il numeretto è il primo numero,9 e 90 annullano la previsione
Clicca per espandere...
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 ?
 
Alien.

Alien.

Advanced Premium Member
Pandit ha scritto:
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
Clicca per espandere...
OTTIMO,CIAO

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

 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 luglio 2024
    Bari
    16
    18
    30
    06
    10
    Cagliari
    40
    54
    44
    72
    14
    Firenze
    45
    44
    76
    83
    77
    Genova
    74
    81
    09
    54
    26
    Milano
    09
    19
    08
    73
    34
    Napoli
    82
    62
    88
    19
    39
    Palermo
    84
    89
    90
    03
    46
    Roma
    72
    80
    62
    81
    21
    Torino
    43
    64
    76
    32
    89
    Venezia
    25
    77
    87
    24
    84
    Nazionale
    32
    10
    79
    48
    12
    Estrazione Simbolotto
    Nazionale
    03
    13
    14
    18
    06
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto