BaffoBlù
Advanced Member >PLATINUM<
lo so che il sogno è il terno secco con tre numeri a ruota al 1° colpo.
Vecchi metodi e vecchi script by BaffoBlù
- Creatore Discussione BaffoBlù
- Data di inizio
Oberdan
Member
E certo!lo so che il sogno è il terno secco con tre numeri a ruota al 1° colpo.
Nessuno disdegnerebbe...
Ma sono troppo realista per inseguirlo. Piuttosto farei salti di gioia a beccare l'ambo entro 3 - 5 colpi.
Torno serio per dire che partendo dal presupposto che è sul numero di colpi che ci si svena, cerco di privilegiare previsioni di breve durata (dentro o fuori) per poi passare ad altre similari.
Oberdan
Oberdan
Member
Per esempio, giocando appunto con le condizioni, sto provando a disegnare la croce in forma più "pulita", passami il termine.
Ovvero ricercando la spia soltanto in posizione 3 e poi prelevando il primo e il quinto estratto e il terzo estratto di due estrazioni prima e due dopo, per ricavare, insieme alla spia, una cinquina da porre in gioco...
Se interessa posso postare lo script.
Insomma, ci sto girando parecchio intorno...
Oberdan
Marco-elle
Advanced Member >PLATINUM PLUS<
Listato che analizza i terni in cadenza e zerati usciti sulla NZ
ricava una previsione statistica su ruote congeniali
buona lettura.....
ricava una previsione statistica su ruote congeniali
buona lettura.....
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 poste(3)
Dim ruota(10)
Dim a5(5)
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 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 Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 Then
a5(1) = 14
a5(2) = 15
a5(3) = 28
a5(4) = 59
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 Then
a5(1) = 8
a5(2) = 10
a5(3) = 20
a5(4) = 26
a5(5) = 57
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 Then
a5(1) = 27
a5(2) = 38
a5(3) = 43
a5(4) = 51
a5(5) = 69
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 Then
a5(1) = 6
a5(2) = 11
a5(3) = 13
a5(4) = 66
a5(5) = 71
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 Then
a5(1) = 12
a5(2) = 13
a5(3) = 20
a5(4) = 41
a5(5) = 53
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 Then
a5(1) = 16
a5(2) = 17
a5(3) = 20
a5(4) = 77
a5(5) = 85
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 Then
a5(1) = 4
a5(2) = 7
a5(3) = 22
a5(4) = 39
a5(5) = 45
ruota(1) = 6
ruota(2) = 8
ok = 1
End If
If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 Then
a5(1) = 8
a5(2) = 30
a5(3) = 44
a5(4) = 84
a5(5) = 89
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 Then
a5(1) = 5
a5(2) = 12
a5(3) = 17
a5(4) = 38
a5(5) = 43
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = Decina(a) * 10 And b = Decina(b) * 10 And c = Decina(c) * 10 Then
a5(1) = 12
a5(2) = 44
a5(3) = 47
a5(4) = 52
a5(5) = 72
ruota(1) = 4
ruota(2) = 5
ok = 1
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 sulla NZ " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,a5,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubOberdan
Member
Molto interessante, Marco.
E ti confermo che la lettura è stata senz'altro buona
Grazie per lo script e buona serata.
Oberdan
Marco-elle
Advanced Member >PLATINUM PLUS<
Grazie,Molto interessante, Marco.
E ti confermo che la lettura è stata senz'altro buona
Grazie per lo script e buona serata.
Oberdan
ne ho inserito un altro e....
continuerò a farlo,voglio aiutare il Baffone a rendere indelebile la sua presenza
Buonasera, scusate ma ho poca esperienza a riguardo e quindi ho capito poco e niente dello script.
BaffoBlù
Advanced Member >PLATINUM<
Allora datti da fare a leggere più che puoi a riguardo.....sempre se ti interessa
più ne leggi e più provi e più arriverai a capire sempre di più (almeno le basi) che ti permettono di muoverti un minimo.
Se ti serve una risposta del tipo "clicca qui e clicca là e Voilà" risolvendo tutto, ti avverto che non esiste una risposta corta
Ad ogni modo dovrai essere disposto a leggere la risposta della lunga spiegazione.
Qui ci sono molte guide dove puoi toglierti diversi dubbi e magari "soddisfazioni"...
BaffoBlù
Advanced Member >PLATINUM<
vai col Tango
BaffoBlù
Advanced Member >PLATINUM<
Questa è una variante dello script (croce della paura) solo a fini di ricerca (tenetelo presente...)
seguite i commenti all'interno.
CRUX SACRA Sit Mihi Lux
Non Draco Sit Mihi Dux
Vade Retro Satana
Numquam Suade Mihi Vana
Sunt Mala Quae Libas
Ipse Venena Bibas
seguite i commenti all'interno.
CRUX SACRA Sit Mihi Lux
Non Draco Sit Mihi Dux
Vade Retro Satana
Numquam Suade Mihi Vana
Sunt Mala Quae Libas
Ipse Venena Bibas
Codice:
Option Explicit
' Di solito le Croci Magiche sono incastonate di pietre preziose, bisogna trovarle...
Sub Main()
Dim Ini,fin,es,r1,a,b,c,d,e,f,g,h,i,l,m,co,ok,p1,sp1,clp,po
Dim am1(2),am2(2),am3(2),am4(2),am5(2),am6(2)
Dim ma1(2),ma2(2),ma3(2),ma4(2)
Dim ruota(10)
Dim ruote(10)
Dim poste(10)
Dim n(5)
ruota(1) = r1
ruote(1) = 11
poste(2) = 1
clp = 18
Ini = 1
fin = EstrazioneFin
ok = 0
co = 0
sp1 = CInt(InputBox(" Inserire la Spia ",,"90"))
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
po = Posizione(es - 1,r1,sp1)
If po > 0 And po > 1 And po < 5 Then
a = Estratto(es - 2,r1,po)
b = Estratto(es - 1,r1,po - 1)
c = Estratto(es - 1,r1,po + 1)
d = Estratto(es,r1,po)
n(1) = sp1
n(2) = a
n(3) = b
n(4) = c
n(5) = d
'
' Un esempio di come andare a cercare il pelo nell'uovo...
' se volete potete cambiare i numeri con quelli di vostro gradimento o se volete, sconvolgere lo script...
' potete inserire altre linee di formazioni di numeri a voi congeniali...
'
' Potete scegliere un opzione singolarmente o di formare una COPPIA Sinistra/destra, Sopra/Sotto, e altre varianti di coppia
' scegliete solo 2 opzioni (una coppia) fra le 4 opzioni disponibili
' si ricorda che le ricerche corte e non approfondite non portano a granchè...
'
' Questo sotto è solo un esempio di incastro possibile...
'-----------------------------------------------------------------------------------------------
' Per Spie a SINISTRA della Spia Centrale della Croce.
' 1° opzione
'If n(3) = 09 Or n(3) = 19 Or n(3) = 29 Or n(3) = 39 Or n(3) = 49 Or n(3) = 59 Or n(3) = 69 Or n(3) = 79 Or n(3) = 89 Then
'If n(3) = 01 Or n(3) = 10 Or n(3) = 20 Or n(3) = 30 Or n(3) = 40 Or n(3) = 60 Or n(3) = 60 Or n(3) = 70 Or n(3) = 80 Then
'If n(3) = 01 Or n(3) = 11 Or n(3) = 22 Or n(3) = 33 Or n(3) = 44 Or n(3) = 55 Or n(3) = 66 Or n(3) = 77 Or n(3) = 88 Then
'If n(3) = 01 Or n(3) = 02 Or n(3) = 03 Or n(3) = 04 Or n(3) = 05 Or n(3) = 06 Or n(3) = 07 Or n(3) = 08 Or n(3) = 09 Then
'If n(3) = 11 Or n(3) = 12 Or n(3) = 13 Or n(3) = 14 Or n(3) = 15 Or n(3) = 16 Or n(3) = 17 Or n(3) = 18 Or n(3) = 19 Then
'If n(3) = 09 Or n(3) = 18 Or n(3) = 27 Or n(3) = 36 Or n(3) = 45 Or n(3) = 54 Or n(3) = 63 Or n(3) = 72 Or n(3) = 81 Then
If n(3) = 16 Or n(3) = 21 Or n(3) = 37 Or n(3) = 53 Or n(3) = 69 Or n(3) = 74 Then
'
' Per Spie SOPRA la Spia Centrale della Croce.
' 2° opzione
'If n(2) = 09 Or n(2) = 19 Or n(2) = 29 Or n(2) = 39 Or n(2) = 49 Or n(2) = 59 Or n(2) = 69 Or n(2) = 79 Or n(2) = 89 Then
'If n(2) = 01 Or n(2) = 10 Or n(2) = 20 Or n(2) = 30 Or n(2) = 40 Or n(2) = 60 Or n(2) = 60 Or n(2) = 70 Or n(2) = 80 Then
'If n(2) = 01 Or n(2) = 11 Or n(2) = 22 Or n(2) = 33 Or n(2) = 44 Or n(2) = 55 Or n(2) = 66 Or n(2) = 77 Or n(2) = 88 Then
'If n(2) = 01 Or n(2) = 02 Or n(2) = 03 Or n(2) = 04 Or n(2) = 05 Or n(2) = 06 Or n(2) = 07 Or n(2) = 08 Or n(2) = 09 Then
'If n(2) = 11 Or n(2) = 12 Or n(2) = 13 Or n(2) = 14 Or n(2) = 15 Or n(2) = 16 Or n(2) = 17 Or n(2) = 18 Or n(2) = 19 Then
'If n(2) = 09 Or n(2) = 18 Or n(2) = 27 Or n(2) = 36 Or n(2) = 45 Or n(2) = 54 Or n(2) = 63 Or n(2) = 72 Or n(2) = 81 Then
If n(2) = 16 Or n(2) = 21 Or n(2) = 37 Or n(2) = 53 Or n(2) = 69 Or n(2) = 74 Then
'
' Per Spie a DESTRA della Spia Centrale della Croce.
' 3° opzione
'If n(4) = 09 Or n(4) = 19 Or n(4) = 29 Or n(4) = 39 Or n(4) = 49 Or n(4) = 59 Or n(4) = 69 Or n(4) = 79 Or n(4) = 89 Then
'If n(4) = 01 Or n(4) = 10 Or n(4) = 20 Or n(4) = 30 Or n(4) = 40 Or n(4) = 60 Or n(4) = 60 Or n(4) = 70 Or n(4) = 80 Then
'If n(4) = 01 Or n(4) = 11 Or n(4) = 22 Or n(4) = 33 Or n(4) = 44 Or n(4) = 55 Or n(4) = 66 Or n(4) = 77 Or n(4) = 88 Then
'If n(4) = 01 Or n(4) = 02 Or n(4) = 03 Or n(4) = 04 Or n(4) = 05 Or n(4) = 06 Or n(4) = 07 Or n(4) = 08 Or n(4) = 09 Then
'If n(4) = 11 Or n(4) = 12 Or n(4) = 13 Or n(4) = 14 Or n(4) = 15 Or n(4) = 16 Or n(4) = 17 Or n(4) = 18 Or n(4) = 19 Then
'If n(4) = 09 Or n(4) = 18 Or n(4) = 27 Or n(4) = 36 Or n(4) = 45 Or n(4) = 54 Or n(4) = 63 Or n(4) = 72 Or n(4) = 81 Then
'If n(4) = 16 Or n(4) = 21 Or n(4) = 37 Or n(4) = 53 Or n(4) = 69 Or n(4) = 74 Then
'
' Per Spie SOTTO la Spia Centrale della Croce.
' 4° opzione
'If n(5) = 09 Or n(5) = 19 Or n(5) = 29 Or n(5) = 39 Or n(5) = 49 Or n(5) = 59 Or n(5) = 69 Or n(5) = 79 Or n(5) = 89 Then
'If n(5) = 01 Or n(5) = 10 Or n(5) = 20 Or n(5) = 30 Or n(5) = 40 Or n(5) = 60 Or n(5) = 60 Or n(5) = 70 Or n(5) = 80 Then
'If n(5) = 01 Or n(5) = 11 Or n(5) = 22 Or n(5) = 33 Or n(5) = 44 Or n(5) = 55 Or n(5) = 66 Or n(5) = 77 Or n(5) = 88 Then
'If n(5) = 01 Or n(5) = 02 Or n(5) = 03 Or n(5) = 04 Or n(5) = 05 Or n(5) = 06 Or n(5) = 07 Or n(5) = 08 Or n(5) = 09 Then
'If n(5) = 11 Or n(5) = 12 Or n(5) = 13 Or n(5) = 14 Or n(5) = 15 Or n(5) = 16 Or n(5) = 17 Or n(5) = 18 Or n(5) = 19 Then
'If n(5) = 09 Or n(5) = 18 Or n(5) = 27 Or n(5) = 36 Or n(5) = 45 Or n(5) = 54 Or n(5) = 63 Or n(5) = 72 Or n(5) = 81 Then
'If n(5) = 16 Or n(5) = 21 Or n(5) = 37 Or n(5) = 53 Or n(5) = 69 Or n(5) = 74 Then
'
am1(1) = a
am1(2) = c
am2(1) = a
am2(2) = b
am3(1) = a
am3(2) = d
am4(1) = d
am4(2) = b
am5(1) = d
am5(2) = c
am6(1) = c
am6(2) = b
ma1(1) = sp1
ma1(2) = a
ma2(1) = sp1
ma2(2) = c
ma3(1) = sp1
ma3(2) = b
ma4(1) = sp1
ma4(2) = d
ruota(1) = r1
ruote(1) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n° " & co,1
Scrivi DataEstrazione(es - 2) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es - 2,r1) & " * ",1
Scrivi DataEstrazione(es - 1) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es - 1,r1) & " * ",1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * ",1
Scrivi String(100,"°"),1
Scrivi "Numeri Previsione : " & Format2(n(1)) & " * " & Format2(n(2)) & " * " & Format2(n(3)) & " * " & Format2(n(4)) & " * " & Format2(n(5)),1,,,1,2
Scrivi "Senza " & sp1 & " formiamo 6 Ambi Secchi Principali * Con " & sp1 & " altri 4 Ambi Secchi MA Secondari ",1,,,1,2
Scrivi "6 Ambi Secchi Principali + 4 Ambi Secchi Secondari (Opzionali) su Ruota e anche a Tutte ",1,,,2,2
Scrivi String(100,"°"),1
'------------------------------------------------------------------------
'
' Per elaborare a ruota fissa scambia le 10 remmature con le 10 in basso
'
'ImpostaGiocata 1,am1,ruota,poste,clp,2,,1
'ImpostaGiocata 2,am2,ruota,poste,clp,2,,2
'ImpostaGiocata 3,am3,ruota,poste,clp,2,,3
'ImpostaGiocata 4,am4,ruota,poste,clp,2,,4
'ImpostaGiocata 5,am5,ruota,poste,clp,2,,5
'ImpostaGiocata 6,am6,ruota,poste,clp,2,,6
'ImpostaGiocata 7,ma1,ruota,poste,clp,2,,7
'ImpostaGiocata 8,ma2,ruota,poste,clp,2,,8
'ImpostaGiocata 9,ma3,ruota,poste,clp,2,,9
'ImpostaGiocata 10,ma4,ruota,poste,clp,2,10
'-------------------------------------------------------------------------
'
' Per elaborare a tutte le ruote scambia le 10 remmature con le 10 in alto
'
'-------------------------------------------------------------------------
ImpostaGiocata 1,am1,ruote,poste,clp,2,,1
ImpostaGiocata 2,am2,ruote,poste,clp,2,,2
ImpostaGiocata 3,am3,ruote,poste,clp,2,,3
ImpostaGiocata 4,am4,ruote,poste,clp,2,,4
ImpostaGiocata 5,am5,ruote,poste,clp,2,,5
ImpostaGiocata 6,am6,ruote,poste,clp,2,,6
ImpostaGiocata 7,ma1,ruote,poste,clp,2,,7
ImpostaGiocata 8,ma2,ruote,poste,clp,2,,8
ImpostaGiocata 9,ma3,ruote,poste,clp,2,,9
ImpostaGiocata 10,ma4,ruote,poste,clp,2,,10
Gioca es,1,,1
End If ' remmare se si scegle un ozione singola delle 4 possibili
End If
End If
Next
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 SubMarco-elle
Advanced Member >PLATINUM PLUS<
Questo listato esamina i terni di numeretti su BARI è una condizione
rara ma non rarissima,Lo scopo è di vincere il terno su formazione
di varia entità numerica (dai 4 ai 9 numeri)
Buona lettura.....
rara ma non rarissima,Lo scopo è di vincere il terno su formazione
di varia entità numerica (dai 4 ai 9 numeri)
Buona lettura.....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNO DI NUMERETTI USCITO SU BA"
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(3) = 1
poste(4) = 1
clp = 12
ini = EstrazioneFin - 10400
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 = 1 To 1
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 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 13
n(3) = 55
n(4) = 60
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 2 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 7
n(3) = 9
n(4) = 32
n(5) = 40
n(6) = 46
n(7) = 66
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 3 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 3
n(3) = 7
n(4) = 8
n(5) = 32
n(6) = 43
n(7) = 46
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 4 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 6
n(2) = 13
n(3) = 15
n(4) = 25
n(5) = 26
n(6) = 32
n(7) = 34
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 5 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 7
n(3) = 8
n(4) = 11
n(5) = 31
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 6 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 2
n(3) = 4
n(4) = 5
n(5) = 11
n(6) = 23
n(7) = 64
ruota(1) = 3
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 7 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 3
n(3) = 4
n(4) = 15
n(5) = 19
n(6) = 51
n(7) = 64
n(8) = 69
n(9) = 75
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 8 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 3
n(3) = 6
n(4) = 7
n(5) = 17
n(6) = 19
n(7) = 22
n(8) = 86
ruota(1) = 8
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 9 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 7
n(2) = 9
n(3) = 10
n(4) = 13
n(5) = 14
n(6) = 19
n(7) = 39
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 10 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 11
n(3) = 30
n(4) = 44
n(5) = 62
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 11 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 5
n(3) = 6
n(4) = 7
n(5) = 8
n(6) = 14
n(7) = 17
n(8) = 34
n(9) = 48
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If Mese(es) = 12 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 8
n(3) = 13
n(4) = 27
n(5) = 33
n(6) = 40
n(7) = 80
ruota(1) = 3
ruota(2) = 9
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 con i numeretti " & a & " - " & b & " - " & c,1
Scrivi String(110,"."),1
ColoreTesto 0
ImpostaGiocata 1,n,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 esamina i terni gemellari usciti su TUTTE con lo scopo
di vincere l'ambo in cinquina e a volte il terno,su ruote congeniali in
base al mese di uscita.Il listato risulta lento nell'elaborazione ma stiamo
parlando di una ricerca epocale che riguarda tutte le ruote e quindi,
tutte le condizioni avvenute.
Buona lettura....
di vincere l'ambo in cinquina e a volte il terno,su ruote congeniali in
base al mese di uscita.Il listato risulta lento nell'elaborazione ma stiamo
parlando di una ricerca epocale che riguarda tutte le ruote e quindi,
tutte le condizioni avvenute.
Buona lettura....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNO GEMELLARE USCITO SU TT"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA EPOCALE E LIST BY Marco"
ColoreTesto 0
Dim poste(3)
Dim ruota(10)
Dim n(10)
poste(2) = 1
clp = 15
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 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 18
n(2) = 47
n(3) = 57
n(4) = 60
n(5) = 64
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 2 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 1
n(2) = 5
n(3) = 38
n(4) = 71
n(5) = 84
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 3 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 14
n(2) = 16
n(3) = 28
n(4) = 45
n(5) = 69
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 4 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 4
n(2) = 28
n(3) = 38
n(4) = 43
n(5) = 57
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 5 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 30
n(2) = 43
n(3) = 51
n(4) = 60
n(5) = 63
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 6 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 8
n(2) = 10
n(3) = 20
n(4) = 57
n(5) = 84
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 7 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 13
n(2) = 37
n(3) = 56
n(4) = 71
n(5) = 83
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 8 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 18
n(2) = 19
n(3) = 35
n(4) = 39
n(5) = 72
ruota(1) = 6
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 9 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 35
n(2) = 63
n(3) = 67
n(4) = 69
n(5) = 70
ruota(1) = 6
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 10 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 22
n(2) = 51
n(3) = 55
n(4) = 77
n(5) = 79
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
End If
If Mese(es) = 11 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 24
n(2) = 29
n(3) = 39
n(4) = 45
n(5) = 72
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 12 Then
If(a = 11 Or a = 22 Or a = 33 Or a = 44 Or a = 55 Or a = 66 Or a = 77 Or a = 88)_
And(b = 11 Or b = 22 Or b = 33 Or b = 44 Or b = 55 Or b = 66 Or b = 77 Or b = 88)_
And(c = 11 Or c = 22 Or c = 33 Or c = 44 Or c = 55 Or c = 66 Or c = 77 Or c = 88)Then
n(1) = 10
n(2) = 12
n(3) = 31
n(4) = 54
n(5) = 81
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 gemellare " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubOberdan
Member
Ciao Marco,
devo dire che gli script, ma prima ancora le idee e gli spunti di riflessione sia tuoi che di Baffoblù, sono preziosi e, credimi, mi sto deliziando.
Quindi, in primis, un sincero ringraziamento per quello che state condividendo con tutti noi.
In questo script, dedicato al terno nei numeretti alla ruota di Bari, ho notato qualcosa che non va.
Correggimi se sbaglio, una volta verificata la condizione, a seconda del mese in cui si è venuta a verificare, poni in gioco una serie di numeri che varia da 4 a 9. Ma dato che "n" non viene mai azzerato, se ad esempio il primo caso ha posto in gioco 9 numeri, quando nel caso successivo se ne dovessero porre in gioco soltanto 4, in realtà ne vendono posti in gioco comunque 9.
Prova ne è che se osservi l'output del tuo script, troverai al Caso N° 39 (mese di gennaio) messi in gioco 9 numeri anziché 4, come previsto dal codice.
Infatti ho aggiunto giusto 4 linee di codice al tuo script per ovviare al refuso (sempre che fosse questo il tuo intendimento).
Fammi sapere...
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNO DI NUMERETTI USCITO SU BA"
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(3) = 1
poste(4) = 1
clp = 12
ini = EstrazioneFin - 10400
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 = 1 To 1
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 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 13
n(3) = 55
n(4) = 60
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
End If
If Mese(es) = 2 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 7
n(3) = 9
n(4) = 32
n(5) = 40
n(6) = 46
n(7) = 66
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
End If
If Mese(es) = 3 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 3
n(3) = 7
n(4) = 8
n(5) = 32
n(6) = 43
n(7) = 46
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 4 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 6
n(2) = 13
n(3) = 15
n(4) = 25
n(5) = 26
n(6) = 32
n(7) = 34
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
End If
If Mese(es) = 5 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 7
n(3) = 8
n(4) = 11
n(5) = 31
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 6 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 2
n(3) = 4
n(4) = 5
n(5) = 11
n(6) = 23
n(7) = 64
ruota(1) = 3
ruota(2) = 6
ok = 1
End If
End If
If Mese(es) = 7 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 3
n(3) = 4
n(4) = 15
n(5) = 19
n(6) = 51
n(7) = 64
n(8) = 69
n(9) = 75
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 8 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 3
n(3) = 6
n(4) = 7
n(5) = 17
n(6) = 19
n(7) = 22
n(8) = 86
ruota(1) = 8
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 9 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 7
n(2) = 9
n(3) = 10
n(4) = 13
n(5) = 14
n(6) = 19
n(7) = 39
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
End If
If Mese(es) = 10 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 11
n(3) = 30
n(4) = 44
n(5) = 62
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
End If
If Mese(es) = 11 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 1
n(2) = 5
n(3) = 6
n(4) = 7
n(5) = 8
n(6) = 14
n(7) = 17
n(8) = 34
n(9) = 48
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If Mese(es) = 12 Then
If(a = 1 Or a = 2 Or a = 3 Or a = 4 Or a = 5 Or a = 6 Or a = 7 Or a = 8 Or a = 9)_
And(b = 1 Or b = 2 Or b = 3 Or b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 8 Or b = 9)_
And(c = 1 Or c = 2 Or c = 3 Or c = 4 Or c = 5 Or c = 6 Or c = 7 Or c = 8 Or c = 9)Then
n(1) = 2
n(2) = 8
n(3) = 13
n(4) = 27
n(5) = 33
n(6) = 40
n(7) = 80
ruota(1) = 3
ruota(2) = 9
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 con i numeretti " & a & " - " & b & " - " & c,1
Scrivi String(110,"."),1
ColoreTesto 0
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Questo listato esamina tutti i terni in figura usciti sulla NZ
Mette in gioco una previsione su ruote congeniali
Buona lettura.....
Mette in gioco una previsione 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 poste(3)
Dim ruota(10)
Dim a5(5)
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 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 Figura(a) = 1 And Figura(b) = 1 And Figura(c) = 1 Then
a5(1) = 10
a5(2) = 34
a5(3) = 38
a5(4) = 52
a5(5) = 82
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If Figura(a) = 2 And Figura(b) = 2 And Figura(c) = 2 Then
a5(1) = 1
a5(2) = 6
a5(3) = 38
a5(4) = 57
a5(5) = 62
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Figura(a) = 3 And Figura(b) = 3 And Figura(c) = 3 Then
a5(1) = 1
a5(2) = 10
a5(3) = 24
a5(4) = 34
a5(5) = 58
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
If Figura(a) = 4 And Figura(b) = 4 And Figura(c) = 4 Then
a5(1) = 11
a5(2) = 16
a5(3) = 56
a5(4) = 64
a5(5) = 81
ruota(1) = 3
ruota(2) = 6
ok = 1
End If
If Figura(a) = 5 And Figura(b) = 5 And Figura(c) = 5 Then
a5(1) = 13
a5(2) = 20
a5(3) = 21
a5(4) = 27
a5(5) = 55
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
If Figura(a) = 6 And Figura(b) = 6 And Figura(c) = 6 Then
a5(1) = 16
a5(2) = 25
a5(3) = 31
a5(4) = 62
a5(5) = 73
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If Figura(a) = 7 And Figura(b) = 7 And Figura(c) = 7 Then
a5(1) = 8
a5(2) = 13
a5(3) = 28
a5(4) = 29
a5(5) = 90
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 Then
a5(1) = 1
a5(2) = 3
a5(3) = 5
a5(4) = 9
a5(5) = 35
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Figura(a) = 9 And Figura(b) = 9 And Figura(c) = 9 Then
a5(1) = 58
a5(2) = 59
a5(3) = 64
a5(4) = 65
a5(5) = 70
ruota(1) = 3
ruota(2) = 6
ok = 1
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) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(c) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
Scrivi DataEstrazione(es) & " Terno in figura sulla NZ " & a & " - " & b & " - " & c,1
Scrivi String(110,"°"),1
ColoreTesto 0
ImpostaGiocata 1,a5,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Ciao,
sinceramente non avevo notato il BUG e tu lo hai scovato e risolto.
ti ringrazio,ho inserito il codice per resettare le condizioni che tu hai inserito
in modo che chi legge,lo fa in modo corretto
Ultima modifica:
BaffoBlù
Advanced Member >PLATINUM<
LA SCALINATA...
Una condizione piuttosto originale e alquanto bizzarra che si espone
a tanti tipi di soluzione...
Una condizione piuttosto originale e alquanto bizzarra che si espone
a tanti tipi di soluzione...
Codice:
Option Explicit
Sub Main()
Dim Ini,fin,es,r,a,b,c,d,e,f,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
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
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
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,1,,1
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 SubMarco-elle
Advanced Member >PLATINUM PLUS<
Una bella sega mentale che fruzzica(funziona) da molti anni.
Poi quel fisso 108 è la cigliegina sulla torta!...che presumo equivalga
alla somma dei cicli (108:18=6)
BaffoBlù
Advanced Member >PLATINUM<
Marco, quel 108 non è un fisso qualunque...
Vai nel mio 3D "Nel Blù dipinto dii Blù", vi troverai fra gli ultimi video il "108".
é un numero "Universale". Un numero "Cosmico".
Nel lotto, si traduce in " Una Figata assurda", se sblocchi il meccanismo giusto...
Marco-elle
Advanced Member >PLATINUM PLUS<
Ecco grazie....poi vado a curiosare
Marco-elle
Advanced Member >PLATINUM PLUS<
Non è un listato ma....un rotolo di carta igienica!
Ma è sempre simpatico leggere certi risultati,
La spia 90 della NZ
Buona lettura....
Ma è sempre simpatico leggere certi risultati,
La spia 90 della NZ
Buona lettura....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "SPIA 90 SULLA NZ"
Scrivi "GIOCA PREVISIONE ALGORITMICA SU BARI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(3)
Dim ruota(10)
Dim n(4)
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 x = 1 To 4
n(x) = 0
Next
For r1 = 12 To 12
For p1 = 1 To 5
a = Estratto(es,r1,p1)
ok = 0
If Mese(es) = 1 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 1)
n(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,6,4) + 8)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,10,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 1 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,3) + 1)
n(2) = Fuori90(Estratto(es,1,2) + Estratto(es,10,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 1 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,3) + 1)
n(2) = Fuori90(Estratto(es,3,1) + Estratto(es,3,5) + 9)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 1 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,3,3) + 1)
n(2) = Fuori90(Estratto(es,3,4) + Estratto(es,4,2) + 9)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 1 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 2 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n(2) = Fuori90(Estratto(es,2,4) + Estratto(es,6,1) + 7)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 2 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
n(2) = Fuori90(Estratto(es,7,3) + Estratto(es,10,5) + 13)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 2 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,3) + 1)
n(2) = Fuori90(Estratto(es,2,1) + Estratto(es,4,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 2 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,1) + 1)
n(2) = Fuori90(Estratto(es,8,3) + Estratto(es,10,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 2 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,1,3) + Estratto(es,10,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 3 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
n(2) = Fuori90(Estratto(es,4,1) + Estratto(es,12,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 3 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
n(2) = Fuori90(Estratto(es,1,3) + Estratto(es,10,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 3 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,5,4) + 1)
n(2) = Fuori90(Estratto(es,5,4) + Estratto(es,9,3) + 3)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 3 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,3,2) + Estratto(es,6,4) + 9)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 3 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,1) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 13)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 4 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
n(2) = Fuori90(Estratto(es,6,3) + Estratto(es,8,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 4 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,3) + 1)
n(2) = Fuori90(Estratto(es,2,5) + Estratto(es,12,3) + 6)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 4 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n(2) = Fuori90(Estratto(es,5,2) + Estratto(es,7,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 4 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,8,1) + Estratto(es,8,3) + 13)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 4 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,2) + 1)
n(2) = Fuori90(Estratto(es,7,5) + Estratto(es,9,1) + 4)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 5 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,2) + 1)
n(2) = Fuori90(Estratto(es,2,5) + Estratto(es,4,5) + 2)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 5 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,2) + 1)
n(2) = Fuori90(Estratto(es,2,2) + Estratto(es,10,5) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 5 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,2) + 1)
n(2) = Fuori90(Estratto(es,7,4) + Estratto(es,10,2) + 16)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 5 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,8,4) + 1)
n(2) = Fuori90(Estratto(es,2,1) + Estratto(es,3,5) + 3)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 6 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,5,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 6 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,1,2) + Estratto(es,5,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 6 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,6,5) + 1)
n(2) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,4,5) + 15)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 6 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,2,2) + 1)
n(2) = Fuori90(Estratto(es,3,4) + Estratto(es,4,3) + 3)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,4,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 6 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n(2) = Fuori90(Estratto(es,4,2) + Estratto(es,9,4) + 2)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 7 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,3) + 1)
n(2) = Fuori90(Estratto(es,2,1) + Estratto(es,2,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 7 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,5,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 7 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
n(2) = Fuori90(Estratto(es,5,5) + Estratto(es,8,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 7 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,1) + 1)
n(2) = Fuori90(Estratto(es,2,4) + Estratto(es,9,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 7 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,2) + 1)
n(2) = Fuori90(90 +(Estratto(es,10,5)) - Estratto(es,9,4) + 42)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 8 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 8 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,1) + 1)
n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,3,5) + 11)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 8 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,2) + 1)
n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,2,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 8 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,5) + 1)
n(2) = Fuori90(90 +(Estratto(es,2,5)) - Estratto(es,4,1) + 15)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 8 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 9 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,5,5) + Estratto(es,7,3) + 26)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,3,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 9 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,2,2) * Estratto(es,4,5) + 75)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 9 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,4) + 1)
n(2) = Fuori90(Estratto(es,1,2) + Estratto(es,3,3) + 2)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 9 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 1)
n(2) = Fuori90(Estratto(es,3,5) + Estratto(es,5,5) + 5)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 9 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,4,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 10 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
n(2) = Fuori90(Estratto(es,1,2) + Estratto(es,6,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 10 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,2,1) + Estratto(es,4,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 10 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,3) + 1)
n(2) = Fuori90(Estratto(es,3,2) + Estratto(es,5,4) + 15)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,2,3) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 10 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 1)
n(2) = Fuori90(Estratto(es,2,4) + Estratto(es,12,2) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 10 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n(2) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 11 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 11 Then
If a = 90 And p1 = 3 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
n(2) = Fuori90(Estratto(es,1,3) + Estratto(es,8,1) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 11 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,4,1) + Estratto(es,10,2) + 81)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 11 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,2,1) + Estratto(es,6,1) + 28)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 12 Then
If a = 90 And p1 = 1 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
n(2) = Fuori90(Estratto(es,2,3) + Estratto(es,7,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 12 Then
If a = 90 And p1 = 2 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
n(2) = Fuori90(90 +(Estratto(es,7,4)) - Estratto(es,6,2) + 48)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,4,5) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 12 Then
If a = 90 And p1 = 4 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,6,3) + 1)
n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,10,4) + 8)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If Mese(es) = 12 Then
If a = 90 And p1 = 5 Then
n(1) = Fuori90(Estratto(es,1,2) + Estratto(es,5,3) + 1)
n(2) = Fuori90(Estratto(es,4,4) + Estratto(es,10,3) + 5)
n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 1)
ruota(1) = 1
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi String(80,"*"),1
ColoreTesto 0
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 15 giugno 2024Bari8958653909Cagliari3942793028Firenze4061783454Genova2280704069Milano4731287253Napoli3350632757Palermo3487082563Roma5328360190Torino3315618013Venezia2379038536Nazionale0455675619Estrazione Simbolotto
Napoli
3726201138
