Ciao Baffo. Lo script utilizza come dati gli estratti delle estrazioni es, es+1, es+2 e es+3. L'istruzione "Gioca es,1,,1" inizia le giocate da es+1 . Quindi in pratica sembra che lo script "veda" già alcuni estratti futuri. Probabilmente bisogna sostituire con "Gioca es+3,1,,1". Prova a controllare se non ho scritto cavolate.
Vecchi metodi e vecchi script by BaffoBlù
- Creatore Discussione BaffoBlù
- Data di inizio
Oberdan
Member
Ciao Baffoblù e Maldor.
dato che "es+3" fa parte della condizione di rilevamento, bisognerebbe impostare "Gioca es+4,1,1". O sono io a sbagliarmi?
Marco-elle
Advanced Member >PLATINUM PLUS<
Per come è strutturato lo script,non dovrebbe neanche dare l'ultima e penultima vincita e....
se aggiungo +3 o +4.... a GIOCA ES...è presente l'ultima condizione senza vincita
e la penultima è modificata come sicuramente
ce ne sono altre
Ciao. Le giocate dovrebbero iniziare dell'estrazione successiva a quella indicata. Quindi se scriviamo Gioca es+3, la prima giocata è a es+4.
Oberdan
Member
Perfetto, grazie.
Oberdan
Member
Ciao Baffoblù,
ho fatto partire la giocata da "es+3" e ho inserito qualche altra linea di codice per eliminare i casi i cui c'erano numeri ripetuti.
Controlla se tutto ok e se risponde alle tue intenzioni.
ho fatto partire la giocata da "es+3" e ho inserito qualche altra linea di codice per eliminare i casi i cui c'erano numeri ripetuti.
Controlla se tutto ok e se risponde alle tue intenzioni.
Codice:
Option Explicit
Sub Main()
Dim Ini,fin,es,r,a,b,c,d,e,f,y,z,ok,co,clp
Dim x1(6)
Dim ruota(10)
Dim ruote(10)
Dim poste(10)
ruota(1) = r
ruote(1) = 11
poste(2) = 1
clp = 18
r = CInt(InputBox(" Scegli la ruota ",,"1"))
Ini = 10000
fin = EstrazioneFin
co = 0
For es = Ini To fin
ok = 0
If IndiceMensile(es) = 1 Then
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
a = Estratto(es,r,1)
b = Estratto(es + 1,r,1)
c = Estratto(es + 1,r,2)
d = Estratto(es + 2,r,2)
e = Estratto(es + 2,r,3)
f = Estratto(es + 3,r,3)
ReDim n(6)
n(1) = a
n(2) = b
n(3) = c
n(4) = d
n(5) = e
n(6) = f
For y =1 To 5
For z = y + 1 To 6
If n(y) = n(z) Then
ok = 1
End If
Next
Next
x1(1) = MassimoV(n)
ReDim w(6)
w(0) = 0
w(1) = a
w(2) = b
w(3) = c
w(4) = d
w(5) = e
w(6) = f
x1(2) = MinimoV(w,1)
x1(3) = Fuori90(x1(1) * x1(1))
x1(4) = Fuori90(x1(2) * x1(2))
x1(5) = Fuori90(x1(1) * 108)
x1(6) = Fuori90(x1(2) * 108)
ruota(1) = r
ruote(1) = 11
If ok = 0 Then
co = co + 1
Scrivi String(100,"°") & " Caso n° " & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * ",1
Scrivi DataEstrazione(es + 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es + 1,r) & " * ",1
Scrivi DataEstrazione(es + 2) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es + 2,r) & " * ",1
Scrivi DataEstrazione(es + 3) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es + 3,r) & " * ",1
Scrivi String(100,"°"),1
Scrivi "Numeri della Scala : " & Format2(n(1)) & " * " & Format2(n(2)) & " * " & Format2(n(3)) & " * " & Format2(n(4)) & " * " & Format2(n(5)) & " * " & Format2(n(6)),1,,,1,2
Scrivi " Numero più Grande : " & Format2(x1(1)) & " * Numero più Piccolo : " & Format2(x1(2)) & " * ",1,,,,2
Scrivi " Numeri Previsione : " & x1(1) & " - " & x1(2) & " - " & x1(3) & " - " & x1(4) & " - " & x1(5) & " - " & x1(6),1,,,2,2
Scrivi String(100,"°"),1
ImpostaGiocata 1,x1,ruota,poste,clp,2
ImpostaGiocata 2,x1,ruote,poste,clp,2
Gioca es + 3,1,,1
End If
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Script by BaffoBlù ***** ",1,3,0
ScriviResoconto
End Sub
BaffoBlù
Advanced Member >PLATINUM<
BaffoBlù
Advanced Member >PLATINUM<
Esatto! Non lo avevo considerato, proprio mi è saltato dalla mente
il gioco inizia alla 5° estrazione mensile ,Gioca es+4 mi sembra quella giusta.
se r è la 1° estrazione
r + 1 + 2 estrazione
r + 2 + 3 estrazione
r + 3 + 4 estrazione (qui c'è l'ultimo elemento della scala...)
r+ 4 = 5 estrazione
oooookkkkk
o no?
mi stanno venendo i dubbi pure a me....mal di testa...ho da fare mo'...
Ultima modifica:
BaffoBlù
Advanced Member >PLATINUM<
Buon sabato a Tutte/i
Sono sceso dalla Scala e vado oltre ...
(anche se sembra che non vi do tempo di assorbirne uno che spunta un altro,
avete tempo per leggere, rimarrà qui...)
Cos'è quel muso tirato, daje che ve faccio fa io na risata...
La conoscete la barzelletta del grande Gigi Proietti (18...18...18...)
E' stata quella che ha ispirato questo metodino...
.
Metodino che nel suo piccolo ha fatto questo :
Dal 1871 casi trovati : 1060
Percentuale pos. : 99,9 %
Attesa media : 5
Ambo su ruota : 684
Ambo su tutte : 1.386
Terno su ruota : 39
Terno su tutte : 63
Quaterna su tutte : 2
Come si applica :
Oltre che da Gigi proietti, il 18 viene da 108 - 90 = 18 (108 : Numero Cosmico)
Ad ogni estrazione si verifica che il 1° estratto di qualunque ruota sia il numero "18".
Esempio reale :
18.04.2024 - NA - 18.12.80.29.19
Qui troviamo il 18 come 1°estratto a Napoli
Sommiamo i rimanenti estratti 12.80.29.19 = 140 - 90 = 50
** Numero Principale 50 * con 20 - 80
Dal numero principale "50", si ricava la relativa terzina Simmetrica distanza 30 (Ambate 20.50.80)
Gli Abbinamenti x Ambo e Terno non sono altro che i rimanenti estratti 12.80.29.19
la Settina : 20.50.80.12.80.29.19. (da cui si riduce a sestina per l'80 ripetuto...)
----------------------------------------------------------------
Ricordate che i 18 colpi nello script sono solo indicativi per osservazioni globali
Entro i 5 colpi le piccole scintille le sparge eccome...
Se poi analizzate il decorso totale dei colpi, per fare una graduatoria colpi,
nei primi 5 colpi ve ne è una marea...
PREVISIONE IN CORSO...
E' passato un colpo...
Stasera sabato 25 maggio 2024 è il 2° colpo...
E' passato un colpo...
Eccovi lo script
Sono sceso dalla Scala e vado oltre ...
(anche se sembra che non vi do tempo di assorbirne uno che spunta un altro,
avete tempo per leggere, rimarrà qui...)
Cos'è quel muso tirato, daje che ve faccio fa io na risata...
La conoscete la barzelletta del grande Gigi Proietti (18...18...18...)
E' stata quella che ha ispirato questo metodino...
Metodino che nel suo piccolo ha fatto questo :
Dal 1871 casi trovati : 1060
Percentuale pos. : 99,9 %
Attesa media : 5
Ambo su ruota : 684
Ambo su tutte : 1.386
Terno su ruota : 39
Terno su tutte : 63
Quaterna su tutte : 2
Come si applica :
Oltre che da Gigi proietti, il 18 viene da 108 - 90 = 18 (108 : Numero Cosmico)
Ad ogni estrazione si verifica che il 1° estratto di qualunque ruota sia il numero "18".
Esempio reale :
18.04.2024 - NA - 18.12.80.29.19
Qui troviamo il 18 come 1°estratto a Napoli
Sommiamo i rimanenti estratti 12.80.29.19 = 140 - 90 = 50
** Numero Principale 50 * con 20 - 80
Dal numero principale "50", si ricava la relativa terzina Simmetrica distanza 30 (Ambate 20.50.80)
Gli Abbinamenti x Ambo e Terno non sono altro che i rimanenti estratti 12.80.29.19
la Settina : 20.50.80.12.80.29.19. (da cui si riduce a sestina per l'80 ripetuto...)
Codice:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10423 [ 61 - 18/04/2024]
G 0001 Numeri in gioco : 50.80.20 su NA per Estratto
V N. [50.80.20 ] [NA] [.. .. .. .. 50] C. 1 Estratto 10424 [ 62 - 19/04/2024]
Interrotta per esito verificato
G 0002 Numeri in gioco : 50.80.20.12.80.29.19 su NA per Ambo,Terno
V N. [50.80.20.12.80.29.19 ] [NA] [29 19 .. .. 50] C. 1 Terno 10424 [ 62 - 19/04/2024]
Interrotta per esito verificato
G 0003 Numeri in gioco : 50.80.20.12.80.29.19 su TT per Ambo,Terno
V N. [50.80.20.12.80.29.19 ] [TT] [NA][29 19 .. .. 50] C. 1 Terno 10424 [ 62 - 19/04/2024]
Interrotta per esito verificato----------------------------------------------------------------
Ricordate che i 18 colpi nello script sono solo indicativi per osservazioni globali
Entro i 5 colpi le piccole scintille le sparge eccome...
Se poi analizzate il decorso totale dei colpi, per fare una graduatoria colpi,
nei primi 5 colpi ve ne è una marea...
PREVISIONE IN CORSO...
E' passato un colpo...
Stasera sabato 25 maggio 2024 è il 2° colpo...
Codice:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°1060
23.05.2024 - PA - 18.08.51.32.68 ** Numero Principale 69 * con 39 - 09
Abbinamenti : 08 * 51 * 32 * 68
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10442 [ 80 - 23/05/2024]
G 0001 Numeri in gioco : 69.39.09 su PA per Estratto
In corso...
G 0002 Numeri in gioco : 69.39.09.08.51.32.68 su PA per Ambo,Terno
In corso...
G 0003 Numeri in gioco : 69.39.09.08.51.32.68 su TT per Ambo,Terno
In corso...
************************************************************E' passato un colpo...
Eccovi lo script
Codice:
Option Explicit
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,ok,a,b,c,d,e,f,sp1,x1,x2
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim n(3)
Dim n1(4)
Dim n2(7)
posta(1) = 1
poste(2) = 1
poste(3) = 1
r1 = 11
sp1 = CInt(InputBox(" Spia ? ",,"18"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10443"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
ok = 0
For es = Ini To Fin
For r = 1 To 10
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r
ruote(1) = r1
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
If a = sp1 Then
f = Fuori90(b + c + d + e)
n(1) = f
If f < 30 Or f > 0 Then
x1 =(f + 30)
x2 =(f + 60)
ok = 1
End If
If f > 30 Or f < 60 Then
x1 =(f + 30)
x2 =(f - 30)
ok = 1
End If
If f > 60 Then
x1 =(f - 30)
x2 =(f - 60)
ok = 1
End If
n(2) = x1
n(3) = x2
n1(1) = b
n1(2) = c
n1(3) = d
n1(4) = e
n2(1) = n(1)
n2(2) = n(2)
n2(3) = n(3)
n2(4) = n1(1)
n2(5) = n1(2)
n2(6) = n1(3)
n2(7) = n1(4)
ok = 1
If ok = 1 Then
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** Numero Principale " & Format2(n(1)) & " * con " & Format2(n(2)) & " - " & Format2(n(3)),1
Scrivi " Abbinamenti : " & Format2(n1(1)) & " * " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1
ImpostaGiocata 2,n2,ruota,poste,Clp,2
ImpostaGiocata 3,n2,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto
End SubOberdan
Member
Sarai diventato milionario!
Marco-elle
Advanced Member >PLATINUM PLUS<
A seghe mentali.....non sei messo male anche te.....sei un FIGO!
PS: però manca quel 0,01%
Marco-elle
Advanced Member >PLATINUM PLUS<
Questo listato analizza gli ambi diametrali usciti sulla NZ
analizzati mese x mese e consegna una previsione statistica
su ruote congeniali
Buona lettura.......
analizzati mese x mese e consegna una previsione statistica
su ruote congeniali
Buona lettura.......
Codice:
Sub Main()
ColoreTesto 2
Scrivi "AMBI DIAMETRALI SULLA NZ"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim poste(4)
Dim ruota(10)
Dim n(10)
Dim x
poste(2) = 1
poste(3) = 1
clp = 12
ini = EstrazioneFin - 3000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For x = 1 To 10
n(x) = 0
Next
For r1 = 12 To 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 Mese(es) = 1 Then
If Abs(a - b) = 45 Then
n(1) = 1
n(2) = 4
n(3) = 74
n(4) = 79
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 2 Then
If Abs(a - b) = 45 Then
n(1) = 12
n(2) = 38
n(3) = 47
n(4) = 58
n(5) = 79
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 3 Then
If Abs(a - b) = 45 Then
n(1) = 28
n(2) = 34
n(3) = 41
n(4) = 54
n(5) = 78
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 4 Then
If Abs(a - b) = 45 Then
n(1) = 12
n(2) = 38
n(3) = 53
n(4) = 60
n(5) = 88
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 5 Then
If Abs(a - b) = 45 Then
n(1) = 37
n(2) = 52
n(3) = 68
n(4) = 78
n(5) = 80
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 6 Then
If Abs(a - b) = 45 Then
n(1) = 9
n(2) = 12
n(3) = 29
n(4) = 37
n(5) = 77
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 7 Then
If Abs(a - b) = 45 Then
n(1) = 32
n(2) = 43
n(3) = 49
n(4) = 53
n(5) = 73
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 8 Then
If Abs(a - b) = 45 Then
n(1) = 10
n(2) = 41
n(3) = 57
n(4) = 60
n(5) = 68
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 9 Then
If Abs(a - b) = 45 Then
n(1) = 24
n(2) = 39
n(3) = 57
n(4) = 72
n(5) = 79
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 10 Then
If Abs(a - b) = 45 Then
n(1) = 2
n(2) = 10
n(3) = 12
n(4) = 26
n(5) = 37
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If Mese(es) = 11 Then
If Abs(a - b) = 45 Then
n(1) = 8
n(2) = 35
n(3) = 66
n(4) = 74
n(5) = 80
ruota(1) = 7
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 12 Then
If Abs(a - b) = 45 Then
n(1) = 1
n(2) = 13
n(3) = 34
n(4) = 61
n(5) = 88
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " Ambo Diametrale " & a & " - " & b,1
Scrivi String(110,"*"),1
ColoreTesto 0
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Questo listato elabora i terni in figura sulla NZ
con ricerca semestrale e ricava 1 ambata e 3 ambi statistici
su ruote congeniali
Buona lettura.....
con ricerca semestrale e ricava 1 ambata e 3 ambi statistici
su ruote congeniali
Buona lettura.....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNI IN FIGURA USCITI SULLA NZ"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim posta(1)
Dim poste(3)
Dim ruota(10)
Dim am(1)
Dim a1(2)
Dim a2(2)
Dim a3(2)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 3000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 12 To 12
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
ok = 0
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 1 And Figura(b) = 1 And Figura(c) = 1 Then
am(1) = 8
a1(1) = 8
a1(2) = 2
a2(1) = 8
a2(2) = 15
a3(1) = 8
a3(2) = 88
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 1 And Figura(b) = 1 And Figura(c) = 1 Then
am(1) = 27
a1(1) = 27
a1(2) = 8
a2(1) = 27
a2(2) = 53
a3(1) = 27
a3(2) = 84
ruota(1) = 4
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 2 And Figura(b) = 2 And Figura(c) = 2 Then
am(1) = 54
a1(1) = 54
a1(2) = 1
a2(1) = 54
a2(2) = 27
a3(1) = 54
a3(2) = 59
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 2 And Figura(b) = 2 And Figura(c) = 2 Then
am(1) = 9
a1(1) = 9
a1(2) = 10
a2(1) = 9
a2(2) = 80
a3(1) = 9
a3(2) = 90
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 3 And Figura(b) = 3 And Figura(c) = 3 Then
am(1) = 34
a1(1) = 34
a1(2) = 32
a2(1) = 34
a2(2) = 52
a3(1) = 34
a3(2) = 54
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 3 And Figura(b) = 3 And Figura(c) = 3 Then
am(1) = 9
a1(1) = 9
a1(2) = 13
a2(1) = 9
a2(2) = 22
a3(1) = 9
a3(2) = 33
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 4 And Figura(b) = 4 And Figura(c) = 4 Then
am(1) = 58
a1(1) = 58
a1(2) = 31
a2(1) = 58
a2(2) = 39
a3(1) = 58
a3(2) = 71
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 4 And Figura(b) = 4 And Figura(c) = 4 Then
am(1) = 15
a1(1) = 15
a1(2) = 21
a2(1) = 15
a2(2) = 44
a3(1) = 15
a3(2) = 61
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 5 And Figura(b) = 5 And Figura(c) = 5 Then
am(1) = 36
a1(1) = 36
a1(2) = 16
a2(1) = 36
a2(2) = 43
a3(1) = 36
a3(2) = 66
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 5 And Figura(b) = 5 And Figura(c) = 5 Then
am(1) = 32
a1(1) = 32
a1(2) = 12
a2(1) = 32
a2(2) = 31
a3(1) = 32
a3(2) = 82
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 6 And Figura(b) = 6 And Figura(c) = 6 Then
am(1) = 25
a1(1) = 25
a1(2) = 18
a2(1) = 25
a2(2) = 29
a3(1) = 25
a3(2) = 64
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 6 And Figura(b) = 6 And Figura(c) = 6 Then
am(1) = 17
a1(1) = 17
a1(2) = 2
a2(1) = 17
a2(2) = 36
a3(1) = 17
a3(2) = 83
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 7 And Figura(b) = 7 And Figura(c) = 7 Then
am(1) = 25
a1(1) = 25
a1(2) = 1
a2(1) = 25
a2(2) = 2
a3(1) = 25
a3(2) = 9
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 7 And Figura(b) = 7 And Figura(c) = 7 Then
am(1) = 77
a1(1) = 77
a1(2) = 2
a2(1) = 77
a2(2) = 16
a3(1) = 77
a3(2) = 47
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 Then
am(1) = 1
a1(1) = 1
a1(2) = 39
a2(1) = 1
a2(2) = 84
a3(1) = 1
a3(2) = 89
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 Then
am(1) = 66
a1(1) = 66
a1(2) = 23
a2(1) = 66
a2(2) = 53
a3(1) = 66
a3(2) = 60
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Figura(a) = 9 And Figura(b) = 9 And Figura(c) = 9 Then
am(1) = 32
a1(1) = 32
a1(2) = 15
a2(1) = 32
a2(2) = 39
a3(1) = 32
a3(2) = 48
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Figura(a) = 9 And Figura(b) = 9 And Figura(c) = 9 Then
am(1) = 39
a1(1) = 39
a1(2) = 33
a2(1) = 39
a2(2) = 36
a3(1) = 39
a3(2) = 78
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " Terno in figura " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,am,ruota,posta,clp
ImpostaGiocata 2,a1,ruota,poste,clp
ImpostaGiocata 3,a2,ruota,poste,clp
ImpostaGiocata 4,a3,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Sto scandagliando la NZ in lungo e in largo perchè sono convinto che con questa ruota
essendo l'ultima nata e con l'avvento dell'automazione....si possono fare delle ottime
statistiche,Se in 20anni si è vinto,non vedo il motivo del perchè non si debba vincere in futuro.
Le idee non mi mancano e finche ne avrò voglia,continuerò in questa missione di aiutare il
Baffone nella missione di lasciare il segno nel LOTTO.Il Baffo ha dato tanto e finchè ne avrà
le forze continuerà a farlo.Salvatevi questi lavori nella libreria perchè saranno sicuramente utili,
come lo sarà sicuramente a qualche professionista del settore che scopiazzerà i vari lavori,vendendoli al pubblico a caro prezzo....ma qui!....carta canta e la data di pubblicazione ne sarà la conferma.
Questo listato analizza i terni in cadenza sulla NZ semestre dopo semestre e ricava una una previsione statistica ristretta su ruote congeniali.
Buona lettura e,,,,,mi raccomando!......RICORDEVE DE MI!!!!!
essendo l'ultima nata e con l'avvento dell'automazione....si possono fare delle ottime
statistiche,Se in 20anni si è vinto,non vedo il motivo del perchè non si debba vincere in futuro.
Le idee non mi mancano e finche ne avrò voglia,continuerò in questa missione di aiutare il
Baffone nella missione di lasciare il segno nel LOTTO.Il Baffo ha dato tanto e finchè ne avrà
le forze continuerà a farlo.Salvatevi questi lavori nella libreria perchè saranno sicuramente utili,
come lo sarà sicuramente a qualche professionista del settore che scopiazzerà i vari lavori,vendendoli al pubblico a caro prezzo....ma qui!....carta canta e la data di pubblicazione ne sarà la conferma.
Questo listato analizza i terni in cadenza sulla NZ semestre dopo semestre e ricava una una previsione statistica ristretta su ruote congeniali.
Buona lettura e,,,,,mi raccomando!......RICORDEVE DE MI!!!!!
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNI IN CADENZA USCITI SULLA NZ"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim posta(1)
Dim poste(3)
Dim ruota(10)
Dim am(1)
Dim a1(2)
Dim a2(2)
Dim a3(2)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 3000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 12 To 12
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
ok = 0
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 Then
am(1) = 9
a1(1) = 9
a1(2) = 19
a2(1) = 9
a2(2) = 26
a3(1) = 9
a3(2) = 83
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 Then
am(1) = 4
a1(1) = 4
a1(2) = 25
a2(1) = 4
a2(2) = 61
ruota(1) = 5
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 Then
am(1) = 1
a1(1) = 1
a1(2) = 8
a2(1) = 1
a2(2) = 47
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 Then
am(1) = 66
a1(1) = 66
a1(2) = 14
a2(1) = 66
a2(2) = 38
a3(1) = 66
a3(2) = 58
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 Then
am(1) = 11
a1(1) = 11
a1(2) = 40
a2(1) = 11
a2(2) = 53
a3(1) = 11
a3(2) = 72
ruota(1) = 8
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 Then
am(1) = 7
a1(1) = 7
a1(2) = 49
a2(1) = 7
a2(2) = 69
a3(1) = 7
a3(2) = 84
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 Then
am(1) = 4
a1(1) = 4
a1(2) = 26
a2(1) = 4
a2(2) = 35
a3(1) = 4
a3(2) = 41
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 Then
am(1) = 31
a1(1) = 31
a1(2) = 15
a2(1) = 31
a2(2) = 72
a3(1) = 31
a3(2) = 83
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 Then
am(1) = 3
a1(1) = 3
a1(2) = 13
a2(1) = 3
a2(2) = 61
a3(1) = 3
a3(2) = 66
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 Then
am(1) = 69
a1(1) = 69
a1(2) = 9
a2(1) = 69
a2(2) = 24
a3(1) = 69
a3(2) = 85
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 Then
am(1) = 39
a1(1) = 39
a1(2) = 12
a2(1) = 39
a2(2) = 21
a3(1) = 39
a3(2) = 22
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 Then
am(1) = 35
a1(1) = 35
a1(2) = 30
a2(1) = 35
a2(2) = 34
a3(1) = 35
a3(2) = 75
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 Then
am(1) = 86
a1(1) = 86
a1(2) = 26
a2(1) = 86
a2(2) = 38
a3(1) = 86
a3(2) = 71
ruota(1) = 5
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 Then
am(1) = 44
a1(1) = 44
a1(2) = 5
a2(1) = 44
a2(2) = 34
a3(1) = 44
a3(2) = 76
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 Then
am(1) = 4
a1(1) = 4
a1(2) = 23
a2(1) = 4
a2(2) = 85
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 Then
am(1) = 30
a1(1) = 30
a1(2) = 15
a2(1) = 30
a2(2) = 19
a3(1) = 30
a3(2) = 48
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 Then
am(1) = 5
a1(1) = 5
a1(2) = 13
a2(1) = 5
a2(2) = 30
a3(1) = 5
a3(2) = 39
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 Then
am(1) = 8
a1(1) = 8
a1(2) = 3
a2(1) = 8
a2(2) = 43
a3(1) = 8
a3(2) = 73
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " Terno in cadenza " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,am,ruota,posta,clp
ImpostaGiocata 2,a1,ruota,poste,clp
ImpostaGiocata 3,a2,ruota,poste,clp
ImpostaGiocata 4,a3,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Ultima modifica:
Marco-elle
Advanced Member >PLATINUM PLUS<
Questo listato è una vera ricerca storica e si basa sui terni in quartina radicale usciti su tutte dal 1871
regalando una previsione statistica di 1 ambata e 4 ambi su ruote congeniali
Buona lettura.....
PS:
lanciate lo script così com'è per vedere la bonta della ricerca e poi diminuite drasticamente i colpi di ricerca
per velocizzare lo script per eventuale ricerca di nuova conzione.
PPS:
non giudicate la costruzione dello script perchè sono una vera sega e si può fare di meglio ma....il lavoro che c'è dietro.Ci sono Guru del VB script sempre pronti a criticare il lavoro altrui e poi si va a curiosare nei loro Thread e scoprire che hanno idee e teorie bizzarre e non vanno al di là di una ambatella in lunghetta quando gli va bene.Scusate lo sfogo ma....avevo alcuni sassolini nella scarpe da togliere.
regalando una previsione statistica di 1 ambata e 4 ambi su ruote congeniali
Buona lettura.....
PS:
lanciate lo script così com'è per vedere la bonta della ricerca e poi diminuite drasticamente i colpi di ricerca
per velocizzare lo script per eventuale ricerca di nuova conzione.
PPS:
non giudicate la costruzione dello script perchè sono una vera sega e si può fare di meglio ma....il lavoro che c'è dietro.Ci sono Guru del VB script sempre pronti a criticare il lavoro altrui e poi si va a curiosare nei loro Thread e scoprire che hanno idee e teorie bizzarre e non vanno al di là di una ambatella in lunghetta quando gli va bene.Scusate lo sfogo ma....avevo alcuni sassolini nella scarpe da togliere.
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNI IN QUARTINA RADICALE USCITI SU TT"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim posta(1)
Dim poste(3)
Dim ruota(10)
Dim am(1)
Dim a1(2)
Dim a2(2)
Dim a3(2)
Dim a4(2)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 10400
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
ok = 0
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 1 Or a = 10 Or a = 11 Or a = 19)_
And(b = 1 Or b = 10 Or b = 11 Or b = 19)_
And(c = 1 Or c = 10 Or c = 11 Or c = 19)Then
am(1) = 55
a1(1) = 55
a1(2) = 9
a2(1) = 55
a2(2) = 12
a3(1) = 55
a3(2) = 17
a4(1) = 55
a4(2) = 34
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 1 Or a = 10 Or a = 11 Or a = 19)_
And(b = 1 Or b = 10 Or b = 11 Or b = 19)_
And(c = 1 Or c = 10 Or c = 11 Or c = 19)Then
am(1) = 60
a1(1) = 60
a1(2) = 13
a2(1) = 60
a2(2) = 65
a3(1) = 60
a3(2) = 74
a4(1) = 60
a4(2) = 85
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 2 Or a = 20 Or a = 22 Or a = 29)_
And(b = 2 Or b = 20 Or b = 22 Or b = 29)_
And(c = 2 Or c = 20 Or c = 22 Or c = 29)Then
am(1) = 54
a1(1) = 54
a1(2) = 21
a2(1) = 54
a2(2) = 41
a3(1) = 54
a3(2) = 58
a4(1) = 54
a4(2) = 77
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 1 Or a = 10 Or a = 11 Or a = 19)_
And(b = 1 Or b = 10 Or b = 11 Or b = 19)_
And(c = 1 Or c = 10 Or c = 11 Or c = 19)Then
am(1) = 23
a1(1) = 23
a1(2) = 11
a2(1) = 23
a2(2) = 40
a3(1) = 23
a3(2) = 61
a4(1) = 23
a4(2) = 89
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 3 Or a = 30 Or a = 33 Or a = 39)_
And(b = 3 Or b = 30 Or b = 33 Or b = 39)_
And(c = 3 Or c = 30 Or c = 33 Or c = 39)Then
am(1) = 56
a1(1) = 56
a1(2) = 7
a2(1) = 56
a2(2) = 27
a3(1) = 56
a3(2) = 45
a4(1) = 56
a4(2) = 84
ruota(1) = 3
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 3 Or a = 30 Or a = 33 Or a = 39)_
And(b = 3 Or b = 30 Or b = 33 Or b = 39)_
And(c = 3 Or c = 30 Or c = 33 Or c = 39)Then
am(1) = 8
a1(1) = 8
a1(2) = 6
a2(1) = 8
a2(2) = 32
a3(1) = 8
a3(2) = 42
a4(1) = 8
a4(1) = 56
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 4 Or a = 40 Or a = 44 Or a = 49)_
And(b = 4 Or b = 40 Or b = 44 Or b = 49)_
And(c = 4 Or c = 40 Or c = 44 Or c = 49)Then
am(1) = 30
a1(1) = 30
a1(2) = 29
a2(1) = 30
a2(2) = 36
a3(1) = 30
a3(2) = 53
a4(1) = 30
a4(2) = 84
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 4 Or a = 40 Or a = 44 Or a = 49)_
And(b = 4 Or b = 40 Or b = 44 Or b = 49)_
And(c = 4 Or c = 40 Or c = 44 Or c = 49)Then
am(1) = 33
a1(1) = 33
a1(2) = 8
a2(1) = 33
a2(2) = 22
a3(1) = 33
a3(2) = 23
a4(1) = 33
a4(2) = 29
ruota(1) = 3
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 5 Or a = 50 Or a = 55 Or a = 59)_
And(b = 5 Or b = 50 Or b = 55 Or b = 59)_
And(c = 5 Or c = 50 Or c = 55 Or c = 59)Then
am(1) = 1
a1(1) = 1
a1(2) = 3
a2(1) = 1
a2(2) = 5
a3(1) = 1
a3(2) = 26
a4(1) = 1
a4(2) = 58
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 5 Or a = 50 Or a = 55 Or a = 59)_
And(b = 5 Or b = 50 Or b = 55 Or b = 59)_
And(c = 5 Or c = 50 Or c = 55 Or c = 59)Then
am(1) = 4
a1(1) = 4
a1(2) = 8
a2(1) = 4
a2(2) = 13
a3(1) = 4
a3(2) = 15
a4(1) = 4
a4(2) = 29
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 6 Or a = 60 Or a = 66 Or a = 69)_
And(b = 6 Or b = 60 Or b = 66 Or b = 69)_
And(c = 6 Or c = 60 Or c = 66 Or c = 69)Then
am(1) = 47
a1(1) = 47
a1(2) = 30
a2(1) = 47
a2(2) = 42
a3(1) = 47
a3(2) = 59
a4(1) = 47
a4(2) = 73
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 6 Or a = 60 Or a = 66 Or a = 69)_
And(b = 6 Or b = 60 Or b = 66 Or b = 69)_
And(c = 6 Or c = 60 Or c = 66 Or c = 69)Then
am(1) = 22
a1(1) = 22
a1(2) = 10
a2(1) = 22
a2(2) = 11
a3(1) = 22
a3(2) = 20
a4(1) = 22
a4(2) = 62
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 7 Or a = 70 Or a = 77 Or a = 79)_
And(b = 7 Or b = 70 Or b = 77 Or b = 79)_
And(c = 7 Or c = 70 Or c = 77 Or c = 79)Then
am(1) = 32
a1(1) = 32
a1(2) = 7
a2(1) = 32
a2(2) = 13
a3(1) = 32
a3(2) = 55
a4(1) = 32
a4(2) = 86
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 7 Or a = 70 Or a = 77 Or a = 79)_
And(b = 7 Or b = 70 Or b = 77 Or b = 79)_
And(c = 7 Or c = 70 Or c = 77 Or c = 79)Then
am(1) = 64
a1(1) = 64
a1(2) = 20
a2(1) = 64
a2(2) = 27
a3(1) = 64
a3(2) = 61
a4(1) = 64
a4(2) = 85
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
If(a = 8 Or a = 80 Or a = 88 Or a = 89)_
And(b = 8 Or b = 80 Or b = 88 Or b = 89)_
And(c = 8 Or c = 80 Or c = 88 Or c = 89)Then
am(1) = 53
a1(1) = 53
a1(2) = 10
a2(1) = 53
a2(2) = 22
a3(1) = 53
a3(2) = 27
a4(1) = 53
a4(2) = 38
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
If(a = 8 Or a = 80 Or a = 88 Or a = 89)_
And(b = 8 Or b = 80 Or b = 88 Or b = 89)_
And(c = 8 Or c = 80 Or c = 88 Or c = 89)Then
am(1) = 14
a1(1) = 14
a1(2) = 9
a2(1) = 14
a2(2) = 16
a3(1) = 14
a3(2) = 35
a4(1) = 14
a4(2) = 75
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " Terno in quartina radicale " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,am,ruota,posta,clp
ImpostaGiocata 2,a1,ruota,poste,clp
ImpostaGiocata 3,a2,ruota,poste,clp
ImpostaGiocata 4,a3,ruota,poste,clp
ImpostaGiocata 5,a4,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Ultima modifica:
Marco-elle
Advanced Member >PLATINUM PLUS<
Scusate ho modificato lo script perchè dava il 4°ambo uguale al 3°....ora è corretto
Oberdan
Member
Ciao Marco,
stai facendo un grande lavoro, grazie!
Ti segnalo un'anomalia che ho appena riscontrato i questo script: ci sono in alcuni casi, nell'output, delle estrazioni ripetute più volte.
Ad esempio puoi osservare i Casi N° 129, 130, 131 e 132. Ma ce ne sono altri.
Non ho ancora avuto modo di approfondire lo script, ma intanto ti segnala la cosa.
Buona domenica.
Oberdan
Marco-elle
Advanced Member >PLATINUM PLUS<
Ciao,
non è una anomalia ma in quella estrazione è uscita una quaterna in cadenza e quindi
il listato esamina tutte e 4 le condizioni
Marco-elle
Advanced Member >PLATINUM PLUS<
Fai bene a segnalare perchè sei attento al contrario di me che molte volte deve riprendere
e correggere
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 15 giugno 2024Bari8958653909Cagliari3942793028Firenze4061783454Genova2280704069Milano4731287253Napoli3350632757Palermo3487082563Roma5328360190Torino3315618013Venezia2379038536Nazionale0455675619Estrazione Simbolotto
Napoli
3726201138