Novità

Per Favore serve Listato...

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
Sembra corretto ma con osservazione molto attenta posso dire che L'ambata è corretta gli abbinamenti degli AMBI non lo sono Ricordo i Diametrali dei due N. saranno gli abbinamenti se ricordo bene ......
 
Ciao a tutti
Da provare questa soluzione

Codice:
Sub Main()
   'individuare in 1ª e 2ª posizione, un ambo in distanza 8
   'la somma dei due numeri ci darà l'ambata
   'Nota: *quando l'ambata ricavata risulta essere presente
   'nell'estrazione di calcolo, fare +1 all'ambata stessa.
   'i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B)
   'i vertibili di A e B saranno i due abbinamenti principali
   Scrivi "Richiesta metodo distanza 8 di Imaging"
   Scrivi "https://forum.lottoced.com/threads/per-favore-serve-listato.2200145/#post-2334367"
   Dim Ini,fin,ce,r1,n1,n2,am1,am2,ab1,ab2
   Dim nu1(1),nu2(2),n3(3),a(1),fr,casi,K
   Dim ruota(2),ru(1)
   Dim posta(1),poste(2)
   poste(2) = 1 : posta(1) = 1
   ce = InputBox("Quante estrazioni vuoi analizzare?","ESTRAZIONI",150)
   K = InputBox("Quanti colpi di gioco?","COLPI ",9)
   fin = EstrazioneFin
   Ini = fin - ce
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 10
         n1 = Estratto(es,r1,1)
         n2 = Estratto(es,r1,2)
         If Distanza(n1,n2) = 8 Then
            a(1) = Fuori90(n1 + n2)
            am1 = Diametrale(n1) : am2 = Diametrale(n2)
            ab1 = Vert(am1) : ab2 = Vert(am2)
            casi = casi + 1:Scrivi String(75,"="),1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(n1) & "-" & Format2(n2) & " > "
            ru(1) = r1
            fr = SerieFreq(es,es,a,ru,1)
            If fr = 1 Then Scrivi "Ambata " & a(1) & " presente nell'estrazione di calcolo, fatto + 1 ",1
            ColoreTesto 0
            If fr = 1 Then a(1) = a(1) + 1
            Scrivi String(65,"-") & " caso n° " &(casi)
            ruota(1) = r1 :ruota(2) = RuotaDiametrale(r1)
            nu1(1) = a(1) : ImpostaGiocata 1,nu1,ruota,posta,K
            nu2(1) = nu1(1)
            nu2(2) = ab1 :ImpostaGiocata 2,nu2,ruota,poste,K
            nu2(2) = ab2 :ImpostaGiocata 3,nu2,ruota,poste,K
            n3(1) = a(1) :n3(2) = am1 :n3(3) = am2
            ImpostaGiocata 4,n3,ruota,poste,K
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto,0
End Sub
 
Ciao a tutti
Da provare questa soluzione

Codice:
Sub Main()
   'individuare in 1ª e 2ª posizione, un ambo in distanza 8
   'la somma dei due numeri ci darà l'ambata
   'Nota: *quando l'ambata ricavata risulta essere presente
   'nell'estrazione di calcolo, fare +1 all'ambata stessa.
   'i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B)
   'i vertibili di A e B saranno i due abbinamenti principali
   Scrivi "Richiesta metodo distanza 8 di Imaging"
   Scrivi "https://forum.lottoced.com/threads/per-favore-serve-listato.2200145/#post-2334367"
   Dim Ini,fin,ce,r1,n1,n2,am1,am2,ab1,ab2
   Dim nu1(1),nu2(2),n3(3),a(1),fr,casi,K
   Dim ruota(2),ru(1)
   Dim posta(1),poste(2)
   poste(2) = 1 : posta(1) = 1
   ce = InputBox("Quante estrazioni vuoi analizzare?","ESTRAZIONI",150)
   K = InputBox("Quanti colpi di gioco?","COLPI ",9)
   fin = EstrazioneFin
   Ini = fin - ce
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 10
         n1 = Estratto(es,r1,1)
         n2 = Estratto(es,r1,2)
         If Distanza(n1,n2) = 8 Then
            a(1) = Fuori90(n1 + n2)
            am1 = Diametrale(n1) : am2 = Diametrale(n2)
            ab1 = Vert(am1) : ab2 = Vert(am2)
            casi = casi + 1:Scrivi String(75,"="),1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(n1) & "-" & Format2(n2) & " > "
            ru(1) = r1
            fr = SerieFreq(es,es,a,ru,1)
            If fr = 1 Then Scrivi "Ambata " & a(1) & " presente nell'estrazione di calcolo, fatto + 1 ",1
            ColoreTesto 0
            If fr = 1 Then a(1) = a(1) + 1
            Scrivi String(65,"-") & " caso n° " &(casi)
            ruota(1) = r1 :ruota(2) = RuotaDiametrale(r1)
            nu1(1) = a(1) : ImpostaGiocata 1,nu1,ruota,posta,K
            nu2(1) = nu1(1)
            nu2(2) = ab1 :ImpostaGiocata 2,nu2,ruota,poste,K
            nu2(2) = ab2 :ImpostaGiocata 3,nu2,ruota,poste,K
            n3(1) = a(1) :n3(2) = am1 :n3(3) = am2
            ImpostaGiocata 4,n3,ruota,poste,K
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto,0
End Sub
Questa soluzione e ottima Grande MASTER grazie. Ma sono stati bravi con impegno TOON ,FRANCA46, Rudivall e Gio
Grazie Grazie a tutti. PER CHI USA IL METODO CONSIGLIO 14 Colpi SE NON SI Presentano vincite nei primi 9/10 colpi.
Ragazzi , ne posso fare ancora Metodi ??? che dite ......fatemelo sapere. Buone Vincite in Bocca al Lupo, GRAZIE A TUTTI.
 
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

Codice:
 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.

mar 11.05.2021   [9923]ª    Tor   73.65.35.82.36     73  65    (Pos. 1°-2°)


mar 11.05.2021  [9923]
  G  1:  M       48         To    5/12    
     in corso (5° su 12)
  G  2:  AT      48.37.56   Tu    5/12    .....-i vertibili di A e B saranno i due abbinamenti principali.
     A  56.37            su Tu (Na)    4° colpo   [9927/20.05.2021]
     in corso (5° su 12)
  G  3:  AT      48.28.20   Tu    5/12    .....i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B);
     A  20.28            su Tu (Fi)    5° colpo   [9928/22.05.2021]
     in corso (5° su 12)

scusa credevo di aver fatto bene
 
forse si è errato , anzichè due ambi ed una terzina ho messo due terzine
una con i vertibili e una con i diametrali

Codice:
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.

mar 09.06.2015   [9014]ª    Mil   08.90.75.02.89     08  90    (Pos. 1°-2°)

mar 09.06.2015  [9014]
  G  1:  M       08         Mi    12/12    
     M  08               su Mi    3° colpo   [9017/16.06.2015]
     M  08               su Mi    5° colpo   [9019/20.06.2015]
     M  08               su Mi    8° colpo   [9022/27.06.2015]

  G  2:  AT      08.80.09   Tu    12/12    
     A  08.80            su Tu (Mi)    3° colpo   [9017/16.06.2015]

  G  3:  AT      08.53.45   Tu    12/12    
     A  08.45            su Tu (To)    4° colpo   [9018/18.06.2015]
     A  53.45            su Tu (Fi)    7° colpo   [9021/25.06.2015]
     A  08.45            su Tu (Na)    8° colpo   [9022/27.06.2015]
 
Codice:
 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.

mar 11.05.2021   [9923]ª    Tor   73.65.35.82.36     73  65    (Pos. 1°-2°)


mar 11.05.2021  [9923]
  G  1:  M       48         To    5/12   
     in corso (5° su 12)
  G  2:  AT      48.37.56   Tu    5/12    .....-i vertibili di A e B saranno i due abbinamenti principali.
     A  56.37            su Tu (Na)    4° colpo   [9927/20.05.2021]
     in corso (5° su 12)
  G  3:  AT      48.28.20   Tu    5/12    .....i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B);
     A  20.28            su Tu (Fi)    5° colpo   [9928/22.05.2021]
     in corso (5° su 12)

scusa credevo di aver fatto bene
Va benissimo solo che hai composto il listato è già da ammirare grazie, sempre di quello che fate sul forum in pratica uniti si cerca di vincire
speriamo...e grazie .
 
Buon pomeriggio.

Controllate questa soluzione...ho inserito una riga di controllo
per la presenza dell'ambata ed il gioco su Tutte.

Enplein.
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(3),Pu(3),Nu(5),Pt(1),Am1(2),Am2(2)
   k = 14 '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 11
      If R1=11 Then R1=12
         For P1 = 1 To 1
         P2 = P1 + 1
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale (A)
                     Nu(3) = Diametrale (B)
                     Nu(4) = Vert (Nu(2))
                     Nu(5) = Vert (Nu(3))
                     'EliminaRipetuti Nu
                     '----------------------
                     Am(1) = Nu(1) :ruot(1) = R1:ruot(2) = RuotaDiametrale(R1)
                       If SerieFreq (es,es,Am,ruot,1)=0 Then
                       'Questa riga controlla la presenza dell'ambata sulle ruote di gioco
                       'In caso positivo la previsione viene saltata amzichè aggiungere +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,,2
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" _ "&_
                      StringaEstratti (es,R1)&"  "& Format2 (A)&"-"& Format2 (B)&"  Pos. "&P1&"^ "&P2&"^",1
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                   
                     Ruo(1)=ruot(1) : Ruo(2)=ruot(2): Ruo(3)=11
                     ImpostaGiocata 1,Am,ruot,Pt,k,4
                     ImpostaGiocata 2,Am1,Ruo,Ptt,k,4
                     ImpostaGiocata 3,Am2,Ruo,Ptt,k,4
                     ImpostaGiocata 4,Ter1,Ruo,Pu,k,4
                     Gioca es,1
                   
                  End If
               End If
            Next
         Next
      Next
   ScriviResoconto
End Sub
 
Buon pomeriggio.

Controllate questa soluzione...ho inserito una riga di controllo
per la presenza dell'ambata ed il gioco su Tutte.

Enplein.
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(3),Pu(3),Nu(5),Pt(1),Am1(2),Am2(2)
   k = 14 '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 11
      If R1=11 Then R1=12
         For P1 = 1 To 1
         P2 = P1 + 1
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
                  If Distanza(A,B) = 8 Then
                     Nu(1) = Fuori90(A + B)
                     Nu(2) = Diametrale (A)
                     Nu(3) = Diametrale (B)
                     Nu(4) = Vert (Nu(2))
                     Nu(5) = Vert (Nu(3))
                     'EliminaRipetuti Nu
                     '----------------------
                     Am(1) = Nu(1) :ruot(1) = R1:ruot(2) = RuotaDiametrale(R1)
                       If SerieFreq (es,es,Am,ruot,1)=0 Then
                       'Questa riga controlla la presenza dell'ambata sulle ruote di gioco
                       'In caso positivo la previsione viene saltata amzichè aggiungere +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,,2
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" _ "&_
                      StringaEstratti (es,R1)&"  "& Format2 (A)&"-"& Format2 (B)&"  Pos. "&P1&"^ "&P2&"^",1
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                 
                     Ruo(1)=ruot(1) : Ruo(2)=ruot(2): Ruo(3)=11
                     ImpostaGiocata 1,Am,ruot,Pt,k,4
                     ImpostaGiocata 2,Am1,Ruo,Ptt,k,4
                     ImpostaGiocata 3,Am2,Ruo,Ptt,k,4
                     ImpostaGiocata 4,Ter1,Ruo,Pu,k,4
                     Gioca es,1
                 
                  End If
               End If
            Next
         Next
      Next
   ScriviResoconto
End Sub
Ringrazio ENPLEIN per aver costruito la Script del metodo ho controllato i calcoli sono corretti va bene anche la variante a TT onestamente non riesco a complimentarmi, benissimo Grazie.
 

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