adispo2000
Super Member >PLATINUM<
Ciao salvo ma ci sei ancora?
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Chi riesce a creare script e sintetizzare i metodi di.......
- Creatore Discussione adispo2000
- Data di inizio
adispo2000
Super Member >PLATINUM<
Ciao salvo, scusa se ti ho lasciato in asso ma per motivi X ho dovuto abbandonare per un po', dimmi salvo tu sei capace tramite script leggere un file archivio exel e rilevare delle percentuali di uscita in base a delle quote?
dario25
Advanced Member
salvo50;n2083516 ha scritto:
CIao a tutti, per salvo50 o qualche esperto di scrip e possibile avere uno scipt come questo solo che invece di trovare ambi in figura deve trovare 2 ambi uguali,con la stessa procedura di calcolo, spero che qualche anima buona mi aiuta.
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
dario25;n2092124 ha scritto:
Ciao e Buone Feste
Dovrebbe essere così
Codice:
'Progetto - chiesto da Dario25 -
'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 ",,200))
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 e1 = e3 And e2 = e4 Or e1 = e4 And e2 = e3 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
If c2 = 0 And c4 = 0 Then f4 = 0
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 Space(19) & " 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 Subdario25
Advanced Member
Cioa salvo50 prima di tutto ti ringrazio di avermi risposto e tanti auguri, va benissimo solo che o notato una anomalia tipo questa dovrebbe essere 1 5 6 no 1 5 60 grazie ancora e buon natale
Estrazione n.9409 del 16.12.2017 Ca 01.34.05.61.72 Numeri scelti 01 05
Seconda Ruota To 05.68.01.41.66 Numeri scelti 05 01
10 50
50 10
-----
60 60
Estrazione generatrice del pronostico 09409 [150 - 16/12/2017]
G 0001 Numeri in gioco : 01.05.60 su TT per Ambo,Terno
N. [01.05.60 ] [TT] [ ][.. .. .. .. ..] C. 1 09410 [151 - 19/12/2017]
N. [01.05.60 ] [TT] [CA][.. .. .. .. 05] C. 2 Estratto 09411 [152 - 21/12/2017]
V N. [01.05.60 ] [TT] [TO][01 05 .. .. ..] C. 3 Ambo 09412 [153 - 23/12/2017]
Estrazione n.9409 del 16.12.2017 Ca 01.34.05.61.72 Numeri scelti 01 05
Seconda Ruota To 05.68.01.41.66 Numeri scelti 05 01
10 50
50 10
-----
60 60
Estrazione generatrice del pronostico 09409 [150 - 16/12/2017]
G 0001 Numeri in gioco : 01.05.60 su TT per Ambo,Terno
N. [01.05.60 ] [TT] [ ][.. .. .. .. ..] C. 1 09410 [151 - 19/12/2017]
N. [01.05.60 ] [TT] [CA][.. .. .. .. 05] C. 2 Estratto 09411 [152 - 21/12/2017]
V N. [01.05.60 ] [TT] [TO][01 05 .. .. ..] C. 3 Ambo 09412 [153 - 23/12/2017]
salvo50
Advanced Member >PLATINUM PLUS<
dario25;n2092842 ha scritto:
Ciao Dario25, non è un errore, evidentemente non hai letto tutti i post, a pagina 12 trovi la risposta, a pagina 1, Adispo2000 indica un link dove c'è spiegato il metodo, ed è così come l'ho impostato io, vai a vedere il filmato, se poi lo vuoi diverso, lo faccio diverso, per me è più facile, nel filmato i numeretti li mette sotto le decine ed è quello che ho fatto io. Se non vai a vedere il filmato, guarda pure a pagina 40.
Ultima modifica:
dario25
Advanced Member
ciao salvo50, potrebbe andare bene anche cosi,devo solo stare attenzione che quando da quelle combinazioni devo giocare il 6 no il 60, magari se puoi aggiungere sotto distibuzione esiti indicare le ruote che sono usciti gli ambi , e i colpi di gioco per capire un po le ruote piu forti da puntare.
grazie.
il video di sopra lo avevo visto, solo che questo io lo sempre calcolato cosi tutto a mano e o sempre calcolato che se esce 1 5 totale e 6 non mi deve dare il 60 , comunque con calma se ai tempo lo vuoi fare laltro giusto per vedere se ce differenza .
anche perche in gioco vengono messi i 2 numeri dell'ambo che trova e la somma allora se mi esce l'ambo 1 5 la somma e 6 non posso metere in gioco 60 .
grazie salvo50
grazie.
il video di sopra lo avevo visto, solo che questo io lo sempre calcolato cosi tutto a mano e o sempre calcolato che se esce 1 5 totale e 6 non mi deve dare il 60 , comunque con calma se ai tempo lo vuoi fare laltro giusto per vedere se ce differenza .
anche perche in gioco vengono messi i 2 numeri dell'ambo che trova e la somma allora se mi esce l'ambo 1 5 la somma e 6 non posso metere in gioco 60 .
grazie salvo50
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Nel caso che vengono 2 numeretti hai ragione, il risultato deve essere un numeretto, ho completamente tolto il modo di mettere i numeretti sotto le decine, quindi calcolo decine con decine e cadenze con cadenze, poi le ruote dove escono gli ambi sono già evidenziate, c'è la sigla di tutte ed affianco c'è la ruota dove sono usciti
Codice:
'Progetto - chiesto da Dario25 -
'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 ",,200))
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 e1 = e3 And e2 = e4 Or e1 = e4 And e2 = e3 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)
f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
f1 = Figura(f1)
f2 = Figura(f2)
If c1 = 0 And c3 = 0 Then f2 = 0
f3 = Figura(f3)
f4 = Figura(f4)
If c2 = 0 And c4 = 0 Then f4 = 0
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)),1,0
Scrivi " " & SiglaRuota(r1),1,0
Scrivi " " & StringaEstratti(es,r1),1,0
Scrivi " Numeri scelti " & Format2(estr1) & " " & Format2(estr2)
Scrivi Space(19) & " Seconda Ruota ",1,0
Scrivi SiglaRuota(r2),1,0
Scrivi " " & StringaEstratti(es,r2),1,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 Sub
Ultima modifica:
dario25
Advanced Member
ok salvo50 ora va meglio, o notato unaltro particolare
Estrazione n.9379 del 07.10.2017 CA 65.20.02.82.72 Numeri scelti 20 72
Seconda Ruota RO 20.72.56.04.52 Numeri scelti 20 72
20 72
20 72
-----
49 54
come vedi 0 +0 dovrebbe dare 0 no 9 il risultato deve essere 40 no 49 infatti quella estrazione
mi da esito negativo ma se io metto 40 anzi che 49 diventa positivo se si puo correggere buono altrimenti va bene lo stesso lo corrego io a mano,
grazie di cuore.
per quando riguarda gli esiti sulle ruote che esce l'ambo, o visto che esce vicino l'ambo che e uscito mi da la ruota , ma io intendevo sotto distibuzione esiti indicare le ruote che sono usciti gli ambi
da poter vedere quante volte e usito bari ecc..... avendo gia un riepilogo quante volte uscito bari a torino ecc...saprei gia le ruote piu forti da puntare se si puo fare, altrimenti va bene tutto come
grazie ancora e scusami il tempo che ti sto facendo perdere.
Estrazione n.9379 del 07.10.2017 CA 65.20.02.82.72 Numeri scelti 20 72
Seconda Ruota RO 20.72.56.04.52 Numeri scelti 20 72
20 72
20 72
-----
49 54
come vedi 0 +0 dovrebbe dare 0 no 9 il risultato deve essere 40 no 49 infatti quella estrazione
mi da esito negativo ma se io metto 40 anzi che 49 diventa positivo se si puo correggere buono altrimenti va bene lo stesso lo corrego io a mano,
grazie di cuore.
per quando riguarda gli esiti sulle ruote che esce l'ambo, o visto che esce vicino l'ambo che e uscito mi da la ruota , ma io intendevo sotto distibuzione esiti indicare le ruote che sono usciti gli ambi
da poter vedere quante volte e usito bari ecc..... avendo gia un riepilogo quante volte uscito bari a torino ecc...saprei gia le ruote piu forti da puntare se si puo fare, altrimenti va bene tutto come
grazie ancora e scusami il tempo che ti sto facendo perdere.
salvo50
Advanced Member >PLATINUM PLUS<
Le somme sono fatte con le figure, e la figura 0 non esiste, comunque ho fatto in modo che quando i 2 numeri da sommare hanno cadenza 0, non calcola la figura ma la cadenza, quindi ho corretto l'ultimo script,
per quanto riguarda questo
ma io intendevo sotto distibuzione esiti indicare le ruote che sono usciti gli ambi
da poter vedere quante volte e usito bari ecc..... avendo gia un riepilogo quante volte uscito bari a torino ecc...
sinceramente non riesco a capire cosa intendi, se puoi fare degli esempi.
per quanto riguarda questo
ma io intendevo sotto distibuzione esiti indicare le ruote che sono usciti gli ambi
da poter vedere quante volte e usito bari ecc..... avendo gia un riepilogo quante volte uscito bari a torino ecc...
sinceramente non riesco a capire cosa intendi, se puoi fare degli esempi.
dario25
Advanced Member
+----------------------------------+
| DISTRIBUZIONE ESITI |
+------------------------------------
| RT | Est | Amb | Ter | Qua | Cin |
|+----------------------------------+
| BA | | | | | |
| CA | | | | |
| FI | | | | |
| GE | | | | | |
| MI | | | | | |
| NA | | | | | |
| PA |
| TO | | | | | |
| VE | | | | | |
| NZ | | | | | |
| TT | | 172| 5| |
| DISTRIBUZIONE ESITI |
+------------------------------------
| RT | Est | Amb | Ter | Qua | Cin |
|+----------------------------------+
| BA | | | | | |
| CA | | | | |
| FI | | | | |
| GE | | | | | |
| MI | | | | | |
| NA | | | | | |
| PA |
| TO | | | | | |
| VE | | | | | |
| NZ | | | | | |
| TT | | 172| 5| |
salvo50
Advanced Member >PLATINUM PLUS<
Dato che è un pochino diverso dall'altro ne posto un altro
Codice:
'Progetto N2 - chiesto da Dario25 -
'Script - by Salvo50
Option Explicit
Sub Main
Dim R1,R2,p1,p2,es,estr1,estr2,estr3,estr4,p3,p4
Dim fin,Ini,caso,casi,clp,esq,somma1,somma2,idestr,col,esqcol
Dim Ru(11),posta(4),num(6)
Dim 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 ",,200))
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 e1 = e3 And e2 = e4 Or e1 = e4 And e2 = e3 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)
f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
f1 = Figura(f1)
f2 = Figura(f2)
If c1 = 0 And c3 = 0 Then f2 = 0
f3 = Figura(f3)
f4 = Figura(f4)
If c2 = 0 And c4 = 0 Then f4 = 0
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)),1,0
Scrivi " " & SiglaRuota(R1),1,0
Scrivi " " & StringaEstratti(es,R1),1,0
Scrivi " Numeri scelti " & Format2(estr1) & " " & Format2(estr2)
Scrivi Space(19) & " Seconda Ruota ",1,0
Scrivi SiglaRuota(R2),1,0
Scrivi " " & StringaEstratti(es,R2),1,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) = BA_
Ru(2) = CA_
Ru(3) = FI_
Ru(4) = GE_
Ru(5) = MI_
Ru(6) = NA_
Ru(7) = PA_
Ru(8) = RO_
Ru(9) = TO_
Ru(10) = VE_
Ru(11) = NZ_
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:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 gennaio 2025Bari1087772360Cagliari7533602415Firenze4534664117Genova0565155386Milano2084747601Napoli9029385268Palermo3336022068Roma6812590774Torino0322299028Venezia8124351803Nazionale0631358974Estrazione Simbolotto
Bari
1424171308
