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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto