| R E V I S I O N E D E L L A D I S C U S S I O N E |
| Boris |
Posted - 20 settembre 2016 : 15:14:03
Buon pomeriggio,,,è da tempo che non partecipo alle discussioni del forum,ma sono dipesi da impegni che mi hanno lasciato poco tempo libero...... e ora desidero riprendere un po di studi interrotti.......
per questo motivo chiedo a chi è esperto di script...se è in possesso di uno script che mi faccia la differenza degli estratti in verticale......
faccio un esempio
estrazione del 14/04/2016
bari 30-05-48-89-03
cag 21-78-47-33-57
diff. 09-73-01-56-54-
cag 21-78-47-33-57-
fir 45-02-42-46-56-
dif 16-76-05-13-01
e cosi per tutte le altre ruote della estrazione del 14.04.2016
Ho cercato in giro ma non sono riuscito a trovare un lavoro di questo tipo.
Se gentilmente qualcuno ne è in possesso lo può inserire qui ed io lo copio ed incollo.
Sono in possesso di Spaziometria.....
Se invece qualcuno bravo può costruire questo Script ne sarei veramente grato.
Grazie ed in attesa di una gradita risposta
Saluto
Boris |
| 8 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 01 luglio 2023 : 20:37:56
ciao Duca si perfetto , guarderò anche se era giusta la mia idea della modifica.
non mi resta che confrontare adesso queste distanze , cosi' come ti ho spiegato nell'email.
grazie sempre , ho molto da imparare. |
| Duca |
Posted - 01 luglio 2023 : 19:43:07
Ciao franca46
Vedi se va bene
Sub Main()
Scrivi"http://www.nonsololotto.com/topic.asp?TOPIC_ID=40422 - script modificato x franca46":Scrivi
Scrivi "----- DISTANZE VERTICALI FRA GLI ESTRATTI ------",1,,3,,5:Scrivi
ReDim title(10)
title(1) = " Data "
title(2) = " 1°Ruota "
title(3) = " 2°Ruota "
title(4) = " Estratti 1°Ruota "
title(5) = " Estratti 2°Ruota "
title(6) = " Dif 1° "
title(7) = " Dif 2° "
title(8) = " Dif 3° "
title(9) = " Dif 4° "
title(10) = "Dif 5° "
Call InitTabella(title,RGB(0,117,234),,2,5)
est = InputBox("QUANTE ESTRAZIONI VUOI ESAMINARE ?",,10)
fin = EstrazioneFin
Ini = fin - est
For es = Ini To fin
For r1 = 1 To 5
r2 = RuotaDiametrale(r1)
di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))
di2 = Distanza(Estratto(es,r1,2),Estratto(es,r2,2))
di3 = Distanza(Estratto(es,r1,3),Estratto(es,r2,3))
di4 = Distanza(Estratto(es,r1,4),Estratto(es,r2,4))
di5 = Distanza(Estratto(es,r1,5),Estratto(es,r2,5))
ReDim Value(10)
Value(01) = DataEstrazione(es)
Value(02) = NomeRuota(r1)
Value(03) = NomeRuota(r2)
Value(04) = StringaEstratti(es,r1)
Value(05) = StringaEstratti(es,r2)
Value(06) = di1
Value(07) = di2
Value(08) = di3
Value(09) = di4
Value(10) = di5
Call AddRigaTabella(Value,,,4,,1)
Call SetColoreCella(2,RGB(240,240,240))
Call SetColoreCella(3,RGB(207,207,207))
Call SetColoreCella(4,RGB(240,240,240))
Call SetColoreCella(5,RGB(207,207,207))
Call SetColoreCella(6,RGB(196,255,255))
Call SetColoreCella(7,RGB(196,255,255))
Call SetColoreCella(8,RGB(196,255,255))
Call SetColoreCella(9,RGB(196,255,255))
Call SetColoreCella(10,RGB(196,255,255))
Next
Call AddRigaTabella(Value,,,4,5,4)
Next
Call CreaTabella()
End Sub
|
| franca46 |
Posted - 01 luglio 2023 : 19:03:42
Un caro saluto,
Questo script trova le le differenze su ruote consecutive , il l'ho modificato e mi trova le distanze, , ma io vorrei che trovasse le distanze su ruote diametrali.
Ho una mezza idea di come cambiare, ma non ne sono sicura.
Quindi invece di fare ba -ca dovrà fare ba-na e via di seguito, è possibile modificarlo?
Grazie infinite
|
| franca46 |
Posted - 03 ottobre 2016 : 07:43:11
ciao duca grazie , non preoccuparti del ritardo avevo fatto la prova ed era giusto.
adesso sono alle prese con un nuovo metodo ,sulla spia 90 a ruota
vediamo se poi funziona
buona giornata!!!! |
| Duca |
Posted - 02 ottobre 2016 : 20:06:14
Ciao Franca46
Scusa per il ritardo ma non avevo letto prima,
citazione:
una domanda , io riesco a costruirne qualcuno , se io voglio la distanza ?
scrivo cosi ?
di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))
si è proprio così
puoi modificare i calcoli a tuo piacimento
es: per le somme
di1 = Fuori90(Estratto(es,r1,1)+Estratto(es,r2,1))
etc etc per gli altri estratti
Buona serata |
| franca46 |
Posted - 21 settembre 2016 : 08:04:10
buon giorno Duca
grazie dello script , potrebbe servire anche a me . lo copio
una domanda , io riesco a costruirne qualcuno , se io voglio la distanza ?
scrivo cosi ?
di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))
grazie ancora |
| Boris |
Posted - 20 settembre 2016 : 23:13:20
Buona sera Duca,era lo script che desideravo .......Bravo
Nel ringraziarla del suo OTTIMO lavoro la saluto
Boris |
| Duca |
Posted - 20 settembre 2016 : 22:56:19
Buonasera Boris
provi questo script per spaziometria
Sub Main()
Scrivi"http://www.nonsololotto.com/topic.asp?TOPIC_ID=40422 - script richiesto da Boris":Scrivi
Scrivi "----- DIFFERENZE VERTICALI FRA GLI ESTRATTI ------",1,,3,,5:Scrivi
ReDim title(10)
title(1) = " Data "
title(2) = " 1°Ruota "
title(3) = " 2°Ruota "
title(4) = " Estratti 1°Ruota "
title(5) = " Estratti 2°Ruota "
title(6) = " Dif 1° "
title(7) = " Dif 2° "
title(8) = " Dif 3° "
title(9) = " Dif 4° "
title(10) = "Dif 5° "
Call InitTabella(title,RGB(0,117,234),,2,5)
est = InputBox("QUANTE ESTRAZIONI VUOI ESAMINARE ?",,10)
fin = EstrazioneFin
Ini = fin - est
For es = Ini To fin
For r1 = 1 To 10
r2 = r1 + 1
If r2 = 11 Then r2 = 12
di1 = Differenza(Estratto(es,r1,1),Estratto(es,r2,1))
di2 = Differenza(Estratto(es,r1,2),Estratto(es,r2,2))
di3 = Differenza(Estratto(es,r1,3),Estratto(es,r2,3))
di4 = Differenza(Estratto(es,r1,4),Estratto(es,r2,4))
di5 = Differenza(Estratto(es,r1,5),Estratto(es,r2,5))
ReDim Value(10)
Value(01) = DataEstrazione(es)
Value(02) = NomeRuota(r1)
Value(03) = NomeRuota(r2)
Value(04) = StringaEstratti(es,r1)
Value(05) = StringaEstratti(es,r2)
Value(06) = di1
Value(07) = di2
Value(08) = di3
Value(09) = di4
Value(10) = di5
Call AddRigaTabella(Value,,,4,,1)
Call SetColoreCella(2,RGB(240,240,240))
Call SetColoreCella(3,RGB(207,207,207))
Call SetColoreCella(4,RGB(240,240,240))
Call SetColoreCella(5,RGB(207,207,207))
Call SetColoreCella(6,RGB(196,255,255))
Call SetColoreCella(7,RGB(196,255,255))
Call SetColoreCella(8,RGB(196,255,255))
Call SetColoreCella(9,RGB(196,255,255))
Call SetColoreCella(10,RGB(196,255,255))
Next
Call AddRigaTabella(Value,,,4,5,4)
Next
Call CreaTabella()
End Sub
|
|
|
