Metodo ambi di somma uguale

[jack69]

Ecco lo script per Tutti

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

 

[bergie]

Grazie Jack, gentilissimo.

 

[luigi di anzio]

ATTENZIONE AL 5-50 CA-FI
luigi di anzio

 

[elmiki]

grazie luigi non mollo!!

 

[floradora]

se non mi sono sbagliata, in questa estrazione ci sono
3ambi somma uguale



floradora

 

[rosce14]

ecco lo script per tutti

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

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.

 

[elmiki]

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

 

[jack69]

Aggiorno previsioni ultima estrazione

------------------------------------------------------------
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

 

[rosce14]

grazie jack, ho copiato direttamente in spaziometria.
Funziona.

grazie ancora e buona domenica.

 

[passator cortese]

Grazie Luigi, ciao Floradora.

 

[elmiki]

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

 

[floradora]

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

 

[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

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

 

[eugenio.dj]

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...)

 

[floradora]

grazie elmiki, penso di aver capito, ora




floradora

 

[luigi di anzio]

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

 

[rosce14]

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.

 

[luigi di anzio]

si ROSCE mi ero sbagliato l'ho corretto
salutoni
LUIGI DI ANZIO

 

[eugenio.dj]

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!

 

[jobby73]

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