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
    venerdì 13 febbraio 2026
    Bari
    71
    07
    88
    38
    26
    Cagliari
    08
    45
    59
    34
    70
    Firenze
    01
    70
    13
    39
    50
    Genova
    54
    26
    42
    41
    39
    Milano
    51
    58
    82
    10
    72
    Napoli
    57
    04
    49
    86
    54
    Palermo
    72
    03
    54
    83
    33
    Roma
    68
    44
    06
    22
    70
    Torino
    33
    37
    14
    25
    79
    Venezia
    16
    20
    40
    27
    37
    Nazionale
    88
    15
    53
    07
    80
    Estrazione Simbolotto
    Cagliari
    21
    42
    40
    09
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto