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
    martedì 03 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto