Autore |
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
Boris
Utente Fedelissimo
![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif)
Italy
598 invii |
Spedito - 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 |
|
Duca
Utente Nuovo
25 invii |
Spedito - 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
|
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
Boris
Utente Fedelissimo
![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif) ![](images/lightgreen/icon_star_purple.gif)
Italy
598 invii |
Spedito - 20 settembre 2016 : 23:13:20
|
Buona sera Duca,era lo script che desideravo .......Bravo Nel ringraziarla del suo OTTIMO lavoro la saluto Boris |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
franca46
Amministratore
![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif)
Italy
24349 invii |
Spedito - 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 |
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
Duca
Utente Nuovo
25 invii |
Spedito - 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 |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
franca46
Amministratore
![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif)
Italy
24349 invii |
Spedito - 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!!!! |
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
franca46
Amministratore
![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif)
Italy
24349 invii |
Spedito - 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 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
Duca
Utente Nuovo
25 invii |
Spedito - 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
|
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
franca46
Amministratore
![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif)
Italy
24349 invii |
Spedito - 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. |
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
|
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
|
|