script per spaziometria

[tiberio1]

Cerco qualcuno in grado di tradurre in script per spazuiometria il metodo verter questo grazie buone feste
METODO VERTER –AUTORE CIRO VITALE-
RICOPIAMO SU UN FOGLIO QUADRETTATO,OGNI ESTRAZIONE,I NUMERI ESTRATTI DI CIASCUNA RUOTA,ADDIZIONANDO I CINQUE ESTRATTI DI UNA RUOTA CON I CINQUE ESTRATTI DELLA RUOTA SUCCESSIVA.
CON SEMPLICI ADDIZIONI E SOTTRAZIONI RICAVEREMO SIA LE SOMME CHE LE DISTANZE TRA I 4 AMBI CHE SI DETERMINANO CON CINQUE SOMME (SEMPRE TENENDO PRESENTE IL LIMITE 45).
OVVERO AVREMO DISTANZE CHE NON SUPERANO MAI IL LIMITE CICLOMETRICO 45 E SOMME ANCHE SUPERIORI A 45.
I NUMERI IN NERO SONO RELATIVI ALLE SOMME (ES: TRA IL 1°ESTRATTO DI BARI 38 E IL 1° ESTRATTO DI CAGLIARI 12 ABBIAMO LA SOMMA 50) MENTRE I NUMERI IN ROSSO SI RIFERISCONO ALLE DISTANZE TRA I VARI AMBI FORMATISI DALLE SOMME.(SOMME TRA 1°BA E 1°CA=50, SOMMA TRA 2°BA E 2° CA=18 DIFFERENZA TRA LA SOMMA 50 E LA SOMMA 18=32 (PRIMO NUMERO IN ROSSO ALLA DESTRA DEL 50) VEDI TABELLA SOTTO.
ESEMPIO:
ESTRAZIONE DEL 12/06/1089
BARI 38 66 33 40 89
CAGLIARI 12 42 88 01 61
FIRENZE 05 74 33 28 17
GENOVA 10 85 51 28 65
MILANO 18 61 70 78 44
NAPOLI 41 47 81 18 05
PALERMO 15 27 82 53 78
ROMA 51 03 88 73 50
TORINO 03 70 59 68 52
VENEZIA 19 80 85 59 57
DALL’ESTRAZIONE ABBIAMO IL SEGUENTE QUADRO DEI DIFFERENZIALI “VERTER”:
BA-CA 50 32 18 13 31 10 41 19 60
CA-FI 17 19 26 05 31 02 29 41 78
FI-GE 15 36 69 15 84 28 56 28 82
GE-MI 28 28 56 16 40 24 16 03 19
MI-NA 59 41 18 38 70 26 06 43 49
NA-PA 56 18 74 01 73 02 71 12 83
PA-RO 66 36 30 40 80 44 36 02 38
RO-TO 54 19 73 16 57 06 51 39 12
TO-VE 22 38 60 06 54 17 37 18 19
VE-BA 57 01 56 28 28 09 19 37 56
DAL QUADRO DEI DIFFERENZIALI NOTIAMO 2 UGUALI DIFFERENZE RELATIVE ALLE RUOTE DI NA-PA E PA-RO:
NA-PA differenza 02 (vedi sopra in grassetto)
PA-RO differenza 02 (vedi sopra in grassetto)

ESEGUENDO LA QUADRATURA TRA I NUMERI ABBIAMO:


NA-PA 73-71 54 17 27
PA-RO 36-38 74 21 37
19 38 64

Dove il 19 rappresenta la somma comune,il 38 la somma finale (19x2) il 27 è 54:2,mentre il 37 è 74:2.
SE LE OPERAZIONI SONO CORRETTE IL NUMERO SOMMA FINALE SARA’ DOPPIO DEL NUMERO SOMMA COMUNE.
ESITO: 19 al 1° colpo su PA.


Seconda previsione deducibile dal quadro dei differenziali:
RO-TO 51-57 18 27 09
TO-VE 60-54 24 15 12
21 42 21

ESITO: 42 1° COLPO A VE.

 

[tiberio1]

Cerco qualcuno in grado di tradurre in script per spazuiometria il metodo verter questo grazie buone feste
METODO VERTER –AUTORE CIRO VITALE-
RICOPIAMO SU UN FOGLIO QUADRETTATO,OGNI ESTRAZIONE,I NUMERI ESTRATTI DI CIASCUNA RUOTA,ADDIZIONANDO I CINQUE ESTRATTI DI UNA RUOTA CON I CINQUE ESTRATTI DELLA RUOTA SUCCESSIVA.
CON SEMPLICI ADDIZIONI E SOTTRAZIONI RICAVEREMO SIA LE SOMME CHE LE DISTANZE TRA I 4 AMBI CHE SI DETERMINANO CON CINQUE SOMME (SEMPRE TENENDO PRESENTE IL LIMITE 45).
OVVERO AVREMO DISTANZE CHE NON SUPERANO MAI IL LIMITE CICLOMETRICO 45 E SOMME ANCHE SUPERIORI A 45.
I NUMERI IN NERO SONO RELATIVI ALLE SOMME (ES: TRA IL 1°ESTRATTO DI BARI 38 E IL 1° ESTRATTO DI CAGLIARI 12 ABBIAMO LA SOMMA 50) MENTRE I NUMERI IN ROSSO SI RIFERISCONO ALLE DISTANZE TRA I VARI AMBI FORMATISI DALLE SOMME.(SOMME TRA 1°BA E 1°CA=50, SOMMA TRA 2°BA E 2° CA=18 DIFFERENZA TRA LA SOMMA 50 E LA SOMMA 18=32 (PRIMO NUMERO IN ROSSO ALLA DESTRA DEL 50) VEDI TABELLA SOTTO.
ESEMPIO:
ESTRAZIONE DEL 12/06/1089
BARI 38 66 33 40 89
CAGLIARI 12 42 88 01 61
FIRENZE 05 74 33 28 17
GENOVA 10 85 51 28 65
MILANO 18 61 70 78 44
NAPOLI 41 47 81 18 05
PALERMO 15 27 82 53 78
ROMA 51 03 88 73 50
TORINO 03 70 59 68 52
VENEZIA 19 80 85 59 57
DALL’ESTRAZIONE ABBIAMO IL SEGUENTE QUADRO DEI DIFFERENZIALI “VERTER”:
BA-CA 50 32 18 13 31 10 41 19 60
CA-FI 17 19 26 05 31 02 29 41 78
FI-GE 15 36 69 15 84 28 56 28 82
GE-MI 28 28 56 16 40 24 16 03 19
MI-NA 59 41 18 38 70 26 06 43 49
NA-PA 56 18 74 01 73 02 71 12 83
PA-RO 66 36 30 40 80 44 36 02 38
RO-TO 54 19 73 16 57 06 51 39 12
TO-VE 22 38 60 06 54 17 37 18 19
VE-BA 57 01 56 28 28 09 19 37 56
DAL QUADRO DEI DIFFERENZIALI NOTIAMO 2 UGUALI DIFFERENZE RELATIVE ALLE RUOTE DI NA-PA E PA-RO:
NA-PA differenza 02 (vedi sopra in grassetto)
PA-RO differenza 02 (vedi sopra in grassetto)

ESEGUENDO LA QUADRATURA TRA I NUMERI ABBIAMO:


NA-PA 73-71 54 17 27
PA-RO 36-38 74 21 37
19 38 64

Dove il 19 rappresenta la somma comune,il 38 la somma finale (19x2) il 27 è 54:2,mentre il 37 è 74:2.
SE LE OPERAZIONI SONO CORRETTE IL NUMERO SOMMA FINALE SARA’ DOPPIO DEL NUMERO SOMMA COMUNE.
ESITO: 19 al 1° colpo su PA.


Seconda previsione deducibile dal quadro dei differenziali:
RO-TO 51-57 18 27 09
TO-VE 60-54 24 15 12
21 42 21

ESITO: 42 1° COLPO A VE.

Nessuno riesce?

 

[claudio8]

porto su per chi vuole cimentarsi,
in caso di difficoltà chiedete pure.
forza ragazzi

 

[salvo50]

Cerco qualcuno in grado di tradurre in script per spazuiometria il metodo verter questo grazie buone feste
METODO VERTER –AUTORE CIRO VITALE-
RICOPIAMO SU UN FOGLIO QUADRETTATO,OGNI ESTRAZIONE,I NUMERI ESTRATTI DI CIASCUNA RUOTA,ADDIZIONANDO I CINQUE ESTRATTI DI UNA RUOTA CON I CINQUE ESTRATTI DELLA RUOTA SUCCESSIVA.
CON SEMPLICI ADDIZIONI E SOTTRAZIONI RICAVEREMO SIA LE SOMME CHE LE DISTANZE TRA I 4 AMBI CHE SI DETERMINANO CON CINQUE SOMME (SEMPRE TENENDO PRESENTE IL LIMITE 45).
OVVERO AVREMO DISTANZE CHE NON SUPERANO MAI IL LIMITE CICLOMETRICO 45 E SOMME ANCHE SUPERIORI A 45.
I NUMERI IN NERO SONO RELATIVI ALLE SOMME (ES: TRA IL 1°ESTRATTO DI BARI 38 E IL 1° ESTRATTO DI CAGLIARI 12 ABBIAMO LA SOMMA 50) MENTRE I NUMERI IN ROSSO SI RIFERISCONO ALLE DISTANZE TRA I VARI AMBI FORMATISI DALLE SOMME.(SOMME TRA 1°BA E 1°CA=50, SOMMA TRA 2°BA E 2° CA=18 DIFFERENZA TRA LA SOMMA 50 E LA SOMMA 18=32 (PRIMO NUMERO IN ROSSO ALLA DESTRA DEL 50) VEDI TABELLA SOTTO.
ESEMPIO:
ESTRAZIONE DEL 12/06/1089
BARI 38 66 33 40 89
CAGLIARI 12 42 88 01 61
FIRENZE 05 74 33 28 17
GENOVA 10 85 51 28 65
MILANO 18 61 70 78 44
NAPOLI 41 47 81 18 05
PALERMO 15 27 82 53 78
ROMA 51 03 88 73 50
TORINO 03 70 59 68 52
VENEZIA 19 80 85 59 57
DALL’ESTRAZIONE ABBIAMO IL SEGUENTE QUADRO DEI DIFFERENZIALI “VERTER”:
BA-CA 50 32 18 13 31 10 41 19 60
CA-FI 17 19 26 05 31 02 29 41 78
FI-GE 15 36 69 15 84 28 56 28 82
GE-MI 28 28 56 16 40 24 16 03 19
MI-NA 59 41 18 38 70 26 06 43 49
NA-PA 56 18 74 01 73 02 71 12 83
PA-RO 66 36 30 40 80 44 36 02 38
RO-TO 54 19 73 16 57 06 51 39 12
TO-VE 22 38 60 06 54 17 37 18 19
VE-BA 57 01 56 28 28 09 19 37 56
DAL QUADRO DEI DIFFERENZIALI NOTIAMO 2 UGUALI DIFFERENZE RELATIVE ALLE RUOTE DI NA-PA E PA-RO:
NA-PA differenza 02 (vedi sopra in grassetto)
PA-RO differenza 02 (vedi sopra in grassetto)

Fino a questo punto tutto chiaro, non ci sono problemi

ESEGUENDO LA QUADRATURA TRA I NUMERI ABBIAMO:

NA-PA 73-71 54 17 27
PA-RO 36-38 74 21 37

qui dice
eseguendo la quadratura tra i numeri abbiamo:
1) domanda, con quali numeri ha fatto la quadratura?
e come ha fatto la quadratura, cioè come ha ottenuto i numeri
di NA-PA 73-71 54 17 27
di PA-RO 36-38 74 21 37
fare esempi almeno per 2 numeri

dopo tutto chiaro

19 38 64

Dove il 19 rappresenta la somma comune,il 38 la somma finale (19x2) il 27 è 54:2,mentre il 37 è 74:2.
SE LE OPERAZIONI SONO CORRETTE IL NUMERO SOMMA FINALE SARA’ DOPPIO DEL NUMERO SOMMA COMUNE.
ESITO: 19 al 1° colpo su PA.


Seconda previsione deducibile dal quadro dei differenziali:
RO-TO 51-57 18 27 09
TO-VE 60-54 24 15 12
21 42 21

ESITO: 42 1° COLPO A VE.

 

[tiberio1]

Fino a questo punto tutto chiaro, non ci sono problemi

qui dice
eseguendo la quadratura tra i numeri abbiamo:
1) domanda, con quali numeri ha fatto la quadratura?
e come ha fatto la quadratura, cioè come ha ottenuto i numeri
di NA-PA 73-71 54 17 27
di PA-RO 36-38 74 21 37
fare esempi almeno per 2 numeri

dopo tutto chiaro

Trovato così non saprei

 

[Master]

ciao
Potrebbe essere così

NA-PA 56 18 74 01 73 02 71 12 83
PA-RO 66 36 30 40 80 44 36 02 38


NA-PA 73-71 somme con differenza 2 - (54 somma orizz) - (17 somma diag) - 27 è 54:2
PA-RO 36-38 somme con differenza 2 - (74 somma orizz) - (21 somma diag) - 37 è 74:2

somme verticali 73-36=19
somme verticali 71-38=19

somme verticali 54+74=38
somme verticali 17+21=38

somme verticali 27+37=64

 

[tiberio1]

ciao
Potrebbe essere così

NA-PA 56 18 74 01 73 02 71 12 83
PA-RO 66 36 30 40 80 44 36 02 38


NA-PA 73-71 somme con differenza 2 - (54 somma orizz) - (17 somma diag) - 27 è 54:2
PA-RO 36-38 somme con differenza 2 - (74 somma orizz) - (21 somma diag) - 37 è 74:2

somme verticali 73-36=19
somme verticali 71-38=19

somme verticali 54+74=38
somme verticali 17+21=38

somme verticali 27+23=64

Hai ragione puo' essere

 

[tiberio1]

Trovato così non saprei

Credo masters abbia capito

Fino a questo punto tutto chiaro, non ci sono problemi

qui dice
eseguendo la quadratura tra i numeri abbiamo:
1) domanda, con quali numeri ha fatto la quadratura?
e come ha fatto la quadratura, cioè come ha ottenuto i numeri
di NA-PA 73-71 54 17 27
di PA-RO 36-38 74 21 37
fare esempi almeno per 2 numeri

dopo tutto chiaro

MASTER HA RAGIONE

 

[tiberio1]

Credo masters abbia capito

MASTER HA RAGIONE

Ora serve solo un'elaborazione dello script ci sono metodi storici che fanno paura

 

[salvo50]

Ciao Master, grazie a te ho capito la quadratura in questo metodo

 

[tiberio1]

Ciao Master, grazie a te ho capito la quadratura in questo metodo

A che punto 6 e' difficile elaborarlo?

 

[salvo50]

A che punto 6 e' difficile elaborarlo?

Quando ho tempo e voglia lo faccio.

 

[tiberio1]

ok

 

[salvo50]

E' solo una bozza, per continuare ho bisogno di suggerimenti da parte degli esperti

Option Explicit
Sub Main
   Dim FIn,Es,Ini,P1
   Dim R1,R2,Casi,Sp
   Dim A(5),B(5) ' Variabili estratti
   Dim S(5) 'Variabile Somma estratti
   Dim D12(10),D23(10),D34(10),D45(10)'Variabili distanze estratti, D12 = Distanza tra il 1° e 2° estratto ecc...
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6188)
   Call ScegliRange(Ini,FIn,Ini,6190)
   Scrivi Space(15) & " Metodo Verter di Ciro Vitale - BOZZA SALVO50" & Space(15),1,,4,,3,,1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 1
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es,R2,P1)
            S(P1) = Fuori90(A(P1) + B(P1))
         Next
         D12(R1) = Distanza(S(1),S(2))
         D23(R1) = Distanza(S(2),S(3))
         D34(R1) = Distanza(S(3),S(4))
         D45(R1) = Distanza(S(4),S(5))
         If R1 = 1 Then
            ScriviEstrazione Es,1,1,1
            Scrivi "DALL’ESTRAZIONE ABBIAMO IL SEGUENTE QUADRO DEI DIFFERENZIALI “VERTER",1,,,1
            Scrivi Space(15) & "S1" & Sp & "D1" & Sp & "S2" & Sp & "D2" & Sp & "S3" & Sp & "D3",1,0,,2
            Scrivi Sp & "S4" & Sp & "D4" & Sp & "S5",1,,,2
         End If
         Scrivi Space(9) & SiglaRuota(R1) & "-" & SiglaRuota(R2) & Sp & Format2(S(1)) & Sp & Format2(D12(R1)),1,0
         Scrivi Sp & Format2(S(2)) & Sp & Format2(D23(R1)) & Sp & Format2(S(3)) & Sp & Format2(D34(R1)),1,0
         Scrivi Sp & Format2(S(4)) & Sp & Format2(D45(R1)) & Sp & Format2(S(5)),1
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

 

[tiberio1]

E' solo una bozza, per continuare ho bisogno di suggerimenti da parte degli esperti

Option Explicit
Sub Main
   Dim FIn,Es,Ini,R,P,P1
   Dim R1,R2,Casi,Sp
   Dim A(5),B(5) ' Variabili estratti
   Dim S(5) 'Variabile Somma estratti
   Dim E(5) 'Variabile ciclo estrazione completa
   Dim D12(10),D23(10),D34(10),D45(10)'Variabili distanze estratti, D12 = Distanza tra il 1° e 2° estratto ecc...
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6188)
   Call ScegliRange(Ini,FIn,Ini,6190)
   Scrivi Space(15) & " Metodo Verter di Ciro Vitale - BOZZA SALVO50" & Space(15),1,,4,,3,,1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 1
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es,R2,P1)
            S(P1) = Fuori90(A(P1) + B(P1))
         Next
         D12(R1) = Distanza(S(1),S(2))
         D23(R1) = Distanza(S(2),S(3))
         D34(R1) = Distanza(S(3),S(4))
         D45(R1) = Distanza(S(4),S(5))
         If R1 = 1 Then
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1
            For R = 1 To 10
               Scrivi Space(16) & SiglaRuota(R) & Sp,1,0
               For P = 1 To 5
                  E(P) = Estratto(Es,R,P)
               Next
               Scrivi StringaNumeri(E,Sp,True),1
            Next
            Scrivi
         End If
         If R1 = 1 Then
            Scrivi "DALL’ESTRAZIONE ABBIAMO IL SEGUENTE QUADRO DEI DIFFERENZIALI “VERTER",1,,,1
            Scrivi Space(15) & "S1" & Sp & "D1" & Sp & "S2" & Sp & "D2" & Sp & "S3" & Sp & "D3",1,0,,2
            Scrivi Sp & "S4" & Sp & "D4" & Sp & "S5",1,,,2
         End If
         Scrivi Space(9) & SiglaRuota(R1) & "-" & SiglaRuota(R2) & Sp & Format2(S(1)) & Sp & Format2(D12(R1)),1,0
         Scrivi Sp & Format2(S(2)) & Sp & Format2(D23(R1)) & Sp & Format2(S(3)) & Sp & Format2(D34(R1)),1,0
         Scrivi Sp & Format2(S(4)) & Sp & Format2(D45(R1)) & Sp & Format2(S(5)),1
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

Non sono a casa dopo lo provo cmq grazie tra 1 po' ti posto qualcos'altro di interessante qua serve vincere un po'

 

[tiberio1]

Non sono a casa dopo lo provo cmq grazie tra 1 po' ti posto qualcos'altro di interessante qua serve vincere un po'

Dovresti chiamare joe91 e gli altri per vedere che ne pensano aspettiamo chi vorrà intervenire

 

[Master]

Ciao a tutti
Ciao salvo50
Non sono un esperto
prova questa soluzione, sicuramente la puoi migliorare

Option Explicit
Sub Main
   Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
   Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
   Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
   Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
   Dim TOTO2,TOTO,TOTODI,POS,SM,CE
   Dim Posta(2),Num1(3)
   Posta(1) = 1 : Posta(2) = 1
   CE = CInt(InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",80))
   Ini = EstrazioneFin - CE : FIn = EstrazioneFin
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 9
         R2 = R1 + 1
         For Po1 = 1 To 4
            PO2 = Po1 + 1
            A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
            AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
            R3 = R2
            R4 = R3 + 1
            If R4 = 11 Then R4 = 1
            For PO3 = 1 To 4
               PO4 = PO3 + 1
               C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
               CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
               '--------------------------------------
               SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
               SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
               '----------------------------------------------
               SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
               SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
               '-------------- DISTANZA ORIZZONTALE
               DSOB = Distanza(SOB,SOBB)
               DSOBB1 = Distanza(SOB1,SOBB1)
               '--------------- SOMME VERT
               SOSOB = Fuori90(SOB + SOB1)
               SOSOB1 = Fuori90(SOBB + SOBB1)
               '--------------- SOMME ORIZ
               SORIZ = Fuori90(SOB + SOBB)
               SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
               '------------------ DIAGONALI
               SODIA = Fuori90(SOB + SOBB1)
               SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
               '-------------------- DIVISIONI
               TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
               If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
                  Co = Co + 1
                  Scrivi String(100,"=") & " " & Co
                  '=======================================================
                  Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
                  ScriviEstrazione(Es)
                  Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
                     If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
                     If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi String(20,"-")
                  '----------------------------
                  Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
                  " x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
                  Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
                  Scrivi String(20,"-")
                  Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
                  Scrivi Space(20) & "+" & Space(30) & "+"
                  Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
                  "Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
                  Scrivi String(20,"-")
                  Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
                  Scrivi Space(20) & "+"
                  Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
                  '-------------------------------------
                  Scrivi
                  Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
                  EliminaRipetuti Num1
                  ImpostaGiocata 1,Num1,Ruo,Posta,9
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto,0
End Sub

OK salvo50 ho corretto la scelta delle estrazioni

 

[salvo50]

Ciao a Tutti.

Ciao Master, per me tu sei un maestro, e lo script secondo me può rimanere così.
ci sarebbe solo da modificare questa riga così, altrimenti fa vedere solo quelle 4 estrazioni

Call ScegliRange(Ini,FIn,Ini,fin)

 

[tiberio1]

Ciao a tutti
Ciao salvo50
Non sono un esperto
prova questa soluzione, sicuramente la puoi migliorare

Option Explicit
Sub Main
   Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
   Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
   Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
   Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
   Dim TOTO2,TOTO,TOTODI,POS,SM
   Dim Posta(2),Num1(3)
   Posta(1) = 1 : Posta(2) = 1
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6188)
   Call ScegliRange(Ini,FIn,Ini,6190)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 9
         R2 = R1 + 1
         For Po1 = 1 To 4
            PO2 = Po1 + 1
            A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
            AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
            R3 = R2
            R4 = R3 + 1
            If R4 = 11 Then R4 = 1
            For PO3 = 1 To 4
               PO4 = PO3 + 1
               C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
               CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
               '--------------------------------------
               SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
               SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
               '----------------------------------------------
               SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
               SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
               '-------------- DISTANZA ORIZZONTALE
               DSOB = Distanza(SOB,SOBB)
               DSOBB1 = Distanza(SOB1,SOBB1)
               '--------------- SOMME VERT
               SOSOB = Fuori90(SOB + SOB1)
               SOSOB1 = Fuori90(SOBB + SOBB1)
               '--------------- SOMME ORIZ
               SORIZ = Fuori90(SOB + SOBB)
               SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
               '------------------ DIAGONALI
               SODIA = Fuori90(SOB + SOBB1)
               SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
               '-------------------- DIVISIONI
               TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
               If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
                  Co = Co + 1
                  Scrivi String(100,"=") & " " & Co
                  '=======================================================
                  Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
                  ScriviEstrazione(Es)
                  Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
                     If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
                     If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi String(20,"-")
                  '----------------------------
                  Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
                  " x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
                  Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
                  Scrivi String(20,"-")
                  Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
                  Scrivi Space(20) & "+" & Space(30) & "+"
                  Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
                  "Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
                  Scrivi String(20,"-")
                  Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
                  Scrivi Space(20) & "+"
                  Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
                  '-------------------------------------
                  Scrivi
                  Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
                  EliminaRipetuti Num1
                  ImpostaGiocata 1,Num1,Ruo,Posta,9
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto,0
End
[/QUOTE]

 

[tiberio1]

Non ne capisco di programmazione aspettiamo lui per definirlo mi piacerebbe imparare