Script 1°+2°+3°= A

[Paki144]

Per chi potrà uno Script
in una estrazione in una ruota
sommare 5 estratti in questo modo
1°+2°+3= A con fuori 90
2°+3°+4°=B con fuori 90
3°+4°+5°=C con fuori 90
4°+5°+1°=D con fuori 90
i risultati : A,B,C,D saranno
la previsione sulla ruota delle somme fatte.
per ambo terno e quaterna.
P.s. Se fosse possibile nel script
A=vertibile
B=vertibile
C=vertibile
D=vertibile
Resoconto se è possibile.
Grazie a chi potrà aiutarmi
Ciao

 

[Paki144]

Ciao a tutti a questo bel forum
stasera estrazioni
come prima di una partita di calcio si può pensare ad un campo pesante perchè piove durante l'incontro e si ipotizza un pareggio, oppure la serata è buona e sarà una bella partita dove i pronostici sono più valutati rispetto alla pioggia.
Comunque andrà Buona Serata

 

[*blacklotto*]

Ciao, incomincia con questo script

RESOCONTO :

martedì, ott 20 2020 Nazionale 65 57 24 40 34

somma tra 1° 2° 3° estratto 65 + 57 + 24 = 56 vertibile 65
somma tra 2° 3° 4° estratto 57 + 24 + 40 = 31 vertibile 13
somma tra 3° 4° 5° estratto 24 + 40 + 34 = 8 vertibile 80
somma tra 4° 5° 1° estratto 40 + 34 + 65 = 49 vertibile 44

somme estratti 8-31-49-56 *** vertibili 13-44-65-80
------------------------------------------------------------
giovedì, ott 22 2020 Nazionale 2 43 32 64 84

somma tra 1° 2° 3° estratto 2 + 43 + 32 = 77 vertibile 79
somma tra 2° 3° 4° estratto 43 + 32 + 64 = 49 vertibile 44
somma tra 3° 4° 5° estratto 32 + 64 + 84 = 90 vertibile 9
somma tra 4° 5° 1° estratto 64 + 84 + 2 = 60 vertibile 6

somme estratti 49-60-77-90 *** vertibili 6-9-44-79
------------------------------------------------------------
sabato, ott 24 2020 Nazionale 62 26 9 2 68

somma tra 1° 2° 3° estratto 62 + 26 + 9 = 7 vertibile 70
somma tra 2° 3° 4° estratto 26 + 9 + 2 = 37 vertibile 73
somma tra 3° 4° 5° estratto 9 + 2 + 68 = 79 vertibile 77
somma tra 4° 5° 1° estratto 2 + 68 + 62 = 42 vertibile 24

somme estratti 7-37-42-79 *** vertibili 24-70-73-77
------------------------------------------------------------

Sub Main
Dim nu(12),ru(1),r,Tot(4),v(4)
Ini = 9836
fin = 9838
For es = Ini To fin
r = NZ_
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)
Tot(1) = Fuori90(a + b + c) : Tot(2) = Fuori90(b + c + d)
Tot(3) = Fuori90(c + d + e) : Tot(4) = Fuori90(d + e + a)
v(1) =(Vert(Tot(1))) : v(2) =(Vert(Tot(2)))
v(3) =(Vert(Tot(3))) : v(4) =(Vert(Tot(4)))
ColoreTesto 2
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r),1,0
Scrivi" " & a & " " & b & " " & c & " " & d & " " & e,1
ColoreTesto 0
Scrivi
Scrivi"somma tra 1° 2° 3° estratto " & a & " + " & b & " + " & c & " = " & Tot(1),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(1),1
ColoreTesto 0
Scrivi"somma tra 2° 3° 4° estratto " & b & " + " & c & " + " & d & " = " & Tot(2),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(2),1
ColoreTesto 0
Scrivi"somma tra 3° 4° 5° estratto " & c & " + " & d & " + " & e & " = " & Tot(3),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(3),1
ColoreTesto 0
Scrivi"somma tra 4° 5° 1° estratto " & d & " + " & e & " + " & a & " = " & Tot(4),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(4),1
ColoreTesto 0
Scrivi
EliminaRipetuti Tot
EliminaRipetuti v
Scrivi"somme estratti " & Tot(1) & "-" & Tot(2) & "-" & Tot(3) & "-" & Tot(4),1,0
Scrivi" *** vertibili " & v(1) & "-" & v(2) & "-" & v(3) & "-" & v(4),1
Scrivi "----------------------------------------------------------------------",1
Next
End Sub

 

[Paki144]

Un grande grazie blacklotto.
Buona domenica

 

[Alien.]

è ottimo ci vorrebbe ID estrazioni del mese è PURE RUOTA PER RUOTA MA DIVENTA UN PAPIRO......

 

[Sakti]

Invece della Nazionale, la ricerca numerica e le gicate le farei su Firenze, mi pare molto migliore...

 

[Paki144]

Ciao, blacklotto che mi ha fatto lo script e devo ringraziarlo per il suo tempo e impegno alla mia richiesta, mi ha consigliato di incominciare con il suo script... iniziato sulla ruota nazionale,
comunque grazie Alien e toon per il vostro consiglio e un grazie a blacklotto

 

[Paki144]

è ottimo ci vorrebbe ID estrazioni del mese è PURE RUOTA PER RUOTA MA DIVENTA UN PAPIRO......

Ciao Alien anche ruota per ruota se qualcuno può, con rispetto a blacklotto.

 

[Paki144]

Invece della Nazionale, la ricerca numerica e le gicate le farei su Firenze, mi pare molto migliore...

Ciao toon come ci consigli anche su Firenze se qualcuno può, con rispetto a blacklotto.

 

[Alien.]

Credo che toon abbia fatto elle verifiche su tutte le ruote e la migliore gli risulta FIRENZE.

 

[Paki144]

Ciao Alien grazie a te e a toon che ha fatto delle verifiche, se qualcuno può aiutarci con rispetto a blacklotto ad un ulteriore ricerca ben venga

 

[Paki144]

Ciao Alien e toon se c'è qualcuno che può uno script per ulteriori ricerche magari con delle convergenze per poter tentare una previsione potenziale che possa dare risultati positivi da condividere.

 

[Paki144]

A questo aggiungo
grazie a blacklotto

 

[Paki144]

A tutto questo aggiungo anche un grazie a questo bel forum "Lottoced" che mi ha accolto e ringrazio tutti.

 

[Paki144]

Chiedendo un aiuto al forum ed agli esperti che dedicano il loro tempo nel rispondere per poi dovendo interpretare una richiesta di aiuto a programmare uno script che poi porta a facilitare una nostra ricerca
un Grazie di cuore

 

[Sakti]

Io faccio schifo con gli script, ma partendo da quello di Blacklotto (spero mi perdoni) ho fatto questo, le giocate le ho fatte tutte e 3 su Firenze, non è malaccio neppure Roma, si può migliorare molto, ma io è qui che arrivo, eccolo...

Sub Main
Dim nu(12),ru(12),ruo(12),ruot(12),r,Tot(4),v(4),Pu(5),Pun(5),x(12)
Ini = 9800
fin = 9838
For es = Ini To fin
Pu(2) = 1
Pu(3) = 1
Pun(3) = 1
'Pun(4) = 1
ruo(1) = 11
ruot(1) = 3
r = FI_ 'RO_
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)
Tot(1) = Fuori90(a + b + c) : Tot(2) = Fuori90(b + c + d)
Tot(3) = Fuori90(c + d + e) : Tot(4) = Fuori90(d + e + a)
v(1) =(Vert(Tot(1))) : v(2) =(Vert(Tot(2)))
v(3) =(Vert(Tot(3))) : v(4) =(Vert(Tot(4)))
ColoreTesto 2
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r),1,0
Scrivi" " & a & " " & b & " " & c & " " & d & " " & e,1
ColoreTesto 0
Scrivi
Scrivi"somma tra 1° 2° 3° estratto " & a & " + " & b & " + " & c & " = " & Tot(1),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(1),1
ColoreTesto 0
Scrivi"somma tra 2° 3° 4° estratto " & b & " + " & c & " + " & d & " = " & Tot(2),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(2),1
ColoreTesto 0
Scrivi"somma tra 3° 4° 5° estratto " & c & " + " & d & " + " & e & " = " & Tot(3),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(3),1
ColoreTesto 0
Scrivi"somma tra 4° 5° 1° estratto " & d & " + " & e & " + " & a & " = " & Tot(4),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(4),1
ColoreTesto 0
Scrivi
x(1) = Tot(1)
x(2) = v(1)
x(3) = Tot(2)
x(4) = v(2)
x(5) = Tot(3)
x(6) = v(3)
x(7) = Tot(4)
x(8) = v(4)
EliminaRipetuti x
EliminaRipetuti Tot
EliminaRipetuti v
Scrivi"somme estratti " & Tot(1) & "-" & Tot(2) & "-" & Tot(3) & "-" & Tot(4),1,0
Scrivi" *** vertibili " & v(1) & "-" & v(2) & "-" & v(3) & "-" & v(4),1
Scrivi "----------------------------------------------------------------------",1
ImpostaGiocata 1,Tot,ruot,Pu,10,4
ImpostaGiocata 2,v,ruot,Pu,10,4
ImpostaGiocata 3,x,ruot,Pun,10,4
Gioca es,1
Next
ScriviResoconto
End Sub

 

[Paki144]

Grazie toon del tuo impegno per la ricerca che apprezzo con te e Alien,
con rispetto a blacklotto
(spero nella sua comprensione) grazie

 

[*blacklotto*]

Ciao,
il listato che ho inserito dimostra la mia piccola esperienza,
però se posso fare qualcosa lo faccio, nessun problema se c'è chi porta modifiche, anzi, benissimo !

 

[Paki144]

Ciao blacklotto Grazie