Novità

AIUTO X MODIFICA LISTATO!!!!!!!

  • Creatore Discussione Creatore Discussione rob
  • Data di inizio Data di inizio
R

rob

Advanced Member >PLATINUM<
QUESTO FANTASTICO LISTATO DA UN METODO DEL BRAVISSIMO BLACKMORE E REALIZZATO DA DJ NOMADE,E' SOLO PER LA RUOTA DI VENEZIA</u> PERO' HA UNA STATISTICA RAGGUARDEVOLE,C'E' QUALCHE BUONA ANIMA CHE LO VORRA' MODIFICARE FACENDO IN MODO CHE SI POSSA FARE UNA PREVISIONE SU QUALSIASI DELLE 10 RUOTE??-IL METODO PURTROPPO CI DA' LA PREVISIONE SOLO QUANDO SU VENEZIA ESCE UN AMBO "ZERATO" ALLORA HO PENSATO (VISTA LA BONTA' DEL METODO) DI ESTENDERLO ANCHE ALLE 9 RUOTE RIMANENTI!!-GRAZIE ROB


Sub Main()
ColoreTesto 2 :Scrivi "____ METODO BY BLACKMORE *** LISTATO BY DJ NOMADE ____",1
ColoreTesto 2 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO ZERATO SU VENEZIA",1
ColoreTesto 2 :Scrivi "_____________ INIZIO RICERCA: 26-01-1990 ____________",1
ColoreTesto 2 :Scrivi "_______________FINE RICERCA: 25-06-2011 _______________",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(3)
pt1(2) = 2:pt1(3) = 0.50
clp = 9
ini = EstrazioneFin - 2202
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es

ruote(1) = 10
For p = 1 To 5
For p1 = p + 1 To 5
a = Estratto(es,10,p) : b = Estratto(es,10,p1)

'-------------------------------------------------------------------
ok = 0
If a = 10 And b = 20 Or a = 20 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 08):amb(3) = Fuori90(Estratto(es,10,2) + 13):amb(4) = Fuori90(Estratto(es,10,2) + 40)::amb(5) = Fuori90(Estratto(es,10,2) + 63):ok = 1
If a = 10 And b = 30 Or a = 30 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 02):amb(3) = Fuori90(Estratto(es,10,2) + 03):amb(4) = Fuori90(Estratto(es,10,2) + 08)::amb(5) = Fuori90(Estratto(es,10,2) + 23):ok = 1
If a = 10 And b = 40 Or a = 40 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,4) + 01):amb(2) = Fuori90(Estratto(es,10,4) + 13):amb(3) = Fuori90(Estratto(es,10,4) + 39):amb(4) = Fuori90(Estratto(es,10,4) + 62)::amb(5) = Fuori90(Estratto(es,10,4) + 68):ok = 1
If a = 10 And b = 50 Or a = 50 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,3) + 01):amb(2) = Fuori90(Estratto(es,10,3) + 02):amb(3) = Fuori90(Estratto(es,10,3) + 25):amb(4) = Fuori90(Estratto(es,10,3) + 73)::amb(5) = Fuori90(Estratto(es,10,3) + 89):ok = 1
If a = 10 And b = 60 Or a = 60 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,1) + 05):amb(2) = Fuori90(Estratto(es,10,1) + 12):amb(3) = Fuori90(Estratto(es,10,1) + 20):amb(4) = Fuori90(Estratto(es,10,1) + 24)::amb(5) = Fuori90(Estratto(es,10,1) + 77):ok = 1
If a = 10 And b = 70 Or a = 70 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,4) + 09):amb(2) = Fuori90(Estratto(es,10,4) + 33):amb(3) = Fuori90(Estratto(es,10,4) + 39):amb(4) = Fuori90(Estratto(es,10,4) + 49)::amb(5) = Fuori90(Estratto(es,10,4) + 64):ok = 1
If a = 10 And b = 80 Or a = 80 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,5) + 01):amb(2) = Fuori90(Estratto(es,10,5) + 02):amb(3) = Fuori90(Estratto(es,10,5) + 12):amb(4) = Fuori90(Estratto(es,10,5) + 25)::amb(5) = Fuori90(Estratto(es,10,5) + 53):ok = 1
If a = 10 And b = 90 Or a = 90 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,5) + 02):amb(2) = Fuori90(Estratto(es,10,5) + 04):amb(3) = Fuori90(Estratto(es,10,5) + 36):amb(4) = Fuori90(Estratto(es,10,5) + 74)::amb(5) = Fuori90(Estratto(es,10,5) + 84):ok = 1
If a = 20 And b = 30 Or a = 30 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,5) + 02):amb(2) = Fuori90(Estratto(es,10,5) + 06):amb(3) = Fuori90(Estratto(es,10,5) + 19):amb(4) = Fuori90(Estratto(es,10,5) + 35)::amb(5) = Fuori90(Estratto(es,10,5) + 41):ok = 1
If a = 20 And b = 40 Or a = 40 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,4) + 02):amb(2) = Fuori90(Estratto(es,10,4) + 05):amb(3) = Fuori90(Estratto(es,10,4) + 22):amb(4) = Fuori90(Estratto(es,10,4) + 27)::amb(5) = Fuori90(Estratto(es,10,4) + 47):ok = 1
If a = 20 And b = 50 Or a = 50 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 05):amb(3) = Fuori90(Estratto(es,10,2) + 27):amb(4) = Fuori90(Estratto(es,10,2) + 39)::amb(5) = Fuori90(Estratto(es,10,2) + 5
 
Ciao Rob, questo listato l'hai preso dal sito di Enplein?
tutti i metodi all'interno del listato sono stati creati ad hoc per la ruota di Venezia, quindi se metti altre ruote i casi negativi saranno al 99%
Comunque basta fare così
Ruote (1) = 10
Togli il 10 (venezia) e metti il numero della ruota che vuoi
Ciao

Blackmore
 
Ciauz
il lavoro immane che diceva Blackmore nell'altro post l'ho appena fatto io :D:D


Sub Main()

Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(3)
pt1(2) = 2:pt1(3) = 0.50
clp = 9
r=ScegliRuota
ruote(1)=r
ColoreTesto 2 :Scrivi "____ METODO BY BLACKMORE *** LISTATO BY DJ NOMADE ____",1
ColoreTesto 2 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO ZERATO SU "&NomeRuota(r),1
ColoreTesto 2 :Scrivi "_____________ INIZIO RICERCA: 26-01-1990 ____________",1
ColoreTesto 2 :Scrivi "_______________FINE RICERCA: 25-06-2011 _______________",1
Scrivi : ColoreTesto 0
ini = EstrazioneFin - 2202
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es


For p = 1 To 5
For p1 = p + 1 To 5
a = Estratto(es,r,p) : b = Estratto(es,r,p1)

'-------------------------------------------------------------------
ok = 0
If a = 10 And b = 20 Or a = 20 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 08):amb(3) = Fuori90(Estratto(es,r,2) + 13):amb(4) = Fuori90(Estratto(es,r,2) + 40)::amb(5) = Fuori90(Estratto(es,r,2) + 63):ok = 1
If a = 10 And b = 30 Or a = 30 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 02):amb(3) = Fuori90(Estratto(es,r,2) + 03):amb(4) = Fuori90(Estratto(es,r,2) + 08)::amb(5) = Fuori90(Estratto(es,r,2) + 23):ok = 1
If a = 10 And b = 40 Or a = 40 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,4) + 01):amb(2) = Fuori90(Estratto(es,r,4) + 13):amb(3) = Fuori90(Estratto(es,r,4) + 39):amb(4) = Fuori90(Estratto(es,r,4) + 62)::amb(5) = Fuori90(Estratto(es,r,4) + 68):ok = 1
If a = 10 And b = 50 Or a = 50 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,3) + 01):amb(2) = Fuori90(Estratto(es,r,3) + 02):amb(3) = Fuori90(Estratto(es,r,3) + 25):amb(4) = Fuori90(Estratto(es,r,3) + 73)::amb(5) = Fuori90(Estratto(es,r,3) + 89):ok = 1
If a = 10 And b = 60 Or a = 60 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,1) + 05):amb(2) = Fuori90(Estratto(es,r,1) + 12):amb(3) = Fuori90(Estratto(es,r,1) + 20):amb(4) = Fuori90(Estratto(es,r,1) + 24)::amb(5) = Fuori90(Estratto(es,r,1) + 77):ok = 1
If a = 10 And b = 70 Or a = 70 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,4) + 09):amb(2) = Fuori90(Estratto(es,r,4) + 33):amb(3) = Fuori90(Estratto(es,r,4) + 39):amb(4) = Fuori90(Estratto(es,r,4) + 49)::amb(5) = Fuori90(Estratto(es,r,4) + 64):ok = 1
If a = 10 And b = 80 Or a = 80 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,5) + 01):amb(2) = Fuori90(Estratto(es,r,5) + 02):amb(3) = Fuori90(Estratto(es,r,5) + 12):amb(4) = Fuori90(Estratto(es,r,5) + 25)::amb(5) = Fuori90(Estratto(es,r,5) + 53):ok = 1
If a = 10 And b = 90 Or a = 90 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,5) + 02):amb(2) = Fuori90(Estratto(es,r,5) + 04):amb(3) = Fuori90(Estratto(es,r,5) + 36):amb(4) = Fuori90(Estratto(es,r,5) + 74)::amb(5) = Fuori90(Estratto(es,r,5) + 84):ok = 1
If a = 20 And b = 30 Or a = 30 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,5) + 02):amb(2) = Fuori90(Estratto(es,r,5) + 06):amb(3) = Fuori90(Estratto(es,r,5) + 19):amb(4) = Fuori90(Estratto(es,r,5) + 35)::amb(5) = Fuori90(Estratto(es,r,5) + 41):ok = 1
If a = 20 And b = 40 Or a = 40 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 02):amb(2) = Fuori90(Estratto(es,r,4) + 05):amb(3) = Fuori90(Estratto(es,r,4) + 22):amb(4) = Fuori90(Estratto(es,r,4) + 27)::amb(5) = Fuori90(Estratto(es,r,4) + 47):ok = 1
If a = 20 And b = 50 Or a = 50 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 05):amb(3) = Fuori90(Estratto(es,r,2) + 27):amb(4) = Fuori90(Estratto(es,r,2) + 39)::amb(5) = Fuori90(Estratto(es,r,2) + 55):ok = 1
If a = 20 And b = 60 Or a = 60 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 34):amb(2) = Fuori90(Estratto(es,r,4) + 35):amb(3) = Fuori90(Estratto(es,r,4) + 74):amb(4) = Fuori90(Estratto(es,r,4) + 79)::amb(5) = Fuori90(Estratto(es,r,4) + 85):ok = 1
If a = 20 And b = 70 Or a = 70 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 11):amb(2) = Fuori90(Estratto(es,r,4) + 24):amb(3) = Fuori90(Estratto(es,r,4) +
 
Ragazzi , siete fantastici. Grazie:):):);)

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto