Novità

Metodo ambi di somma uguale

Ecco lo script per Tutti

Codice: 
Sub Main()
 Dim ruote(2),num1(2),num2(2),num3(2),num4(2),num5(2),posta(2),poste(2)
 posta(1) = 5
 posta(2) = 1
 poste(2) = 1
 ce = InputBox(" estrazione vuoi controllare? ","estrazione",10)
 k = InputBox("per quanti colpi?","colpi di gioco",10)
 ini = EstrazioneFin - ce
 fin = EstrazioneFin
 For es = ini To EstrazioneFin
  Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
  For r = 1 To 10
   r1 = r + 1
   If r = 10 Then r1 = 12
   For p = 1 To 4
    For p1 = p + 1 To 5
     a = Estratto(es,r,p)
     b = Estratto(es,r,p1)
     For p2 = 1 To 4
      For p3 = p2 + 1 To 5
       c = Estratto(es,r1,p2)
       d = Estratto(es,r1,p3)
       If p = p2 And p1 = p3 Then
        If Fuori90(a + b) = Fuori90(c + d) Then
         casi = casi + 1
         Scrivi String(60,"-")
         ColoreTesto 1
         Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
         " ] [ " & Format2(a) & " ] [ " & Format2(b) & " ] in pos. " &(p) & "  " &(p1) & _
         "  [" & "SOMMA " & Fuori90(a + b) & "]"
         Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
         " ] [ " & Format2(c) & " ] [ " & Format2(d) & " ] in pos. " &(p2) & "  " &(p3) & _
         "  [" & "SOMMA " & Fuori90(c + d) & "]"
         ColoreTesto 0
         Scrivi String(60,"-") & " caso n°" & casi
         ruote(1) = r
         ruote(2) = r1
         n1 = Distanza(a,b) + Distanza(c,d)
         n2 = Vert(n1)
         num1(1) = n1
         num1(2) = n2
         num2(1) = n1
         num2(2) = Distanza(a,b)
         num3(1) = n1
         num3(2) = Distanza(c,d)
         num4(1) = n2
         num4(2) = Distanza(a,b)
         num5(1) = n2
         num5(2) = Distanza(c,d)
         ImpostaGiocata 1,num1,ruote,posta,k
         ImpostaGiocata 2,num2,ruote,poste,k
         ImpostaGiocata 3,num3,ruote,poste,k
         ImpostaGiocata 4,num4,ruote,poste,k
         ImpostaGiocata 5,num5,ruote,poste,k
         Gioca es,True
        End If
       End If
      Next
     Next
    Next
   Next
  Next
 Next
 ScriviResoconto
End Sub
Saluti Jack
 
jack69 ha scritto:
ecco lo script per tutti

Codice: 
sub main()
 dim ruote(2),num1(2),num2(2),num3(2),num4(2),num5(2),posta(2),poste(2)
 posta(1) = 5
 posta(2) = 1
 poste(2) = 1
 ce = inputbox(" estrazione vuoi controllare? ","estrazione",10)
 k = inputbox("per quanti colpi?","colpi di gioco",10)
 ini = estrazionefin - ce
 fin = estrazionefin
 for es = ini to estrazionefin
  messaggio "elab. Estr. [" &(es) & "] di " & dataestrazione(es,1)
  for r = 1 to 10
   r1 = r + 1
   if r = 10 then r1 = 12
   for p = 1 to 4
    for p1 = p + 1 to 5
     a = estratto(es,r,p)
     b = estratto(es,r,p1)
     for p2 = 1 to 4
      for p3 = p2 + 1 to 5
       c = estratto(es,r1,p2)
       d = estratto(es,r1,p3)
       if p = p2 and p1 = p3 then
        if fuori90(a + b) = fuori90(c + d) then
         casi = casi + 1
         scrivi string(60,"-")
         coloretesto 1
         scrivi dataestrazione(es,1) & " [ " & siglaruota(r) & " - " & stringaestratti(es,r) & _
         " ] [ " & format2(a) & " ] [ " & format2(b) & " ] in pos. " &(p) & "  " &(p1) & _
         "  [" & "somma " & fuori90(a + b) & "]"
         scrivi dataestrazione(es,1) & " [ " & siglaruota(r1) & " - " & stringaestratti(es,r1) & _
         " ] [ " & format2(c) & " ] [ " & format2(d) & " ] in pos. " &(p2) & "  " &(p3) & _
         "  [" & "somma " & fuori90(c + d) & "]"
         coloretesto 0
         scrivi string(60,"-") & " caso n°" & casi
         ruote(1) = r
         ruote(2) = r1
         n1 = distanza(a,b) + distanza(c,d)
         n2 = vert(n1)
         num1(1) = n1
         num1(2) = n2
         num2(1) = n1
         num2(2) = distanza(a,b)
         num3(1) = n1
         num3(2) = distanza(c,d)
         num4(1) = n2
         num4(2) = distanza(a,b)
         num5(1) = n2
         num5(2) = distanza(c,d)
         impostagiocata 1,num1,ruote,posta,k
         impostagiocata 2,num2,ruote,poste,k
         impostagiocata 3,num3,ruote,poste,k
         impostagiocata 4,num4,ruote,poste,k
         impostagiocata 5,num5,ruote,poste,k
         gioca es,true
        end if
       end if
      next
     next
    next
   next
  next
 next
 scriviresoconto
