Novità

Script somme verticali e diagonali - metodo Adeleadele

C

Cinzia27

Premium Member
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
 
Ultima modifica:
adeleadele

adeleadele

Advanced Member >GOLD<
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 ?
 
C

Cinzia27

Premium Member
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

adeleadele

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

Allegati

  • Immagine.png
    Immagine.png
    897,6 KB · Visite: 25
C

Cinzia27

Premium Member
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

adeleadele

Advanced Member >GOLD<
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

adeleadele

Advanced Member >GOLD<
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
 
C

Cinzia27

Premium Member
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

Zetrix

Advanced Premium Member
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

tigre62

Junior Member
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
Clicca per espandere...
bel metodo. Una domanda ma perchè mi dice non esiste variabile es, ex, x1 etc.etc. ?
 
Zetrix

Zetrix

Advanced Premium Member
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

tigre62

Junior Member
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
Clicca per espandere...
grazie ma mi dice lo stesso già a partire dalla variabile "ex"
 
Zetrix

Zetrix

Advanced Premium Member
tigre a me non da errore lo script ma che versione ai di spaziometria
aspetta che ora sistemo le variabili
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto