Novità

Per Salvo 50

Raimbow58

Junior Member
Messaggi
13
Punti reazione
0
Punti
1
Se possibile creare uno script che trovi elementi delle terzine simmetriche in questo modo:
su due ruote anche non consecutive, ma in maniera isotopa, due numeri per ruota che sommati diano lo stesso risultato.
Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67

Un grazie in anticipo a chi in grado di farlo, lo pubblicherà.
Saluti
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Se possibile creare uno script che trovi elementi delle terzine simmetriche in questo modo:
su due ruote anche non consecutive, ma in maniera isotopa, due numeri per ruota che sommati diano lo stesso risultato.
Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67

Un grazie in anticipo a chi in grado di farlo, lo pubblicherà.
Saluti

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,Sve1,Sve2
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
   Dim Num(3)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9615)
   Clp = InputBox("Per quanti colpi vuoi giocare la terzina?",,5)
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CHIESTO DA RAIMBOW58 - SCRIPT Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A And C > 0 Then
                     Sve1 = Fuori90(A + C)
                     Sve2 = Fuori90(B + D)
                     If Sve1 = Sve2 Then
                        Num(1) = Sve1
                        Num(2) = Fuori90(Num(1) + 30)
                        Num(3) = Fuori90(Num(1) + 60)
                        OrdinaMatrice Num,1
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi "     Ambi Con",1,,,1
                        Scrivi "   Stessa Somma  " & Space(8) & " Somme" & Space(12) & "Terzina",1,,,1
                        Scrivi "     Vertcale  " & Space(8) & " Verticali" & Space(8) & "Simmetrica",1,,,1
                        ColoreTesto 0
                        Scrivi Space(5) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1,0
                        Scrivi Space(15) & Format2(Sve1) & Space(12) & StringaNumeri(Num," ",True),1
                        Scrivi Space(5) & SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D),1,0
                        Scrivi Space(15) & Format2(Sve2),1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Ciao Salvo ...

... forse manca la condizione per cui gli Ambi-Spia

sono essi stessi appartenenti ad una terzina simmetrica.

:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Ciao joe

Non lo so, perchè il primo numero della terzina simmetrica scaturisce dalle somme in verticale, quindi è sempre singolo il numero iniziale al quale si aggiungono gli altri 2, cioè non considero se negli estratti ce ne siano 2 appartenenti alla stessa terzina, non è dall'estratto che prendo il primo numero della terzina simmetrica, ma dalla somma, le due somme devono essere uguali.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Ciao Salvo,

Bhe, si.

Sono modi di interpretare lo stesso scritto.

Mi sono permesso di suggerire quanto ho scritto perché,

ho notato che non si discosta e si adatta all'esempio dato a descrizione.

Soprattutto perché a discendere dalla questa condizione aggiunta,

si riducono di molto i casi ritrovati dallo script.

Contestualmente, aumenta, di molto il rendimento di un eventuale metodo.

:)
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.106
Punti reazione
54
Punti
48
Salvo, ha ragione Joe
la richiesta parla di ricerca terzine iniziali
Ciao Salvo ...

... forse manca la condizione per cui gli Ambi-Spia

sono essi stessi appartenenti ad una terzina simmetrica.

:)
ti inserisco la la condizione che devi sostituire alla riga 24 dove hai "If A And C > 0 Then"
If B = Fuori90(A + 30) Or B = Fuori90(A + 60) And D = Fuori90(C + 30) Or D = Fuori90(C + 60) Then
saluti

Ps: inserisci una ipotesi di giocate x la terzina che viene fuori dalle somme.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Ciao Salvo,

Bhe, si.

Sono modi di interpretare lo stesso scritto.

Mi sono permesso di suggerire quanto ho scritto perché,

ho notato che non si discosta e si adatta all'esempio dato a descrizione.

Soprattutto perché a discendere dalla questa condizione aggiunta,

si riducono di molto i casi ritrovati dallo script.

Contestualmente, aumenta, di molto il rendimento di un eventuale metodo.

:)
Ciao Joe, ti ringrazio sempre per un qualsiasi tuo intervento, nello script ho fatto solo quello che mi è stato richiesto, senza dare una mia interpretazione che comunque avrei sbagliato se l'avessi interpretato come te perchè non ho pensato completamente agli ambi spia, comunque per me il tuo intervento vale molto se dovessi fare in futuro qualche script, devo ricordarmi degli ambi spia.

Ciao Claudio8, ti ringrazio per il tuo suggerimento, ma come ho già risposto a Joe, Raimbow58 mi ha chiesto, non di prendere gli estratti e calcolare e dagli estratti cercare la terzina simmetrica, ma di fare la somma e poi il risultato delle 2 somme (uguali) deve essere è il primo numero della terzina simmetrica

Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67
 

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Ciao Salvo le leggi sono leggi.

Ognuno le legge a modo suo ed a volte è necessario

il parere autentico del legislatore.

Quello di chi le ha scritte.

Come puoi vedere 50.80 sono in distanza 30

Così pure 17.47 sono in distanza 30.

Se sia un caso ... oppure no,

non lo si può sapere senza il parere di chi ha proposto l'esempio.

Per il resto ... se è una condizione ... piuttosto che un caso,

basta aggiungere:

If Distanza (A,B) = 30 Then
If Distanza (C,D) = 30 Then

Che ... può sostituire quello che ha suggerito Claudio

ed esegue ANCHE un controllo più approfondito

sulla eventuale assenza di Estratti nelle 2 Ruote.

:)
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.261
Punti reazione
119
Punti
63
Ciao a tutti gli intervenuti :)
Credo che l esempio sia fittizio.
Almeno sui miei archivi il treno 1.3.4 non è mai sortito a bari .
Personalmente avrei interpretato lo script proprio come salvo. Range 3950 - 9723
Si passa da 29436 casi ad appena 28 utilizzando l interpretazione di joe ed altri filtri che non ricordo .

Invece non ho capito come utilizzare i dati filtrati.

Ciao :)
Ringrazio joe per il suo intervento e precisione
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Ciao Ilegend.

Come ho detto secondo me c'è scritto ed è nell'esempio.

Poi spetta a chi ha chiesto dire se è si o è no.

In entrambi i casi è del tutto legittimo considerare l'una o l'altra ipotesi.

Più strano invece è quanto scrivi.

Se ci sono già 32 casi nelle ultime 100 estrazioni ...

... è impossibile che essi diminuiscano a 28 aumentando l'ampiezza dell'intervallo considerato.

:)

CHIESTO DA RAIMBOW58 - SCRIPT Salvo50
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0001
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9634 caso 0001
Estrazione n.9634 del 25.05.2019 GE 88 10 83 81 40
Estrazione n.9634 del 25.05.2019 VE 09 04 35 65 64

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
GE 10 40 14 14 44 74
VE 04 64 14
Estrazione generatrice del pronostico 09634 [ 63 - 25/05/2019]
G 0001 Numeri in gioco : 14.44.74 su GE VE per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0002
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9635 caso 0001
Estrazione n.9635 del 28.05.2019 CA 79 70 54 31 01
Estrazione n.9635 del 28.05.2019 GE 32 73 16 31 61

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 31 01 62 02 32 62
GE 31 61 62

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0003
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9635 caso 0002
Estrazione n.9635 del 28.05.2019 FI 60 33 84 18 78
Estrazione n.9635 del 28.05.2019 GE 32 73 16 31 61

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
FI 18 78 49 19 49 79
GE 31 61 49

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0004
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9635 caso 0003
Estrazione n.9635 del 28.05.2019 GE 32 73 16 31 61
Estrazione n.9635 del 28.05.2019 NA 28 01 89 74 44

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
GE 31 61 15 15 45 75
NA 74 44 15

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0005
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9635 caso 0004
Estrazione n.9635 del 28.05.2019 PA 65 13 67 36 05
Estrazione n.9635 del 28.05.2019 NZ 52 05 09 69 22

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
PA 65 05 27 27 57 87
NZ 52 22 27

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0006
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9635 caso 0005
Estrazione n.9635 del 28.05.2019 VE 05 38 68 32 35
Estrazione n.9635 del 28.05.2019 NZ 52 05 09 69 22

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
VE 05 35 57 27 57 87
NZ 52 22 57
Estrazione generatrice del pronostico 09635 [ 64 - 28/05/2019]
G 0001 Numeri in gioco : 02.32.62 su CA GE per Ambo

Interrotta per raggiunta durata

G 0002 Numeri in gioco : 19.49.79 su FI GE per Ambo
V N. [19.49.79 ] [FI] [.. .. .. 49 79] C. 8 Ambo 09643 [ 72 - 15/06/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 15.45.75 su GE NA per Ambo
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 27.57.87 su PA NZ per Ambo
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 27.57.87 su VE NZ per Ambo
Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0007
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9652 caso 0001
Estrazione n.9652 del 06.07.2019 RO 83 57 79 43 73
Estrazione n.9652 del 06.07.2019 VE 61 67 03 18 78

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
RO 43 73 61 01 31 61
VE 18 78 61
Estrazione generatrice del pronostico 09652 [ 81 - 06/07/2019]
G 0001 Numeri in gioco : 01.31.61 su RO VE per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0008
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9654 caso 0001
Estrazione n.9654 del 11.07.2019 CA 02 32 18 64 49
Estrazione n.9654 del 11.07.2019 NA 08 68 78 72 07

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 02 32 10 10 40 70
NA 08 68 10

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0009
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9654 caso 0002
Estrazione n.9654 del 11.07.2019 CA 02 32 18 64 49
Estrazione n.9654 del 11.07.2019 RO 52 22 34 84 07

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 02 32 54 24 54 84
RO 52 22 54
Estrazione generatrice del pronostico 09654 [ 83 - 11/07/2019]
G 0001 Numeri in gioco : 10.40.70 su CA NA per Ambo

Interrotta per raggiunta durata

G 0002 Numeri in gioco : 24.54.84 su CA RO per Ambo
Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0010
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9655 caso 0001
Estrazione n.9655 del 13.07.2019 MI 78 23 38 49 19
Estrazione n.9655 del 13.07.2019 NA 65 83 45 07 37

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
MI 49 19 56 26 56 86
NA 07 37 56
Estrazione generatrice del pronostico 09655 [ 84 - 13/07/2019]
G 0001 Numeri in gioco : 26.56.86 su MI NA per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0011
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9658 caso 0001
Estrazione n.9658 del 20.07.2019 CA 37 21 46 57 81
Estrazione n.9658 del 20.07.2019 FI 66 05 22 48 35

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 21 81 26 26 56 86
FI 05 35 26
Estrazione generatrice del pronostico 09658 [ 87 - 20/07/2019]
G 0001 Numeri in gioco : 26.56.86 su CA FI per Ambo

V N. [26.56.86 ] [FI] [86 .. 26 .. ..] C. 6 Ambo 09664 [ 93 - 03/08/2019]
Interrotta per esito verificato

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0012
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9660 caso 0001
Estrazione n.9660 del 25.07.2019 PA 59 29 02 74 61
Estrazione n.9660 del 25.07.2019 NZ 04 34 62 82 77

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
PA 59 29 63 03 33 63
NZ 04 34 63
Estrazione generatrice del pronostico 09660 [ 89 - 25/07/2019]
G 0001 Numeri in gioco : 03.33.63 su PA NZ per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0013
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9662 caso 0001
Estrazione n.9662 del 30.07.2019 BA 12 42 60 35 52
Estrazione n.9662 del 30.07.2019 NZ 07 67 63 01 20

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
BA 12 42 19 19 49 79
NZ 07 67 19

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0014
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9662 caso 0002
Estrazione n.9662 del 30.07.2019 RO 60 90 39 23 68
Estrazione n.9662 del 30.07.2019 NZ 07 67 63 01 20

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
RO 60 90 67 07 37 67
NZ 07 67 67

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0015
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9662 caso 0003
Estrazione n.9662 del 30.07.2019 TO 06 36 05 58 18
Estrazione n.9662 del 30.07.2019 NZ 07 67 63 01 20

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
TO 06 36 13 13 43 73
NZ 07 67 13
Estrazione generatrice del pronostico 09662 [ 91 - 30/07/2019]
G 0001 Numeri in gioco : 19.49.79 su BA NZ per Ambo

Interrotta per raggiunta durata

G 0002 Numeri in gioco : 07.37.67 su RO NZ per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 13.43.73 su TO NZ per Ambo
Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0016
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9669 caso 0001
Estrazione n.9669 del 16.08.2019 CA 65 44 13 54 84
Estrazione n.9669 del 16.08.2019 VE 45 05 60 62 32

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 54 84 26 26 56 86
VE 62 32 26
Estrazione generatrice del pronostico 09669 [ 98 - 16/08/2019]
G 0001 Numeri in gioco : 26.56.86 su CA VE per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0017
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9672 caso 0001
Estrazione n.9672 del 22.08.2019 PA 90 85 79 27 57
Estrazione n.9672 del 22.08.2019 TO 08 42 05 33 03

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
PA 27 57 60 30 60 90
TO 33 03 60
Estrazione generatrice del pronostico 09672 [101 - 22/08/2019]
G 0001 Numeri in gioco : 30.60.90 su PA TO per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0018
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9683 caso 0001
Estrazione n.9683 del 17.09.2019 CA 15 45 77 36 30
Estrazione n.9683 del 17.09.2019 MI 87 57 33 72 66

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 15 45 12 12 42 72
MI 87 57 12

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0019
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9683 caso 0002
Estrazione n.9683 del 17.09.2019 CA 15 45 77 36 30
Estrazione n.9683 del 17.09.2019 PA 15 75 58 33 84

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
CA 15 45 30 30 60 90
PA 15 75 30

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0020
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9683 caso 0003
Estrazione n.9683 del 17.09.2019 MI 87 57 33 72 66
Estrazione n.9683 del 17.09.2019 NA 63 03 21 62 27

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
MI 87 57 60 30 60 90
NA 63 03 60

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0021
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9683 caso 0004
Estrazione n.9683 del 17.09.2019 NA 63 03 21 62 27
Estrazione n.9683 del 17.09.2019 PA 15 75 58 33 84

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
NA 63 03 78 18 48 78
PA 15 75 78
Estrazione generatrice del pronostico 09683 [112 - 17/09/2019]
G 0001 Numeri in gioco : 12.42.72 su CA MI per Ambo

V N. [12.42.72 ] [MI] [.. 12 .. 42 ..] C. 2 Ambo 09685 [114 - 21/09/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 30.60.90 su CA PA per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 30.60.90 su MI NA per Ambo
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 18.48.78 su NA PA per Ambo
V N. [18.48.78 ] [NA] [.. 78 .. .. 48] C. 7 Ambo 09690 [119 - 03/10/2019]
Interrotta per esito verificato

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0022
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9691 caso 0001
Estrazione n.9691 del 05.10.2019 NA 42 72 74 76 24
Estrazione n.9691 del 05.10.2019 PA 81 51 76 70 83

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
NA 42 72 33 03 33 63
PA 81 51 33
Estrazione generatrice del pronostico 09691 [120 - 05/10/2019]
G 0001 Numeri in gioco : 03.33.63 su NA PA per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0023
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9692 caso 0001
Estrazione n.9692 del 08.10.2019 NA 28 47 35 65 17
Estrazione n.9692 del 08.10.2019 RO 19 41 08 06 71

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
NA 47 17 88 28 58 88
RO 41 71 88
Estrazione generatrice del pronostico 09692 [121 - 08/10/2019]
G 0001 Numeri in gioco : 28.58.88 su NA RO per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0024
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9695 caso 0001
Estrazione n.9695 del 15.10.2019 VE 21 18 35 05 36
Estrazione n.9695 del 15.10.2019 NZ 04 60 40 70 84

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
VE 35 05 75 15 45 75
NZ 40 70 75
Estrazione generatrice del pronostico 09695 [124 - 15/10/2019]
G 0001 Numeri in gioco : 15.45.75 su VE NZ per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0025
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9705 caso 0001
Estrazione n.9705 del 07.11.2019 BA 46 76 88 63 17
Estrazione n.9705 del 07.11.2019 CA 83 53 25 44 13

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
BA 46 76 39 09 39 69
CA 83 53 39
Estrazione generatrice del pronostico 09705 [134 - 07/11/2019]
G 0001 Numeri in gioco : 09.39.69 su BA CA per Ambo

V N. [09.39.69 ] [CA] [.. 39 09 .. ..] C. 1 Ambo 09706 [135 - 09/11/2019]
Interrotta per esito verificato

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0026
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9706 caso 0001
Estrazione n.9706 del 09.11.2019 MI 18 60 45 73 15
Estrazione n.9706 del 09.11.2019 TO 71 01 09 24 39

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
MI 45 15 54 24 54 84
TO 09 39 54
Estrazione generatrice del pronostico 09706 [135 - 09/11/2019]
G 0001 Numeri in gioco : 24.54.84 su MI TO per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0027
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9707 caso 0001
Estrazione n.9707 del 12.11.2019 PA 66 70 79 36 75
Estrazione n.9707 del 12.11.2019 TO 65 55 24 05 26

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
PA 66 36 41 11 41 71
TO 65 05 41
Estrazione generatrice del pronostico 09707 [136 - 12/11/2019]
G 0001 Numeri in gioco : 11.41.71 su PA TO per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0028
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9710 caso 0001
Estrazione n.9710 del 19.11.2019 FI 24 88 74 02 44
Estrazione n.9710 del 19.11.2019 RO 69 75 61 37 01

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
FI 74 44 45 15 45 75
RO 61 01 45
Estrazione generatrice del pronostico 09710 [139 - 19/11/2019]
G 0001 Numeri in gioco : 15.45.75 su FI RO per Ambo

Interrotta per raggiunta durata

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0029
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9714 caso 0001
Estrazione n.9714 del 28.11.2019 RO 87 69 09 02 78
Estrazione n.9714 del 28.11.2019 VE 57 71 41 46 34

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
RO 69 09 50 20 50 80
VE 71 41 50
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 20.50.80 su RO VE per Ambo

V N. [20.50.80 ] [RO] [.. 20 80 .. ..] C. 7 Ambo 09721 [150 - 14/12/2019]
Interrotta per esito verificato

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0030
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9715 caso 0001
Estrazione n.9715 del 30.11.2019 BA 15 50 54 40 80
Estrazione n.9715 del 30.11.2019 NA 56 47 04 08 17

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
BA 50 80 07 07 37 67
NA 47 17 07

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0031
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9715 caso 0002
Estrazione n.9715 del 30.11.2019 PA 32 02 07 05 31
Estrazione n.9715 del 30.11.2019 NZ 30 60 08 41 32

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
PA 32 02 62 02 32 62
NZ 30 60 62
Estrazione generatrice del pronostico 09715 [144 - 30/11/2019]
G 0001 Numeri in gioco : 07.37.67 su BA NA per Ambo

V N. [07.37.67 ] [NA] [67 .. .. .. 37] C. 4 Ambo 09719 [148 - 10/12/2019]
Interrotta per esito verificato

G 0002 Numeri in gioco : 02.32.62 su PA NZ per Ambo
In corso per altre 1 estrazioni
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0032
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9718 caso 0001
Estrazione n.9718 del 07.12.2019 FI 43 88 78 73 83
Estrazione n.9718 del 07.12.2019 RO 55 81 32 25 13

Ambi Con
Stessa Somma Somme Terzina
Vertcale Verticali Simmetrica
FI 43 73 08 08 38 68
RO 55 25 08
Estrazione generatrice del pronostico 09718 [147 - 07/12/2019]
G 0001 Numeri in gioco : 08.38.68 su FI RO per Ambo

In corso per altre 4 estrazioni

:)
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.261
Punti reazione
119
Punti
63
Ciao joe , non ho inserito la nazionale e molto probabilmente ho utilizzato una condizione filtro che restringe ulteriormente la ricerca.
Purtroppo mon ho salvato lo script.
Per costruire un algoritmo , bisogna seguire delle istruzioni. Non ci deve essere spazio per le interpretazioni.

Ciao :)
 

Raimbow58

Junior Member
Messaggi
13
Punti reazione
0
Punti
1
Se possibile creare uno script che trovi elementi delle terzine simmetriche in questo modo:
su due ruote anche non consecutive, ma in maniera isotopa, due numeri per ruota che sommati diano lo stesso risultato.
Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67

Un grazie in anticipo a chi in grado di farlo, lo pubblicherà.
Saluti
Ciao Salvo le leggi sono leggi.

Ognuno le legge a modo suo ed a volte è necessario

il parere autentico del legislatore.

Quello di chi le ha scritte.

Come puoi vedere 50.80 sono in distanza 30

Così pure 17.47 sono in distanza 30.

Se sia un caso ... oppure no,

non lo si può sapere senza il parere di chi ha proposto l'esempio.

Per il resto ... se è una condizione ... piuttosto che un caso,

basta aggiungere:

If Distanza (A,B) = 30 Then
If Distanza (C,D) = 30 Then

Che ... può sostituire quello che ha suggerito Claudio

ed esegue ANCHE un controllo più approfondito

sulla eventuale assenza di Estratti nelle 2 Ruote.

:)
In effetti nell'esempio che avevo fatto, sia il 50 80, che il 47 17 fanno parte entrambi di due terzine simmetriche.
In quale riga va aggiunta la modifica che ha proposto Joe?
Grazie
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.261
Punti reazione
119
Punti
63
Ciao joe, ho verificato . La tua disamina è corretta .
Ciao :)
 

Raimbow58

Junior Member
Messaggi
13
Punti reazione
0
Punti
1
Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,Sve1,Sve2
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
   Dim Num(3)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9615)
   Clp = InputBox("Per quanti colpi vuoi giocare la terzina?",,5)
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CHIESTO DA RAIMBOW58 - SCRIPT Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A And C > 0 Then
                     Sve1 = Fuori90(A + C)
                     Sve2 = Fuori90(B + D)
                     If Sve1 = Sve2 Then
                        Num(1) = Sve1
                        Num(2) = Fuori90(Num(1) + 30)
                        Num(3) = Fuori90(Num(1) + 60)
                        OrdinaMatrice Num,1
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi "     Ambi Con",1,,,1
                        Scrivi "   Stessa Somma  " & Space(8) & " Somme" & Space(12) & "Terzina",1,,,1
                        Scrivi "     Verticale  " & Space(8) & " Verticali" & Space(8) & "Simmetrica",1,,,1
                        ColoreTesto 0
                        Scrivi Space(5) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1,0
                        Scrivi Space(15) & Format2(Sve1) & Space(12) & StringaNumeri(Num," ",True),1
                        Scrivi Space(5) & SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D),1,0
                        Scrivi Space(15) & Format2(Sve2),1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
Ciao Joe, ti ringrazio sempre per un qualsiasi tuo intervento, nello script ho fatto solo quello che mi è stato richiesto, senza dare una mia interpretazione che comunque avrei sbagliato se l'avessi interpretato come te perchè non ho pensato completamente agli ambi spia, comunque per me il tuo intervento vale molto se dovessi fare in futuro qualche script, devo ricordarmi degli ambi spia.

Ciao Claudio8, ti ringrazio per il tuo suggerimento, ma come ho già risposto a Joe, Raimbow58 mi ha chiesto, non di prendere gli estratti e calcolare e dagli estratti cercare la terzina simmetrica, ma di fare la somma e poi il risultato delle 2 somme (uguali) deve essere è il primo numero della terzina simmetrica

Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67
Ciao Joe, ti ringrazio sempre per un qualsiasi tuo intervento, nello script ho fatto solo quello che mi è stato richiesto, senza dare una mia interpretazione che comunque avrei sbagliato se l'avessi interpretato come te perchè non ho pensato completamente agli ambi spia, comunque per me il tuo intervento vale molto se dovessi fare in futuro qualche script, devo ricordarmi degli ambi spia.

Ciao Claudio8, ti ringrazio per il tuo suggerimento, ma come ho già risposto a Joe, Raimbow58 mi ha chiesto, non di prendere gli estratti e calcolare e dagli estratti cercare la terzina simmetrica, ma di fare la somma e poi il risultato delle 2 somme (uguali) deve essere è il primo numero della terzina simmetrica

Esempio:
BARI 1 50 3 4 80
NAPOLI 1 47 3 4 17
Il 50 di Bari sommato al 47 di Napoli fa 97-90=7
L'80 di Bari sommato al 17 di Napoli fa 97-90=7
Il 7 fa parte della terzina simmetrica 7 37 67
Ciao Salvo50, ho aggiunto la modifica che ha proposto Claudio8 che trova due numeri distanza 30 della stessa terzina simmetrica, però nella mia richiesta ho dimenticato di specificare che la somma dei due numeri in verticale deve dare come risultato i numeri di una nuova terzina.
Es: CA 69 18 78 08 48
MI 14 36 06 73 57
54 84
Spero sia possibile la modifica, intanto vi rinnovo il mio grazie e vi faccio gli auguri di buone feste.
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Ciao Salvo50, ho aggiunto la modifica che ha proposto Claudio8 che trova due numeri distanza 30 della stessa terzina simmetrica, però nella mia richiesta ho dimenticato di specificare che la somma dei due numeri in verticale deve dare come risultato i numeri di una nuova terzina.
Es: CA 69 18 78 08 48
MI 14 36 06 73 57
54 84
Spero sia possibile la modifica, intanto vi rinnovo il mio grazie e vi faccio gli auguri di buone feste.
Mi sono riletto con calma la richiesta di Raimbow58, ed effettivamente dice che i 2 ambi devono appartenere alla stessa terzina simmetrica, però come ha fatto la richiesta secondo me è un pochino ambigua, io non l'avevo capita in quel senso, infatti avevo cercato tutti i tipi di ambi che sommati in verticale davano la stessa somma, chiarito questo inserire la modifica di Claudio8 è d'obblico, quindi il mio script va bene così con la modifica di Claudio8

A riguardo dell'ultima richiesta

Es: CA 69 18 78 08 48
MI 14 36 06 73 57
54 84

quindi le 2 somme non devono essere più uguali ma appartenere alla stessa terzina simmetrica, lo confermi?
 

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Potrebbe essere così:

Option Explicit
Sub Main
Dim Fin,Es,Ini,Clp,Salvo50,E1,E2,Sve1,Sve2
Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
Dim Num(3)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,Fin - 99)
Clp = InputBox("Per quanti colpi vuoi giocare la terzina?",,5)
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " CHIESTO DA RAIMBOW58 - SCRIPT Salvo50",1,,4,,3,,1
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
If Distanza(A,B) = 30 Then
If Distanza(C,D) = 30 Then
Sve1 = Fuori90(A + C)
Sve2 = Fuori90(B + D)
If Distanza(Sve1,Sve2) = 30 Then
Num(1) = Sve1
Num(2) = Fuori90(Num(1) + 30)
Num(3) = Fuori90(Num(1) + 60)
OrdinaMatrice Num,1
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Ambi Con",1,,,1
Scrivi " Stessa Somma " & Space(8) & " Somme" & Space(12) & "Terzina",1,,,1
Scrivi " Vertcale " & Space(8) & " Verticali" & Space(8) & "Simmetrica",1,,,1
ColoreTesto 0
Scrivi Space(5) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1,0
Scrivi Space(15) & Format2(Sve1) & Space(12) & StringaNumeri(Num," ",True),1
Scrivi Space(5) & SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D),1,0
Scrivi Space(15) & Format2(Sve2),1
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

:)
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Potrebbe essere così:

Option Explicit
Sub Main
Dim Fin,Es,Ini,Clp,Salvo50,E1,E2,Sve1,Sve2
Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
Dim Num(3)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,Fin - 99)
Clp = InputBox("Per quanti colpi vuoi giocare la terzina?",,5)
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " CHIESTO DA RAIMBOW58 - SCRIPT Salvo50",1,,4,,3,,1
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
If Distanza(A,B) = 30 Then
If Distanza(C,D) = 30 Then
Sve1 = Fuori90(A + C)
Sve2 = Fuori90(B + D)
If Distanza(Sve1,Sve2) = 30 Then
Num(1) = Sve1
Num(2) = Fuori90(Num(1) + 30)
Num(3) = Fuori90(Num(1) + 60)
OrdinaMatrice Num,1
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Ambi Con",1,,,1
Scrivi " Stessa Somma " & Space(8) & " Somme" & Space(12) & "Terzina",1,,,1
Scrivi " Vertcale " & Space(8) & " Verticali" & Space(8) & "Simmetrica",1,,,1
ColoreTesto 0
Scrivi Space(5) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1,0
Scrivi Space(15) & Format2(Sve1) & Space(12) & StringaNumeri(Num," ",True),1
Scrivi Space(5) & SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D),1,0
Scrivi Space(15) & Format2(Sve2),1
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

:)
Si, penso che questo script soddisfi l'ultima richiesta di Raimbow58
 

joe

Advanced Member >PLATINUM<
Messaggi
1.047
Punti reazione
43
Punti
48
Salvo, il tuo è un ottimo script.

Dunque è semplice e possibile applicare le modifiche richieste.

Posso aggiungere che queste ultime migliorano

ulteriormente il rendimento del metodo.

:)
 

Raimbow58

Junior Member
Messaggi
13
Punti reazione
0
Punti
1
Mi sono riletto con calma la richiesta di Raimbow58, ed effettivamente dice che i 2 ambi devono appartenere alla stessa terzina simmetrica, però come ha fatto la richiesta secondo me è un pochino ambigua, io non l'avevo capita in quel senso, infatti avevo cercato tutti i tipi di ambi che sommati in verticale davano la stessa somma, chiarito questo inserire la modifica di Claudio8 è d'obblico, quindi il mio script va bene così con la modifica di Claudio8

A riguardo dell'ultima richiesta

Es: CA 69 18 78 08 48
MI 14 36 06 73 57
54 84

quindi le 2 somme non devono essere più uguali ma appartenere alla stessa terzina simmetrica, lo confermi?
Si
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 febbraio 2020
    Bari
    30
    83
    35
    44
    75
    Cagliari
    23
    88
    76
    57
    72
    Firenze
    22
    69
    27
    04
    83
    Genova
    75
    87
    40
    50
    16
    Milano
    37
    42
    17
    71
    51
    Napoli
    43
    71
    19
    47
    44
    Palermo
    43
    20
    24
    28
    32
    Roma
    68
    74
    81
    50
    09
    Torino
    22
    76
    90
    77
    61
    Venezia
    31
    32
    72
    24
    74
    Nazionale
    80
    74
    01
    39
    77
Alto