end sub
saluti jack
Clicca per espandere...

ciao jack, buona domenica.:)
ho provato ad aprire lo script, mi dice errore nella riga 1, forse manca nelle parentesi il n° 1?
Grazie attendo una tua risposta.
 
Ultima modifica:
fi-ge uscito ambo somma27 isotopo e unito.......se non sbaglio 6-60 ambate con 5-1 per ambo fi ge! luigi dimmi se è giusto! ciao
 
Aggiorno previsioni ultima estrazione
Codice: 
------------------------------------------------------------
sabato, mar 17 2012 [ BA - 48.77.47.73.38 ] [ 47 ] [ 73 ] in pos. 3  4  [SOMMA 30]
sabato, mar 17 2012 [ CA - 87.33.61.59.78 ] [ 61 ] [ 59 ] in pos. 3  4  [SOMMA 30]
------------------------------------------------------------ caso n°2
Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 28.82 su BA CA per Estratto,Ambo
In corso per altre 10 estrazioni
G 0002
Numeri in gioco : 28.26 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0003
Numeri in gioco : 28.02 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0004
Numeri in gioco : 82.26 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0005
Numeri in gioco : 82.02 su BA CA per Ambo
In corso per altre 10 estrazioni
------------------------------------------------------------
sabato, mar 17 2012 [ FI - 11.16.74.63.77 ] [ 11 ] [ 16 ] in pos. 1  2  [SOMMA 27]
sabato, mar 17 2012 [ GE - 14.13.84.65.67 ] [ 14 ] [ 13 ] in pos. 1  2  [SOMMA 27]
------------------------------------------------------------ caso n°3
Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 06.60 su FI GE per Estratto,Ambo
In corso per altre 10 estrazioni
G 0002
Numeri in gioco : 06.05 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0003
Numeri in gioco : 06.01 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0004
Numeri in gioco : 60.05 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0005
Numeri in gioco : 60.01 su FI GE per Ambo
In corso per altre 10 estrazioni
------------------------------------------------------------
sabato, mar 17 2012 [ FI - 11.16.74.63.77 ] [ 74 ] [ 77 ] in pos. 3  5  [SOMMA 61]
sabato, mar 17 2012 [ GE - 14.13.84.65.67 ] [ 84 ] [ 67 ] in pos. 3  5  [SOMMA 61]
------------------------------------------------------------ caso n°4
Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 20.02 su FI GE per Estratto,Ambo
In corso per altre 10 estrazioni
G 0002
Numeri in gioco : 20.03 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0003
Numeri in gioco : 20.17 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0004
Numeri in gioco : 02.03 su FI GE per Ambo
In corso per altre 10 estrazioni
G 0005
Numeri in gioco : 02.17 su FI GE per Ambo
In corso per altre 10 estrazioni
------------------------------------------------------------
sabato, mar 17 2012 [ TO - 65.39.79.62.59 ] [ 65 ] [ 39 ] in pos. 1  2  [SOMMA 14]
sabato, mar 17 2012 [ VE - 38.66.90.11.56 ] [ 38 ] [ 66 ] in pos. 1  2  [SOMMA 14]
------------------------------------------------------------ caso n°5
Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 54.45 su TO VE per Estratto,Ambo
In corso per altre 10 estrazioni
G 0002
Numeri in gioco : 54.26 su TO VE per Ambo
In corso per altre 10 estrazioni
G 0003
Numeri in gioco : 54.28 su TO VE per Ambo
In corso per altre 10 estrazioni
G 0004
Numeri in gioco : 45.26 su TO VE per Ambo
In corso per altre 10 estrazioni
G 0005
Numeri in gioco : 45.28 su TO VE per Ambo
In corso per altre 10 estrazioni
Per Rosce14
come vedi lo script funziona
prova a ricopiarlo
Buona domenica a te
Jack
 
Ultima modifica:
grazie jack69 per lo script, ho visto che a to ve cè un 45 che mi converge in pieno come " ambata in figura" (dal 39-66 to ve= 45-72) ottimo vado con il 45!!! attendo luigi che dice!!
ciao elmiki
 
chiedo gentilmente a Luigi se mi può rispondere dato che il metodo è suo, oppure anche ad altri dato che sul punto che sto per descrivere mi sbaglio sempre.
Ho notato dai due esempi che ha fatto Luigi in prima pagina, che quando abbiamo nelle differenze un numero minore dobbiamo o
fare la differenza in negativo poi sommare 90, oppure sommare direttamente il 90 al numero più piccolo e poi eseguire la sottrazione.
Nella previsione sopra di fi ge 11 16/14 13 non mi sembra sia stata fatta, ed è stata fatta la differenza tra il più grande ed il più piccolo dei numeri.
Voglio chiedere se vanno bene lo stesso oppure io non ho capito?
Se invece ho capito bene, escono altri numeri. Questo anche perchè tutte e tre le previsioni portano il primo numero più piccolo.
Mi sono spiegata?
Grazie per l risposta


floradora
 
Ultima modifica:
floradora ha scritto:
chiedo gentilmente a Luigi se mi può rispondere dato che il metodo è suo, oppure anche ad altri dato che sul punto che sto per descrivere mi sbaglio sempre.
Ho notato dai due esempi che ha fatto Luigi in prima pagina, che quando abbiamo nelle differenze un numero minore dobbiamo o
fare la differenza in negativo poi sommare 90, oppure sommare direttamente il 90 al numero più piccolo e poi eseguire la sottrazione.
Nella previsione sopra di fi ge 11 16/14 13 non mi sembra sia stata fatta, ed è stata fatta la differenza tra il più grande ed il più piccolo dei numeri.
Voglio chiedere se vanno bene lo stesso oppure io non ho capito?
Se invece ho capito bene, escono altri numeri. Questo anche perchè tutte e tre le previsioni portano il primo numero più piccolo.
Mi sono spiegata?
Grazie per l risposta


floradora
Clicca per espandere...

ciao floradora non ho capito bene dove fai confusione...comunque la distanza tra due numeri nel lotto non supera mai le 45 unità, nell esempio di luigi in prima pagina cè un 85-10 in questo caso la distanza non è 75 perchè supera le 45 unità ma è 15 perchè devi comninciare a contare da 85 al 90 sono 5 unità, e dal 90 al 10...0 1 2 3 4... 10 unità 10+5=15
questo per farti capire il motivo...ciao elmiki
 
Floradora, una bella domanda! Non avete provato a fare un calcolo del 23.02? : 63-32=31: 85-10=75, 75+31=16 (61) a-te, abb. 31,75. Il 3.03. esce ambo a Ge 16-75. (Non voglio fare confusioni, pero...)
 
Ultima modifica:
Ciao a tutti
e grazie ad Elmiki che mi fa dupporto nelle risposte
ringrazio anche per lo scrit che non so come si usa ,un giorno qualcuno me lo spieghera.
le previsioni nuove in corso sono,
BA-CA 28-82 CON 2-26
FI-GE 6-60 CON 1-5
TO-VE 54-45 CON26-28 QUESTE SONO LE MIGLIORI
non avete notato che nel forum è uscito l'ambo 90-66 a Venezia lo avevo postato li perche era senza metodo
SALUTONI A TUTTI
LUIGI DI ANZIO
 
Ultima modifica:
ciao luigi, complimenti per le tue previsioni.:)

vorrei chiederti se c'e' un errore di digitazione, come credo, nella previsione di to ve 54 45 con 26 e 26.

Attendo una tua risposta.
 
Cordiali saluti a Luigi di Anzio! Sono d'accordo che la previsione per To-Ve e molto forte! Il resto comincio a giocare da sabato (martedi-giovedi non mi risultano). Per domani е valido To - 54-26; 54-28. Buona sera a tutti!
 
Ultima modifica:
Ciao Luigi.. la previsione MI/NA 50-5 con 42 8 --del 28/2 con ancora due colpi di gioco... tu che te ne intendi .. è ancora valida o è da preferire un'altra previsione? grazie ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto