Script somme verticali e diagonali - metodo Adeleadele

Cinzia27 · 25 Luglio 2022

Ho aperto questo trhead per inserire lo script.

Cinzia27 · 27 Luglio 2022

Ciao, Adele.

Le ruote negli script si possono scegliere.
Posto tre script che fanno i calcoli: il primo per la somma diagonale, il secondo per la somma diagonale inversa, il terzo per la somma verticale.
Fammi sapere se vi sono modifiche o correzioni da fare.

Codice:

Sub main()

'Somma diagonale - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


ind=CInt(InputBox(" Quale indice mensile ",,6))
If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,b)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,c)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,d)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,e)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi
End If
Next
End Sub

Codice:

Sub main()

'Somma verticale - metodo Adeleadele (script Cinzia27)
Dim n(5)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


ind=CInt(InputBox(" Quale indice mensile ",,6))
If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,d)

x5=Estratto(es,r1,e)
y5=Estratto(es,r2,e)


n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)
n(5)=Fuori90(x5+y5)
Scrivi StringaNumeri(n)

Scrivi
End If
Next
End Sub

Codice:

Sub main()

'Somma diagonale inversa - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


ind=CInt(InputBox(" Quale indice mensile ",,6))
If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,b)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,c)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,d)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,e)
y4=Estratto(es,r2,d)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi
End If
Next
End Sub

adeleadele · 3 Agosto 2022

Grazie ora spero di riuscire a salvarli su spaziometria .Ma Cinzia perché hai messo l'indice? per esempio vedi che tra bari cagliari c'è 29 in 4 posizione , 26 certo io mi oriento anche dalle spie Grazie.Hai visto che escono anche i terni dei verticali ?

Cinzia27 · 3 Agosto 2022

Risultati interessanti. Brava.
Ho disattivato l'indice con gli apici.

Codice:

Sub main()

'Somma verticale - metodo Adeleadele (script Cinzia27)
Dim n(5)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,d)

x5=Estratto(es,r1,e)
y5=Estratto(es,r2,e)


n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)
n(5)=Fuori90(x5+y5)
Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

Codice:

Sub main()

'Somma diagonale - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,b)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,c)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,d)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,e)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

Codice:

Sub main()

'Somma diagonale inversa - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,b)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,c)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,d)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,e)
y4=Estratto(es,r2,d)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

adeleadele · 5 Agosto 2022

ieri 67 e 90 oalermo

adeleadele · 5 Agosto 2022

Cinzia mi da errore nella sostituzione io purtroppo ho la fobia dell'informatica senza indice devi copiarlo dall'inizio tutto intero quello senza indice

Cinzia27 · 5 Agosto 2022

Complimenti per la vincita.
l'indice era disattivato dagli apici, comunque ora l'ho tolto.

Codice:

Sub main()

'Somma diagonale inversa - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin


Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,b)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,c)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,d)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,e)
y4=Estratto(es,r2,d)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi

Next
End Sub

Codice:

Sub main()

'Somma diagonale - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,b)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,c)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,d)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,e)



n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)

Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

Codice:

Sub main()

'Somma verticale - metodo Adeleadele (script Cinzia27)
Dim n(5)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,d)

x5=Estratto(es,r1,e)
y5=Estratto(es,r2,e)


n(1)=Fuori90(x1+y1)
n(2)=Fuori90(x2+y2)
n(3)=Fuori90(x3+y3)
n(4)=Fuori90(x4+y4)
n(5)=Fuori90(x5+y5)
Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

adeleadele · 5 Agosto 2022

Guarda ieri somma 5 .6
02.08.2022 10115

NA 58.84.78.34.47
PA 15.63.12.33.08

Calcolo
73.57.90.67.55

Cinzia27 · 5 Agosto 2022

Un ambo.Brava.
Ma dobbiamo considerare quali coppie di ruote? E per quante estrazioni?

adeleadele · 7 Agosto 2022

Cinzia27 ha scritto:
Un ambo.Brava.
Ma dobbiamo considerare quali coppie di ruote? E per quante estrazioni?

io vado con le spie attualmente bari cag 74

adeleadele · 7 Agosto 2022

07.07.2022 10104

NA 41.66.23.75.22
PA 23.43.06.25.39

