Novità

Per Favore serve Listato...

Imaging

Advanced Member >PLATINUM<
Si Può Fare il LISTATO di questo metodo ?????
IL METODO PER VINCERE!
Cari amici , un metodo molto semplice ed interessante sotto l'aspetto vincite. Vediamo qual è la condizione di gioco idonea:
- individuare in 1ª e 2ª posizione, un ambo in distanza 8;
- la somma dei due numeri ci darà l'ambata;
- i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B);
-i vertibili di A e B saranno i due abbinamenti principali.
Il gioco si effettuerà sulle ruote diametrali.
Nota: *quando l'ambata ricavata risulta essere presente
nell'estrazione di calcolo, fare +1 all'ambata stessa.
Esempi di gioco: estrazione del 28 aprile 2015
Cagliari 47-55 (distanza 8)
47+55=12 ambata
47 diametrale 02 e 55 diametrale 10
Vertibile di 02 = 20 / Vertibile di 10 = 01
Previsione: Cagliari-Palermo ambata 12, ambi secchi
12.20 e 12.01, terzina per ambo e terno 12.2.10.
Esito: al 7° colpo ambo secco 12-20 a Cagliari.
Estrazione del 30 maggio 2015 - Milano 58-50
58+50=18 ambata
58 diametrale 13/50 diametrale 05
13 vertibile 31/ 05 vertibile 50
Previsione: Milano-Venezia ambata 18, ambi secchi
18.31 e 18.50, terzina per ambo e terno 18.13.05.
Esito: al 2° colpo ambo in terzina 18.13 a Venezia.
Estrazione del 9 giugno 2015 - Bari 5-13
05+13=18 ambata
05 diametrale 50/13 diametrale 58
50 vertibile 05/58 vertibile 85
Previsione: Bari-Napoli ambata 18, ambi secchi 18.05 e
18.85, terzina 18.50.58.
Esito: al 1° colpo ambo secco 18.85 a Bari
Estrazione del 9 giugno 2015 - Milano 8-90
08+90=08 ambata
08 diametrale 53/90 diametrale 45
53 vertibile 35/45 vertibile 54
Previsione: Milano-Venezia ambata 08,
ambi secchi 08.35 / 08.54, terzina 08.53.45
Esito al 3° colpo ambo secco 8.54 a Milano.

In data 25 agosto , con l'ambo 63.71 su Genova
si è generata questa previsione
GENOVA-TORINO ambata 45
ambi secchi 45-81 e 45-62
per ambo e terno 45-18-26
Buona serata e in ogni caso GRAZIE.
 

beppone

Super Member >PLATINUM<
I listati non sono capaci ho fatto a mano e' un portento anche con posizione 02 03 03 04 04 05

C i a o
 

toon

Advanced Member
Non sono un grande scripter, Il listato l'ho fatto, ma non so come fare la giocata su ruota diametrale..
😞😭
Se vuoi lo metto in linea ugualmente, sperando che qualche scripter vero riesca a modificarlo..??
 

Imaging

Advanced Member >PLATINUM<
Non sono un grande scripter, Il listato l'ho fatto, ma non so come fare la giocata su ruota diametrale..
😞😭
Se vuoi lo metto in linea ugualmente, sperando che qualche scripter vero riesca a modificarlo..??
Ringrazio TOON, per me i listati è cinese non ne capisco, basta ringraziarti già per l'impegno .......non so se hai letto Rudivall che ringrazio molto...... se ti va mettilo pure ...........ringrazio sempre .......
 

toon

Advanced Member
Ecco cosa ho combinato...
Grazie rudivall, spero sia tutto OK.

Codice:
Sub Main()
   Dim R1,P1,P2,k
   Dim Ruo(12),Pu(5),Nu(6)
   k = 10  'COLPI DI GIOCO, PER CAMBIARLI BASTA CAMBIARE IL NUMERO
   Pu(2) = 1
   Pu(3) = 1
   ini = EstrazioneFin - 100
   fIn = EstrazioneFin
   co = 0
   For es = Ini To FIn
      Messaggio es
      For R1 = 1 To 12
         For P1 = 1 To 2
            For P2 = P1 + 1 To 2
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               If A > 0 Then
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale(A)
                     Nu(3) = Diametrale(B)
                     Nu(4) = Vert(A)
                     Nu(5) = Vert(B)
                     EliminaRipetuti Nu
                     Scrivi " <-- Evidenziati Distanza 8",1
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     Ruo(2) = RuotaDiametrale(R1)
                     ImpostaGiocata 1,Nu,Ruo,Pu,k,4
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

toon

Advanced Member
Con questa correzione secondo me rende meglio.. ;)
Ovviamente si accettano migliorie.. (y)

Codice:
Sub Main()
   Dim R1,P1,P2,k
   Dim Ruo(12),Pu(5),Nu(6)
   k = 10  'COLPI DI GIOCO, PER CAMBIARLI BASTA CAMBIARE IL NUMERO
   Pu(2) = 1
   Pu(3) = 1
   ini = EstrazioneFin - 100
   fIn = EstrazioneFin
   co = 0
   For es = Ini To FIn
      Messaggio es
      For R1 = 1 To 12
         For P1 = 1 To 2
            For P2 = P1 + 1 To 2
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               If A > 0 Then
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale(A)
                     Nu(3) = Diametrale(B)
                     Nu(4) = Vert(A)
                     Nu(5) = Vert(B)
                     EliminaRipetuti Nu
                     Scrivi " <-- Evidenziati Distanza 8",1
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     'Ruo(2) = RuotaDiametrale(R1)
                     Ruo(2) = 4
                     Ruo(3) = 5
                     ImpostaGiocata 1,Nu,Ruo,Pu,k,4
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

toon

Advanced Member
Così è quasi completo.. 😞 ;) (y)
Manca solamente la condizione della presenza Ambata nell'estrazione, cioè il +1...
Più di così non riesco...

Codice:
Sub Main()
    Scrivi
   Scrivi " METODO per VINCERE  di IMAGING ",2,,4,,4
   Scrivi
   Dim R1,P1,P2,k,Am(1),Ter1(3),Ptt(2),ruot(2)
   Dim Ruo(12),Pu(5),Nu(6),Pt(1),Am1(2),Am2(2)
   k = 10 'COLPI DI GIOCO, PER CAMBIARLI BASTA CAMBIARE IL NUMERO
   Pt(1) = 1
   Ptt(2) = 1
   Pu(2) = 1
   Pu(3) = 1
   ini = EstrazioneFin - 100
   fIn = EstrazioneFin
   co = 0
   For es = Ini To FIn
      Messaggio es
      For R1 = 1 To 12
         For P1 = 1 To 2
            For P2 = P1 + 1 To 2
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               If A > 0 Then
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale(A)
                     Nu(3) = Diametrale(B)
                     Nu(4) = Vert(A)
                     Nu(5) = Vert(B)
                     EliminaRipetuti Nu
                     '----------------------
                     Am(1) = Nu(1)
                     '----------------------
                     Am1(1) = Nu(1)
                     Am1(2) = Nu(4)
                     '----------------------- 
                     Am2(1) = Nu(1)
                     Am2(2) = Nu(5)
                     '-----------------------
                     Ter1(1) = Nu(1)
                     Ter1(2) = Nu(2)
                     Ter1(3) = Nu(3)
                     EliminaRipetuti Ter1
                     '----------------------
                     Scrivi " ==> Evidenziati Distanza 8",1,,1
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     ruot(1) = R1:ruot(2) = RuotaDiametrale(R1)
                     ImpostaGiocata 1,Am,ruot,Pt,k,4
                     ImpostaGiocata 2,Am1,ruot,Ptt,k,4
                     ImpostaGiocata 3,Am2,ruot,Ptt,k,4
                     ImpostaGiocata 4,Ter1,ruot,Pu,k,4
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

Imaging

Advanced Member >PLATINUM<
Così è quasi completo.. 😞 ;) (y)
Manca solamente la condizione della presenza Ambata nell'estrazione, cioè il +1...
Più di così non riesco...

Codice:
Sub Main()
    Scrivi
   Scrivi " METODO per VINCERE  di IMAGING ",2,,4,,4
   Scrivi
   Dim R1,P1,P2,k,Am(1),Ter1(3),Ptt(2),ruot(2)
   Dim Ruo(12),Pu(5),Nu(6),Pt(1),Am1(2),Am2(2)
   k = 10 'COLPI DI GIOCO, PER CAMBIARLI BASTA CAMBIARE IL NUMERO
   Pt(1) = 1
   Ptt(2) = 1
   Pu(2) = 1
   Pu(3) = 1
   ini = EstrazioneFin - 100
   fIn = EstrazioneFin
   co = 0
   For es = Ini To FIn
      Messaggio es
      For R1 = 1 To 12
         For P1 = 1 To 2
            For P2 = P1 + 1 To 2
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               If A > 0 Then
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale(A)
                     Nu(3) = Diametrale(B)
                     Nu(4) = Vert(A)
                     Nu(5) = Vert(B)
                     EliminaRipetuti Nu
                     '----------------------
                     Am(1) = Nu(1)
                     '----------------------
                     Am1(1) = Nu(1)
                     Am1(2) = Nu(4)
                     '-----------------------
                     Am2(1) = Nu(1)
                     Am2(2) = Nu(5)
                     '-----------------------
                     Ter1(1) = Nu(1)
                     Ter1(2) = Nu(2)
                     Ter1(3) = Nu(3)
                     EliminaRipetuti Ter1
                     '----------------------
                     Scrivi " ==> Evidenziati Distanza 8",1,,1
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     ruot(1) = R1:ruot(2) = RuotaDiametrale(R1)
                     ImpostaGiocata 1,Am,ruot,Pt,k,4
                     ImpostaGiocata 2,Am1,ruot,Ptt,k,4
                     ImpostaGiocata 3,Am2,ruot,Ptt,k,4
                     ImpostaGiocata 4,Ter1,ruot,Pu,k,4
                     Gioca es,1
                  End If
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
Ho provato questo......già che Toon si è messo al lavoro per realizzare il listato e da ringraziare ed è bravissimo potrebbe anche andar bene ma non è conforme al Metodo non voglio sbagliare ma non si trovano i calcoli per la previsione del metodo.....il metodo Prevede una AMBATA due AMBI secchi e una TERZINA chiaramente con i relativi vertibili....comunque mi piace e bravo, per me che non ne capisco di listati Bravissimo TOON.
 

toon

Advanced Member
Hai ragione, A+B non mi restituisce il risultato esatto....
Perchè....???? 😭 😞 😭
 

Imaging

Advanced Member >PLATINUM<
Hai ragione, A+B non mi restituisce il risultato esatto....
Perchè....???? 😭 😞 😭
IL PERCHE' lo può dire TOOM che scrive io non ne capisco appena riesco a scrivere qualche metodo speriamo tra tanti bravi bravissimi del forum ci diano una piccola revisione sul forum ce ne sono molti di Bravi ed Esperti ringrazio sempre...🛠️⌨️🧮
 

franca46

Advanced Member >PLATINUM PLUS<
ciao , non so dire al listato della presenza dell'ambata e neanche della diametrale ( non mi riesce)
magari riuscite a correggerlo Voi ? nella giocata tutte vedete dove si hanno gli esiti
Codice:
Sub main()
Dim ab(2),ab1(3),ab2(3)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim posta(3) :
poste(1)=1: posta(2)=1 : posta(3)=1

quante= CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",100))
If quante= False Then Exit Sub

For es=(EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)

For r1=1 To 10
For p1=1 To 1
For p2=p1+1 To 2
 
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)

If Distanza(a,b)=8  Then

s1=Fuori90(a+b)'ambata
s2=Vert(a)
s3=Vert(b)
s4=Diametrale(a)
s5=Diametrale(b)
 
cont=cont+1
Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
 
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
Left(NomeRuota(r1),3)&""&Space(3)&""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(2)&""& Format2(b)&""&Space(4)&"(Pos. "&p1&"°-"&p2&"°)"
Scrivi

ruote(1)=r1 : ruot(1)=11 :

ab(1)=s1
ImpostaGiocata 1,ab,ruote,poste,12,0
ab1(1)=s1
ab1(2)=s2
ab1(3)=s3
ImpostaGiocata 2,ab1,ruot,posta,12,0
ab2(1)=s1
ab2(2)=s4
ab2(3)=s5
 
ImpostaGiocata 3,ab2,ruot,posta,12,0

Scrivi : Gioca es : Scrivi String(57,151)

End If
Next : Next : Next : Next :
'ScriviResoconto :
ColoreTesto 2 :  End Sub
 

Imaging

Advanced Member >PLATINUM<
ciao , non so dire al listato della presenza dell'ambata e neanche della diametrale ( non mi riesce)
magari riuscite a correggerlo Voi ? nella giocata tutte vedete dove si hanno gli esiti
Codice:
Sub main()
Dim ab(2),ab1(3),ab2(3)
Dim ruote(10)
Dim ruot(1)
Dim poste(1)
Dim posta(3) :
poste(1)=1: posta(2)=1 : posta(3)=1

quante= CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",100))
If quante= False Then Exit Sub

For es=(EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)

For r1=1 To 10
For p1=1 To 1
For p2=p1+1 To 2
 
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)

If Distanza(a,b)=8  Then

s1=Fuori90(a+b)'ambata
s2=Vert(a)
s3=Vert(b)
s4=Diametrale(a)
s5=Diametrale(b)
 
cont=cont+1
Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
 
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
Left(NomeRuota(r1),3)&""&Space(3)&""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(2)&""& Format2(b)&""&Space(4)&"(Pos. "&p1&"°-"&p2&"°)"
Scrivi

ruote(1)=r1 : ruot(1)=11 :

ab(1)=s1
ImpostaGiocata 1,ab,ruote,poste,12,0
ab1(1)=s1
ab1(2)=s2
ab1(3)=s3
ImpostaGiocata 2,ab1,ruot,posta,12,0
ab2(1)=s1
ab2(2)=s4
ab2(3)=s5
 
ImpostaGiocata 3,ab2,ruot,posta,12,0

Scrivi : Gioca es : Scrivi String(57,151)

End If
Next : Next : Next : Next :
'ScriviResoconto :
ColoreTesto 2 :  End Sub
BRAVSSIMO/A il metodo gioca sulle ruote DIMETRALI La terzina per ambo e terno va bene l'ambata pure mancano gli ambi con i rispettivi diametrali ......sempre ringrazio ....... franca46 ...per le istruzioni sono all'inizio del Post grazie , grazie
 

toon

Advanced Member
Grandissima franca46.. (y) ho fatto le modifiche, ma manca sempre la condizione della presenza Ambata nell'estrazione, cioè il +1 L'unione fa la forza, piano piano forse ci arriviamo, grazie a tutti per l'aiuto.
Imaging, per il resto vanno bene i calcoli??
;):cool:


Codice:
Sub Main()
   Dim ab(2),ab1(2),ab2(2),ab3(3)
   Dim ruote(10)
   Dim ruot(1)
   Dim poste(1)
   Dim posta(3),posta3(3)
   poste(1) = 1: posta(2) = 1 : posta3(3) = 1:posta3(2) = 1
   quante = CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",100))
   If quante = False Then Exit Sub
   For es =(EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)
      For r1 = 1 To 10
         For p1 = 1 To 1
            For p2 = p1 + 1 To 2
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               If Distanza(a,b) = 8 Then
                  s1 = Fuori90(a + b)'ambata
                  s2 = Vert(a)
                  s3 = Vert(b)
                  s4 = Diametrale(a)
                  s5 = Diametrale(b)
                  cont = cont + 1
                  Scrivi
                  ColoreTesto 1 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
                  ColoreTesto 1 : Scrivi
                  Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & "" & _
                  Left(NomeRuota(r1),3) & "" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(5) & _
                  "" & Format2(a) & "" & Space(2) & "" & Format2(b) & "" & Space(4) & "(Pos. " & p1 & "°-" & p2 & "°)"
                  Scrivi
                  ruote(1) = r1:ruote(2) = RuotaDiametrale(r1)
                  ab(1) = s1
                  ImpostaGiocata 1,ab,ruote,poste,12,0
                  ab1(1) = s1
                  ab1(2) = s2
                  ImpostaGiocata 2,ab1,ruote,posta,12,0
                  ab2(1) = s1
                  ab2(2) = s3
                  ImpostaGiocata 3,ab2,ruote,posta,12,0
                  ab3(1) = s1
                  ab3(2) = s4
                  ab3(3) = s5
                  ImpostaGiocata 4,ab3,ruote,posta3,12,0
                  Scrivi : Gioca es,1 : Scrivi String(57,151)
               End If
            Next : Next : Next : Next :
            ScriviResoconto :
            ColoreTesto 2 : End Sub
 

Imaging

Advanced Member >PLATINUM<
Grandissima franca46.. (y) ho fatto le modifiche, ma manca sempre la condizione della presenza Ambata nell'estrazione, cioè il +1 L'unione fa la forza, piano piano forse ci arriviamo, grazie a tutti per l'aiuto.
Imaging, per il resto vanno bene i calcoli??
;):cool:


Codice:
Sub Main()
   Dim ab(2),ab1(2),ab2(2),ab3(3)
   Dim ruote(10)
   Dim ruot(1)
   Dim poste(1)
   Dim posta(3),posta3(3)
   poste(1) = 1: posta(2) = 1 : posta3(3) = 1:posta3(2) = 1
   quante = CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",100))
   If quante = False Then Exit Sub
   For es =(EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)
      For r1 = 1 To 10
         For p1 = 1 To 1
            For p2 = p1 + 1 To 2
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               If Distanza(a,b) = 8 Then
                  s1 = Fuori90(a + b)'ambata
                  s2 = Vert(a)
                  s3 = Vert(b)
                  s4 = Diametrale(a)
                  s5 = Diametrale(b)
                  cont = cont + 1
                  Scrivi
                  ColoreTesto 1 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
                  ColoreTesto 1 : Scrivi
                  Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & "" & _
                  Left(NomeRuota(r1),3) & "" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(5) & _
                  "" & Format2(a) & "" & Space(2) & "" & Format2(b) & "" & Space(4) & "(Pos. " & p1 & "°-" & p2 & "°)"
                  Scrivi
                  ruote(1) = r1:ruote(2) = RuotaDiametrale(r1)
                  ab(1) = s1
                  ImpostaGiocata 1,ab,ruote,poste,12,0
                  ab1(1) = s1
                  ab1(2) = s2
                  ImpostaGiocata 2,ab1,ruote,posta,12,0
                  ab2(1) = s1
                  ab2(2) = s3
                  ImpostaGiocata 3,ab2,ruote,posta,12,0
                  ab3(1) = s1
                  ab3(2) = s4
                  ab3(3) = s5
                  ImpostaGiocata 4,ab3,ruote,posta3,12,0
                  Scrivi : Gioca es,1 : Scrivi String(57,151)
               End If
            Next : Next : Next : Next :
            ScriviResoconto :
            ColoreTesto 2 : End Sub
TOON sei un Grande insieme a Franca46 bravissimi un attimo che controllo ho risposto a Gio.....
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto