Novità

LA DIAGONALE 45 (per salvo50 o altri esperti script)

vinci

Super Member >GOLD<
Un caro saluto a tutti, avevo già postato questo metodo un paio di giorni fa.
Lo ripropongo perchè ho apportato delle piccole modifiche e correzioni.
Se qualcuno ha tempo e voglia, sarebbe cosa gradita creare lo script.
Grazie in anticipo a chi vorrà dedicare il suo tempo alla mia richiesta.

LA DIAGONALE 45
Si ricavano su due Ruote :
1 Ambata
3 Ambi secchi
1 Quartina per Ambo,Terno e Quaterna
1 Cinquina per Ambo,Terno,Quaterna e Cinquina

BISOGNA RINTRACCIARE SU 2 RUOTE 2 AMBI ISOTOPI MA NON NECESSARIAMENTE UNITI DI CUI IN DIAGONALE ABBIA UNA SOLA DISTANZA *45* , SE RINTRACCIAMO I 2 AMBI SU RUOTE NON CONSECUTIVE , TUTTI E 4 I NUMERI CHE GENERANO LA FORMAZIONE DEVONO APPARTENERE ALLA STESSA TRIPLA FIGURALE PER QUANTO RIGUARDA LE RUOTE CONSECUTIVE VA BENE ANCHE SENZA CHE APPARTENGONO ALLE STESSA TRIPLA FIGURALE .

LE TRIPLE FIGURALI SONO 3 :

1) TRIPLA FIGURALE MINIMA =1-4-7
2) TRIPLA FIGURALE MEDIA =2-5-8
3) TRIPLA FIGURALE MASSIMA =3-6-9

UNA VOLTA RINTRACCIATI I 2 AMBI AVENTE UNA DISTANZA IN DIAGONALE *45* SI OPERA IN QUESTO MODO :
----------------------------------------------------------------------------------------------------------------------------------------------------------------
IL 30/6/07 SULLE RUOTE DI RO-TO VENGONO ESTRATTI QUESTI NUMERI:

ROMA 61-75-39-69-73
TORINO 83-48-24-71-57

RO=39-69
TO=24-71

SE NOTATE BENE GLI AMBI SONO ISOTOPI E HANNO IN DIAGONALE UNA DISTANZA *45* 24-69, A QUESTO PUNTO SI FA QUESTO TIPO DI OPERAZIONE QUI CHE VALE ANCHE PER LE ALTRE PREVISIONI E SARA' SEMPRE COSI :

SI CALCOLA LA DIFFERENZA E NON LA ( DISTANZA CICLOMETRICA ) , TRA LA PRIMA RUOTA IN ORDINE DI SORTITA CHE E' *ROMA* 39-69 = 30 , IL N° 30 VA SOMMATO AI 4 NUMERI RINTRACCIATI .
30+39= 69, 30+69 = 9, 30+24= 54, 30+71 = 11, UNA VOLTA RICAVATI I 4 NUMERI , NOTERETE CHE C'E' UN NUMERO CHE CORRISPONDE A UN NUMERO DELLA FORMAZIONE DI CALCOLO CHE E' IL *69* CHE LO TROVIAMO A ROMA , E PROPRIO QUESTO NUMERO SARA LA NOSTRA AMBATA O CAPOGIOCO , DA ABBINARE AGLI ALTRI 3 NUMERI COSI FORMANDO 3 AMBI SECCHI .

QUINDI PREVISIONE IN GIOCO E' :
ROMA-TORINO:
AMBATA *69*
AMBI SECCHI : *69-9*, *69-54*, *69-11*

INFINE VA GIOCATA ANCHE LA QUARTINA X AMBO E X LE SORTI SUPERIORI COMPOSTA DAI 4 NUMERI RICAVATI *69-9-54-11*
PER GIOCARE ANCHE LA CINQUINA AGGIUNGERE IL NUMERO *30* CHE è LA DIFFERENZA CHE ABBIAMO CALCOLATO I 4 NUMERI , QUINDI CINQUINA : *69-9-54-11-30*

IL TUTTO VA GIOCATO PER 8 COLPI DI GIOCO,

ESITO: AL 5° COLPO SORTISCE L'AMBATA 69 E L' AMBO SECCO SU TORINO *69-11*
----------------------------------------------------------------------------------------------------------------------------------------------------------------

FACCIAMO UN ALTRO ESEMPIO PER VEDERE SE QUESTO METODO HA FUNZIONATO ANCHE NEL PASSATO .
ANDIAMO NELL ESTRAZIONE DEL 10/10/06 SU CAGLIARI - MILANO VENGONO ESTRATTI QUESTI NUMERI:

CAGLIARI 51-82-50-19-47
MILANO 83-64-53-40-67

CA=82-19
MI=64-40

COME POTETE NOTARE L AMBO IN DIAGONALE DI DISTANZA *45 CI E' DATO DAI NUMERI *19-64*, STAVOLTA LE RUOTE NON SONO CONSECUTIVE , MA GLI AMBI APPARTENGONO ALLA STESSA TRIPLA FIGURALE CIOE' 1-4-7.
INFATTI 82 E DI FIGURA 1 , 19 DI FIGURA 1 , 64 DI FIGURA 1 , E 40 DI FIGURA 4 .
A QUESTO PUNTO CALCOLIAMO LA NOSTRA PREVISIONE E FACCIAMO LA DIFFERENZA DEL PRIMO AMBO DELLA PRIMA RUOTA IN ORDINE DI SORTITA ,
CHE E' IN QUESTO CASO *CAGLIARI*,
QUINDI FACCIAMO 82-19 = (63) IL 63 SI VA A SOMMARE A I 4 NUMERI E FAREMO 63+82 = 55, 63+19= 82, 63+64= 37, 63+40=13

L AMBATA O CAPOGIOCO E' DATA DAL N° *82* CHE E' IL NUMERO CHE SI RISCONTRA NELLA FORMAZIONE RINTRACCIATA SU CA-MI, QUINDI LA PREVISIONE E' LA SEGUENTE
CA-MI
AMBATA *82*,
AMBI SECCHI *82-55*, *82-37*, *82-13*

LA QUARTINA X AMBO E SORTI SUPERIORI E' COMPOSTA DAI 4 NUMERI RICAVATI *82-55-37-13*,
PER CHI VUOLE GIOCARE ANCHE LA CINQUINA AGGIUNGERE IL N° DIFFERENZA CHE E' (63) QUINDI *82-55-37-13-63*

ESITO: AL 2° COLPO SU MILANO SORTISCE L'AMBATA 82
E IL DOPPIO AMBO *82-55*, *82-37*,
E TERNO SECCO *82-55-37*
AL 5° COLPO SORTISCE L'AMBATA 82
E L'AMBO *82-13* A CAGLIARI

PENSO CHE SONO STATO ABBASTANZA CHIARO AD ESPLICARE QUESTO PROCEDIMENTO.LA
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Ciao Vinci, anche se sei stato molto chiaro nelle spiegazioni, vedi se può andare


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,A,B,C,D,P1,P2,P5,P6,E1,E2
   Dim FiA,FiB,FiC,FiD,Caso,Casi
   Dim DiAD,DiBC,Diff_Or,SomA,SomB,SomC,SomD
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Qua(4),Penta(5)
   Dim Ruo(2),Post1(1),Post2(2),Post3(5),M(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9835)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare per le altre sorti?",,8)
   Call ScegliRange (Ini,FIn,Ini,FIn)
   Scrivi Space(18) & " LA DIAGONALE 45 di VINCI - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   'Post3(4) = 1
   'Post3(5) = 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
               A = Estratto(Es,R1,P1)
               If A > 0 Then
                  B = Estratto(Es,R1,P2)
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 - 1 <> R1 Then
                        C = Estratto(Es,R2,P1)
                        If C > 0 Then
                           D = Estratto(Es,R2,P2)
                           FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                           If((FiA = 1 Or FiA = 4 Or FiA = 7) And(FiB = 1 Or FiB = 4 Or FiB = 7) _
                              And(FiC = 1 Or FiC = 4 Or FiC = 7) And(FiD = 1 Or FiD = 4 Or FiD = 7)) _
                              Or((FiA = 2 Or FiA = 5 Or FiA = 8) And(FiB = 2 Or FiB = 5 Or FiB = 8) _
                              And(FiC = 2 Or FiC = 5 Or FiC = 8) And(FiD = 2 Or FiD = 5 Or FiD = 8)) _
                              Or((FiA = 3 Or FiA = 6 Or FiA = 9) And(FiB = 3 Or FiB = 6 Or FiB = 9) _
                              And(FiC = 3 Or FiC = 6 Or FiC = 9) And(FiD = 3 Or FiD = 6 Or FiD = 9)) Then
                              'A--B
                              '|  |
                              'C--D
                              DiAD = Distanza(A,D)
                              DiBC = Distanza(B,C)
                              If DiAD = 45 Or DiBC = 45 Then
                                 Diff_Or = Differenza(A,B)
                                 M(1) = A : M(2) = B
                                 Call OrdinaMatrice(M,1)
                                 SomA = Fuori90(Diff_Or + A) : SomB = Fuori90(Diff_Or + B)
                                 SomC = Fuori90(Diff_Or + C) : SomD = Fuori90(Diff_Or + D)
                                 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 P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " (Evidenziati con stessa Tripla Figurale)",1,,,2
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " ( Per Ruote Non Consecutive            )",1,,,1
                                 Scrivi "    Con Dist. 45" & Space(7) & "Differenza" & Space(12) & "Somme Per   ",1
                                 Scrivi "    In Diagonale " & Space(6) & "Orizzontale" & Space(11) & "Abbinamenti ",1
                                 Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(10) & Format2(M(2)) & " - ",1,0
                                 Scrivi Format2(M(1)) & " = " & Format2(Diff_Or) & Space(10) & Format2(Diff_Or) & " + ",1,0
                                 Scrivi Format2(A) & " = " & Format2(SomA),1
                                 Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(32) & Format2(Diff_Or) & " + ",1,0
                                 Scrivi Format2(B) & " = " & Format2(SomB),1
                                 Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(C) & " = " & Format2(SomC),1
                                 Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(D) & " = " & Format2(SomD),1
                                 Scrivi Space(12) & "Pronostico ",1,,,1
                                 Scrivi "            Ambata " & Format2(SomA),1
                                 Scrivi "            Ambo1  " & Format2(SomA) & " " & Format2(SomB),1
                                 Scrivi "            Ambo2  " & Format2(SomA) & " " & Format2(SomC),1
                                 Scrivi "            Ambo3  " & Format2(SomA) & " " & Format2(SomD),1
                                 Scrivi "         Quartina  " & Format2(SomA) & " " & Format2(SomB),1,0
                                 Scrivi " " & Format2(SomC) & " " & Format2(SomD),1
                                 Scrivi "         Cinquina  " & Format2(SomA) & " " & Format2(SomB),1,0
                                 Scrivi " " & Format2(SomC) & " " & Format2(SomD) & " " & Format2(Diff_Or),1
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Amba(1) = SomA
                                 ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                                 Ambo1(1) = SomA : Ambo1(2) = SomB
                                 ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                                 Ambo2(1) = SomA : Ambo2(2) = SomC
                                 ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                                 Ambo3(1) = SomA : Ambo3(2) = SomD
                                 ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
                                 Qua(1) = SomA : Qua(2) = SomB
                                 Qua(3) = SomC : Qua(4) = SomD
                                 ImpostaGiocata 5,Qua,Ruo,Post3,Clp2
                                 Penta(1) = SomA : Penta(2) = SomB
                                 Penta(3) = SomC : Penta(4) = SomD : : Penta(5) = Diff_Or
                                 ImpostaGiocata 6,Penta,Ruo,Post3,Clp2
                                 Gioca Es
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               If A > 0 Then
                  B = Estratto(Es,R1,P2)
                  R2 = R1 + 1
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  If C > 0 Then
                     D = Estratto(Es,R2,P2)
                     'A--B
                     '|  |
                     'C--D
                     DiAD = Distanza(A,D)
                     DiBC = Distanza(B,C)
                     If DiAD = 45 Or DiBC = 45 Then
                        Diff_Or = Differenza(A,B)
                        M(1) = A : M(2) = B
                        Call OrdinaMatrice(M,1)
                        SomA = Fuori90(Diff_Or + A) : SomB = Fuori90(Diff_Or + B)
                        SomC = Fuori90(Diff_Or + C) : SomD = Fuori90(Diff_Or + D)
                        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 P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           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 P6 = 1 To 5
                           E2 = Estratto(Es,R2,P6)
                           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 "    Con Dist. 45" & Space(7) & "Differenza" & Space(12) & "Somme Per   ",1
                        Scrivi "    In Diagonale " & Space(6) & "Orizzontale" & Space(11) & "Abbinamenti ",1
                        Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(10) & Format2(M(2)) & " - ",1,0
                        Scrivi Format2(M(1)) & " = " & Format2(Diff_Or) & Space(10) & Format2(Diff_Or) & " + ",1,0
                        Scrivi Format2(A) & " = " & Format2(SomA),1
                        Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(32) & Format2(Diff_Or) & " + ",1,0
                        Scrivi Format2(B) & " = " & Format2(SomB),1
                        Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(C) & " = " & Format2(SomC),1
                        Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(D) & " = " & Format2(SomD),1
                        Scrivi Space(12) & "Pronostico ",1,,,1
                        Scrivi "            Ambata " & Format2(SomA),1
                        Scrivi "            Ambo1  " & Format2(SomA) & " " & Format2(SomB),1
                        Scrivi "            Ambo2  " & Format2(SomA) & " " & Format2(SomC),1
                        Scrivi "            Ambo3  " & Format2(SomA) & " " & Format2(SomD),1
                        Scrivi "         Quartina  " & Format2(SomA) & " " & Format2(SomB),1,0
                        Scrivi " " & Format2(SomC) & " " & Format2(SomD),1
                        Scrivi "         Cinquina  " & Format2(SomA) & " " & Format2(SomB),1,0
                        Scrivi " " & Format2(SomC) & " " & Format2(SomD) & " " & Format2(Diff_Or),1
                        Ruo(1) = R1 : Ruo(2) = R2
                        Amba(1) = SomA
                        ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                        Ambo1(1) = SomA : Ambo1(2) = SomB
                        ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                        Ambo2(1) = SomA : Ambo2(2) = SomC
                        ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                        Ambo3(1) = SomA : Ambo3(2) = SomD
                        ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
                        Qua(1) = SomA : Qua(2) = SomB
                        Qua(3) = SomC : Qua(4) = SomD
                        ImpostaGiocata 5,Qua,Ruo,Post3,Clp2
                        Penta(1) = SomA : Penta(2) = SomB
                        Penta(3) = SomC : Penta(4) = SomD : : Penta(5) = Diff_Or
                        ImpostaGiocata 6,Penta,Ruo,Post3,Clp2
                        Gioca Es
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

vinci

Super Member >GOLD<
Grazie salvo è proprio lui e lo script è fatto a regola d'arte!
Purtroppo il metodo genera troppe previsioni e questo è un problema,
bisognerebbe mettere qualche paletto per evitare troppe previsioni in gioco in contemporanea.......
Comunque ancora grazie, ottimo lavoro salvo!
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho provato come paletto di mettere tutte e due le diagonali a 45, pero è troppo rigido, iniziando dalla prima estrazione del 1871 ad oggi sono risultati 224 casi, 1 ogni 44 concorsi.
 

vinci

Super Member >GOLD<
Ciao a Tutti.

Ho provato come paletto di mettere tutte e due le diagonali a 45, pero è troppo rigido, iniziando dalla prima estrazione del 1871 ad oggi sono risultati 224 casi, 1 ogni 44 concorsi.
Ciao salvo, se si provasse con queste condizioni
a) 2 ambi isotopi uniti e solo su ruote consecutive
b) tutti e quattro i numeri appartenenti alla stessa tripla figurale.

Si snatura il metodo originale, però dovrebbe generare molte meno previsioni......
Se vuoi provare...... Grazie in anticipo
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao salvo, se si provasse con queste condizioni
a) 2 ambi isotopi uniti e solo su ruote consecutive
b) tutti e quattro i numeri appartenenti alla stessa tripla figurale.

Si snatura il metodo originale, però dovrebbe generare molte meno previsioni......
Se vuoi provare...... Grazie in anticipo
Ciao Vinci, non hai specificato se volevi anche la distanza 45 della diagonale, quindi l'ho modificato con la diagonale 45 e senza.

Senza distanza diagonale 45

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,A,B,C,D,P1,P2,P5,P6,E1,E2
   Dim FiA,FiB,FiC,FiD,Caso,Casi
   Dim DiAD,DiBC,Diff_Or,SomA,SomB,SomC,SomD
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Qua(4),Penta(5)
   Dim Ruo(2),Post1(1),Post2(2),Post3(5),M(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare per le altre sorti?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Ruote Consecutive, Ambi Uniti ed Isotopi - di Vinci - script Salvo50" & Space(8),1,,4,,3,,1
   Scrivi Space(23) & "Estratti con la Stessa Tripla Figurale" & Space(23),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   'Post3(4) = 1
   'Post3(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es,R1,P1)
            If A > 0 Then
               B = Estratto(Es,R1,P2)
               R2 = R1 + 1
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               If C > 0 Then
                  D = Estratto(Es,R2,P2)
                  FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                  If((FiA = 1 Or FiA = 4 Or FiA = 7) And(FiB = 1 Or FiB = 4 Or FiB = 7) _
                     And(FiC = 1 Or FiC = 4 Or FiC = 7) And(FiD = 1 Or FiD = 4 Or FiD = 7)) _
                     Or((FiA = 2 Or FiA = 5 Or FiA = 8) And(FiB = 2 Or FiB = 5 Or FiB = 8) _
                     And(FiC = 2 Or FiC = 5 Or FiC = 8) And(FiD = 2 Or FiD = 5 Or FiD = 8)) _
                     Or((FiA = 3 Or FiA = 6 Or FiA = 9) And(FiB = 3 Or FiB = 6 Or FiB = 9) _
                     And(FiC = 3 Or FiC = 6 Or FiC = 9) And(FiD = 3 Or FiD = 6 Or FiD = 9)) Then
                     'A--B
                     '|  |
                     'C--D
                     DiAD = Distanza(A,D)
                     DiBC = Distanza(B,C)
                     Diff_Or = Differenza(A,B)
                     M(1) = A : M(2) = B
                     Call OrdinaMatrice(M,1)
                     SomA = Fuori90(Diff_Or + A) : SomB = Fuori90(Diff_Or + B)
                     SomC = Fuori90(Diff_Or + C) : SomD = Fuori90(Diff_Or + D)
                     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 P5 = 1 To 5
                        E1 = Estratto(Es,R1,P5)
                        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 P6 = 1 To 5
                        E2 = Estratto(Es,R2,P6)
                        If E2 = C Or E2 = D Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi "      Estratti  " & Space(8) & "Differenza" & Space(12) & "Somme Per   ",1
                     Scrivi "  Uniti ed Isotopi " & Space(5) & "Orizzontale" & Space(10) & "Abbinamenti ",1
                     Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(10) & Format2(M(2)) & " - ",1,0
                     Scrivi Format2(M(1)) & " = " & Format2(Diff_Or) & Space(10) & Format2(Diff_Or) & " + ",1,0
                     Scrivi Format2(A) & " = " & Format2(SomA),1
                     Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(32) & Format2(Diff_Or) & " + ",1,0
                     Scrivi Format2(B) & " = " & Format2(SomB),1
                     Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(C) & " = " & Format2(SomC),1
                     Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(D) & " = " & Format2(SomD),1
                     Scrivi Space(12) & "Pronostico ",1,,,1
                     Scrivi "            Ambata " & Format2(SomA),1
                     Scrivi "            Ambo1  " & Format2(SomA) & " " & Format2(SomB),1
                     Scrivi "            Ambo2  " & Format2(SomA) & " " & Format2(SomC),1
                     Scrivi "            Ambo3  " & Format2(SomA) & " " & Format2(SomD),1
                     Scrivi "         Quartina  " & Format2(SomA) & " " & Format2(SomB),1,0
                     Scrivi " " & Format2(SomC) & " " & Format2(SomD),1
                     Scrivi "         Cinquina  " & Format2(SomA) & " " & Format2(SomB),1,0
                     Scrivi " " & Format2(SomC) & " " & Format2(SomD) & " " & Format2(Diff_Or),1
                     Ruo(1) = R1 : Ruo(2) = R2
                     Amba(1) = SomA
                     ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                     Ambo1(1) = SomA : Ambo1(2) = SomB
                     ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                     Ambo2(1) = SomA : Ambo2(2) = SomC
                     ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                     Ambo3(1) = SomA : Ambo3(2) = SomD
                     ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
                     Qua(1) = SomA : Qua(2) = SomB
                     Qua(3) = SomC : Qua(4) = SomD
                     ImpostaGiocata 5,Qua,Ruo,Post3,Clp2
                     Penta(1) = SomA : Penta(2) = SomB
                     Penta(3) = SomC : Penta(4) = SomD : : Penta(5) = Diff_Or
                     ImpostaGiocata 6,Penta,Ruo,Post3,Clp2
                     Gioca Es
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
End Sub

Con distanza diagonale 45


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,A,B,C,D,P1,P2,P5,P6,E1,E2
   Dim FiA,FiB,FiC,FiD,Caso,Casi
   Dim DiAD,DiBC,Diff_Or,SomA,SomB,SomC,SomD
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Qua(4),Penta(5)
   Dim Ruo(2),Post1(1),Post2(2),Post3(5),M(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9835)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare per le altre sorti?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & " LA DIAGONALE 45 (estratti con la stessa tripla figurale) di VINCI - SCRIPT SALVO50" & Space(1),1,,4,,3,,1
   Scrivi Space(22) & "Ruote Consecutive, Ambi Uniti ed Isotopi " & Space(22),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   'Post3(4) = 1
   'Post3(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es,R1,P1)
            If A > 0 Then
               B = Estratto(Es,R1,P2)
               R2 = R1 + 1
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               If C > 0 Then
                  D = Estratto(Es,R2,P2)
                  FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                  If((FiA = 1 Or FiA = 4 Or FiA = 7) And(FiB = 1 Or FiB = 4 Or FiB = 7) _
                     And(FiC = 1 Or FiC = 4 Or FiC = 7) And(FiD = 1 Or FiD = 4 Or FiD = 7)) _
                     Or((FiA = 2 Or FiA = 5 Or FiA = 8) And(FiB = 2 Or FiB = 5 Or FiB = 8) _
                     And(FiC = 2 Or FiC = 5 Or FiC = 8) And(FiD = 2 Or FiD = 5 Or FiD = 8)) _
                     Or((FiA = 3 Or FiA = 6 Or FiA = 9) And(FiB = 3 Or FiB = 6 Or FiB = 9) _
                     And(FiC = 3 Or FiC = 6 Or FiC = 9) And(FiD = 3 Or FiD = 6 Or FiD = 9)) Then
                     'A--B
                     '|  |
                     'C--D
                     DiAD = Distanza(A,D)
                     DiBC = Distanza(B,C)
                     If DiAD = 45 Or DiBC = 45 Then
                        Diff_Or = Differenza(A,B)
                        M(1) = A : M(2) = B
                        Call OrdinaMatrice(M,1)
                        SomA = Fuori90(Diff_Or + A) : SomB = Fuori90(Diff_Or + B)
                        SomC = Fuori90(Diff_Or + C) : SomD = Fuori90(Diff_Or + D)
                        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 P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           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 P6 = 1 To 5
                           E2 = Estratto(Es,R2,P6)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi "    Con Dist. 45" & Space(7) & "Differenza" & Space(12) & "Somme Per   ",1
                        Scrivi "    In Diagonale " & Space(6) & "Orizzontale" & Space(11) & "Abbinamenti ",1
                        Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(10) & Format2(M(2)) & " - ",1,0
                        Scrivi Format2(M(1)) & " = " & Format2(Diff_Or) & Space(10) & Format2(Diff_Or) & " + ",1,0
                        Scrivi Format2(A) & " = " & Format2(SomA),1
                        Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(32) & Format2(Diff_Or) & " + ",1,0
                        Scrivi Format2(B) & " = " & Format2(SomB),1
                        Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(C) & " = " & Format2(SomC),1
                        Scrivi Space(45) & Format2(Diff_Or) & " + " & Format2(D) & " = " & Format2(SomD),1
                        Scrivi Space(12) & "Pronostico ",1,,,1
                        Scrivi "            Ambata " & Format2(SomA),1
                        Scrivi "            Ambo1  " & Format2(SomA) & " " & Format2(SomB),1
                        Scrivi "            Ambo2  " & Format2(SomA) & " " & Format2(SomC),1
                        Scrivi "            Ambo3  " & Format2(SomA) & " " & Format2(SomD),1
                        Scrivi "         Quartina  " & Format2(SomA) & " " & Format2(SomB),1,0
                        Scrivi " " & Format2(SomC) & " " & Format2(SomD),1
                        Scrivi "         Cinquina  " & Format2(SomA) & " " & Format2(SomB),1,0
                        Scrivi " " & Format2(SomC) & " " & Format2(SomD) & " " & Format2(Diff_Or),1
                        Ruo(1) = R1 : Ruo(2) = R2
                        Amba(1) = SomA
                        ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                        Ambo1(1) = SomA : Ambo1(2) = SomB
                        ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                        Ambo2(1) = SomA : Ambo2(2) = SomC
                        ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                        Ambo3(1) = SomA : Ambo3(2) = SomD
                        ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
                        Qua(1) = SomA : Qua(2) = SomB
                        Qua(3) = SomC : Qua(4) = SomD
                        ImpostaGiocata 5,Qua,Ruo,Post3,Clp2
                        Penta(1) = SomA : Penta(2) = SomB
                        Penta(3) = SomC : Penta(4) = SomD : : Penta(5) = Diff_Or
                        ImpostaGiocata 6,Penta,Ruo,Post3,Clp2
                        Gioca Es
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto