Novità

Per Favore serve Listato...

Imaging

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.
 
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..??
 
toon ha scritto:
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..??
Clicca per espandere...
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 .......
 
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
 
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
 
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
 
toon ha scritto:
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
Clicca per espandere...
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 ha scritto:
Hai ragione, A+B non mi restituisce il risultato esatto....
Perchè....???? 😭 😞 😭
Clicca per espandere...
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...🛠️⌨️🧮
 
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
 
franca46 ha scritto:
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
Clicca per espandere...
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
 
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 ha scritto:
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
Clicca per espandere...
TOON sei un Grande insieme a Franca46 bravissimi un attimo che controllo ho risposto a Gio.....
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto