adispo2000
Super Member >PLATINUM<
cliccate sul link....i metodi sono piu' di uno chi capisce ...puo' relizzare
https://www.youtube.com/watch?v=ry6P4wmduH4
https://www.youtube.com/watch?v=ry6P4wmduH4
Chi riesce a creare script e sintetizzare i metodi di.......
- Creatore Discussione adispo2000
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Sono 6 numeri per tutte le ruote, se l'ambo non esce al primo colpo la perdita è sicura, e come si vede dal filmato non esce al primo colpo, l'ambo su 6 numeri per tutte le ruote è pagato 1,5 volte la posta (ho già tolto 8% di tassa), si potrebbe avere un guadagno con le sorti superiori, terno, quaterna e cinquina
anche qui ho già tolto 8% di tassa
comunque proverò a fare lo script
Sono 6 numeri per tutte le ruote, se l'ambo non esce al primo colpo la perdita è sicura, e come si vede dal filmato non esce al primo colpo, l'ambo su 6 numeri per tutte le ruote è pagato 1,5 volte la posta (ho già tolto 8% di tassa), si potrebbe avere un guadagno con le sorti superiori, terno, quaterna e cinquina
terno su tutte le ruote con 6 numeri è pagato 20,7 volte la posta |
| quaterna su tutte le ruote con 6 numeri è pagata 736 volte la posta |
| cinquina su tutte le ruote con 6 numeri è pagata 92000 volte la posta |
comunque proverò a fare lo script
Ultima modifica:
fillotto
Advanced Member >PLATINUM<
Giusto quello che dice Salvo, del resto anche in spaziometria puoi trovare "le figure filotto" a iosa che ricavano sempre 6 (alcune volte 5) numeri se si giocano x tutte le ruote troviamo ambi terni ecc nella stessa quantità previste dai metodi di youtube, niente di nuovo ......
adispo2000
Super Member >PLATINUM<
GRAZIE SALVO....
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Adispo2000, di niente, ti posto lo script, ci molti ambi e terni, però la resa è perdente
Codice:
'Progetto - chiesto da Adispo2000 -
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,p2,es,r2,estr1,estr2,estr3,estr4,p3,p4
Dim fin,Ini,caso,casi,clp,esq,somma1,somma2,idestr,col,esqcol
Dim ru(1),posta(4),num(6)
Dim Sove1,Sove2,d1,d2,d3,d4,c1,c2,c3,c4,e1,e2,e3,e4,f1,f2,f3,f4
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9350)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,10)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,100))
posta(2) = 1
'posta(3) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
caso = 0
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estr3 = Estratto(es,r2,p3)
estr4 = Estratto(es,r2,p4)
e1 = estr1 : e2 = estr2 : e3 = estr3 : e4 = estr4
If Figura(e1) = Figura(e2)And Figura(e1) = Figura(e3) And Figura(e1) = Figura(e4) Then
d1 = Decina(e1) : d2 = Decina(e2) : d3 = Decina(e3) : d4 = Decina(e4)
c1 = Cadenza(e1) : c2 = Cadenza(e2) : c3 = Cadenza(e3) : c4 = Cadenza(e4)
If(d1) = 0 Then
d1 = c1 : c1 = 0
End If
If(d2) = 0 Then
d2 = c2 : c2 = 0
End If
If(d3) = 0 Then
d3 = c3 : c3 = 0
End If
If(d4) = 0 Then
d4 = c4 : c4 = 0
End If
e1 = d1 & c1 : e2 = d2 & c2 : e3 = d3 & c3 : e4 = d4 & c4
f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
f1 = Figura(f1) : f2 = Figura(f2) : f3 = Figura(f3) : f4 = Figura(f4)
If c1 = 0 And c3 = 0 Then f2 = 0 'End If
If c2 = 0 And c4 = 0 Then f4 = 0 'End If
somma1 = f1 & f2
somma2 = f3 & f4
somma1 = Fuori90 (somma1)
somma2 = Fuori90 (somma2)
Scrivi
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
Scrivi
Scrivi Space(30) & Format2(e1) & " " & Format2(e2)
Scrivi Space(30) & Format2(e3) & " " & Format2(e4)
Scrivi Space(30) & String(5,"-")
Scrivi Space(30) & Format2(somma1) & " " & Format2(somma2)
Scrivi
ru(1) = TU_
num(1) = estr1
num(2) = estr2
num(3) = estr3
num(4) = estr4
num(5) = somma1
num(6) = somma2
EliminaRipetuti num
ImpostaGiocata 1,num,ru,posta,clp
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Ultima modifica:
adispo2000
Super Member >PLATINUM<
scusa salvo...ma il file e solo per verifica....non per creazioni prono?
salvo50
Advanced Member >PLATINUM PLUS<
adispo2000;n2083450 ha scritto:
Io nello script ho messo la ricerca in una data qualunque, ma se vuoi usarla come pronostico futuro, quando ti fa la prima domanda
metti 9300
alla terza domanda
metti 100
e come risultato negli ultimi pronostici avrai quelli futuri che ancora non sono usciti
adispo2000
Super Member >PLATINUM<
scusa salvo ma qua forse c'e' un errore e possibile?
il numero 01 non c'e' praticamente mi sono accorto che i numeri in con cadenza 0 li legge al contrario esempio 80 legge 08...forse
Estrazione n.9351 del 03.08.2017 Fi 73.29.49.64.27 Seconda Ruota Na 76.01.46.41.18 73 64 10 46 ----- 83 11 Estrazione generatrice del pronostico 09351 [ 92 - 03/08/2017] G 0001 Numeri in gioco : 01.11.46.64.73.83 su TT per Ambo V N. [01.11.46.64.73.83 ] [TT] [CA][.. .. 11 .. 73] C. 1 Ambo 09352 [ 93 - 05/08/2017] V N. [01.11.46.64.73.83 ] [TT] [TO][46 01 83 .. ..] C. 2 Terno 09353 [ 94 - 08/08/2017] N. [01.11.46.64.73.83 ] [TT] [BA][.. 73 .. .. ..] C. 3 Estratto 09354 [ 95 - 10/08/2017]
il numero 01 non c'e' praticamente mi sono accorto che i numeri in con cadenza 0 li legge al contrario esempio 80 legge 08...forse
Estrazione n.9351 del 03.08.2017 Fi 73.29.49.64.27 Seconda Ruota Na 76.01.46.41.18 73 64 10 46 ----- 83 11 Estrazione generatrice del pronostico 09351 [ 92 - 03/08/2017] G 0001 Numeri in gioco : 01.11.46.64.73.83 su TT per Ambo V N. [01.11.46.64.73.83 ] [TT] [CA][.. .. 11 .. 73] C. 1 Ambo 09352 [ 93 - 05/08/2017] V N. [01.11.46.64.73.83 ] [TT] [TO][46 01 83 .. ..] C. 2 Terno 09353 [ 94 - 08/08/2017] N. [01.11.46.64.73.83 ] [TT] [BA][.. 73 .. .. ..] C. 3 Estratto 09354 [ 95 - 10/08/2017]
Ultima modifica:
adispo2000
Super Member >PLATINUM<
scusa salvo ma qua forse c'e' un errore e possibile?
il numero 01 non c'e' praticamente mi sono accorto che i numeri in con cadenza 0 li legge al contrario esempio 80 legge 08...forse
Estrazione n.9351 del 03.08.2017 Fi 73.29.49.64.27 Seconda Ruota Na 76.01.46.41.18 73 64 10 46 ----- 83 11Estrazione generatrice del pronostico 09351 [ 92 - 03/08/2017] G 0001 Numeri in gioco : 01.11.46.64.73.83 su TT per Ambo V N. [01.11.46.64.73.83 ] [TT] [CA][.. .. 11 .. 73] C. 1 Ambo 09352 [ 93 - 05/08/2017] V N. [01.11.46.64.73.83 ] [TT] [TO][46 01 83 .. ..] C. 2 Terno 09353 [ 94 - 08/08/2017] N. [01.11.46.64.73.83 ] [TT] [BA][.. 73 .. .. ..] C. 3 Estratto 09354 [ 95 - 10/08/2017]
il numero 01 non c'e' praticamente mi sono accorto che i numeri in con cadenza 0 li legge al contrario esempio 80 legge 08...forse
Estrazione n.9351 del 03.08.2017 Fi 73.29.49.64.27 Seconda Ruota Na 76.01.46.41.18 73 64 10 46 ----- 83 11Estrazione generatrice del pronostico 09351 [ 92 - 03/08/2017] G 0001 Numeri in gioco : 01.11.46.64.73.83 su TT per Ambo V N. [01.11.46.64.73.83 ] [TT] [CA][.. .. 11 .. 73] C. 1 Ambo 09352 [ 93 - 05/08/2017] V N. [01.11.46.64.73.83 ] [TT] [TO][46 01 83 .. ..] C. 2 Terno 09353 [ 94 - 08/08/2017] N. [01.11.46.64.73.83 ] [TT] [BA][.. 73 .. .. ..] C. 3 Estratto 09354 [ 95 - 10/08/2017]
adispo2000
Super Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao
Non sono errori, adesso la domanda nasce spontanea, ma tu il filmato l'hai visto? Sicuramente no, altrimenti non diresti così, se guardi il filmato quel signore che spiega il metodo, i numeretti quando li incolonna li somma sotto le decine, quindi io come faccio a mettere un numero che normalmente dovrebbe essere incolonnato sotto le unità, ma il metodo me li somma con le decine, allora io il numeretto ad esempio 6, lo faccio diventare 60, per poter sommare le decine col numeretto, ma dopo che l'ho sommato, nel pronostico non metto il 60 ma il 6, come si vede da filmato, nuturalmente nel filmato il 6 non lo fa diventare 60 perchè lo fa con carta è penna, ma io per farlo capire allo script gli metto uno zero nelle unità (che non conta niente) è sommo il numeretto con le decine, ti dirò di più per poter fare questa cosa ho dovuto scervellarmi perchè non sapevo come fare.
Vediamo l'esempio che hai fatto
BA 82 58 10 76 26 ........lo script di questi 5 numeri ha preso 82 e 10
NA 76 01 46 41 18 ........lo script di questi 5 numeri ha preso 01 e 46
Sono tutti e quattro stessa cadenza come chiede il metodo
quel 01, come lo spiega quel signore nel filmato devo sommarlo con le decine, allora io lo sposto sotto le decine, ma per fare questo devo mettere qualcosa al posto delle unità (metto uno zero che per come fa le somme il sistema non conta niente), però poi è il numeretto che devo mettere nel pronostico, io avrei potuto lasciarlo come numeretto e sommarlo con le decine ma poi la somma sarebbe venuta così
82 10
01 42
-------
02 52
e naturalmente sarebbe stata sbagliata perchè da come sono incolonnati la somma dobrebbe essere così
83 52
Forse se io fossi più esperto avrei potuto anchè non farlo apparire quello zero inutile, comunque io lo pensata così perchè ho detto Adispo2000 il filmato l'ha visto quindi lo sà che è così
forse questo equivoco non ci sarebbe stato se io avessi fatto apparire in rosso i numeri scelti dallo script, ma non lo so fare, nonostante gli innumerevoli esempi fatti da Joe e LuigiB.
Non sono errori, adesso la domanda nasce spontanea, ma tu il filmato l'hai visto? Sicuramente no, altrimenti non diresti così, se guardi il filmato quel signore che spiega il metodo, i numeretti quando li incolonna li somma sotto le decine, quindi io come faccio a mettere un numero che normalmente dovrebbe essere incolonnato sotto le unità, ma il metodo me li somma con le decine, allora io il numeretto ad esempio 6, lo faccio diventare 60, per poter sommare le decine col numeretto, ma dopo che l'ho sommato, nel pronostico non metto il 60 ma il 6, come si vede da filmato, nuturalmente nel filmato il 6 non lo fa diventare 60 perchè lo fa con carta è penna, ma io per farlo capire allo script gli metto uno zero nelle unità (che non conta niente) è sommo il numeretto con le decine, ti dirò di più per poter fare questa cosa ho dovuto scervellarmi perchè non sapevo come fare.
Vediamo l'esempio che hai fatto
BA 82 58 10 76 26 ........lo script di questi 5 numeri ha preso 82 e 10
NA 76 01 46 41 18 ........lo script di questi 5 numeri ha preso 01 e 46
Sono tutti e quattro stessa cadenza come chiede il metodo
quel 01, come lo spiega quel signore nel filmato devo sommarlo con le decine, allora io lo sposto sotto le decine, ma per fare questo devo mettere qualcosa al posto delle unità (metto uno zero che per come fa le somme il sistema non conta niente), però poi è il numeretto che devo mettere nel pronostico, io avrei potuto lasciarlo come numeretto e sommarlo con le decine ma poi la somma sarebbe venuta così
82 10
01 42
-------
02 52
e naturalmente sarebbe stata sbagliata perchè da come sono incolonnati la somma dobrebbe essere così
83 52
Forse se io fossi più esperto avrei potuto anchè non farlo apparire quello zero inutile, comunque io lo pensata così perchè ho detto Adispo2000 il filmato l'ha visto quindi lo sà che è così
forse questo equivoco non ci sarebbe stato se io avessi fatto apparire in rosso i numeri scelti dallo script, ma non lo so fare, nonostante gli innumerevoli esempi fatti da Joe e LuigiB.
salvo50
Advanced Member >PLATINUM PLUS<
Ho modificato lo script a fianco delle estrazioni ho messo i numeri scelti
Codice:
'Progetto - chiesto da Adispo2000 -
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,p2,es,r2,estr1,estr2,estr3,estr4,p3,p4
Dim fin,Ini,caso,casi,clp,esq,somma1,somma2,idestr,col,esqcol
Dim ru(1),posta(4),num(6)
Dim Sove1,Sove2,d1,d2,d3,d4,c1,c2,c3,c4,e1,e2,e3,e4,f1,f2,f3,f4
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,10)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,100))
posta(2) = 1
posta(3) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
caso = 0
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estr3 = Estratto(es,r2,p3)
estr4 = Estratto(es,r2,p4)
e1 = estr1 : e2 = estr2 : e3 = estr3 : e4 = estr4
If Figura(e1) = Figura(e2)And Figura(e1) = Figura(e3) And Figura(e1) = Figura(e4) Then
d1 = Decina(e1) : d2 = Decina(e2) : d3 = Decina(e3) : d4 = Decina(e4)
c1 = Cadenza(e1) : c2 = Cadenza(e2) : c3 = Cadenza(e3) : c4 = Cadenza(e4)
If(d1) = 0 Then
d1 = c1 : c1 = 0
End If
If(d2) = 0 Then
d2 = c2 : c2 = 0
End If
If(d3) = 0 Then
d3 = c3 : c3 = 0
End If
If(d4) = 0 Then
d4 = c4 : c4 = 0
End If
e1 = d1 & c1 : e2 = d2 & c2 : e3 = d3 & c3 : e4 = d4 & c4
f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
f1 = Figura(f1) : f2 = Figura(f2) : f3 = Figura(f3) : f4 = Figura(f4)
If c1 = 0 And c3 = 0 Then f2 = 0 'End If
If c2 = 0 And c4 = 0 Then f4 = 0 'End If
somma1 = f1 & f2
somma2 = f3 & f4
somma1 = Fuori90(somma1)
somma2 = Fuori90(somma2)
Scrivi
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
Scrivi " Numeri scelti " & Format2 (estr1) &" "& Format2 (estr2)
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),0,0
Scrivi " Numeri scelti " & Format2 (estr3) &" "& Format2 (estr4)
Scrivi
Scrivi Space(30) & Format2(e1) & " " & Format2(e2)
Scrivi Space(30) & Format2(e3) & " " & Format2(e4)
Scrivi Space(30) & String(5,"-")
Scrivi Space(30) & Format2(somma1) & " " & Format2(somma2)
Scrivi
ru(1) = TU_
num(1) = estr1
num(2) = estr2
num(3) = estr3
num(4) = estr4
num(5) = somma1
num(6) = somma2
EliminaRipetuti num
ImpostaGiocata 1,num,ru,posta,clp
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Subadispo2000
Super Member >PLATINUM<
SCUSA SALVO AVEVO CONFUSO I NUMERI SELEZIONATI CON LE ESTRAZIONI PER ORA HO LA MENTE CONFUSA..E SEMPRE UN GRAZIE
HA DIMENTICAVO SEMPRE SE NON DISTURBO MA SI PUOì APLICCARE ANCHE AL 10ELOTTO5M PRENDENDO IN CONSIDERAZIONE LE ULTIME 2 ESTRAZIONI ?
CIAO
HA DIMENTICAVO SEMPRE SE NON DISTURBO MA SI PUOì APLICCARE ANCHE AL 10ELOTTO5M PRENDENDO IN CONSIDERAZIONE LE ULTIME 2 ESTRAZIONI ?
CIAO
salvo50
Advanced Member >PLATINUM PLUS<
Dato che vi ostinate a non andare a vedere il filmato vi posto il primo esempio fatto dal signor Leone
GE 42 06
NA 06 15
I due numeri risultato della somma fatta dal signor Leone sono, 12 e 75 perche ha fatto così
GE 42 6
NA 6.. 15
------------
.....12 75
Scusami Adispo non avevo visto il tuo post
GE 42 06
NA 06 15
I due numeri risultato della somma fatta dal signor Leone sono, 12 e 75 perche ha fatto così
GE 42 6
NA 6.. 15
------------
.....12 75
Scusami Adispo non avevo visto il tuo post
Ultima modifica:
stupl
Super member
salvo50;n2083517 ha scritto:
Scusami ma avevo seguito l'errore segnalato da adispo2000, ora che ho visto il video fino al metodo usato, ho notato che la somma che fa è figurale, eliminino lo script che ho postato per non far confondere chi è interessato a questo metodo.
Visto che mi trovo, vedo che sei bravo negli script potresti per favore dare un'occhiata al secondo metodo che ho postato in area download, il primo me l'ha già fatto magia ma e sto aspettando qualcuno che mi faccia il secondo.
Grazie
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 19 aprile 2024Bari3905818973Cagliari5621019003Firenze0556682709Genova4250902783Milano1671298504Napoli2919236350Palermo3554335761Roma1729435574Torino6960030126Venezia0557594334Nazionale3043646521Estrazione Simbolotto
Genova
0220251219
