Novità

Aiuto per uno script di by marco il terno salva crisi

N

nicotina

Super Member >PLATINUM<
SALVE A TUTTI VOI CHIEDO CONSIGLIO A ESPERTI DI SCRIPT E DI BUON CUORE PER CAPIRE PERCHE' QUESTO NON MI DA PIU' LA PREVISIONE. CHE COSA GLI SIA SUCCESSO NON MI E' DATO SAPERLO PERCHE' NON VI CAPISCO UN K.
Sub Main()
ColoreTesto 1
Scrivi "*======================= IL TERNO SALVA CRISI ============================*",1
ColoreTesto 2
Scrivi"*======================= METODO CREATO E LISTATO BY *.Marco.* ============================*",2
ColoreTesto 1
Scrivi "*======================= 1 TERNO SECCO SU TUTTE ============================*",1
ColoreTesto 0
Dim ruota(1)
Dim poste(3)
ruota(1) = 11
poste(3) = 3
Dim n(4)
clp = 5
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,12,p1)
b = Estratto(es,12,p2)
ok = 0
If a = 48 And b = 78 Or a = 78 And b = 48 Then
n(1) = Fuori90(Vert(Estratto(es,5,3)) + Estratto(es,3,4) + 5)
n(2) = Fuori90(Cadenza(Estratto(es,10,4)) + Estratto(es,4,2) + 2)
n(3) = Fuori90(Figura(Estratto(es,2,3)) + Estratto(es,4,4) + 1)
ok = 1
End If
If a = 8 And b = 87 Or a = 87 And b = 8 Then
n(1) = Fuori90(Figura(Estratto(es,9,4)) + Estratto(es,8,5) + 32)
n(2) = Fuori90(Figura(Estratto(es,8,4)) + Estratto(es,5,5) + 55)
n(3) = Fuori90(Figura(Estratto(es,3,1)) + Estratto(es,8,2) + 59)
ok = 1
End If
If a = 2 And b = 82 Or a = 2 And b = 82 Then
n(1) = Fuori90(Decina(Estratto(es,9,1)) + Estratto(es,9,2) + 58)
n(2) = Fuori90(Diametrale(Estratto(es,3,3)) + Estratto(es,4,1) + 12)
n(3) = Fuori90(Cadenza(Estratto(es,12,4)) + Estratto(es,12,2) + 8)
ok = 1
End If
If a = 4 And b = 80 Or a = 80 And b = 4 Then
n(1) = Fuori90(Vert(Estratto(es,1,5)) + Estratto(es,1,1) + 6)
n(2) = Fuori90(Diametrale(Estratto(es,2,1)) + Estratto(es,8,4) + 38)
n(3) = Fuori90(Figura(Estratto(es,4,3)) + Estratto(es,9,2) + 27)
ok = 1
End If
If a = 5 And b = 15 Or a = 15 And b = 5 Then
n(1) = Fuori90(Figura(Estratto(es,3,3)) + Estratto(es,6,1) + 50)
n(2) = Fuori90(Cadenza(Estratto(es,10,5)) + Estratto(es,12,2) + 9)
n(3) = Fuori90(Vert(Estratto(es,9,1)) + Estratto(es,12,3) + 56)
ok = 1
End If
If a = 46 And b = 47 Or a = 47 And b = 46 Then
n(1) = Fuori90(Decina(Estratto(es,8,1)) + Estratto(es,9,1) + 22)
n(2) = Fuori90(Diametrale(Estratto(es,1,2)) + Estratto(es,1,5) + 55)
n(3) = Fuori90(Cadenza(Estratto(es,5,5)) + Estratto(es,5,5) + 24)
ok = 1
End If
If a = 51 And b = 75 Or a = 75 And b = 51 Then
n(1) = Fuori90(Cadenza(Estratto(es,3,5)) + Estratto(es,4,5) + 1)
n(2) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,4,3) + 1)
n(3) = Fuori90(Cadenza(Estratto(es,3,4)) + Estratto(es,7,5) + 1)
ok = 1
End If
If a = 30 And b = 70 Or a = 70 And b = 30 Then
n(1) = Fuori90(Vert(Estratto(es,6,3)) + Estratto(es,1,2) + 10)
n(2) = Fuori90(Decina(Estratto(es,12,4)) + Estratto(es,9,5) + 8)
n(3) = Fuori90(Cadenza(Estratto(es,8,3)) + Estratto(es,5,4) + 1)
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " *** LIST BY *.Marco.* *** AMBO SPIA " & a & " - " & b,1
Scrivi String(80,"°"),1
ruota(1) = 11
ImpostaGiocata 1,n,ruota,poste,clp,3
Gioca es,3
End If
Next
Next
Next
ScriviResoconto
End Sub

A PRESTO NICOTINA
 
Ciao Nicotina, gli ambi spia sono impostati sulla ruota Nazionale
dal 20 Gennaio nessuno degli ambi è piu' uscito, tutto qui
Ciao
 
salve nicotina sembra molto interessante come metodo, ma dove l'hai preso questo scipt, hai gia vinto qualche volta con questo metodo,cioe' da quando e' stato creato il metodo a dato qualche previsione positiva oppure lunica previsione data dopo la creazione del metodo e' quella negativa. io ho cercato by marco come autore nel forum ma non l'ho trovato. saluti
 
Salve Blackmore, tu che sei esperto in materia potresti fare un cambiamento al metodo e farmelo girare sù tutte ed 11 le Ruote e non solo sulla Nazionale lasciando naturalmente gli stessi parametri di ricerca e previsionali. Ringrazio per l'attenzione a presto Nicotina
 
Grazie nicotina, ma...Esperto non direi proprio
Dovete iniziare a capire che questo tipo di metodi sono stati creati
a DOC su delle ruote specifiche, se si cambiano i parametri
di ricerca o di gioco, i metodi all'interno si sfasano tutti e
ci saranno solo casi negativi (come nella modifica apportata)
Chiedo scusa a Marco, ma spero che questo esempio serva a far capire
a tutti quelli che ogni volta che si posta qualcosa
chiedono modifiche su modifiche
non parlo di te nicotina (tu sei nuovo)... ma in generale

Ciao :)

Codice: 
Sub Main()
ColoreTesto 1
Scrivi "*======================= IL TERNO SALVA CRISI ============================*",1
ColoreTesto 2
Scrivi"*======================= METODO CREATO E LISTATO BY *.Marco.* ============================*",2
ColoreTesto 1
Scrivi "*======================= 1 TERNO SECCO SU TUTTE ============================*",1
ColoreTesto 0
Dim ruota(1)
Dim poste(3)
ruota(1) = 11
poste(3) = 3
Dim n(4)
clp = 5
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 12 ' cerca su ogni ruota 
If r1 = 11 Then r1 = 12 
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 48 And b = 78 Or a = 78 And b = 48 Then
n(1) = Fuori90(Vert(Estratto(es,5,3)) + Estratto(es,3,4) + 5)
n(2) = Fuori90(Cadenza(Estratto(es,10,4)) + Estratto(es,4,2) + 2)
n(3) = Fuori90(Figura(Estratto(es,2,3)) + Estratto(es,4,4) + 1)
ok = 1
End If
If a = 8 And b = 87 Or a = 87 And b = 8 Then
n(1) = Fuori90(Figura(Estratto(es,9,4)) + Estratto(es,8,5) + 32)
n(2) = Fuori90(Figura(Estratto(es,8,4)) + Estratto(es,5,5) + 55)
n(3) = Fuori90(Figura(Estratto(es,3,1)) + Estratto(es,8,2) + 59)
ok = 1
End If
If a = 2 And b = 82 Or a = 2 And b = 82 Then
n(1) = Fuori90(Decina(Estratto(es,9,1)) + Estratto(es,9,2) + 58)
n(2) = Fuori90(Diametrale(Estratto(es,3,3)) + Estratto(es,4,1) + 12)
n(3) = Fuori90(Cadenza(Estratto(es,12,4)) + Estratto(es,12,2) + 8)
ok = 1
End If
If a = 4 And b = 80 Or a = 80 And b = 4 Then
n(1) = Fuori90(Vert(Estratto(es,1,5)) + Estratto(es,1,1) + 6)
n(2) = Fuori90(Diametrale(Estratto(es,2,1)) + Estratto(es,8,4) + 38)
n(3) = Fuori90(Figura(Estratto(es,4,3)) + Estratto(es,9,2) + 27)
ok = 1
End If
If a = 5 And b = 15 Or a = 15 And b = 5 Then
n(1) = Fuori90(Figura(Estratto(es,3,3)) + Estratto(es,6,1) + 50)
n(2) = Fuori90(Cadenza(Estratto(es,10,5)) + Estratto(es,12,2) + 9)
n(3) = Fuori90(Vert(Estratto(es,9,1)) + Estratto(es,12,3) + 56)
ok = 1
End If
If a = 46 And b = 47 Or a = 47 And b = 46 Then
n(1) = Fuori90(Decina(Estratto(es,8,1)) + Estratto(es,9,1) + 22)
n(2) = Fuori90(Diametrale(Estratto(es,1,2)) + Estratto(es,1,5) + 55)
n(3) = Fuori90(Cadenza(Estratto(es,5,5)) + Estratto(es,5,5) + 24)
ok = 1
End If
If a = 51 And b = 75 Or a = 75 And b = 51 Then
n(1) = Fuori90(Cadenza(Estratto(es,3,5)) + Estratto(es,4,5) + 1)
n(2) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,4,3) + 1)
n(3) = Fuori90(Cadenza(Estratto(es,3,4)) + Estratto(es,7,5) + 1)
ok = 1
End If
If a = 30 And b = 70 Or a = 70 And b = 30 Then
n(1) = Fuori90(Vert(Estratto(es,6,3)) + Estratto(es,1,2) + 10)
n(2) = Fuori90(Decina(Estratto(es,12,4)) + Estratto(es,9,5) + 8)
n(3) = Fuori90(Cadenza(Estratto(es,8,3)) + Estratto(es,5,4) + 1)
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " *** LIST BY *.Marco.* *** AMBO SPIA " & a & " - " & b,1
Scrivi String(80,"°"),1
ruota(1) = 11
ImpostaGiocata 1,n,ruota,poste,clp,3
Gioca es,3
End If
Next ' chiude il ciclo for (della ricerca ruote) 
Next
Next
Next
ScriviResoconto
End Sub
 
salve blackmore,
ti ringrazio verameente e assecondo la tua teoria, sicuramente un metodo nato in un certo modo ed efficace, con dei parametri ben delineati e vincenti nello sviluppo, con partenza da un punto preciso. ( cioe' la ruota nazionale ) difficilmente cambiando il punto di partenza si ottengono dei risultati favorevoli o mirati.
Ringrazio per l'elaborazione.
A presto nicotina
 
salve nicotina sembra molto interessante come metodo, ma dove l'hai preso questo scipt, hai gia vinto qualche volta con questo metodo,cioe' da quando e' stato creato il metodo a dato qualche previsione positiva oppure lunica previsione data dopo la creazione del metodo e' quella negativa. io ho cercato by marco come autore nel forum ma non l'ho trovato. saluti​
 
Ciao a tutti per questo script del quale ero rimasto ai tempi anche io colpito avevo fatto una tabella riepilogativa che è sempre bella da presentare.
Del bravissimo autore purtroppo su lottoced non c'è + la presenza in quanto bannato qualche tempo fà con + di un nikname.
Leggete attentamente lo script in tutte le sue righe e potrete trovare le indicazioni necessarie alle domande.

Codice: 
Sub Main()
 ColoreTesto 1
 Scrivi "*======================= IL TERNO SALVA CRISI    ============================*",1
 ColoreTesto 2
 Scrivi"*=======================  METODO CREATO E LISTATO BY *.Marco.*  ============================*",2
 ColoreTesto 1
 Scrivi "*======================= 1 TERNO SECCO SU TUTTE  ============================*",1
 Scrivi
 ColoreTesto 0
 Dim ruota(1),ruote(12)
 Dim rt1(1),rt2(1),rt3(1),rt4(1),rt5(1),rt6(1),rt7(1),rt8(1),rt9(1),rt10(1),rt12(1)
 Dim poste(3)
 ruota(1) = 11
 poste(2) = 8
 poste(3) = 2
 Dim n(4)
 clp = 5
 ini = EstrazioneFin - 1500
 fin = EstrazioneFin
 '------------- init tabella ------------------
 ReDim atitoli(10)
 atitoli(1) = " Casi "
 atitoli(2) = " DataEstrazione "
 atitoli(3) = " Estratti "
 atitoli(4) = " Ambo Spia "
 atitoli(5) = " Ruota Spia "
 atitoli(6) = " Pronostico "
 atitoli(7) = "    Esito    "
 atitoli(8) = " colpo "
 atitoli(9) = " Esito Estratti "
 atitoli(10) = "  Data Esito  "
 
 Call InitTabella(atitoli,1,,3,5)
 co = 0
 For es = ini To fin
  Messaggio es
  Call AvanzamentoElab(Ini,Fin,es)
  For p1 = 1 To 4
   For p2 = p1 + 1 To 5
    a = Estratto(es,12,p1)
    b = Estratto(es,12,p2)
    ok = 0
    If a = 48 And b = 78 Or a = 78 And b = 48 Then
     n(1) = Fuori90(Vert(Estratto(es,5,3)) + Estratto(es,3,4) + 5)
     n(2) = Fuori90(Cadenza(Estratto(es,10,4)) + Estratto(es,4,2) + 2)
     n(3) = Fuori90(Figura(Estratto(es,2,3)) + Estratto(es,4,4) + 1)
     ok = 1
    End If
    If a = 8 And b = 87 Or a = 87 And b = 8 Then
     n(1) = Fuori90(Figura(Estratto(es,9,4)) + Estratto(es,8,5) + 32)
     n(2) = Fuori90(Figura(Estratto(es,8,4)) + Estratto(es,5,5) + 55)
     n(3) = Fuori90(Figura(Estratto(es,3,1)) + Estratto(es,8,2) + 59)
     ok = 1
    End If
    If a = 2 And b = 82 Or a = 2 And b = 82 Then
     n(1) = Fuori90(Decina(Estratto(es,9,1)) + Estratto(es,9,2) + 58)
     n(2) = Fuori90(Diametrale(Estratto(es,3,3)) + Estratto(es,4,1) + 12)
     n(3) = Fuori90(Cadenza(Estratto(es,12,4)) + Estratto(es,12,2) + 8)
     ok = 1
    End If
    If a = 4 And b = 80 Or a = 80 And b = 4 Then
     n(1) = Fuori90(Vert(Estratto(es,1,5)) + Estratto(es,1,1) + 6)
     n(2) = Fuori90(Diametrale(Estratto(es,2,1)) + Estratto(es,8,4) + 38)
     n(3) = Fuori90(Figura(Estratto(es,4,3)) + Estratto(es,9,2) + 27)
     ok = 1
    End If
    If a = 5 And b = 15 Or a = 15 And b = 5 Then
     n(1) = Fuori90(Figura(Estratto(es,3,3)) + Estratto(es,6,1) + 50)
     n(2) = Fuori90(Cadenza(Estratto(es,10,5)) + Estratto(es,12,2) + 9)
     n(3) = Fuori90(Vert(Estratto(es,9,1)) + Estratto(es,12,3) + 56)
     ok = 1
    End If
    If a = 46 And b = 47 Or a = 47 And b = 46 Then
     n(1) = Fuori90(Decina(Estratto(es,8,1)) + Estratto(es,9,1) + 22)
     n(2) = Fuori90(Diametrale(Estratto(es,1,2)) + Estratto(es,1,5) + 55)
     n(3) = Fuori90(Cadenza(Estratto(es,5,5)) + Estratto(es,5,5) + 24)
     ok = 1
    End If
    If a = 51 And b = 75 Or a = 75 And b = 51 Then
     n(1) = Fuori90(Cadenza(Estratto(es,3,5)) + Estratto(es,4,5) + 1)
     n(2) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,4,3) + 1)
     n(3) = Fuori90(Cadenza(Estratto(es,3,4)) + Estratto(es,7,5) + 1)
     ok = 1
    End If
    If a = 30 And b = 70 Or a = 70 And b = 30 Then
     n(1) = Fuori90(Vert(Estratto(es,6,3)) + Estratto(es,1,2) + 10)
     n(2) = Fuori90(Decina(Estratto(es,12,4)) + Estratto(es,9,5) + 8)
     n(3) = Fuori90(Cadenza(Estratto(es,8,3)) + Estratto(es,5,4) + 1)
     ok = 1
    End If
    If ok = 1 Then
     co = co + 1
     'Scrivi String(80,"°") & " Caso n°" & co,1
     'Scrivi DataEstrazione(es) & "  *** LIST BY *.Marco.* *** AMBO SPIA " & a & " - " & b & " Sulla ruota..." & NomeRuota(12),1
     'Scrivi String(80,"°"),1
     ruote(1) = 1
     ruote(2) = 2
     ruote(3) = 3
     ruote(4) = 4
     ruote(5) = 5
     ruote(6) = 6
     ruote(7) = 7
     ruote(8) = 8
     ruote(9) = 9
     ruote(10) = 10
     ruote(12) = 12
     Call VerificaEsito(n,ruote,es + 1,3,11,,retesito,retcolpi,retestratti,retidestr)
     ReDim avalori(10)
     avalori(1) = co
     avalori(2) = DataEstrazione(es)
     avalori(3) = StringaEstratti(es,12)
     avalori(4) = a & "." & b
     avalori(5) = SiglaRuota(12)
     avalori(6) = StringaNumeri(n)
     avalori(7) = retesito
     avalori(8) = retcolpi & "°"
     avalori(9) = retestratti
     If retesito = "Terno" Then avalori(10) = DataEstrazione(retidestr)
     If retesito = "" And retcolpi < 11Then avalori(10) = " In corso "
     If retesito = "" And retcolpi > 10 Then avalori(10) = " negativo "
     Call AddRigaTabella(avalori,,,3)
     Call SetColoreCella(9,,vbMagenta)
     Call SetColoreCella(4,,vbBlue)
     Call SetColoreCella(6,,vbBlue)
     If retesito = "Ambo" Then Call SetColoreCella(7,3)
     If retesito = "Terno" Then Call SetColoreCella(7,2)
     'aa1 = 0
     'For r = 1 To 10
     rt1(1) = 1
     rt2(1) = 2
     rt3(1) = 3
     rt4(1) = 4
     rt5(1) = 5
     rt6(1) = 6
     rt7(1) = 7
     rt8(1) = 8
     rt9(1) = 9
     rt10(1) = 10
     rt12(1) = 12
     If SerieFreq(es + 1,es + retcolpi,n,rt1,3) = 1 Then c1 = c1 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt2,3) = 1 Then c2 = c2 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt3,3) = 1 Then c3 = c3 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt4,3) = 1 Then c4 = c4 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt5,3) = 1 Then c5 = c5 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt6,3) = 1 Then c6 = c6 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt7,3) = 1 Then c7 = c7 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt8,3) = 1 Then c8 = c8 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt9,3) = 1 Then c9 = c9 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt10,3) = 1 Then c10 = c10 + 1
     If SerieFreq(es + 1,es + retcolpi,n,rt12,3) = 1 Then c12 = c12 + 1
     'Next
     'aa1 = a1+a1
     'ImpostaGiocata 1,n,ruota,poste,clp,3
     'Gioca es,,,1
    End If
   Next
  Next
 Next
 Call CreaTabella(1)
 'ScriviResoconto
 Scrivi
 Scrivi " Modifica in Tabella   By Mike58    ",1,- 1,3
 Scrivi
 Scrivi "- Riepilogo casi su Ruote - ",1
 Scrivi
 Scrivi" bari......." & c1
 Scrivi" cagliari..." & c2
 Scrivi" firenze...." & c3
 Scrivi" genova....." & c4
 Scrivi" milano....." & c5
 Scrivi" napoli....." & c6
 Scrivi" palermo...." & c7
 Scrivi" roma......." & c8
 Scrivi" torino....." & c9
 Scrivi" venezia...." & c10
 Scrivi" Nazionale.." & c12
 'Marco e Blackmore si trova sul forum ***************  ---->   [URL]http://***************.*********.it/[/URL] e --- > [URL]http://***********.**************.net/[/URL]
End Sub
 
SALVE SIGNOR MIKE58,
HO TROVATO QUESTO SCRIPT QUI SU LOTTO CED, CERTO DI AVER FATTO COSA GIUSTA NEL SEGNALARE LA SUA NON FUNZIONALITA' DA DIVERSI MESI, IL SIGNOR BLACKMORE GIUSTAMENTE MI DICE CHE NON FUNZIONA PERCHE' NON SONO USCITI GLI AMBI PREVISTI DALLA PREVISIONE ED INUTILE FARE CAMBIAMENTI AD UN METODO CHE NASCE CON DEGLI ALGORITMI RIFERITI AD UNA RUOTA E QUESTO E' GIUSTO. ORA LEI SIGNOR MIKE58 IN RISPOSTA CI SCRIVE : Leggete attentamente lo script in tutte le sue righe e potrete trovare le indicazioni necessarie alle domande.
VORREI DIRE DA NON ESPERTO DI SCRIPT:
LEI SIGNOR MIKE58 AFFERMA CIO' CHE DICE BLACKMORE OPPURE HA UNA SUA TEORIA CHE IL SISTEMA FUNZIONI UGUALMENTE CAMBIANDO ALCUNE COSE ALL'INTERNO DELLO SCRIPT??????
ESSENDO CONVINTO ANCH ' IO CHE NON E' SOLO PER GLI AMBI FISSI, MA DELLE SOMME PRESE IN BASE A DUE NUMERI CHE ESCANO SULLA NAZIONALE, PERO' NON RIESCO A CAPIRE LA MASCHERATURA DEL METODO.
FATTO LA LEGGE FATTO L'INGANNO:
A PRESTO NICOTINA
 
salve mike58 come mai il suo scipt mi da errore lina 177 mi evidenzia end sub la mia versione di spaziometria e' 1.4.29 saluti
 
X milan65, sei sicuro di aver copiato bene lo script, assicurati di averlo copiato ed incollato in modo corretto, perchè io lo copiato da forum ed è funzionante.

X nicotina (quale signore !!! siamo tutti amici utenti ) lo script è adattato con gli algoritmi dopo spia ambo su Nazionale e gioca un terno a tutte.
Come dice blackmore i parametri anche se cambiati non possono dare i risultati sperati e come se esempio da una indagine dopo un Numero spia 90 su ruota di bari esce in 10 colpi quasi sempre il 17 o 48, va da se che questa è solo una verifica per quella condizione e Ruota.

x la domanda che vi siete posti dove trovo marco (autore metodo) guardare e leggere il Listato.

Ciao spero che abbiate capito.
 
Ultima modifica:
Mike58 ha scritto:
X milan65, sei sicuro di aver copiato bene lo script, assicurati di averlo copiato ed incollato in modo corretto, perchè io lo copiato da forum ed è funzionante.

X nicotina (quale signore !!! siamo tutti amici utenti ) lo script è adattato con gli algoritmi dopo spia ambo su Nazionale e gioca un terno a tutte.
Come dice blackmore i parametri anche se cambiati non possono dare i risultati sperati e come se esempio da una indagine dopo un Numero spia 90 su ruota di bari esce in 10 colpi quasi sempre il 17 o 48, va da se che questa è solo una verifica per quella condizione e Ruota.

x la domanda che vi siete posti dove trovo marco (autore metodo) guardare e leggere il Listato.

Ciao spero che abbiate capito.
Clicca per espandere...
Ciao Mike ho dato uno sguardo agli altri lavori di Marco e quello che mi intriga è come fa a trovare i parametri comuni dopo l'uscita di un determinato ambo spia , non credo si tratti solo di uno spirito di osservazione, ma penso che preventivamente (per trovare questi parametri comuni) ci si avvalga (almeno parzialmente) di ricerche che si possono fare ad esempio con spaziometria o con altri script preparatori, dico bene???
 
Fillotto... questo è un metodo SOMMATIVO sugli ambi spia
Ne abbiamo messi a decine sul Forum in questi anni...
Basta avere qualche programma....

Ciao
 
Ultima modifica:
Blackmore ha scritto:
Fillotto... questo è un metodo SOMMATIVO sugli ambi spia
Ne abbiamo messi a decine sul Forum in questi anni...
Basta avere qualche programma....

Ciao
Clicca per espandere...
Ciao black , si l'ho capito che serviva un programma , con spazio ho provato con "metodi sommativi" e si ottiene una similia solo che nel caso in esame l'algoritmo(si dice così?) non è quello contenuto in spaziometria , comunque questi metodi dall'apparenza incredibili si basano sempre in quello che è successo nel passato è una fotografia e i casi da cui scaturisce la statistica sono in definitiva pochi .
Per rimanere nel caso abbiamo all'inizio questo codice:
Codice: 
If[SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 48 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] b [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 78 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Or[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 78 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] b [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 48 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' Se sulla ruota Naz  un estratto è = a 48 e un altro estratto è= a 78 e viceversa allora.....[/COLOR][/SIZE][/COLOR][/SIZE]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Vert[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,5,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,3,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 5)[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' il 1° num del terno da giocare sarà = al vertibile del 3° estratto di MI + ecc ecc [/COLOR][/SIZE][/COLOR][/SIZE]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Cadenza[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,10,4)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,4,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2)[/SIZE]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Figura[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,2,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,4,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1)[/SIZE]
[SIZE=2]ok [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
End If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
L'output che ne viene fuori è che l'ambo 48-78 o 78-48 nell'arco di 1500 estraz esce 3 volte (statisticamente è niente!!!) più interessante ma solo dal punto di vista tecnico è il trovare la terzina degli adattatori(nel modo che vediamo) che è comune in tutti e tre i casi è quello che mi interessava.
 
Tutti i metodi (non solo sommativi) si basano sul passato, altrimenti non si potrebbero fare le statistiche di quest'ultimi
se tu al programma gli dici di trovarti un algoritmo, è chiaro che questo cercherà di coprire piu' casi possibile
e, come hai detto tu, 3 casi non sono nulla, i problemi iniziano quando devi cercherare molti casi
a quel punto devi aggiungere o i colpi di gioco, o un altra ruota (di gioco)
Tra l'altro Il programma in questione è gratuito, ma qui non si possono fare nomi...
 
Ciao Fillotto, innanzitutto è un piacere risentirti, del tuo quesito quello che io mi sento e penso e che comunque c'è la bravura degli autori che mettono a disposizione il loro tempo, le loro ricerche e sono sempre corredate da una statistica adeguata poi tutti noi sappiamo che i metodi che si possono presentare come miracolosi sono sempre lo specchio del passato e quindi sono da prendere con le dovute cautele.

Dico questo perchè conosco i Marco i Blackmore ed in quello che fanno ci mettono tutta la passione unita alla competenza della materia Lotto-previsionale, nonchè grandi persone sul lato umano.

Se fosse facile trovare un qualcosa che tenga nel tempo sarebbe un buona cosa per noi giocatori ma cosi purtroppo non sembra essere.

Scusate la sviolinata ma ogni tanto i meriti alle ricerche vanno dati.

Ciao Mike
 
Per carità non vorrei essere frainteso apprezzo la fatica e la competenza di chi fa i sommativi solo che personalmente diciamo che non sono di quella corrente di pensiero , mi piacciono che so più gli equilibri le simmetricità che si creano con il passare delle estrazioni.
Adesso per esempio sto cercando di mettere in script una mia idea ma essendo tecnicamente scarso mi sono arenato l'idea è questa:
Prendiamo 2 estrazioni consecutive in questo esempio concreto BA e PA voglio trovare 3 volte lo stesso adattatore e giocare i 6 numeri che hanno dato luogo
a questa diciamo così "frequenza" sulle 2 ruote interessate nell'esempio l''adattatore 61 ovvero 68--->39 , 7---->68 , 42----->13

estr prec del 24.01.2013 BA 76.68.84.07.42 crescita comune sugli estratti 2°-4°-5° di + 61
estr succ del 26.01.2013 PA 68.43.39.13.05 crescita concretizzata sugli estratti 3°-1°-4°
ESITO BA al 5° colpo 39 e 13
Questo è quanto fatto fin 'ora se mi aiutate a completarlo....

Codice: 
Sub Main
'Metodo Idea originaria
Dim rt(2) 'la ruota è una
Dim pta(2)'pta significa faccio la puntata "Ambo"(1)
Dim nrT1(6)'sono 6 num che gioco sulla bolletta
Dim nrT2(6)'sono 6 num che gioco sulla bolletta
Dim nrT3(6)'sono 6 num che gioco sulla bolletta
Dim nrT4(6)'sono 6 num che gioco sulla bolletta
Dim nrT5(6)'sono 6 num che gioco sulla bolletta
Dim nrT6(6)'sono 6 num che gioco sulla bolletta
Dim nrT7(6)'sono 6 num che gioco sulla bolletta
Dim nrT8(6)'sono 6 num che gioco sulla bolletta
Dim nrT9(6)'sono 6 num che gioco sulla bolletta
Dim nrT10(6)'sono 6 num che gioco sulla bolletta
Dim nrT11(6)'sono 6 num che gioco sulla bolletta
Dim diff(25)' devo ricavarmi 25 differenze
'
ex = InputBox("Quante estrazioni controllo?",,515)'
sr = InputBox("ruota di RILEVAMENT?O",,1)'ruota rilevamento
r = InputBox("su quale ruota GIOCO?",,7)'ruota da giocà
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin - 1
Messaggio es
rt(1) = r '
rt(2) = sr'
pta(2) = 1 'la puntata(l'ambo)la faccio da 1 euro
colpi = 6'per 6 colpi
diff(1) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,sr,1))
diff(2) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,sr,1))
diff(3) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,sr,1))
diff(4) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,sr,1))
diff(5) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,sr,1))
diff(6) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,sr,2))
diff(7) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,sr,2))
diff(8) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,sr,2))
diff(9) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,sr,2))
diff(10) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,sr,2))
diff(11) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,sr,3))
diff(12) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,sr,3))
diff(13) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,sr,3))
diff(14) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,sr,3))
diff(15) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,sr,3))
diff(16) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,sr,4))
diff(17) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,sr,4))
diff(18) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,sr,4))
diff(19) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,sr,4))
diff(20) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,sr,4))
diff(21) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,sr,5))
diff(22) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,sr,5))
diff(23) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,sr,5))
diff(24) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,sr,5))
diff(25) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,sr,5))
 
If diff(1) = diff(7) And diff(7) = diff(13) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-3° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-2°-3° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(1) = diff(7) And diff(7) = diff(19) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-4° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-2°-4° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(1) = diff(7) And diff(7) = diff(25) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-5° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-2°-5° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(1) = diff(13) And diff(13) = diff(19) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-3°-4° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 1°-3°-4° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(1) = diff(13) And diff(13) = diff(25) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-3°-5° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 1°-3°-5° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(1) = diff(19) And diff(25) = diff(19) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-4°-5° di +  " & diff(1)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 1°-2°-4° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(7) = diff(13) And diff(13) = diff(19) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-3°-4° di +  " & diff(7)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 2°-3°-4° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(7) = diff(13) And diff(13) = diff(25) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-3°-5° di +  " & diff(7)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 2°-3°-5° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(7) = diff(19) And diff(19) = diff(25) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-4°-5° di +  " & diff(7)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 2°-4°-5° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1

End If
If diff(13) = diff(19) And diff(19) = diff(25) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 3°-4°-5° di +  " & diff(13)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 3°-4°-5° "
casi = casi + 1
Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(2) = diff(8) And diff(8) = diff(14) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-3° di +  " & diff(2)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  crescita concretizzata sugli estratti 2°-3°-4° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(2) = diff(8) And diff(8) = diff(15) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-3° di +  " & diff(2)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 2°-3°-5° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(15) = diff(16) And diff(16) = diff(24) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 3°-4°-5° di +  " & diff(15)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-4°-5° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(3) = diff(19) And diff(19) = diff(22) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-4°-5° di +  " & diff(3)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 3°-4°-2° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(14) = diff(17) And diff(17) = diff(21) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 3°-4°-5° di +  " & diff(14)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 4°-2°-1° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(8) = diff(16) And diff(16) = diff(24) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-4°-5° di +  " & diff(8)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 3°-1°-4° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(2) = diff(8) And diff(8) = diff(24) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-5° di +  " & diff(2)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 2°-3°-4° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(3) = diff(14) And diff(14) = diff(20) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-3°-4° di +  " & diff(3)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 3°-4°-5° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(2) = diff(9) And diff(9) = diff(15) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-3° di +  " & diff(2)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 2°-4°-5° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(6) = diff(14) And diff(14) = diff(23) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-3°-5° di +  " & diff(6)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-4°-3° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(5) = diff(11) And diff(11) = diff(22) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-3°-5° di +  " & diff(5)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 5°-1°-2° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(5) = diff(17) And diff(17) = diff(24) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-4°-5° di +  " & diff(5)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 5°-2°-4° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(5) = diff(7) And diff(7) = diff(24) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-5° di +  " & diff(5)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 5°-2°-4° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(4) = diff(16) And diff(16) = diff(23) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-4°-5° di +  " & diff(4)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 4°-1°-3° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(6) = diff(14) And diff(14) = diff(17) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-3°-4° di +  " & diff(6)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 1°-4°-2° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
If diff(3) = diff(7) And diff(7) = diff(16) Then
Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 1°-2°-4° di +  " & diff(3)
Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 3°-2°-1° "
casi = casi + 1

Scrivi String(70," = ") & " Caso n° " & casi,1
End If
'Gioca es,,,1
Next
'Scrivi
'Scrivi "Casi totali(" & casi & ")",1
'ScriviResoconto
End Sub
 
Ultima modifica:
Ciao Fillotto, ognuno di noi crede nelle proprie idee ed è anche giusto cosi.
Il mio intervento voleva portare rispetto e merito per tutte le idee di ognuno di noi ed in specialmodo a gente che crede in quello che fa e ci lavora dimostrandolo con tutte le verifiche statistiche.
Era solo un mio pensiero poi ognuno di noi ama fare anche cose diverse e come dicevo sopra è anche giusto cosi.

Io ad esempio gioco e lavoro sui ritardatari, quanti criticano questo tipo di gioco, solo a me interessa quella via e quella via io perseguo.
questo non vuole dire che non sono di larghe vedute e non apprezzo chi la pensa diversamente da me.

Senza dilungarci troppo ho dato una occhiata al tuo script e non è stato facile capire tutti i passaggi che hai svolto.
pertanto ho individuato i possibili errori per il funzionamento ottimale senza stravolgere i tuoi passaggi.

Ad ognuna della condizione IF THEN devi richiamarti in vettore gli estratti e giocarli con imposta giocata
ho corretto solo un esempio perche adesso la mia lucidita comincia a barcollare se vuoi continua altrimenti lo rivedrò nella giornata di domani.


Codice: 
If diff(8) = diff(16) And diff(16) = diff(24) Then
   Scrivi " estr prec del " & " " & DataEstrazione(es - 1) & "  " & SiglaRuota(sr) & "  " & StringaEstratti(es - 1,sr) & " crescita comune sugli estratti 2°-4°-5° di +  " & diff(8)
   Scrivi " estr succ del " & " " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & " crescita concretizzata sugli estratti 3°-1°-4° "
   casi = casi + 1
   Scrivi String(70," = ") & " Caso n° " & casi,1
   nrT1(1) = Estratto(es,r,3)
   nrT1(2) = Estratto(es,r,1)
   nrT1(3) = Estratto(es,r,4)
   nrT1(4) = Estratto(es-1,sr,2)
   nrT1(5) = Estratto(es-1,sr,4)
   nrT1(6) = Estratto(es-1,sr,5)
 
   Call ImpostaGiocata(1,nrT1,rt,pta,6)
  End If
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto