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
    sabato 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto