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 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto