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
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24

Ultimi Messaggi

Indietro
Alto