Novità

Metodo ambi di somma uguale

jack69

jack69

Advanced Member >PLATINUM<
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
 
rosce14

rosce14

Premium Member
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:
elmiki

elmiki

Advanced Member >PLATINUM PLUS<
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

jack69

Advanced Member >PLATINUM<
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:
elmiki

elmiki

Advanced Member >PLATINUM PLUS<
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
 
F

floradora

Advanced Member >PLATINUM<
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:
elmiki

elmiki

Advanced Member >PLATINUM PLUS<
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
 
E

eugenio.dj

Super Member >PLATINUM<
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:
luigi di anzio

luigi di anzio

Advanced Member >PLATINUM PLUS<
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:
rosce14

rosce14

Premium Member
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.
 
E

eugenio.dj

Super Member >PLATINUM<
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:
jobby73

jobby73

Advanced Member
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
    martedì 28 maggio 2024
    Bari
    12
    31
    29
    63
    49
    Cagliari
    11
    01
    81
    07
    12
    Firenze
    37
    24
    82
    75
    31
    Genova
    13
    75
    60
    27
    80
    Milano
    44
    35
    09
    90
    67
    Napoli
    11
    37
    79
    30
    09
    Palermo
    54
    37
    83
    27
    22
    Roma
    33
    34
    29
    50
    12
    Torino
    67
    55
    22
    62
    02
    Venezia
    62
    27
    57
    09
    85
    Nazionale
    54
    31
    38
    02
    80
    Estrazione Simbolotto
    Milano
    08
    32
    22
    44
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto