metodo oggi trovato su questo sito.

[adeleadele]

Ciao.
All'epoca in cui è stato iniziato questo post mi ero copiato lo script per l'esecuzione su spaziometria del metodo inserito qui.
In questi giorni lo rivisto è ho provato ad avviarlo su spaziometria, ma una cosa mi ha incuriosito, ovvero il calcolo delle distanze nella quinta fila di numeri. Se si dovesse seguire la logica le distanze dovrebbero essere appunto clcolate sulla quinta riga, ma non è così infatti i calcoli sono fatti nei confronti dell'ultima riga è precisamente quella della somma. E' giusto come fatto dallo script o è un errore? Inoltre il sesto numero della quinta riga da dove arriva?
Qualcuno gentilmente mi sa dire qualcosa?
Allego foto per chiarire meglioVedi l'allegato 2291741

Dovrei rivederlo in quanto ultimamente ho seguito solo alcune ruote .Se mi dai un paio di giorni do una occhiata .Questa equazione non e' formulata da me io mi sono studista come interpretarlo visto che quando l' hanno formulata le estrazioni erano inferiori.

 

[Zac]

Dovrei rivederlo in quanto ultimamente ho seguito solo alcune ruote .Se mi dai un paio di giorni do una occhiata .Questa equazione non e' formulata da me io mi sono studista come interpretarlo visto che quando l' hanno formulata le estrazioni erano inferiori.

Grazie, quando vuoi non ho fretta
Buona serata

 

[adeleadele]

Dovrei rivederlo in quanto ultimamente ho seguito solo alcune ruote .Se mi dai un paio di giorni do una occhiata .Questa equazione non e' formulata da me io mi sono studista come interpretarlo visto che quando l' hanno formulata le estrazioni erano inferiori.

Allora Zac l'ho trovato e l'unione delle ruote come le facevo io ha dato ambo secco a colpo,Io univo i numeri di bari con Napoli.L'equazione e lo script non è mio ma guarda vedi quando si usa raramente escono i numeri,Primi 5 Numeri inseriti 41 18 53 38 63
Secondi 5 Numeri inseriti 16 53 46 04 11


41 18 53 38 63 16 53 - Distanze 23 55 15 65 47 53
18 53 38 63 16 53 46
53 38 63 16 53 46 04 Somma Distanze = 71
38 63 16 53 46 04 11
63 16 53 46 04 11 87 - Distanze 25 55 97 34 52
--------------------
Somme 33 98 43 36 92 40 - Somma delle somme 72

71 + 72 = 53 Risultato Equazione allora somma ambata 72 con il risultato equazione 53 con 33 salto 98 ..oppure 8 43 36 salto 92 e 40 guarda a colpo napoli

 

[Zac]

Allora Zac l'ho trovato e l'unione delle ruote come le facevo io ha dato ambo secco a colpo,Io univo i numeri di bari con Napoli.L'equazione e lo script non è mio ma guarda vedi quando si usa raramente escono i numeri,Primi 5 Numeri inseriti 41 18 53 38 63
Secondi 5 Numeri inseriti 16 53 46 04 11


41 18 53 38 63 16 53 - Distanze 23 55 15 65 47 53
18 53 38 63 16 53 46
53 38 63 16 53 46 04 Somma Distanze = 71
38 63 16 53 46 04 11
63 16 53 46 04 11 87 - Distanze 25 55 97 34 52
--------------------
Somme 33 98 43 36 92 40 - Somma delle somme 72

71 + 72 = 53 Risultato Equazione allora somma ambata 72 con il risultato equazione 53 con 33 salto 98 ..oppure 8 43 36 salto 92 e 40 guarda a colpo napoli Vedi l'allegato 2292192

Ti ringrazio. Gentilissima
Buona serata

 

[adeleadele]

Ti ringrazio. Gentilissima
Buona serata

Guarda lo script ;
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Num2
Dim S1,S2,S3,S4,S5,S6,S7,S8,S10,S11,S12,Ambata,S
Num1 = InputBox("Inserisci i primi 5 numeri separati da un punto"," 76.28.65.77.33")
Num2 = InputBox("Inserisci i secondi 5 numeri separati da un punto"," 41.60.61.59.63")
Num1 = "0." & Num1
S7 = Split(Num1,".")
A1 = CInt(S7(1))
A2 = CInt(S7(2))
A3 = CInt(S7(3))
A4 = CInt(S7(4))
A5 = CInt(S7(5))
Num2 = "0." & Num2
S8 = Split(Num2,".")
B1 = CInt(S8(1))
B2 = CInt(S8(2))
B3 = CInt(S8(3))
B4 = CInt(S8(4))
B5 = CInt(S8(5))
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
S12 = Fuori90(S11 + S10)
Scrivi Space(20) &(" Primi 5 Numeri inseriti ") & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
Scrivi Space(20) &(" Secondi 5 Numeri inseriti ") & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi
Scrivi
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0
Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
ColoreTesto 1
Scrivi Format2(S10),1
ColoreTesto 0
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
ColoreTesto 2
Scrivi " " & Format2(Ambata),1,0
ColoreTesto 0
Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
ColoreTesto 1
Scrivi Format2(S11),1
ColoreTesto 0
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Risultato Equazione ",1
Scrivi
End Sub

 

[Zac]

Ciao
Si visto. Ho provato a lanciarlo su Spaziometria e in effetti le seconde distanze sono ricavate dalle somme. Ora è chiaro.
Grazie ancora della risposta
Buona giornata

 

[streanger]

Domanda: devo installare Visual basic ?
Che versione di Visual basic ?