Calcolo
64.19.29.10.61
9 luglio 29 61
9 luglio si forma
Calcolo
27.15.65.82.18
a colpo ambo
27 65
stesso ambo 30 luglio pal
16 luglio ambo a colpo
Calcolo
49.22.44.12.22

Un bel risultato ..ed io non sono lottologa ma solo una matematica..Ciao

PA 32.04.45.25.03

Calcolo
49.22.44.12.22

adeleadele · 7 Agosto 2022

16.07.2022 10108

RO 61.89.27.22.85
VE 40.82.80.35.41

Calcolo
11.81.17.57.36
uscita
occorre
vi metto questa chissa'?
28.07.2022 10113

RO 71.21.09.55.61
VE 35.85.24.54.06

Calcolo
16.16.33.19.67

adeleadele · 22 Dicembre 2022

adeleadele ha scritto:
io vado con le spie attualmente bari cag 74

23 agosto bari cag 74...che poi 7x4 faceva 28 82...e 7piu 4 ..11 19. ..7-4 ..3 30
lunghetta 74 28 82 11 19 3 30 guardate bari

adeleadele · 24 Marzo 2023

Cinzia pioi correggere le somme con differenza?

Cinzia27 · 24 Marzo 2023

Ciao, Adele.
Li ho modificati tutti e tre.

Codice:

Sub main()

'Differenza diagonale inversa - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin


Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,b)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,c)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,d)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,e)
y4=Estratto(es,r2,d)



n(1)=Fuori90(Abs(x1-y1))
n(2)=Fuori90(Abs(x2+y2))
n(3)=Fuori90(Abs(x3+y3))
n(4)=Fuori90(Abs(x4+y4))

Scrivi StringaNumeri(n)

Scrivi

Next
End Sub

Codice:

Sub main()

'Differenza diagonale - metodo Adeleadele (script Cinzia27)
Dim n(4)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,b)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,c)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,d)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,e)



n(1)=Fuori90(Abs(x1-y1))
n(2)=Fuori90(Abs(x2-y2))
n(3)=Fuori90(Abs(x3-y3))
n(4)=Fuori90(Abs(x4-y4))

Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

Codice:

Sub main()

'Differenza verticale - metodo Adeleadele (script Cinzia27)
Dim n(5)


ex=CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,100))
If ex="" Then Exit Sub

r1= CInt(InputBox("1° ruota ?",,4))
If r1="" Then Exit Sub

r2= CInt(InputBox("1° ruota ?",,5))
If r2="" Then Exit Sub


'ind=CInt(InputBox(" Quale indice mensile ",,6))
'If ind="" Then Exit Sub

'Posizioni somme verticali
a=1 ' posizione 1° numero
b=2 ' posizione 2° numero
c=3 ' posizione 3° numero
d=4 ' posizione 3° numero
e=5 ' posizione 5° numero prima ruota


For es = EstrazioneFin-ex To EstrazioneFin

'If Indicemensile(es)=ind Then



Scrivi String(40,"=")
Scrivi
Scrivi DataEstrazione(es)&" "&formatspace(es,5,1)'&" indice mensile "&ind
Scrivi
Scrivi SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi



Scrivi "Calcolo"
x1=Estratto(es,r1,a)
y1=Estratto(es,r2,a)

x2=Estratto(es,r1,b)
y2=Estratto(es,r2,b)

x3=Estratto(es,r1,c)
y3=Estratto(es,r2,c)

x4=Estratto(es,r1,d)
y4=Estratto(es,r2,d)

x5=Estratto(es,r1,e)
y5=Estratto(es,r2,e)


n(1)=Fuori90(Abs(x1-y1))
n(2)=Fuori90(Abs(x2-y2))
n(3)=Fuori90(Abs(x3-y3))
n(4)=Fuori90(Abs(x4-y4))
n(5)=Fuori90(Abs(x5-y5))
Scrivi StringaNumeri(n)

Scrivi
'End If
Next
End Sub

Zetrix · 25 Marzo 2023

Codice:

Sub Main()
   'Differenza verticale - metodo Adeleadele (script Cinzia27)
   Dim n(5),r1,r2,a,b,c,d,e
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,0))
   If ex = "" Then Exit Sub
   r1 = ScegliRuota
   If r1 = "" Then Exit Sub
   r2 = ScegliRuota
   If r2 = "" Then Exit Sub
   'ind=CInt(InputBox(" Quale indice mensile ",,6))
   'If ind="" Then Exit Sub
   'Posizioni somme verticali
   a = 1 ' posizione 1° numero
   b = 2 ' posizione 2° numero
   c = 3 ' posizione 3° numero
   d = 4 ' posizione 3° numero
   e = 5 ' posizione 5° numero prima ruota
   For es = EstrazioneFin - ex To EstrazioneFin
      '
      '
      ReDim MatriceCaselleDaEvid(10,1)
      '
      MatriceCaselleDaEvid(1,0) = r1
      MatriceCaselleDaEvid(1,1) = 1
      '
      MatriceCaselleDaEvid(2,0) = r1
      MatriceCaselleDaEvid(2,1) = 2
      '
      MatriceCaselleDaEvid(3,0) = r1
      MatriceCaselleDaEvid(3,1) = 3
      '
      MatriceCaselleDaEvid(4,0) = r1
      MatriceCaselleDaEvid(4,1) = 4
      '
      MatriceCaselleDaEvid(5,0) = r1
      MatriceCaselleDaEvid(5,1) = 5
      '
      MatriceCaselleDaEvid(6,0) = r2
      MatriceCaselleDaEvid(6,1) = 1
      '
      MatriceCaselleDaEvid(7,0) = r2
      MatriceCaselleDaEvid(7,1) = 2
      '
      MatriceCaselleDaEvid(8,0) = r2
      MatriceCaselleDaEvid(8,1) = 3
      '
      MatriceCaselleDaEvid(9,0) = r2
      MatriceCaselleDaEvid(9,1) = 4
      '
      MatriceCaselleDaEvid(10,0) = r2
      MatriceCaselleDaEvid(10,1) = 5
      '
      Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      '
      'Scrivi DataEstrazione(es) & " " & FormatSpace(es,5,1)
      '
      x1 = Estratto(es,r1,a)
      y1 = Estratto(es,r2,a)
      x2 = Estratto(es,r1,b)
      y2 = Estratto(es,r2,b)
      x3 = Estratto(es,r1,c)
      y3 = Estratto(es,r2,c)
      x4 = Estratto(es,r1,d)
      y4 = Estratto(es,r2,d)
      x5 = Estratto(es,r1,e)
      y5 = Estratto(es,r2,e)
      '
      n(1) = Format2(Abs(x1 - y1))
      n(2) = Format2(Abs(x2 - y2))
      n(3) = Format2(Abs(x3 - y3))
      n(4) = Format2(Abs(x4 - y4))
      n(5) = Format2(Abs(x5 - y5))
      Scrivi
      Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
      Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
      Scrivi
      Scrivi "" & Space(17) & StringaNumeri(n) & " ",0,1,6,1
      Scrivi
   Next
End Sub

tigre62 · 29 Marzo 2023

Zetrix ha scritto:

Codice:

Sub Main()
   'Differenza verticale - metodo Adeleadele (script Cinzia27)
   Dim n(5),r1,r2,a,b,c,d,e
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ultime ",,0))
   If ex = "" Then Exit Sub
   r1 = ScegliRuota
   If r1 = "" Then Exit Sub
   r2 = ScegliRuota
   If r2 = "" Then Exit Sub
   'ind=CInt(InputBox(" Quale indice mensile ",,6))
   'If ind="" Then Exit Sub
   'Posizioni somme verticali
   a = 1 ' posizione 1° numero
   b = 2 ' posizione 2° numero
   c = 3 ' posizione 3° numero
   d = 4 ' posizione 3° numero
   e = 5 ' posizione 5° numero prima ruota
   For es = EstrazioneFin - ex To EstrazioneFin
      '
      '
      ReDim MatriceCaselleDaEvid(10,1)
      '
      MatriceCaselleDaEvid(1,0) = r1
      MatriceCaselleDaEvid(1,1) = 1
      '
      MatriceCaselleDaEvid(2,0) = r1
      MatriceCaselleDaEvid(2,1) = 2
      '
      MatriceCaselleDaEvid(3,0) = r1
      MatriceCaselleDaEvid(3,1) = 3
      '
      MatriceCaselleDaEvid(4,0) = r1
      MatriceCaselleDaEvid(4,1) = 4
      '
      MatriceCaselleDaEvid(5,0) = r1
      MatriceCaselleDaEvid(5,1) = 5
      '
      MatriceCaselleDaEvid(6,0) = r2
      MatriceCaselleDaEvid(6,1) = 1
      '
      MatriceCaselleDaEvid(7,0) = r2
      MatriceCaselleDaEvid(7,1) = 2
      '
      MatriceCaselleDaEvid(8,0) = r2
      MatriceCaselleDaEvid(8,1) = 3
      '
      MatriceCaselleDaEvid(9,0) = r2
      MatriceCaselleDaEvid(9,1) = 4
      '
      MatriceCaselleDaEvid(10,0) = r2
      MatriceCaselleDaEvid(10,1) = 5
      '
      Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      '
      'Scrivi DataEstrazione(es) & " " & FormatSpace(es,5,1)
      '
      x1 = Estratto(es,r1,a)
      y1 = Estratto(es,r2,a)
      x2 = Estratto(es,r1,b)
      y2 = Estratto(es,r2,b)
      x3 = Estratto(es,r1,c)
      y3 = Estratto(es,r2,c)
      x4 = Estratto(es,r1,d)
      y4 = Estratto(es,r2,d)
      x5 = Estratto(es,r1,e)
      y5 = Estratto(es,r2,e)
      '
      n(1) = Format2(Abs(x1 - y1))
      n(2) = Format2(Abs(x2 - y2))
      n(3) = Format2(Abs(x3 - y3))
      n(4) = Format2(Abs(x4 - y4))
      n(5) = Format2(Abs(x5 - y5))
      Scrivi
      Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
      Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
      Scrivi
      Scrivi "" & Space(17) & StringaNumeri(n) & " ",0,1,6,1
      Scrivi
   Next
End Sub

bel metodo. Una domanda ma perchè mi dice non esiste variabile es, ex, x1 etc.etc. ?

Zetrix · 29 Marzo 2023

Codice:

Sub Main()
   Dim n(5),v(5)
   Dim r1,r2
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ",,0))
   '
   For r1 = 1 To 9
      '
      For r2 = r1 + 1 To r2
         '
         For es = EstrazioneFin - ex To EstrazioneFin
            '
            '
            ReDim MatriceCaselleDaEvid(10,1)
            '
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = 1
            '
            MatriceCaselleDaEvid(2,0) = r1
            MatriceCaselleDaEvid(2,1) = 2
            '
            MatriceCaselleDaEvid(3,0) = r1
            MatriceCaselleDaEvid(3,1) = 3
            '
            MatriceCaselleDaEvid(4,0) = r1
            MatriceCaselleDaEvid(4,1) = 4
            '
            MatriceCaselleDaEvid(5,0) = r1
            MatriceCaselleDaEvid(5,1) = 5
            '
            MatriceCaselleDaEvid(6,0) = r2
            MatriceCaselleDaEvid(6,1) = 1
            '
            MatriceCaselleDaEvid(7,0) = r2
            MatriceCaselleDaEvid(7,1) = 2
            '
            MatriceCaselleDaEvid(8,0) = r2
            MatriceCaselleDaEvid(8,1) = 3
            '
            MatriceCaselleDaEvid(9,0) = r2
            MatriceCaselleDaEvid(9,1) = 4
            '
            MatriceCaselleDaEvid(10,0) = r2
            MatriceCaselleDaEvid(10,1) = 5
            '
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            '
            x1 = Estratto(es,r1,1)
            y1 = Estratto(es,r2,1)
            x2 = Estratto(es,r1,2)
            y2 = Estratto(es,r2,2)
            x3 = Estratto(es,r1,3)
            y3 = Estratto(es,r2,3)
            x4 = Estratto(es,r1,4)
            y4 = Estratto(es,r2,4)
            x5 = Estratto(es,r1,5)
            y5 = Estratto(es,r2,5)
            '
            n(1) = Format2(Abs(x1 - y1))
            n(2) = Format2(Abs(x2 - y2))
            n(3) = Format2(Abs(x3 - y3))
            n(4) = Format2(Abs(x4 - y4))
            n(5) = Format2(Abs(x5 - y5))
            '
            v(1) = Format2(Fuori90(x1 + y1))
            v(2) = Format2(Fuori90(x2 + y2))
            v(3) = Format2(Fuori90(x3 + y3))
            v(4) = Format2(Fuori90(x4 + y4))
            v(5) = Format2(Fuori90(x5 + y5))
            '
            If n(1) = 0 Then n(1) = 90 End If
            If n(2) = 0 Then n(2) = 90 End If
            If n(3) = 0 Then n(3) = 90 End If
            If n(4) = 0 Then n(4) = 90 End If
            If n(5) = 0 Then n(5) = 90 End If
            '
            '
            Scrivi
            Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
            Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
            Scrivi
            Scrivi "diff" & Space(13) & StringaNumeri(n) & Space(5) & " ",0,1,2,5
            Scrivi "somma" & Space(12) & StringaNumeri(v) & Space(5) & " ",0,1,1,5
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub

prova questo script

tigre62 · 29 Marzo 2023

Zetrix ha scritto:

Codice:

Sub Main()
   Dim n(5),v(5)
   Dim r1,r2
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ",,0))
   '
   For r1 = 1 To 9
      '
      For r2 = r1 + 1 To r2
         '
         For es = EstrazioneFin - ex To EstrazioneFin
            '
            '
            ReDim MatriceCaselleDaEvid(10,1)
            '
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = 1
            '
            MatriceCaselleDaEvid(2,0) = r1
            MatriceCaselleDaEvid(2,1) = 2
            '
            MatriceCaselleDaEvid(3,0) = r1
            MatriceCaselleDaEvid(3,1) = 3
            '
            MatriceCaselleDaEvid(4,0) = r1
            MatriceCaselleDaEvid(4,1) = 4
            '
            MatriceCaselleDaEvid(5,0) = r1
            MatriceCaselleDaEvid(5,1) = 5
            '
            MatriceCaselleDaEvid(6,0) = r2
            MatriceCaselleDaEvid(6,1) = 1
            '
            MatriceCaselleDaEvid(7,0) = r2
            MatriceCaselleDaEvid(7,1) = 2
            '
            MatriceCaselleDaEvid(8,0) = r2
            MatriceCaselleDaEvid(8,1) = 3
            '
            MatriceCaselleDaEvid(9,0) = r2
            MatriceCaselleDaEvid(9,1) = 4
            '
            MatriceCaselleDaEvid(10,0) = r2
            MatriceCaselleDaEvid(10,1) = 5
            '
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            '
            x1 = Estratto(es,r1,1)
            y1 = Estratto(es,r2,1)
            x2 = Estratto(es,r1,2)
            y2 = Estratto(es,r2,2)
            x3 = Estratto(es,r1,3)
            y3 = Estratto(es,r2,3)
            x4 = Estratto(es,r1,4)
            y4 = Estratto(es,r2,4)
            x5 = Estratto(es,r1,5)
            y5 = Estratto(es,r2,5)
            '
            n(1) = Format2(Abs(x1 - y1))
            n(2) = Format2(Abs(x2 - y2))
            n(3) = Format2(Abs(x3 - y3))
            n(4) = Format2(Abs(x4 - y4))
            n(5) = Format2(Abs(x5 - y5))
            '
            v(1) = Format2(Fuori90(x1 + y1))
            v(2) = Format2(Fuori90(x2 + y2))
            v(3) = Format2(Fuori90(x3 + y3))
            v(4) = Format2(Fuori90(x4 + y4))
            v(5) = Format2(Fuori90(x5 + y5))
            '
            If n(1) = 0 Then n(1) = 90 End If
            If n(2) = 0 Then n(2) = 90 End If
            If n(3) = 0 Then n(3) = 90 End If
            If n(4) = 0 Then n(4) = 90 End If
            If n(5) = 0 Then n(5) = 90 End If
            '
            '
            Scrivi
            Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
            Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
            Scrivi
            Scrivi "diff" & Space(13) & StringaNumeri(n) & Space(5) & " ",0,1,2,5
            Scrivi "somma" & Space(12) & StringaNumeri(v) & Space(5) & " ",0,1,1,5
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub

prova questo script

grazie ma mi dice lo stesso già a partire dalla variabile "ex"

Zetrix · 29 Marzo 2023

tigre a me non da errore lo script ma che versione ai di spaziometria
aspetta che ora sistemo le variabili

Script somme verticali e diagonali - metodo Adeleadele

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Allegati

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Advanced Premium Member

Junior Member

Advanced Premium Member

Junior Member

Advanced Premium Member